API: change message for first dictionary export

Author: josef-poetzl

Tests/DeclDictTester/DeclDictApiTests.cls

@@ -28,7 +28,7 @@ Public Sub RunVcsCheck_WithoutDialogChangedLettercase_CheckReturnMessage()
 
    ' 1st call => run first export
    Result = Application.Run(AddInCallPath, False, DictFilePath)
-   Assert.That Result, Iz.EqualTo("Info: no export data exists, run first export")
+   Assert.That Result, Iz.EqualTo("Info: No dictionary data found. A new dictionary has been created.")
 
    ' 2nd call => no changes => Return value = True
    Result = Application.Run(AddInCallPath, False, DictFilePath)

source/modules/_AddInAPI.bas

@@ -39,6 +39,7 @@ End Function
 ' Returns:
 '      Boolean (True) ... if DiffCount = 0
 '      String         ... if DiffCount > 0 => "Failed: <lettercase info>"
+'      String         ... if dict file not exists => "Info: No dictionary data found. A new dictionary has been created."
 '
 '---------------------------------------------------------------------------------------
 Public Function RunVcsCheck(Optional ByVal OpenDialogToFixLettercase As Boolean = False, _
@@ -60,7 +61,7 @@ Public Function RunVcsCheck(Optional ByVal OpenDialogToFixLettercase As Boolean
            .ImportVBProject CurrentVbProject
            ' ... log info: first export
            .ExportToFile DeclDictFilePath
-           RunVcsCheck = "Info: no export data exists, run first export"
+           RunVcsCheck = "Info: No dictionary data found. A new dictionary has been created."
            Exit Function
         End If
 

source/tables/USysAPI.xml

@@ -11,7 +11,7 @@
 <blockquote>
 
 <div><font size=2>OpenDialogToFixLettercase - (Boolean) - Open dialog to fix lettercase</font></div>
-<div><font size=2>DeclDictFilePath - (String) - use alternative file path</font></div>
+<div><font size=2>DeclDictFilePath - (String) - use alternative dictionary file path</font></div>
 
 </blockquote>
 
@@ -23,6 +23,7 @@
  <ul>
   <li><font size=2>Boolean (True) ... if DiffCount = 0</font></li>
   <li><font size=2>String ... if DiffCount > 0 => "Failed: <lettercase info>"</font></li>
+  <li><font size=2>String ... if dict file not exists => "Info: No dictionary data found. A new dictionary has been created."</font></li>
  </ul>
 </ul>