blob: 31723f9398db45fe435eb0440848ebda0544eb3c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/wish -f
load tkzinc3.1.so
set top 1
set r [zinc .r -backcolor gray -relief sunken]
pack .r -expand t -fill both
.r configure -width 800 -height 500
.r addtag controls withtag $top
set ent [entry .r.entry]
set wind [.r add window $top -window $ent -position "100 100"]
|
