Changeset 894 for trunk/guitools/shared

Timestamp:

Mar 12, 2016, 2:44:59 PM (9 years ago)

Author:

Alex Taylor

Message:

Various UI tweaks, see changes for details. Enabled detection of Blue Lion system. Added some missing icons.

File:

• trunk/guitools/shared/nlv.vrs (modified) (6 diffs)

trunk/guitools/shared/nlv.vrs

@@ -4 +4 @@
     /* 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. 
+     * will default to the built-in English.
      */
 
@@ -18 +18 @@
     say '  NLV srchroot   = "'srchRoot'"'
 
-    filestem = VRParseFileName( execPath, "N")'_'
-    if translate(filestem) = "EVFSGUI_" then filestem = "evfsi_"
+    filestem = VRParseFileName( execPath, "N")
+    if translate(filestem) = "EVFSGUI" then filestem = "evfsi_"
+    else filestem = SUBSTR( filestem, 1, 6, '_' )
     say '  NLV filestem   = "'filestem'"'
 
@@ -90 +91 @@
             end
         end
-    end    
+    end
     say time()' NLVSearch() done, returning "'NLVFile'"'
 return NLVFile
@@ -105 +106 @@
 
     SELECT
-        WHEN ARG() == 2 THEN 
+        WHEN ARG() == 2 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2) )
-        WHEN ARG() == 3 THEN 
+        WHEN ARG() == 3 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3) )
-        WHEN ARG() == 4 THEN 
+        WHEN ARG() == 4 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4) )
-        WHEN ARG() == 5 THEN 
+        WHEN ARG() == 5 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5) )
-        WHEN ARG() == 6 THEN 
+        WHEN ARG() == 6 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6) )
-        WHEN ARG() == 7 THEN 
+        WHEN ARG() == 7 THEN
             msgtxt = SysGetMessage( msgnum, msgfile, ARG(2), ARG(3), ARG(4), ARG(5), ARG(6), ARG(7) )
-        WHEN ARG() == 8 THEN 
+        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 
+        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 
+        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
@@ -135 +136 @@
 /*:VRX         NLVSetText
 */
-/* 
- * Sets the specified property of the specified control to the specified 
+/*
+ * Sets the specified property of the specified control to the specified
  * message text.
  */
@@ -143 +144 @@
 
     success = 1
-    IF substitution == '' THEN     
+    IF substitution == '' THEN
         text = NLVGetMessage( message )
     ELSE
         text = NLVGetMessage( message, substitution )
 
-    IF text == '' THEN success = 0 
+    IF text == '' THEN success = 0
     ELSE               CALL VRSet control, property, text