Changeset 3574

Timestamp:

May 5, 2019, 4:41:21 PM (6 years ago)

Author:

Andreas Schnellbacher

Message:

Switch dictionary language: Another change to support RegDefaults entries.

File:

• trunk/src/netlabs/macros/dict.e (modified) (1 diff)

trunk/src/netlabs/macros/dict.e ¶

@@ -195 +195 @@
       if not wordpos( NextNum, Order) then
          AddIniNumbers = strip( AddIniNumbers NextNum)
+      endif
+   enddo
+
+   -- Handle RegDefault entries
+   n = 0
+   do forever
+      n = n + 1
+      NextName = QueryConfigKey( KeyPath'\'n'\Name')
+      if NextName = '' then
+         leave
+      endif
+      if not wordpos( n, IniNumbers) then
+         IniNumbers = strip( IniNumbers n)
+         if not wordpos( n, Order) then
+            AddIniNumbers = strip( AddIniNumbers n)
+         endif
       endif
    enddo