From d84c91a8c829fe711b3253665166ae4d92da63a4 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 27 Jul 2001 12:29:35 +0000 Subject: allow ask_browse_tree_info_refW to return 0 on cancel (previously always 1). --- perl-install/interactive_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') 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')); -- cgit v1.2.1