diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakbug | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/drakgw | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/drakperm | 4 | ||||
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/mousedrake | 4 |
5 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/standalone/drakbug b/perl-install/standalone/drakbug index a18606d74..d8801f32b 100755 --- a/perl-install/standalone/drakbug +++ b/perl-install/standalone/drakbug @@ -81,7 +81,7 @@ gtkadd( ), gtkpack(new Gtk2::HSeparator), gtkpack_(Gtk2::HBox->new(0,0), - 0, gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { ugtk2->exit(0) }), + 0, gtksignal_connect(Gtk2::Button->new_from_stock('gtk-close'), clicked => sub { ugtk2->exit(0) }), 1, Gtk2::Label->new(""), 0, gtksignal_connect(Gtk2::Button->new(N("Report")), clicked => sub { my $options = "mdkbugreport=1"; @@ -95,7 +95,7 @@ gtkadd( connect_bugzilla($bugzilla_url."?".$options); } ), - 0, gtksignal_connect(Gtk2::Button->new(N("Help")), clicked => sub { system("drakhelp https://qa.mandrakesoft.com &") }), + 0, gtksignal_connect(Gtk2::Button->new_from_stock('gtk-help'), clicked => sub { system("drakhelp https://qa.mandrakesoft.com &") }), ), ), ); diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index c6aec5358..96a9b5b01 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -565,7 +565,7 @@ Click on Configure to launch the setup wizard.", $setup_state)); ugtk2->exit(0); }); $bbox1->add($button_conf); - my $button_cancel = Gtk2::Button->new(N("Cancel")); + my $button_cancel = Gtk2::Button->new_from_stock('gtk-cancel'); $button_cancel->signal_connect(clicked => sub { ugtk2->exit(0) }); $bbox1->add($button_cancel); $window1->{rwindow}->show_all; diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm index 166eea7bc..3a9c27205 100755 --- a/perl-install/standalone/drakperm +++ b/perl-install/standalone/drakperm @@ -135,8 +135,8 @@ $W->add(gtkpack_(Gtk2::VBox->new(0,5), [ N("delete"), N("Delete selected rule"), \&del_callback ], [ N("edit"), N("Edit current rule"), \&edit_callback ])), 0, gtkpack(Gtk2::HBox->new(0, 5), - gtksignal_connect(Gtk2::Button->new(N("Save")), clicked => \&save_perm), - gtksignal_connect(Gtk2::Button->new(N("Quit")), clicked => sub { ugtk2->exit }) + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => \&save_perm), + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'), clicked => sub { ugtk2->exit }) ) ) ) diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 49ecbec4c..361f58249 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -178,7 +178,7 @@ $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(N("Options")), 'event' => popup_menu($opt_menu), $menubar), + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-preferences'), 'event' => popup_menu($opt_menu), $menubar), gtksignal_connect(Gtk2::Button->new(N("Help")), 'event' => popup_menu($help_menu), $menubar), gtksignal_connect(Gtk2::Button->new(N("Quit")), 'clicked' => \&quit_global), diff --git a/perl-install/standalone/mousedrake b/perl-install/standalone/mousedrake index a774eeb9f..935d0db6c 100755 --- a/perl-install/standalone/mousedrake +++ b/perl-install/standalone/mousedrake @@ -73,8 +73,8 @@ if (!$::isEmbedded && $in->isa('interactive::gtk')) { Gtk2::Label->new(N("Please test your mouse:")), my $test_hbox = Gtk2::HBox->new(0, 5), gtkpack(create_hbox(), - gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { $w->{retval} = 1; Gtk2->main_quit }), - gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { $w->{retval} = 0; Gtk2->main_quit })))); + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => sub { $w->{retval} = 1; Gtk2->main_quit }), + gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'), clicked => sub { $w->{retval} = 0; Gtk2->main_quit })))); mouse::test_mouse_standalone($mouse, $test_hbox); $w->main or goto begin; } |