development/autotests/stop_autotests.tcl

   1 #!/usr/bin/wish
   2
   3 wm attributes . -topmost 1
   4
   5 image create photo .stop -format GIF -file stop.gif
   6 button .stop_autotests -image .stop -text "STOP LyX Tests" -compound left -command {
   7     set status 0
   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]
  11         } else {
  12             # Some kind of unexpected failure
  13         }
  14     }
  15     exit
  16 }
  17 pack .stop_autotests