3 wm attributes . -topmost 1
5 image create photo .stop -format GIF -file stop.gif
6 button .stop_autotests -image .stop -text "STOP LyX Tests" -compound left -command {
8 if {[catch {exec killall --wait run-tests.sh single-test.sh lyx} results]} {
9 if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {
10 set status [lindex $::errorCode 2]
12 # Some kind of unexpected failure