diff options
| -rw-r--r-- | Perl/Zinc/Debug.pm | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 240ffad..bc9a7d0 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -2758,18 +2758,12 @@ sub entrytransfo { $e = $fm->Entry(-textvariable => $var); $i0 = 0; my $width = length($def); - $e->configure(-width => $width); - if ($defaultoptions{$item}->{$attr} and - $def ne $defaultoptions{$item}->{$attr}) { - $e->configure(-foreground => 'blue'); - } - + $e->configure(-width => $width); $e->insert($i0, $def); $e->bind('<Control-z>', sub { - return unless defined $defaultoptions{$item}->{$attr}; my $bg = $e->cget(-background); $e->delete($i0, 'end'); - $e->insert($i0, $defaultoptions{$item}->{$attr}); + $e->insert($i0, $def); $e->configure(-background => 'ivory'); $e->after(80, sub {$e->configure(-background => $bg, -foreground => 'black')}); &$set_cb; @@ -2778,12 +2772,7 @@ sub entrytransfo { sub {my $val = $e->get; my $bg = $e->cget(-background); $e->configure(-background => 'ivory'); - if ($def ne $val) { - $defaultoptions{$item}->{$attr} = $def - unless defined $defaultoptions{$item}->{$attr}; - } - my $fg = ($val ne $defaultoptions{$item}->{$attr}) ? - 'blue' : 'black'; + my $fg = ($val ne $def) ? 'blue' : 'black'; $e->after(80, sub { $e->configure(-background => $bg, -foreground => $fg); }); |