summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-09 18:48:32 +0000
commit925e58d2b3b5fc4adeefcf9f7c3062ba5efde627 (patch)
tree29aed7d1e75323231b3b4623d84ce3c59a148cb8 /perl-install/my_gtk.pm
parentc8b361905dedbe2961b4e3c1670d5028eec12807 (diff)
downloaddrakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.gz
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.bz2
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.tar.xz
drakx-backup-do-not-use-925e58d2b3b5fc4adeefcf9f7c3062ba5efde627.zip
*** empty log message ***
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm13
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($@) {