21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
+
+
+
+
+
+
+
-
+
-
+
|
exec xhost -$host
}
exec xhost -
}
XauthSecure
proc RestartClient {args} {
if {[file exists eskil.vfs/main.tcl_i]} {
puts "Starting gui instrumented"
set src eskil.vfs/main.tcl_i
} else {
set src eskil.vfs/main.tcl
}
set cmd [list tclkit $src]
set ::clientfile ./eskil.kit
#set ::clientfile ./eskil.kit
#if {[file exists ${::clientfile}_i]} {
# set ::clientfile ${::clientfile}_i
#}
if {![catch {send -async Eskil exit}]} {
update
after 500
}
set slavepid [exec $::clientfile -server {*}$args &]
set slavepid [exec {*}$cmd -server {*}$args &]
after 1000
while {[catch {tktest::init Eskil}]} {
after 500
}
tktest::cmd wm geometry . +10+10
|