#!/users/mgd/packages/swarm/blt2.3/bin/bltwish
#!../bltwish

source bltDemo.tcl

proc ShowResult { name1 name2 how } {
    global var
    .l$name2 configure -text "$var($name2)"
    after 2000 "table forget .l$name2"
}
    
for { set i 1 } { $i <= 50 } { incr i } {
    label .l$i 
    table . .l$i $i,0
    set pid [bgexec var($i) du /usr/lib &]
    .l$i configure -text "Starting #$i pid=$pid"
    trace variable var($i) w ShowResult
    update
    after 100
}

