diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-16 14:03:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-16 14:03:47 +0000 |
| commit | 9f8734e27c9a88137a2933970b7a5962e37789da (patch) | |
| tree | 973e9a5518a38231812f2af8047ca93be420a083 /perl-install/my_gtk.pm | |
| parent | e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 (diff) | |
| download | drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.gz drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.bz2 drakx-9f8734e27c9a88137a2933970b7a5962e37789da.tar.xz drakx-9f8734e27c9a88137a2933970b7a5962e37789da.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 99636cf21..778cf53cb 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -204,6 +204,7 @@ sub _create_window($$) { $o->{window}->set_title($title); $o->{window}->signal_connect("expose_event" => sub { c::XSetInputFocus($o->{window}->window->XWINDOW) }) if $my_gtk::force_focus; $o->{window}->signal_connect("delete_event" => sub { $o->{retval} = undef; Gtk->main_quit }); + $o->{window}->set_uposition(@$my_gtk::force_position) if $my_gtk::force_position; $o->{window} } @@ -241,16 +242,13 @@ sub _ask_from_entry($$@) { sub _ask_from_list($$$@) { my ($o, $l, @msgs) = @_; my $list = new Gtk::List; + my @sorted = sort @$l; $list->signal_connect(select_child => sub { - $o->{retval} = $l->[$list->child_position($_[1])]; + $o->{retval} = $sorted[$list->child_position($_[1])]; Gtk->main_quit; }); - gtkadd($list, map { new Gtk::ListItem($_) } @$l); + gtkadd($list, map { new Gtk::ListItem($_) } @sorted); -# myadd($o->{window}, -# mypack_(myset_usize(new Gtk::VBox(0,0), 0, 200), -# 0, $o->create_box_with_title(@msgs), -# 1, createScrolledWindow(mypack(new Gtk::VBox(0,0), @l)))); gtkadd($o->{window}, gtkpack($o->create_box_with_title(@msgs), $list)); } |