diff options
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 13 |
1 files changed, 6 insertions, 7 deletions
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($@) { |