$delete_button_left->configure(-state => 'normal');
bzw.
$delete_button_left->configure(-state => 'disabled');
Edit: bzw. 'active', siehe
Tk::Button :
Quote Name: state
Class: State
Switch: -state
Specifies one of three states for the button: normal, active, or
disabled. In normal state the button is displayed using the
foreground and background options. The active state is typically
used when the pointer is over the button. In active state the button
is displayed using the activeForeground and activeBackground
options. Disabled state means that the button should be insensitive:
the default bindings will refuse to activate the widget and will
ignore mouse button presses. In this state the disabledForeground
and background options determine how the button is displayed.
\n\n
<!--EDIT|Crian|1069667703-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
use strict; use warnings; Link zu meiner Perlseite