From f1d8b860f050a466bf67db720f62926b286ed249 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 1 Jun 2005 08:11:08 +0000
Subject: (ask_fromW) simplify

---
 perl-install/interactive/gtk.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm
index a911f1f32..53813709e 100644
--- a/perl-install/interactive/gtk.pm
+++ b/perl-install/interactive/gtk.pm
@@ -598,12 +598,11 @@ sub ask_fromW {
 
 		$set = sub {
 		    my $s = may_apply($e->{format}, $_[0]);
-              return if !($s ne $w->get_text && $_[0] ne $w->get_text);
               if ($model) {
                   $model->set($w->get_active_iter, 0 => may_apply($e->{format}, $s));
                   #$w->set_active($model->{indexes}{$s});
               } else  {
-                  $w->set_text($s);
+                  $w->set_text($s) if $s ne $w->get_text && $_[0] ne $w->get_text;
               }
 		};
 		$get = sub { 
-- 
cgit v1.2.1