diff options
author | etienne | 2004-10-11 16:14:06 +0000 |
---|---|---|
committer | etienne | 2004-10-11 16:14:06 +0000 |
commit | 6e9ad57a7d399fbb08db693c866ff2f83c83b5db (patch) | |
tree | cc8ea1525a9fd1c1f37646b1ddcee7c1f865112f /Perl/Zinc | |
parent | cd4b06de25f8d1a4c7161c6df5f0b390b8ea0a89 (diff) | |
download | tkzinc-6e9ad57a7d399fbb08db693c866ff2f83c83b5db.zip tkzinc-6e9ad57a7d399fbb08db693c866ff2f83c83b5db.tar.gz tkzinc-6e9ad57a7d399fbb08db693c866ff2f83c83b5db.tar.bz2 tkzinc-6e9ad57a7d399fbb08db693c866ff2f83c83b5db.tar.xz |
bug fix
Diffstat (limited to 'Perl/Zinc')
-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); }); |