From 3caefbe5aa7c8be8057a0292032264145735fd7b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 22 Feb 2000 17:19:02 +0000
Subject: no_comment

---
 perl-install/interactive_gtk.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm
index 62f0c3603..8d45913fe 100644
--- a/perl-install/interactive_gtk.pm
+++ b/perl-install/interactive_gtk.pm
@@ -53,7 +53,7 @@ sub ask_from_listW {
     $r or die "ask_from_list cancel";
 }
 
-sub ask_from_treelist {
+sub ask_from_treelistW {
     my ($o, $title, $messages, $separator, $l, $def) = @_;
     my $sep = quotemeta $separator;
     my $w = my_gtk->new($title);
@@ -95,9 +95,11 @@ sub ask_from_treelist {
 	Gtk->main_quit;
     };
 
+    $w->{ok_clicked} = $leave;
+    $w->{cancel_clicked} = sub { $o->destroy; die "ask_from_list cancel" }; #- make sure windows doesn't live any more.
     gtkadd($w->{window},
 	   gtkpack_(new Gtk::VBox(0,0),
-		    1, gtkset_usize(createScrolledWindow($tree), 200, 280),
+		    1, gtkset_usize(createScrolledWindow($tree), 400, 350),
 		    0, $w->create_okcancel));
     $tree->set_selection_mode('browse');
     $tree->signal_connect(tree_select_row => sub { $curr = $_[1]; });
-- 
cgit v1.2.1