diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-24 14:02:19 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-10-24 14:02:19 +0000 |
| commit | 3d91d0d6d7b0d523ff1b2621ded59de3df607e13 (patch) | |
| tree | d83f4276c157cfdcad76bf6f39014aa244d97937 /perl-install/standalone | |
| parent | df986ee73cb5d5b6a91f938b4351698ea359f29f (diff) | |
| download | drakx-3d91d0d6d7b0d523ff1b2621ded59de3df607e13.tar drakx-3d91d0d6d7b0d523ff1b2621ded59de3df607e13.tar.gz drakx-3d91d0d6d7b0d523ff1b2621ded59de3df607e13.tar.bz2 drakx-3d91d0d6d7b0d523ff1b2621ded59de3df607e13.tar.xz drakx-3d91d0d6d7b0d523ff1b2621ded59de3df607e13.zip | |
gi update.
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakfont | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index e655a6318..d3f2add96 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -582,3 +582,27 @@ sub progress_timeout3 { # xlsfonts | less pour verifier l'installation des polices. +# sub file_s { +# my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; +# $window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); +# $window1->set_position(1); +# $window1->set_title(_("Fonts Importation")); +# $window1->set_policy(1, 1, 1); +# $window1->set_border_width(5); + + +# if (not defined $window1) { +# $window1 = new Gtk::FileSelection "file selection dialog"; +# $window1->position(-mouse); +# $window1->signal_connect("destroy", \&destroy_window, \$window1); +# $window1->signal_connect("delete_event", \&destroy_window, \$window1); +# $window1->ok_button->signal_connect("clicked", \&file_selection_ok, $window1); +# $window1->cancel_button->signal_connect("clicked", sub { destroy $window1 }); + +# } +# if (!visible $window1) { +# show $window1; +# } else { +# destroy $window1; +# } +# } |