Changeset 408 for branches/guitools-1.0/shared/nlv.vrs

Timestamp:

Feb 19, 2010, 9:14:00 AM (15 years ago)

Author:

Herwig Bauernfeind

Message:

GUI-Tools: SSCC 0.9.5, SMBUsers 0.9.6 several fixes

File:

• branches/guitools-1.0/shared/nlv.vrs (modified) (2 diffs)

branches/guitools-1.0/shared/nlv.vrs

@@ -1 @@
-/*:VRX         NLVGetMessage
-*/
-NLVGetMessage: PROCEDURE EXPOSE settings. options. fs.
+/*:VRX         NLVSetup
+ */
+NLVSetup: PROCEDURE EXPOSE settings. options.
+    /* This subroutine is (c) by Alex Taylor, portions (c) Herwig Bauernfeind
+     * Sets all UI text from the message file.  Any string that can't be loaded
+     * will default to the built-in English. 
+     */
 
-    msgfile = settings.!messages
-    msgnum  = ARG( 1 )
-
-    IF msgnum == '' THEN RETURN ''
-
-    SELECT
-        WHEN ARG() == 2 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2) )
-        WHEN ARG() == 3 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3) )
-        WHEN ARG() == 4 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4) )
-        WHEN ARG() == 5 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5) )
-        WHEN ARG() == 6 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6) )
-        WHEN ARG() == 7 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6), ARG(7) )
-        WHEN ARG() == 8 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8) )
-        WHEN ARG() == 9 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8), ARG(9) )
-        WHEN ARG() == 10 THEN 
-            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8), ARG(9), ARG(10) )
-        OTHERWISE
-            msgtxt = SysGetMessage( msgnum, msgfile )
-    END
-
-    PARSE VAR msgtxt message '0D'x .
-
-    IF translate(SUBSTR( message, 1, 4 )) == 'SYS0' THEN message = ''
-
-RETURN message
-
-/*:VRX         NLVSetText
-*/
-/* 
- * Sets the specified property of the specified control to the specified 
- * message text.
- */
-NLVSetText: PROCEDURE EXPOSE settings. options. fs.
-    PARSE ARG control, property, message, substitution
-
-    success = 1
-    IF substitution == '' THEN     
-        text = NLVGetMessage( message )
-    ELSE
-        text = NLVGetMessage( message, substitution )
-
-    IF text == '' THEN success = 0 
-    ELSE               CALL VRSet control, property, text
-
-RETURN success
-
-/*:VRX */
-NLVSetup: PROCEDURE EXPOSE settings. options.
-    /* This subroutine is (c) by Alex Taylor, portions (c) Herwig Bauernfeind */
     IF options.!debug == 1 THEN SAY 'NLVSetup() started'
     IF options.!debug == 1 THEN SAY '  NLVSetup() is (c) Alex Taylor, portions (c) Herwig Bauernfeind'
 
-    /* Sets all UI text from the message file.  Any string that can't be loaded
-     * will default to the built-in English. 
-     */
     execPath = VRGet("Application", "Program")
     if execPath = "" then parse source . . execPath
@@ -132 +76 @@
     IF options.!debug == 1 THEN SAY 'NLVSetup() done'
 RETURN
+
+/*:VRX         NLVGetMessage
+*/
+NLVGetMessage: PROCEDURE EXPOSE settings. options. fs.
+
+    msgfile = settings.!messages
+    msgnum  = ARG( 1 )
+
+    IF msgnum == '' THEN RETURN ''
+
+    SELECT
+        WHEN ARG() == 2 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2) )
+        WHEN ARG() == 3 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3) )
+        WHEN ARG() == 4 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4) )
+        WHEN ARG() == 5 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5) )
+        WHEN ARG() == 6 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6) )
+        WHEN ARG() == 7 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6), ARG(7) )
+        WHEN ARG() == 8 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8) )
+        WHEN ARG() == 9 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8), ARG(9) )
+        WHEN ARG() == 10 THEN 
+            msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(2), ARG(4), ARG(5), ARG(6), ARG(7), ARG(8), ARG(9), ARG(10) )
+        OTHERWISE
+            msgtxt = SysGetMessage( msgnum, msgfile )
+    END
+
+    PARSE VAR msgtxt message '0D'x .
+
+    IF translate(SUBSTR( message, 1, 4 )) == 'SYS0' THEN message = ''
+
+RETURN message
+
+/*:VRX         NLVSetText
+*/
+/* 
+ * Sets the specified property of the specified control to the specified 
+ * message text.
+ */
+NLVSetText: PROCEDURE EXPOSE settings. options. fs.
+    PARSE ARG control, property, message, substitution
+
+    success = 1
+    IF substitution == '' THEN     
+        text = NLVGetMessage( message )
+    ELSE
+        text = NLVGetMessage( message, substitution )
+
+    IF text == '' THEN success = 0 
+    ELSE               CALL VRSet control, property, text
+
+RETURN success