--- 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 $'
! !