File: container.tcl

package info (click to toggle)
blt 2.4z-4
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 10,272 kB
  • ctags: 14,108
  • sloc: ansic: 113,309; tcl: 15,844; sh: 2,887; makefile: 849; cpp: 370; csh: 25
file content (14 lines) | stat: -rwxr-xr-x 308 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
#!../src/bltwish

package require BLT
namespace import blt::*

set cmd "xterm -geom +4000+4000"
#set cmd "xclock -name fred -geom +4000+4000"
eval bgexec myVar $cmd &
container .c 
pack .c -fill both -expand yes
#.c configure -relief raised -bd 2 -name fred
.c configure -relief raised -bd 2 -command $cmd