File: container.tcl

package info (click to toggle)
blt 2.5.3%2Bdfsg-3
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 24,864 kB
  • sloc: ansic: 133,724; tcl: 17,680; sh: 2,722; makefile: 799; cpp: 370
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