diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 19:03:03 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-02 19:03:03 (GMT) |
commit | 3cd540c3f22f5d85dffae5542cf58f8855f7b847 (patch) | |
tree | d8da2e6b1177a7b2f74a3e388acc16d5bd63ce57 /tclsignal/tests | |
parent | 63e42cf0fcf5c7173c93f77b41cb63f3f44be9d1 (diff) | |
download | blt-3cd540c3f22f5d85dffae5542cf58f8855f7b847.zip blt-3cd540c3f22f5d85dffae5542cf58f8855f7b847.tar.gz blt-3cd540c3f22f5d85dffae5542cf58f8855f7b847.tar.bz2 |
update TEA 3.13
Diffstat (limited to 'tclsignal/tests')
-rwxr-xr-x | tclsignal/tests/test_sig.tk | 31 | ||||
-rwxr-xr-x | tclsignal/tests/test_sig_async.tk | 50 |
2 files changed, 0 insertions, 81 deletions
diff --git a/tclsignal/tests/test_sig.tk b/tclsignal/tests/test_sig.tk deleted file mode 100755 index feca784..0000000 --- a/tclsignal/tests/test_sig.tk +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/local/bin/wish4.1 -# ENSURE YOUR TCLLIBPATH includes /usr/local/lib/signal! -# (or uncomment the appropriate load line and comment the package line) -# --SUN -# load /usr/local/lib/signal_ext.so -# --HP -# load /usr/local/lib/signal_ext.sl -package require Signal - -signal add 21 { wm iconify . ; wm deiconify . } -signal add SIGHUP { puts "Signal 1 received" } -signal add SIGINT { puts "SIGINT received" } - -puts "Showing all the signals handled" -puts [signal print] -puts "Showing how 3 is handled" -puts [signal print 3] -puts "Showing how SIGTTOU is handled" -puts [signal print SIGTTOU] - -frame .bottom -button .bottom.b -text "Done" -command "exit 0" -button .bottom.i -text "Iconify" -command "wm iconify ." -label .l -wraplength 40m -text { -Sending this process signals 1 (HUP) or 2 (^C or INT) will print messages; signal 21 (URG) will pop it up! -} - -pack .bottom.b -side left -fill x -pack .bottom.i -side right -fill x -pack .l -side top -fill both -expand true -pack .bottom -in . -side bottom -fill x diff --git a/tclsignal/tests/test_sig_async.tk b/tclsignal/tests/test_sig_async.tk deleted file mode 100755 index 24ac543..0000000 --- a/tclsignal/tests/test_sig_async.tk +++ /dev/null @@ -1,50 +0,0 @@ -#!/usr/local/bin/wish4.1 -# ENSURE YOUR TCLLIBPATH includes /usr/local/lib/signal! -# (or uncomment the appropriate load line and comment the package line) -# --SUN -# load /usr/local/lib/signal_ext.so -# --HP -# load /usr/local/lib/signal_ext.sl - -# Proc to do something absurd for a long time -proc do_long_job { } { - for { set i 0 } { $i < 300000 } { incr i } { expr $i * $i } -} - -package require Signal - -signal add 21 { wm iconify . ; wm deiconify . } -signal add SIGHUP { puts "Signal 1 received" } -signal add SIGINT { puts "SIGINT received" ; error "SIGINT interrupt" } -async -signal add SIGQUIT { puts "SIGQUIT received" } -async - -puts "Showing all the signals handled" -puts [signal print] -puts "Showing how 3 is handled" -puts [signal print 3] -puts "Showing how SIGTTOU is handled" -puts [signal print SIGTTOU] - -frame .bottom -button .bottom.b -text "Done" -command "exit 0" -button .bottom.j -text "Long Job" -command do_long_job -button .bottom.i -text "Iconify" -command "wm iconify ." -label .l -wraplength 60m -justify l -text { -Sending this process SIGHUP will (eventually) result in a message; - -SIGQUIT (^\) will result in a message immediately. - -SIGINT (^C) will result in an error trace immediately. This is the result of the -async option on signal handlers - -Signal 21 (URG) will pop the dialog up! - -Pressing the "Long Job" button will perform a single, long calculation where no buttons presses will have immediate effect, but SIGINT will interrupt the calculation prematurely -} - -pack .bottom.b -side left -fill x -pack .bottom.j -side left -fill x -pack .bottom.i -side right -fill x -pack .l -side top -fill both -expand true -pack .bottom -in . -side bottom -fill x - -update |