summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoretienne2004-09-06 11:45:42 +0000
committeretienne2004-09-06 11:45:42 +0000
commitf29ce1916adf2442d1df79e0815252eb81ba45b3 (patch)
tree1777ec0b2492a4bcba68b7726e40042b88ce5f52
parentda1bedc4255d499412d9c5f8b38a11a3fca07e1b (diff)
downloadivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.zip
ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.gz
ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.bz2
ivymon-f29ce1916adf2442d1df79e0815252eb81ba45b3.tar.xz
*** empty log message ***
-rwxr-xr-xsrc/ivymon10
1 files changed, 1 insertions, 9 deletions
diff --git a/src/ivymon b/src/ivymon
index 7580ffb..806fa96 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -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+\)$//;