summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-04-21 11:37:53 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-04-21 11:37:53 +0000
commit036f4ed425a4a5bdbc20c24bd861746882804172 (patch)
tree4add351de2a372f7a274a821908d210a1f349879 /perl-install/standalone/drakfont
parent3772f5ba1d182769f27c708586b5fe8039323320 (diff)
downloaddrakx-036f4ed425a4a5bdbc20c24bd861746882804172.tar
drakx-036f4ed425a4a5bdbc20c24bd861746882804172.tar.gz
drakx-036f4ed425a4a5bdbc20c24bd861746882804172.tar.bz2
drakx-036f4ed425a4a5bdbc20c24bd861746882804172.tar.xz
drakx-036f4ed425a4a5bdbc20c24bd861746882804172.zip
inline useless create_fontsel()
Diffstat (limited to 'perl-install/standalone/drakfont')
-rwxr-xr-xperl-install/standalone/drakfont6
1 files changed, 1 insertions, 5 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index da9653de9..26c514bf0 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -464,10 +464,6 @@ sub backend_mod() {
}
}
-sub create_fontsel() {
- Gtk2::FontSelection->new;
-}
-
sub interactive_mode() {
$interactive = 1;
$window1 = ugtk2->new('drakfont');
@@ -486,7 +482,7 @@ sub interactive_mode() {
gtkpack_(Gtk2::VBox->new(0, 2),
if_(!$::isEmbedded, 0, Gtk2::Banner->new("drakfont", N("DrakFont"))),
0, Gtk2::WrappedLabel->new(N("Font List")),
- 1, create_fontsel(),
+ 1, Gtk2::FontSelection->new,
0, create_okcancel(my $oc = {
ok_clicked => sub { Gtk2->main_quit },
},