Ajout d'un bouton pour passer le panneau en arrière-plan.

1 files changed, 15 insertions, 0 deletions

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 
 #---------------------------------------------------------------------------------