From 82285d5500f9b8789bfab82882c08b595f3ddcc8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 7 Jul 2003 20:24:19 +0000 Subject: fix stock items usage --- perl-install/standalone/harddrake2 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 80bd16fc9..b3d7af71a 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -179,8 +179,8 @@ $w->{window}->add(gtkpack_(0, Gtk2::VBox->new(0, 0), 0, $statusbar = Gtk2::Statusbar->new, if_($::isEmbedded, 0, gtkpack(create_hbox(), gtksignal_connect(Gtk2::Button->new_from_stock('gtk-preferences'), 'event' => popup_menu($opt_menu), $menubar), - gtksignal_connect(Gtk2::Button->new('gtk-help'), 'event' => popup_menu($help_menu), $menubar), - gtksignal_connect(Gtk2::Button->new_from_stock('gtk-Quit'), + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-help'), 'event' => popup_menu($help_menu), $menubar), + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-quit'), 'clicked' => \&quit_global), ), ) -- cgit v1.2.1