File: bgexec5.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 (12 lines) | stat: -rw-r--r-- 197 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!../src/bltwish

package require BLT

foreach demo [glob barchart?.tcl] {
    blt::bgexec var wish $demo &
}

button .kill -text "Kill All" -command { set var 0 }
blt::table . .kill -fill both