diff options
author | etienne | 2004-09-06 11:45:42 +0000 |
---|---|---|
committer | etienne | 2004-09-06 11:45:42 +0000 |
commit | f29ce1916adf2442d1df79e0815252eb81ba45b3 (patch) | |
tree | 1777ec0b2492a4bcba68b7726e40042b88ce5f52 /src | |
parent | da1bedc4255d499412d9c5f8b38a11a3fca07e1b (diff) | |
download | ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.zip ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.gz ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.bz2 ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.xz |
*** empty log message ***
Diffstat (limited to 'src')
-rwxr-xr-x | src/ivymon | 10 |
1 files changed, 1 insertions, 9 deletions
@@ -503,20 +503,17 @@ my $clientsButtons_fm = my $clientsSeeBindings_btn = $clientsButtons_fm->Button(-command => [\&showClientBindings], - -state => 'disabled', -text => 'See bindings', )->pack(-side => 'top', -fill => 'both', -expand => 1); my $clientsButtons2_fm = $clientsButtons_fm->Frame()->pack(-fill => 'both', -expand => 1, -side => 'top'); my $clientsFilter_btn = $clientsButtons2_fm->Button(-command => [\&filterClient], - -state => 'disabled', -text => "Filter", )->pack(-side => 'left', -fill => 'both', -expand => 1); my $clientsKill_btn = $clientsButtons2_fm->Button(-command => [\&killClient], - -state => 'disabled', -text => "Kill", )->pack(-side => 'left', -fill => 'both', -expand => 1); @@ -1047,22 +1044,17 @@ sub selectClient { if ($selectedClient eq $client) { $selectedClient = undef; $clientsListbox->selectionClear($selindex); - $clientsKill_btn->configure(-state => 'disabled'); - $clientsFilter_btn->configure(-state => 'disabled'); - $clientsSeeBindings_btn->configure(-state => 'disabled'); return; } $messagesText->tagConfigure($client, -background => 'gray70'); $selectedClient = $client; - $clientsKill_btn->configure(-state => 'normal'); - $clientsFilter_btn->configure(-state => 'normal'); - $clientsSeeBindings_btn->configure(-state => 'normal'); } # end selectClient sub filterClient { my $selindex = $clientsListbox->curselection; + return unless defined $selindex; my $client = $clientsListbox->get($selindex); $client =~ s/^-- //; $client =~ s/\(\d+\)$//; |