diff options
| -rw-r--r-- | perl-install/interactive/gtk.pm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 0405f759c..3b10a3e9e 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -594,7 +594,12 @@ sub ask_fromW { $set = sub { my $s = may_apply($e->{format}, $_[0]); - $w->set_text($s) if $s ne $w->get_text && $_[0] ne $w->get_text; + next if !($s ne $w->get_text && $_[0] ne $w->get_text); + if ($model) { + $w->set_active($model->{indexes}{$s}); + } else { + $w->set_text($s); + } }; $get = sub { my $s = $model ? { reverse %{$model->{indexes}} }->{$w->get_active} : $w->get_text; |