diff options
| -rwxr-xr-x | src/ivymon | 61 |
1 files changed, 24 insertions, 37 deletions
@@ -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', |