From 8bcf945dbec5accd4011940ad8a166d19145d8f1 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Sun, 6 Jul 2003 17:58:22 +0000
Subject: increase gui coherency of drakxtools vs other gtk+ apps: use stock
 icons

---
 perl-install/standalone/drakbug    | 4 ++--
 perl-install/standalone/drakgw     | 2 +-
 perl-install/standalone/drakperm   | 4 ++--
 perl-install/standalone/harddrake2 | 2 +-
 perl-install/standalone/mousedrake | 4 ++--
 5 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'perl-install/standalone')

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;
 }
-- 
cgit v1.2.1