summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-12-10 11:25:57 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-12-10 11:25:57 +0000
commit88470ddf129d2c8f193e3450a100503a121a944d (patch)
treef754859608cfd5452c2f7d3bfdd6568e2e06c1df /perl-install
parent6519c8866b3df6293abe17775f7210ca9606f321 (diff)
downloaddrakx-88470ddf129d2c8f193e3450a100503a121a944d.tar
drakx-88470ddf129d2c8f193e3450a100503a121a944d.tar.gz
drakx-88470ddf129d2c8f193e3450a100503a121a944d.tar.bz2
drakx-88470ddf129d2c8f193e3450a100503a121a944d.tar.xz
drakx-88470ddf129d2c8f193e3450a100503a121a944d.zip
fix libdrakx path problem.
Diffstat (limited to 'perl-install')
-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);
}