--- a/MenuPanel.st	Thu May 30 09:36:53 2019 +0200
+++ b/MenuPanel.st	Thu May 30 09:43:18 2019 +0200
@@ -7307,16 +7307,25 @@
 !MenuPanel::Item methodsFor:'accessing-help'!
 
 activeHelpKey
-    "get the active helpKey; the key to retrieve the helpText from the application"
+    "get the active helpKey; 
+     the key to retrieve the helpText from the application.
+     New: may also be an association; then the assoc's key is the help-text provider,
+     and the assoc's value is the key in that provider's helpspec."
 
     ^ menuItem activeHelpKey
-!
-
-activeHelpKey:aHelpKey
-    "set the active helpKey; the key to retrieve the helpText from the application"
-
-    menuItem activeHelpKey:aHelpKey.
+
+    "Modified (comment): / 30-05-2019 / 09:42:34 / Claus Gittinger"
+!
+
+activeHelpKey:aSymbolicKeyOrClassPlusSymbolAssoc
+    "the key used as index (and argument) to the helpSpec.
+     New: may also be an association; then the assoc's key is the help-text provider,
+     and the assoc's value is the key in that provider's helpspec."
+
+    menuItem activeHelpKey:aSymbolicKeyOrClassPlusSymbolAssoc.
     activeHelpText := nil.
+
+    "Modified (format): / 30-05-2019 / 09:40:20 / Claus Gittinger"
 !
 
 activeHelpText