diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
| commit | 3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch) | |
| tree | 8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/my_gtk.pm | |
| parent | c942786c119d41faaa03357ddeb5bea338867727 (diff) | |
| download | drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.gz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.bz2 drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.xz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.zip | |
no_comment
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index dcd11e130..af7ae44e0 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -328,7 +328,7 @@ sub _create_window($$) { $w->signal_connect("map_event" => sub { c::XSetInputFocus($w->window->XWINDOW); }) if $my_gtk::force_focus || $o->{force_focus}; $w->signal_connect("expose_event" => sub { c::XSetInputFocus($w->window->XWINDOW); }) if $my_gtk::force_focus || $o->{force_focus}; - $w->signal_connect("delete_event" => sub { $o->{retval} = undef; Gtk->main_quit }); + $w->signal_connect("delete_event" => sub { undef $o->{retval}; Gtk->main_quit }); $w->set_uposition(@{$my_gtk::force_position || $o->{force_position}}) if $my_gtk::force_position || $o->{force_position}; $w->signal_connect("key_press_event" => sub { @@ -445,7 +445,7 @@ sub _ask_from_entry($$@) { my $entry = new Gtk::Entry; my $f = sub { $o->{retval} = $entry->get_text; Gtk->main_quit }; $o->{ok_clicked} = $f; - $o->{cancel_clicked} = sub { $o->{retval} = undef; Gtk->main_quit }; + $o->{cancel_clicked} = sub { undef $o->{retval}; Gtk->main_quit }; gtkadd($o->{window}, gtkpack($o->create_box_with_title(@msgs), @@ -469,7 +469,9 @@ sub _ask_from_list { $list->moveto($_[0], 0, 0.5, 0); }; - $list->signal_connect(button_release_event => $leave) if ref $title && !@okcancel; + $list->signal_connect(button_press_event => + ref $title && !@okcancel ? $leave : sub { &$leave if $_[1]{type} =~ /^2/ } + ); $list->signal_connect(select_row => sub { my ($w, $row, undef, $e) = @_; $curr = $row; |