From fcd3259e9b2164520857d300f45588307de5b2cf Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Jan 2001 18:15:23 +0000
Subject: fixes

---
 perl-install/interactive_gtk.pm | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'perl-install/interactive_gtk.pm')

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index c9ee639f0..310f88fc6 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -60,10 +60,6 @@ sub create_clist {
 #      $list->signal_connect(button_release_event => $leave) :
 #      $list->signal_connect(button_press_event => sub { &$leave if $_[1]{type} =~ /^2/ });
 
-    $list->signal_connect(select_row => sub {
-	my ($w, $row) = @_;
-	${$e->{val}} = $e->{list}[$curr = $row];
-    });
     $list->signal_connect(key_press_event => sub {
         my ($w, $event) = @_;
 	my $c = chr($event->{keyval} & 0xff);
@@ -97,12 +93,19 @@ sub create_clist {
 	}
 	1;
     });
+    $list->show;
 
     $list->append($_) foreach @l;
 
+    $list->signal_connect(select_row => sub {
+	my ($w, $row) = @_;
+	${$e->{val}} = $e->{list}[$curr = $row];
+    });
+
     $list, sub {
+	my ($v) = @_;
 	eval { 
-	    $select->(find_index { $_ eq ${$e->{val}} } @{$e->{list}}) 
+	    $select->(find_index { $_ eq $v } @{$e->{list}});
 	};
     };
 }
@@ -156,7 +159,7 @@ sub create_ctree {
     $tree->set_row_height($tree->style->font->ascent + $tree->style->font->descent + 1);
 
     $tree, sub {
-	my $node = $wleaves{${$e->{val}}} or return;
+	my $node = $wleaves{$_[0]} or return;
 
 	for (my $c = $node; $c; $c = $c->row->parent) { 
 	    $tree->expand($c);
@@ -209,8 +212,9 @@ sub create_list {
 	${$e->{val}} = $l->[$list->child_position($row)];
     });
     $list, sub { 
+	my ($v) = @_;
 	eval { 
-	    $select->(find_index { $_ eq ${$e->{val}} } @$l) 
+	    $select->(find_index { $_ eq $v } @$l);
 	};
     };
 }
@@ -335,13 +339,14 @@ sub ask_from_entries_refW {
     };
     my $advanced_button = [ _("Advanced"), sub { $set_advanced->(!$advanced) } ];
 
-    $set_all->();
     gtkadd($mainw->{window},
 	   gtkpack(create_box_with_title($mainw, @{$common->{messages}}),
 		   may_createScrolledWindow(@widgets_always > 8, create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_always), 200, min(350, $::windowheight - 60)),
 		   new Gtk::HSeparator,
 		   $advanced_pack = create_packtable({}, map { [($_->{icon_w}, $_->{e}{label}, $_->{real_w})]} @widgets_advanced),
 		   $mainw->create_okcancel($common->{ok}, $common->{cancel}, '', @$l2 ? $advanced_button : ())));
+    $mainw->sync; #- for $set_all below (mainly for the set of clist)
+    $set_all->();
     $set_advanced->(0);
     (@widgets ? $widgets[0]{w} : $mainw->{ok})->grab_focus();
 
-- 
cgit v1.2.1