diff options
| -rw-r--r-- | debian/changelog | 6 | ||||
| -rwxr-xr-x | src/ivycontrolpanel | 15 |
2 files changed, 21 insertions, 0 deletions
diff --git a/debian/changelog b/debian/changelog index 07bc961..d0b537b 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +ivycontrolpanel (2.4) unstable; urgency=low + + * Ajout d'un bouton pour passer le panneau en arrière-plan + + -- Daniel Etienne <etienne@cena.fr> Mon, 22 Jan 2007 11:19:33 +0100 + ivycontrolpanel (2.3-3) unstable; urgency=low * Missing man page diff --git a/src/ivycontrolpanel b/src/ivycontrolpanel index 0bbc4d4..e8f1b47 100755 --- a/src/ivycontrolpanel +++ b/src/ivycontrolpanel @@ -363,6 +363,21 @@ $pausebtn->configure(-command => \&pause); IvyIO::bind_for_play_event(\&display_play); IvyIO::bind_for_pause_event(\&display_pause); +# Lower button +#--------------------------------------------------------------------------------- + +my $lowerbmp = $mw->Bitmap('lower', -file => Tk::findINC('lower.bmp'), + -background => $bg, + -foreground => $hlbg); + +$x = $width - $dxright/2 - $fm_w - 90*$coef; + +my $button_lower = $fm1->Button( + @buttonattr, + -image => $lowerbmp, + )->place(-x => $x, -y => $y ); + +$button_lower->configure( -command => sub { $mw->lower();}); # Quit button #--------------------------------------------------------------------------------- |