From 6e9ad57a7d399fbb08db693c866ff2f83c83b5db Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 11 Oct 2004 16:14:06 +0000
Subject: bug fix

---
 Perl/Zinc/Debug.pm | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

(limited to 'Perl')

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);
 		  });
-- 
cgit v1.1