summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakfont
diff options
context:
space:
mode:
authorSebastien Dupont <sdupont@mandriva.com>2001-11-12 10:56:56 +0000
committerSebastien Dupont <sdupont@mandriva.com>2001-11-12 10:56:56 +0000
commit7bb39d4fbba4ced25df0bad2504b9bef267f5a7a (patch)
tree159809420bd254f6f494a9b53b928891f09a5c9b /perl-install/standalone/drakfont
parent5c2328961c5f783b46518d1ae0aa5bb7f9718a44 (diff)
downloaddrakx-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-xperl-install/standalone/drakfont6
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" });