diff options
| author | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-12 10:56:56 +0000 |
|---|---|---|
| committer | Sebastien Dupont <sdupont@mandriva.com> | 2001-11-12 10:56:56 +0000 |
| commit | 7bb39d4fbba4ced25df0bad2504b9bef267f5a7a (patch) | |
| tree | 159809420bd254f6f494a9b53b928891f09a5c9b /perl-install/standalone/drakfont | |
| parent | 5c2328961c5f783b46518d1ae0aa5bb7f9718a44 (diff) | |
| download | drakx-backup-do-not-use-7bb39d4fbba4ced25df0bad2504b9bef267f5a7a.tar drakx-backup-do-not-use-7bb39d4fbba4ced25df0bad2504b9bef267f5a7a.tar.gz drakx-backup-do-not-use-7bb39d4fbba4ced25df0bad2504b9bef267f5a7a.tar.bz2 drakx-backup-do-not-use-7bb39d4fbba4ced25df0bad2504b9bef267f5a7a.tar.xz drakx-backup-do-not-use-7bb39d4fbba4ced25df0bad2504b9bef267f5a7a.zip | |
modify help text.
Diffstat (limited to 'perl-install/standalone/drakfont')
| -rwxr-xr-x | perl-install/standalone/drakfont | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index fdcd5d381..03de1cc96 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -77,7 +77,6 @@ # directory to install fonts /usr/X11R6/lib/X11/fonts/ # -->> /usr/X11R6/lib/X11/fonts/drakfont - use Gtk; use lib qw(/usr/lib/libDrakX); use interactive; @@ -86,10 +85,8 @@ use my_gtk qw(:helpers :wrappers); use common; use strict; - if ("@ARGV" =~ /--help|-h/) { - print q(Font Importation and monitoring appli $check11->signal_connect( 'toggled', sub { $gs == 0 and $gs = 1 or $gs = 0; print "gs = $gs\n" }); -cation + print q(Font Importation and monitoring application --windows_import : import from all available windows partitions. --xls_fonts : show all fonts that already exist from xls --strong : strong verification of font. @@ -904,3 +901,4 @@ sub progress { # remove this directory of the de fontpath if there is only 2 files in directory (fonts.dir & fonts.scale) # do type1inst in this path # peu etre un petit pb avec "/etc/rc.d/init.d/xfs restart" +# ?? :$check11->signal_connect( 'toggled', sub { $gs == 0 and $gs = 1 or $gs = 0; print "gs = $gs\n" }); |