summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-13 17:45:11 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-13 17:45:11 +0000
commit9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060 (patch)
tree3aed7a3f5417d4bdd2a37a4c82c5a8969a814a43 /perl-install/standalone/drakfont
parent0ba56cce3e0255f0ed2dec02f158f37b718c0e61 (diff)
downloaddrakx-9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060.tar
drakx-9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060.tar.gz
drakx-9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060.tar.bz2
drakx-9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060.tar.xz
drakx-9c46bcf3d81dd0a8fc5bcc9e8bef6eea6d384060.zip
sanitize buttons through reusing create_okcancel()
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont19
1 files changed, 11 insertions, 8 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 443b5150e..5c8bb918a 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -482,21 +482,24 @@ sub interactive_mode() {
my $button = {};
my $disable = sub { my ($b) = @_; $button->{$_}->set_sensitive($_ ne $b) foreach keys %$button };
+ local $::Wizard_no_previous = 1;
gtkadd($window1->{window},
gtkpack_(Gtk2::VBox->new(0, 2),
if_(!$::isEmbedded, 0, gtkcreate_img("drakfont.620x57")),
0, Gtk2::WrappedLabel->new(N("Font List")),
1, create_fontsel(),
- 0, gtkpack(gtkset_layout(Gtk2::HButtonBox->new, 'end'),
- gtksignal_connect(Gtk2::Button->new(N("About")), clicked => \&help),
- gtksignal_connect(Gtk2::Button->new(N("Options")), clicked => \&appli_choice),
- gtksignal_connect(Gtk2::Button->new(N("Uninstall")), clicked => \&uninstall),
- gtksignal_connect(Gtk2::Button->new(N("Import")), clicked => \&advanced_install),
- Gtk2::Label->new(" "),
- gtksignal_connect(Gtk2::Button->new(N("Close")), clicked => sub { Gtk2->main_quit }),
- ),
+ 0, create_okcancel( my $oc = {
+ ok_clicked => sub { Gtk2->main_quit },
+ },
+ undef, undef, '',
+ [ N("About"), \&help, 1 ],
+ [ N("Options"), \&appli_choice, 1 ],
+ [ N("Uninstall"), \&uninstall, 1 ],
+ [ N("Import"), \&advanced_install, 1 ],
+ ),
),
);
+ $oc->{ok}->set_label(N("Close"));
$disable->('font_list');
$window1->{rwindow}->show_all;