#! 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 [lindex $cmdlist 1] [lindex $cmdlist 2] -is [lindex $cmdlist 0] -v"
 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 http://wiki.tcl.tk/15614
source scrolledlistbox.tcl


newer
uninstalled