summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-06 17:58:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-06 17:58:22 +0000
commit8bcf945dbec5accd4011940ad8a166d19145d8f1 (patch)
tree72c8130c0d87712fe58ddd132a5e8fe696feeda1 /perl-install/standalone
parent392ecc12d323eae88def56281938b3ca13009de1 (diff)
downloaddrakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar
drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.gz
drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.bz2
drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.tar.xz
drakx-8bcf945dbec5accd4011940ad8a166d19145d8f1.zip
increase gui coherency of drakxtools vs other gtk+ apps: use stock icons
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakbug4
-rwxr-xr-xperl-install/standalone/drakgw2
-rwxr-xr-xperl-install/standalone/drakperm4
-rwxr-xr-xperl-install/standalone/harddrake22
-rwxr-xr-xperl-install/standalone/mousedrake4
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;
}