Changeset 2817

Timestamp:

Dec 1, 2017, 11:27:47 PM (7 years ago)

Author:

Andreas Schnellbacher

Message:

• Enhanced SetMenuVarText to accept a menu id and not only a menu id name, like all similar menu defs.

File:

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

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

@@ -526 +526 @@
 ; ---------------------------------------------------------------------------
 ; Change a menu items text with a variable part (a part in brackets).
-; Note: The MenuIdName must here submitted, not the MenuId, which works
-; also in the defs above.
-; Additionally, the menu id and the menu text must have been stored in the
-; array vars 'mid_'MenuIdName and 'mtext_'MenuIdName.
-defproc SetMenuVarText( IdName, VarTextPart)
+; The menu id and the menu text must have been stored in the array vars
+; 'mid_'MenuIdName and 'mtext_'MenuIdName.
+defproc SetMenuVarText( MenuId, VarTextPart)
    -- Optional appending text part
    AppendTextPart = arg(3)
-   MenuId = GetAVar( 'mid_'IdName)
+   if IsNum( MenuId) then
+      IdName = GetAVar( 'midname_'MenuId)
+   else
+      IdName = lowcase( MenuId)
+      MenuId = GetAVar( 'mid_'IdName)
+   endif
    MenuText = GetAVar('mtxt_'IdName)
    parse value MenuText with next'['x']'rest