From 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 9 Jul 1999 18:48:32 +0000 Subject: *** empty log message *** --- perl-install/my_gtk.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'perl-install/my_gtk.pm') diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 82ed7040c..8ab3054e7 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -240,15 +240,14 @@ sub _ask_from_entry($$@) { sub _ask_from_list($\@$@) { my ($o, $l, @msgs) = @_; my $f = sub { $o->{retval} = $_[1]; Gtk->main_quit }; - my @l = map { gtksignal_connect(new Gtk::Button($_), "clicked" => $f, $_) } @$l; + my $list = new Gtk::List(); + map { gtksignal_connect(gtkadd($list, new Gtk::ListItem($_)), selection_changed => $f, $_) } @$l; -# gtkadd($o->{window}, -# gtkpack_(myset_usize(new Gtk::VBox(0,0), 0, 200), +# myadd($o->{window}, +# mypack_(myset_usize(new Gtk::VBox(0,0), 0, 200), # 0, $o->create_box_with_title(@msgs), -# 1, createScrolledWindow(gtkpack(new Gtk::VBox(0,0), @l)))); - gtkadd($o->{window}, - gtkpack($o->create_box_with_title(@msgs), @l)); - $l[0]->grab_focus(); +# 1, createScrolledWindow(mypack(new Gtk::VBox(0,0), @l)))); + gtkadd($o->{window}, gtkpack($o->create_box_with_title(@msgs), $list)); } sub _ask_warn($@) { -- cgit v1.2.1