in reply to disabling the Listbox widget in Perl/Tk
$listbox->configure(-foreground => $grayout_color); # Disable all bindings. foreach my $seq ($listbox->bind()) { my $code = $listbox->bind($seq); # Store the $code somewhere... # if you want to re-enable later. $listbox->bind($seq, ""); }
|
|---|