mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-12-22 05:16:21 +00:00
Added emergency STOP button in tcl/tk window for immediate & painless termination of the tests.
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@37551 a592a061-630c-0410-9148-cb99ea01b6c8
This commit is contained in:
parent
4c55d02ec6
commit
939796f137
@ -38,6 +38,9 @@ if [ ! -d $LYX_HOME ]; then
|
||||
cd ..
|
||||
fi
|
||||
|
||||
# Launch the emergency STOP button
|
||||
./stop_autotests.tcl &
|
||||
|
||||
echo "Running test cases . . ."
|
||||
failed=0
|
||||
for t in $(echo "$TESTS" | sed -e 's/-in.txt//g'); do
|
||||
|
BIN
development/autotests/stop.gif
Normal file
BIN
development/autotests/stop.gif
Normal file
Binary file not shown.
After Width: | Height: | Size: 896 B |
17
development/autotests/stop_autotests.tcl
Executable file
17
development/autotests/stop_autotests.tcl
Executable file
@ -0,0 +1,17 @@
|
||||
#! /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
|
Loading…
Reference in New Issue
Block a user