From 50d29120fc74265a224d92c05ff0f89b5b931743 Mon Sep 17 00:00:00 2001 From: Antoine Ginies Date: Tue, 30 Aug 2005 15:02:44 +0000 Subject: remove icon on all buttons --- perl-install/standalone/draknfs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index 07fa5bb76..08db4262e 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -200,14 +200,14 @@ sub create_pango_help_box { sub help_b { my ($tittle, $help_data) = @_; - gtksignal_connect(new Gtk2::Button->new_from_stock('gtk-dialog-info'), clicked => sub { + gtksignal_connect(new Gtk2::Button->new(N("Information")), clicked => sub { my $dialog = _create_dialog(); $dialog->set_transient_for($::main_window); $dialog->set_title(N("Help")); $dialog->set_modal(1); gtkpack_($dialog->vbox, 1, create_pango_help_box($help_data), - 0, gtksignal_connect(Gtk2::Button->new_from_stock('gtk-close'), clicked => sub { + 0, gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { $dialog->destroy; } ), @@ -283,7 +283,7 @@ sub add_modify_entry { $lsecure->set_popdown_strings(@yesno); my $file_dialog = $fdwidget->($dir); - my $button = Gtk2::Button->new_from_stock('gtk-open'); + my $button = Gtk2::Button->new(N("Directory")); $button->signal_connect(clicked => sub { $file_dialog->show }); # test if modify or add a nfs share -- cgit v1.2.1