diff options
| author | mariot | 2004-04-27 09:31:39 +0000 |
|---|---|---|
| committer | mariot | 2004-04-27 09:31:39 +0000 |
| commit | 8f53167c7add2c47400d0b9604ff59c5bb6f2ac0 (patch) | |
| tree | d47afd2a7f3f2b10a4b32bbce563a1a24477317e /src/IvyIO.pm | |
| parent | ac97ec5434c67f818f5357489525e33288044589 (diff) | |
| download | ivycontrolpanel-8f53167c7add2c47400d0b9604ff59c5bb6f2ac0.zip ivycontrolpanel-8f53167c7add2c47400d0b9604ff59c5bb6f2ac0.tar.gz ivycontrolpanel-8f53167c7add2c47400d0b9604ff59c5bb6f2ac0.tar.bz2 ivycontrolpanel-8f53167c7add2c47400d0b9604ff59c5bb6f2ac0.tar.xz | |
- msg 'IvyControlPanel KillAll'
Diffstat (limited to 'src/IvyIO.pm')
| -rw-r--r-- | src/IvyIO.pm | 10 |
1 files changed, 10 insertions, 0 deletions
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; |