summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-xperl-install/standalone/drakfont7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 8b93d08b3..834e8c0fb 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -80,7 +80,7 @@
use Gtk;
-use lib qw(..);
+use lib qw(/usr/lib/libDrakX );
use interactive;
use standalone;
use my_gtk qw(:helpers :wrappers);
@@ -531,9 +531,7 @@ sub display_error {
sub interactive_mode {
my $font_sel;
$interactive = 1;
-
init Gtk;
-
my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel;
$window1->signal_connect (delete_event => sub { Gtk->exit(0) });
$window1->set_position(1);
@@ -575,8 +573,7 @@ sub interactive_mode {
$central_widget = \$font_sel;
$window1->show_all;
$window1->realize;
- $window1->show_all();
-
+ $window1->show_all();
Gtk->main;
Gtk->exit(0);
}