diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/ivymon | 43 |
1 files changed, 23 insertions, 20 deletions
@@ -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); |