diff -r fc7b2c2f73bd -r 30cf468f47ca MenuItem.st --- 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 $' ! !