[GB.ARGS]

* BUG: Take UTF-8 into account when formatting help text.

git-svn-id: svn://localhost/gambas/trunk@7967 867c0c6c-44f3-4631-809d-bfa615b0a4ec

comp/src/gb.args/.component

@@ -1,4 +1,4 @@
 [Component]
 Key=gb.args
-Version=3.8.90
+Version=3.9.90
 Authors=Benoît Minisini

comp/src/gb.args/.lang/fr.po

@@ -1,8 +1,8 @@
 #, fuzzy
 msgid ""
 msgstr ""
-"Project-Id-Version: gb.args 3.6.90\n"
-"PO-Revision-Date: 2014-12-16 11:03 UTC\n"
+"Project-Id-Version: gb.args 3.9.90\n"
+"PO-Revision-Date: 2016-11-01 17:11 UTC\n"
 "Last-Translator: Benoît Minisini <gambas@users.sourceforge.net>\n"
 "Language: fr\n"
 "MIME-Version: 1.0\n"
@@ -23,7 +23,7 @@ msgstr "Afficher cette aide"
 
 #: Args.module:82
 msgid "Usage: &1 <options> <arguments>"
-msgstr "Usage : &1 <options> <arguments>"
+msgstr "Utilisation : &1 <options> <arguments>"
 
 #: Args.module:85
 msgid "Options:"

comp/src/gb.args/.project

@@ -1,11 +1,12 @@
 # Gambas Project File 3.0
-# Compiled with Gambas 3.8.90
+# Compiled with Gambas 3.9.90
 Title=gb.args
 Startup=MMain
-Version=3.8.90
+Version=3.9.90
 VersionFile=1
 Authors="Benoît Minisini"
-Arguments="-V\n-p\ntoto\nzozo\n-s\n512\n--\nproject"
+Arguments=[["-V","-p","toto","zozo","-s","512","--","project"]]
+CurrentArgument=0
 TabSize=2
 Translate=1
 Language=en

comp/src/gb.args/.src/Args.module

@@ -122,7 +122,7 @@ Private Sub AddHelp(ShortName As String, LongName As String, Description As Stri
   
   sHelp = " " & sKey
   If ArgName Then sHelp &= " <" & ArgName & ">"
-  sHelp &= Space$(Max(4, 40 - Len(sHelp))) & Description
+  sHelp &= Space$(Max(4, 40 - String.Len(sHelp))) & Description
   
   $aHelp.Add(sHelp)