1
0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-12-19 20:24:45 +00:00
lyx_mirror/development/autotests/stop_autotests.tcl
Tommaso Cucinotta dcf0eb944e Now the framework works running LyX in the language required by the test
script (if any) also when LyX is not installed on your system
(using a variant of the trick suggested by Enrico, i.e., create a symlink
locale from the LyX sources root to an autotests/locale folder).
At least, it does on Linux.


git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37589 a592a061-630c-0410-9148-cb99ea01b6c8
2011-02-10 22:33:23 +00:00

18 lines
462 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