diff options
-rw-r--r-- | Perl/Zinc/Debug.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm index 6d4758c..71a4d18 100644 --- a/Perl/Zinc/Debug.pm +++ b/Perl/Zinc/Debug.pm @@ -2746,7 +2746,7 @@ sub entrytransfo { $e = $fm->Entry(-textvariable => $var); &entryballoonhelp($e); $i0 = 0; - my $width = length($def); + $width = length($def) unless $width; $e->configure(-width => $width); $e->insert($i0, $def); $e->bind('<Control-z>', sub { |