blob: fa3f69eb9f02b3b8c1c49a32a0a5f0edd04a1d02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
load tk std
fn x {
or {tk $wid $*} {
echo error on tk cmd $"*':' $status >[1=2]
}
}
subfn x {
result = ${tk $wid $*}
if {~ $result '!*'} {
echo error on tk cmd $"*':' $result >[1=2]
}
}
fn tkwin {
if {! ~ $#* 2} {
echo usage: tkwin name {command} >[1=2]
raise usage
}
wid := ${tk window $1}
while {} {
tk winctl $wid ${recv $wid}
} &
$2
}
# more for interactive use
fn tkmkwin {
if {! ~ $#* 1} {
echo usage: tkmkwin name >[1=2]
raise usage
}
wid = ${tk window $1}
while {} {
tk winctl $wid ${recv $wid}
} &
}
fn onscreen {
tk onscreen $wid $1
}
|
