FACORAT Fabrice <[EMAIL PROTECTED]> writes:
> BTW userdrake doesn't use stock icons when for example you edit an
> user account ( OK/Cancel button )
here it's:
Index: userdrake
===================================================================
RCS file: /cooker/soft/userdrake2/userdrake,v
retrieving revision 1.24
diff -u -p -r1.24 userdrake
--- userdrake 10 Jul 2003 13:39:27 -0000 1.24
+++ userdrake 10 Jul 2003 16:15:00 -0000
@@ -214,7 +214,7 @@ sub AddUser {
0, gtkpack(Gtk2::HBox->new(1, 20),
map {
my $r = $_->[1];
- gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub {
+ gtksignal_connect(Gtk2::Button->new_from_stock($_->[0]), clicked => sub {
if (!$r) {
$u{username} = $us->{o}->{login}->get_text(); $error = 0;
if (!valid($u{username})) { RaiseError($us->{error}) };
@@ -271,7 +271,7 @@ sub AddUser {
}
}
!$error and Gtk2->main_quit; $error = 0 })
- } ([ N("Cancel"), 1 ], [ N("Ok"), 0 ])),
+ } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])),
)
);
map { $us->{o}->{$_}->set_active(1) } (qw(privategroup createhomedir));
@@ -304,11 +304,11 @@ sub ChooseGroup() {
gtkpack(Gtk2::VBox->new(0,0), @radio),
Gtk2::HSeparator->new,
gtkpack(create_hbox(),
- gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub {
+ gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => sub {
each_index { $_->get_active and $choice = $::i } @radio;
Gtk2->main_quit;
}),
- gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { $w->{retval} = 0; $error = 1; Gtk2->main_quit }))));
+ gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'), clicked => sub { $w->{retval} = 0; $error = 1; Gtk2->main_quit }))));
$w->main;
$choice;
}
@@ -342,7 +342,7 @@ sub AddGroup {
0, gtkpack(Gtk2::HBox->new(1, 20),
map {
my $r = $_->[1];
- gtksignal_connect(Gtk2::Button->new($_->[0]), clicked => sub {
+ gtksignal_connect(Gtk2::Button->new_from_stock($_->[0]), clicked => sub {
if (!$r) {
$g{groupname} = $us->{o}->{groupname}->get_text(); $error = 0;
if (!valid($g{groupname})) { RaiseError($us->{error}) };
@@ -361,7 +361,7 @@ sub AddGroup {
}
}
!$error and Gtk2->main_quit; $error = 0; })
- } ([ N("Cancel"), 1 ], [ N("Ok"), 0 ])),
+ } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])),
)
);
$us->{o}->{gid} = Gtk2::SpinButton->new(Gtk2::Adjustment->new(500, 1, 65000, 1, 10, 10), 1, 0);
@@ -735,7 +735,7 @@ sub Edit {
}
}
!$error and Gtk2->main_quit; $error = 0; })
- } ([ N("Cancel"), 1 ], [ N("Ok"), 0 ])),
+ } ([ 'gtk-cancel', 1 ], [ 'gtk-ok', 0 ])),
));
$tree->show;
$w->{rwindow}->show_all;
@@ -861,7 +861,7 @@ sub RaiseError {
gtkpack_(Gtk2::VBox->new,
1, Gtk2::Label->new($_[0]),
0, Gtk2::HSeparator->new,
- 0, gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub { Gtk2->main_quit })
+ 0, gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'), clicked => sub { Gtk2->main_quit })
),
);
$w->main
