From 86ce7579def30de62827e809192efb41ca6d6a4f Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 22 Jan 2007 10:20:57 +0000
Subject: Ajout d'un bouton pour passer le panneau en arrière-plan.

---
 src/ivycontrolpanel | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src')

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 
 #---------------------------------------------------------------------------------
-- 
cgit v1.1