summaryrefslogtreecommitdiffstats
path: root/tclsignal/tests
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2019-01-03 16:51:40 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2019-01-03 16:51:40 (GMT)
commitfa6e0263b87ec0165be0a3a774e0bbdccc069f57 (patch)
tree363f19b9944a0b91c2a27a6ce42db14d7ac4f857 /tclsignal/tests
parent0bf8e550c4dfc69979aca5f8311eeec8f262b500 (diff)
downloadblt-fa6e0263b87ec0165be0a3a774e0bbdccc069f57.zip
blt-fa6e0263b87ec0165be0a3a774e0bbdccc069f57.tar.gz
blt-fa6e0263b87ec0165be0a3a774e0bbdccc069f57.tar.bz2
update TEA 3.13
Diffstat (limited to 'tclsignal/tests')
-rwxr-xr-xtclsignal/tests/test_sig.tk31
-rwxr-xr-xtclsignal/tests/test_sig_async.tk50
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