MenuItem.st
changeset 2263 30cf468f47ca
parent 2125 78bd48d8de76
child 2264 8736ee5ec90e
--- a/MenuItem.st	Fri Oct 13 18:27:12 2006 +0200
+++ b/MenuItem.st	Mon Oct 16 13:02:50 2006 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libview2' }"
 
 Object subclass:#MenuItem
@@ -575,12 +573,14 @@
     "start group #left #right #center ...
      at the moment only #right is implemented
     "
-    (#(nil #left #right) includes:startGroup) ifTrue:[
+    (#(nil #left #right #conditionalRight) includes:aSymbol) ifTrue:[
         startGroup := aSymbol
     ] ifFalse:[
         self warn:('unsupported group: ', aSymbol printString ).
         startGroup := #left
     ]
+
+    "Modified: / 16-10-2006 / 13:01:39 / cg"
 ! !
 
 !MenuItem methodsFor:'accessing-resource'!
@@ -874,5 +874,5 @@
 !MenuItem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.77 2006-03-13 15:54:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.78 2006-10-16 11:02:50 cg Exp $'
 ! !