diff options
| -rw-r--r-- | debian/changelog | 6 | ||||
| -rw-r--r-- | src/IvyIO.pm | 10 | ||||
| -rwxr-xr-x | src/ivycontrolpanel | 4 |
3 files changed, 20 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 8ca283f..440119c 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +ivycontrolpanel (2.2) unstable; urgency=low + + * Ajout du message 'IvyControlPanel KillAll'. + + -- Cedirc Mariot <mariot@cena.fr> Thu, 27 Apr 2004 11:27:18 +0200 + ivycontrolpanel (2.1) unstable; urgency=low * Ajout de l'option -smallsize: affichage en 640x480. 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; diff --git a/src/ivycontrolpanel b/src/ivycontrolpanel index 2dd638f..887d50c 100755 --- a/src/ivycontrolpanel +++ b/src/ivycontrolpanel @@ -354,6 +354,7 @@ $fm1->Button(@buttonattr, )->place(-x => $x, -y => $y); $x -= $fm_w + 10*$coef; +IvyIO::bind_for_kill_all(\&killandquit); #--------------------------------------------------------------------------------- # @@ -797,6 +798,9 @@ ivycontrolpanel displays agents detected on a given ivy bus. For each agent, a l At bottom of window, two areas are dedicated to a specific agent, the air traffic simulator Rejeu. At bottom left, you can adjust the traffic speed. At bottom center, you have a clock; when you click on one of time fields, two scrolling arrows appears which let you adjust time; validation is done by clicking on the last selected field. Near, play/pause buttons let you start or stop the traffic simulator. Then, at bottom right, the cross button will be used to kill all agents and quit. +=head1 LISTENED MESSAGE + +listen to the message 'IvyControlPanel KillAll', to kill all the agent (like quit button). =head1 OPTIONS |