--- a/MenuItem.st	Thu Aug 09 18:10:07 2018 +0200
+++ b/MenuItem.st	Fri Aug 10 11:36:46 2018 +0200
@@ -320,16 +320,13 @@
 !
 
 activeHelpKey:aKey
-    "the key used as index (and argument) to the helpSpec"
+    "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 tha provider's helpspec."
 
-    aKey isAssociation ifTrue:[
-        self halt:'someone provides a bad key to me'.
-        activeHelpKey := aKey key
-    ] ifFalse:[    
-        activeHelpKey := aKey
-    ].
+    activeHelpKey := aKey
 
-    "Modified: / 09-08-2018 / 15:50:45 / Claus Gittinger"
+    "Modified (comment): / 10-08-2018 / 11:28:04 / Claus Gittinger"
 !
 
 argument