summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-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+\)$//;