mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-22 21:21:32 +00:00
939796f137
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37551 a592a061-630c-0410-9148-cb99ea01b6c8
18 lines
463 B
Tcl
Executable File
18 lines
463 B
Tcl
Executable File
#! /usr/bin/wish8.5
|
|
|
|
wm attributes . -topmost 1
|
|
|
|
image create photo .stop -format GIF -file stop.gif
|
|
button .stop_autotests -image .stop -text "STOP LyX Tests" -compound left -command {
|
|
set status 0
|
|
if {[catch {exec killall --wait run-tests.sh single-test.sh lyx} results]} {
|
|
if {[lindex $::errorCode 0] eq "CHILDSTATUS"} {
|
|
set status [lindex $::errorCode 2]
|
|
} else {
|
|
# Some kind of unexpected failure
|
|
}
|
|
}
|
|
exit
|
|
}
|
|
pack .stop_autotests
|