From bf5442e5516a7eb06b4e96f8ee1456a5cdbb14d4 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 18 Feb 2005 17:03:34 +0000
Subject: Quand on élargit la fenêtre, la labframe d'envoi de message s'élargit
 également.

---
 src/ivymon | 43 +++++++++++++++++++++++--------------------
 1 file changed, 23 insertions(+), 20 deletions(-)

diff --git a/src/ivymon b/src/ivymon
index b698c37..c7dbead 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -277,8 +277,9 @@ my $top_fm =
 		       -padx => 5*$coef, -pady => 5*$coef);
 	    
 my $bottom_fm =
-    $mw->Frame()->pack(-fill => 'y',
+    $mw->Frame()->pack(-fill => 'both',
 		       -side => 'bottom',
+		       -expand => 0,
 		       -padx => 5*$coef, -pady => 5*$coef,
 		       );
 my $bindings_fm =
@@ -287,40 +288,41 @@ my $bindings_fm =
 			 -borderwidth => 3)->pack(-fill => 'both',
 						  -side => 'left',
 						  -padx => 5*$coef,
-						  -expand => 1,
+						  -expand => 0,
 				 );
 my $clients_fm =
     $bottom_fm->LabFrame(-label => 'Applications : ',
 			 -labelside => 'acrosstop',
 			 -borderwidth => 3)->pack(-fill => 'both',
 						  -side => 'left',
-						  -expand => 1,
+						  -expand => 0,
 						  -padx => 5*$coef,
 						  );
 my $send_fm =
     $bottom_fm->LabFrame(-label => 'Messages to send : ',
 			 -labelside => 'acrosstop',
-			 -borderwidth => 3)->pack(-fill => 'both',
+			 -borderwidth => 3)->pack(-fill => 'x',
 						  -side => 'left',
 						  -expand => 1,
 						  -padx => 5*$coef,
 						  );
-my $searchandcontrol_fm = $bottom_fm->Frame()->pack(-side => 'right');
+my $searchandcontrol_fm = $bottom_fm->Frame()->pack(-fill => 'both',
+						    -side => 'right',
+						    -expand => 0);
 my $search_fm =
     $searchandcontrol_fm->LabFrame(-label => 'Search : ',
 				   -labelside => 'acrosstop',
 				   -borderwidth => 3)->pack(-fill => 'none',
 							    -side => 'top',
 							    -padx => 5*$coef,
-							    -expand => 1);
+							    -expand => 0);
 my $control_fm =
     $searchandcontrol_fm->LabFrame(-label => 'Control : ',
 				   -labelside => 'acrosstop',
 				   -borderwidth => 3)->pack(-fill => 'none',
 							    -side => 'bottom',
 							    -padx => 5*$coef,
-							    -expand => 1);
-
+							    -expand => 0);
 my $progressbar =
     $bottom_fm->ProgressBar(-from => 0,
 			    -length => 200,
@@ -334,7 +336,6 @@ my $progressbar =
 				    #-expand => 1,
 				    -padx => 5*$coef,
 				    );
-
 #----------------------------------------------------------------------------------
 # Messages display area
 #----------------------------------------------------------------------------------
@@ -445,11 +446,11 @@ $messagesCounterValue->repeat(1000, sub {
 #----------------------------------------------------------------------------------
 my $bindingsEntry =
     $bindings_fm->Entry(-width => 30*$coef)->pack(-fill => 'x',
-					    -side => 'top',
-					    -anchor => 'w',
-					    -ipady => 3,
-					    -expand => 0,
-					    -pady => 5*$coef);
+						  -side => 'top',
+						  -anchor => 'w',
+						  -ipady => 3,
+						  -expand => 0,
+						  -pady => 5*$coef);
 $bindingsEntry->bind('<Escape>' => [\&addBindingExpression]);
 $bindingsEntry->bind('<Return>' => [\&addBinding]);
 
@@ -467,7 +468,7 @@ my $bindingsList =
 			   -width => 30*$coef)->pack(-fill => 'y',
 					       -side => 'top',
 					       -anchor => 'w',
-					       -expand => 1);
+					       -expand => 0);
 $bindingsList->bind('<1>', [\&selectBinding]);
 $bindingsList->bind('<Double-1>', [\&addBinding]);
 $bindingsEntry->bind('<Key>' => [\&findExprInList, $bindingsList]);
@@ -489,15 +490,16 @@ $effectivebindingsList->bind('<Double-1>', [\&removeBinding]);
 #----------------------------------------------------------------------------------
 my $clientsListbox =
     $clients_fm->Scrolled('Listbox',
+			  -height => 9,
 			  -scrollbars => 'osoe')->pack(-fill => 'both',
-						    -expand => 1,
+						    -expand => 0,
 						    -side => 'top');
 $clientsListbox->bind('<1>', [\&selectClient]);
 $clientsListbox->bind('<Double-1>', [\&showClientBindings]);
 &wheelmousebindings($clientsListbox);
 
 my $clientsButtons_fm =
-    $clients_fm->Frame()->pack(-fill => 'both', -expand => 1, -side => 'bottom');
+    $clients_fm->Frame()->pack(-fill => 'both', -expand => 0, -side => 'bottom');
 
 
 
@@ -526,7 +528,7 @@ my $sendEntry =
 					-side => 'top',
 					-anchor => 'w',
 					-ipady => 3,
-					-expand => 0,
+					-expand => 1,
 					-pady => 5*$coef);
 my $send2_fm = $send_fm->Frame()->pack(-side => 'top',
 				       -expand => 1,
@@ -564,8 +566,9 @@ my $clockbackCheckbutton =
 						      -sticky => 'nsew');
 my $sendList =
     $send_fm->Scrolled('Listbox',
-			-scrollbars => 'osoe',
-			-width => 40*$coef)->pack(-fill => 'y',
+		       -scrollbars => 'osoe',
+		       -height => 9,
+		       -width => 40*$coef)->pack(-fill => 'both',
 					    -anchor => 'w',
 					    -side => 'bottom',
 					    -expand => 1);
-- 
cgit v1.1