From 8f53167c7add2c47400d0b9604ff59c5bb6f2ac0 Mon Sep 17 00:00:00 2001
From: mariot
Date: Tue, 27 Apr 2004 09:31:39 +0000
Subject: - msg 'IvyControlPanel KillAll'

---
 src/IvyIO.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/IvyIO.pm')

diff --git a/src/IvyIO.pm b/src/IvyIO.pm
index 8283a02..c933ffc 100644
--- a/src/IvyIO.pm
+++ b/src/IvyIO.pm
@@ -110,5 +110,15 @@ sub bind_for_clock_and_rate_event {
     
 } # end bind_for_clock_event
 
+# execute the callback kill all
+sub bind_for_kill_all {
+    my $cb = shift;
+    return unless $cb;
+    return unless $ivy;
+    $ivy->bindRegexp('IvyControlPanel KillAll',
+		     [sub { shift; &$cb(); }]);
+    
+} # end bind_for_clock_event
+
 
 1;
-- 
cgit v1.1