#! tclsh8.5

package require Tk
package require csv

set ::newer [list]
set ::uninstalled [list]

proc install {args} {
 set cmdlist [::csv::split $args]
 set cmd "teacup install --force --with-recommends -v [lindex $cmdlist 1] -exact [lindex $cmdlist 2] -is [lindex $cmdlist 0]"
 
 puts "$cmd"
 puts [exec {*}$cmd]
}

proc newer {} { 
    set ::newer [exec teacup list --as csv --only newer]

    pack [scrolledlistbox .slbNewer $::newer install] -fill both -expand 1
    return
}

proc uninstalled {} { 
    set ::uninstalled [exec teacup list --as csv --only uninstalled]
    pack [scrolledlistbox .slbUninstalled $::uninstalled install] -fill both -expand 1
    return
}

# This next file is from https://wiki.tcl-lang.org/15614
source scrolledlistbox.tcl


newer
uninstalled