diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-10 11:25:57 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-12-10 11:25:57 +0000 |
| commit | 88470ddf129d2c8f193e3450a100503a121a944d (patch) | |
| tree | f754859608cfd5452c2f7d3bfdd6568e2e06c1df /perl-install | |
| parent | 6519c8866b3df6293abe17775f7210ca9606f321 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakfont | 7 |
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); } |