diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-09 18:48:32 +0000 |
| commit | 925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch) | |
| tree | 29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/my_gtk.pm | |
| parent | c8b361905dedbe2961b4e3c1670d5028eec12807 (diff) | |
| download | drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2 drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz drakx-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip | |
*** empty log message ***
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($@) { |