From 93da18e26450719c57a9f9f92e02037ac84fb82d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 26 May 2005 14:27:49 +0000
Subject: fix setting a combobox with a tree

---
 perl-install/interactive/gtk.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl-install/interactive')

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;
-- 
cgit v1.2.1