diff options
| author | Francois Pons <fpons@mandriva.com> | 2001-07-27 12:29:35 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2001-07-27 12:29:35 +0000 |
| commit | d84c91a8c829fe711b3253665166ae4d92da63a4 (patch) | |
| tree | 65aa42fe53e2779667d5d3e8757d3c055137270c /perl-install/interactive_gtk.pm | |
| parent | beb8a2fb70f63d5332fa227877165b8ece4db77c (diff) | |
| download | drakx-backup-do-not-use-d84c91a8c829fe711b3253665166ae4d92da63a4.tar drakx-backup-do-not-use-d84c91a8c829fe711b3253665166ae4d92da63a4.tar.gz drakx-backup-do-not-use-d84c91a8c829fe711b3253665166ae4d92da63a4.tar.bz2 drakx-backup-do-not-use-d84c91a8c829fe711b3253665166ae4d92da63a4.tar.xz drakx-backup-do-not-use-d84c91a8c829fe711b3253665166ae4d92da63a4.zip | |
allow ask_browse_tree_info_refW to return 0 on cancel (previously always 1).
Diffstat (limited to 'perl-install/interactive_gtk.pm')
| -rw-r--r-- | perl-install/interactive_gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive_gtk.pm b/perl-install/interactive_gtk.pm index 7105d287f..2852f9ad5 100644 --- a/perl-install/interactive_gtk.pm +++ b/perl-install/interactive_gtk.pm @@ -526,7 +526,7 @@ sub ask_browse_tree_info_refW { 0, my $l = new Gtk::HBox(0,15), 0, gtkpack(new Gtk::HBox(0,10), $go = gtksignal_connect(new Gtk::Button($common->{ok}), "clicked" => sub { $w->{retval} = 1; Gtk->main_quit }), - $common->{cancel} ? (gtksignal_connect(new Gtk::Button($common->{cancel}), "clicked" => sub { $w->{retval} = 1; Gtk->main_quit })) : (), + $common->{cancel} ? (gtksignal_connect(new Gtk::Button($common->{cancel}), "clicked" => sub { $w->{retval} = 0; Gtk->main_quit })) : (), ) )); gtkpack__($l, my $toolbar = new Gtk::Toolbar('horizontal', 'icons')); |