File: bgexec2.tcl

package info (click to toggle)
blt 3.0~1%2B08570046%2Bdfsg-5
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 45,556 kB
  • sloc: ansic: 278,852; tcl: 96,434; sh: 3,410; makefile: 2,026; cpp: 374
file content (20 lines) | stat: -rw-r--r-- 441 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#!../src/bltwish

package require BLT

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