Remplacement des Frame/Label par des LabFrame

1 files changed, 24 insertions, 37 deletions

diff --git a/src/ivymon b/src/ivymon
index 8c39783..f653f9b 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -319,28 +319,25 @@ $messagesText->tagConfigure($appname, -foreground => 'gray40');
 #----------------------------------------------------------------------------------
 my $clientsLabel =
     $frame21appli->Label(-text => "Applications :")->pack(-side => 'top',
-							  -anchor => 'w');
+  							  -anchor => 'w');    
 my $clientsListbox =
     $frame21appli->Scrolled(Listbox,
-			   -scrollbars => 's')->pack(-fill => 'both',
-						-expand => 1,
-						-side => 'top');
+			    -scrollbars => 's')->pack(-fill => 'both',
+						      -expand => 1,
+						      -side => 'top');
 $clientsListbox->bind('<1>', [\&selectClient]);
 &wheelmousebindings($clientsListbox);
 
 #----------------------------------------------------------------------------------
 # Description de la zone Abonnements
 #----------------------------------------------------------------------------------
-# le label titre
-my $bindingsLabel =
-    $frame121bindings->Label(-text => 'Bindings : ')->pack(-side => 'top',
-  							   -anchor => 'w');
 # la frame Abonnements
 $frame121bindings =
-    $frame121bindings->Frame(-relief => 'groove',
-			     -borderwidth => 3)->pack(-fill => 'none',
-						      -side => 'left',
-						      -expand => 1);
+    $frame121bindings->LabFrame(-label => 'Bindings : ',
+				-labelside => 'acrosstop',
+				-borderwidth => 3)->pack(-fill => 'none',
+							 -side => 'left',
+							 -expand => 1);
 # la frame de gauche contenant le champ de saisie et la listbox
 my $frame1211 =
     $frame121bindings->Frame()->pack(-fill => 'none',
@@ -409,18 +406,14 @@ my $bindingsRemove =
 #----------------------------------------------------------------------------------
 # Description de la zone Recherche
 #----------------------------------------------------------------------------------
-# le label titre
-my $searchLabel =
-    $frame122search->Label(-text => 'Search : ')->pack(-side => 'top',
-						       -padx => 15,
-						       -anchor => 'w');
 # la frame Recherche
 $frame122search =
-    $frame122search->Frame(-relief => 'groove',
-			   -borderwidth => 3)->pack(-fill => 'none',
-						    -padx => 15,
-						    -side => 'left',
-						    -expand => 1);
+    $frame122search->LabFrame(-label => 'Search : ',
+			      -labelside => 'acrosstop',
+			      -borderwidth => 3)->pack(-fill => 'none',
+						       -padx => 15,
+						       -side => 'left',
+						       -expand => 1);
 
 # le champ de saisie + bindings associes
 my $searchEntry =
@@ -495,16 +488,13 @@ my $searchAll =
 #----------------------------------------------------------------------------------
 # Description de la zone Emission
 #----------------------------------------------------------------------------------
-# le label titre
-my $sendLabel =
-    $frame13send->Label(-text => 'Messages to send : ')->pack(-side => 'top',
-							      -anchor => 'w');
 # la frame Emission
 $frame13send =
-    $frame13send->Frame(-relief => 'groove',
-			 -borderwidth => 3)->pack(-fill => 'none',
-						  -side => 'left',
-						  -expand => 1);
+    $frame13send->LabFrame(-label => 'Messages to send : ',
+			   -labelside => 'acrosstop',
+			   -borderwidth => 3)->pack(-fill => 'none',
+						    -side => 'left',
+						    -expand => 1);
 
 
 # la frame de gauche contenant le champ de saisie et la listbox
@@ -573,14 +563,11 @@ my $sendRemove =
 #----------------------------------------------------------------------------------
 # Description de a la zone Commande
 #----------------------------------------------------------------------------------
-# le label titre
-my $controlLabel =
-    $frame21control->Label(-text => "Control :")->pack(-side => 'top',
-							 -anchor => 'w');
-# la frame de commandes generale
+
 my $frame211control =
-    $frame21control->Frame(-relief => 'groove',
-			   -borderwidth => 3)->pack(-fill => 'none',
+    $frame21control->LabFrame(-label => "Control :",
+			      -labelside => "acrosstop",
+			      -borderwidth => 3)->pack(-fill => 'none',
 						    -ipadx => 10,
 						    -ipady => 10,
 						    -side => 'left',