--- a/MenuPanel.st	Fri Jul 14 11:45:14 2017 +0200
+++ b/MenuPanel.st	Tue Jul 18 15:28:03 2017 +0200
@@ -2503,37 +2503,50 @@
 !MenuPanel methodsFor:'adding & removing'!
 
 createAtIndex:anIndexOrNil
+    <resource: #obsolete>
+    
     "create an item and add this item to the index. In case of nil, the item
      is added to the end. If the index is not valid nil is returned;
      otherwise the new created item is returned."
 
+    ^ self createItemAtIndex:anIndexOrNil
+
+    "Modified (format): / 18-07-2017 / 13:45:53 / cg"
+!
+
+createItemAtIndex:anIndexOrNil
+    "create an item and add this item to the index. 
+     In case of nil, the item is added to the end. 
+     If the index is not valid, nil is returned;
+     otherwise the new created item is returned."
+
     |max item index|
 
     max := (items size) + 1.
 
     (index := anIndexOrNil) notNil ifTrue:[
-	(anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
-	    index := max.
-	    "/ ^ nil
-	]
+        (anIndexOrNil < 1 or:[anIndexOrNil > max]) ifTrue:[
+            index := max.
+            "/ ^ nil
+        ]
     ].
     items isNil ifTrue:[
-	items := OrderedCollection new
+        items := OrderedCollection new
     ] ifFalse:[
-	items := items asOrderedCollection
+        items := items asOrderedCollection
     ].
     item := Item in:self.
 
     (index isNil or:[index == max]) ifTrue:[
-	items add:item
+        items add:item
     ] ifFalse:[
-	items add:item beforeIndex:index
+        items add:item beforeIndex:index
     ].
     preferredExtent := nil.     "/ flush cached preferredExtent
     self mustRearrange.
     ^ item
 
-    "Modified: / 03-07-2011 / 22:49:47 / cg"
+    "Created: / 18-07-2017 / 13:45:01 / cg"
 !
 
 remove:stringOrNumber
@@ -6822,37 +6835,39 @@
     ^ state value ~~ false
 !
 
-enabled:something
+enabled:aBooleanOrBooleanHolder
     "change the enabled state; if the state changed, a redraw is performed"
 
     |oldState newState|
 
     enableChannel isNil ifTrue:[
-	oldState := true
+        oldState := true
     ] ifFalse:[
-	oldState := enableChannel value.
-	enableChannel isValueModel ifTrue:[
-	    enableChannel removeDependent:self
-	]
-    ].
-    enableChannel := something.
+        oldState := enableChannel value.
+        enableChannel isValueModel ifTrue:[
+            enableChannel removeDependent:self
+        ]
+    ].
+    enableChannel := aBooleanOrBooleanHolder.
 
     enableChannel isNil ifTrue:[
-	menuPanel shown ifFalse:[^ self].
-	newState := true
+        menuPanel shown ifFalse:[^ self].
+        newState := true
     ] ifFalse:[
-	enableChannel isValueModel ifTrue:[
-	    enableChannel addDependent:self
-	] ifFalse:[
-	    enableChannel isSymbol ifTrue:[^ self]
-	].
-	menuPanel shown ifFalse:[^ self].
-	newState := enableChannel value.
+        enableChannel isValueModel ifTrue:[
+            enableChannel addDependent:self
+        ] ifFalse:[
+            enableChannel isSymbol ifTrue:[^ self]
+        ].
+        menuPanel shown ifFalse:[^ self].
+        newState := enableChannel value.
     ].
 
     newState ~~ oldState ifTrue:[
-	self invalidate
-    ].
+        self invalidate
+    ].
+
+    "Modified (format): / 18-07-2017 / 14:20:48 / cg"
 !
 
 hideMenuOnActivated