--- a/MenuPanel.st Mon Oct 16 13:02:58 2006 +0200
+++ b/MenuPanel.st Mon Oct 16 13:11:28 2006 +0200
@@ -2438,6 +2438,11 @@
].
start := items findFirst:[:anItem| anItem startGroup == #right ].
+ "/ The behavior of #conditionalRight is controlled by the styleSheet.
+ "/ If menuPanel.ignoreConditionalStartGroupRight is true, it is ignored.
+ "/ otherwise, it is treated like #right.
+ "/ This allows for groups to be specified as #right under motif, but
+ "/ non-right under win32 (as is used woth the help-menus).
(styleSheet at:#'menuPanel.ignoreConditionalStartGroupRight' ifAbsent:false) ifTrue:[
"/ #conditionalRight is treated like #right
start2 := items findFirst:[:anItem| anItem startGroup == #conditionalRight ].
@@ -2457,7 +2462,7 @@
]
].
- "Modified: / 16-10-2006 / 13:02:27 / cg"
+ "Modified: / 16-10-2006 / 13:05:15 / cg"
!
rearrangeItems
@@ -5333,17 +5338,21 @@
!
startGroup
- "start group #left #right #center ... or nil
- at the moment only #right is implemented"
+ "start group #left #right #conditionalRight ... or nil
+ at the moment only #right and #conditionalRight are implemented"
^ menuItem startGroup
+
+ "Modified: / 16-10-2006 / 13:06:25 / cg"
!
startGroup:aSymbol
- "start group #left #right #center ...
- at the moment only #right is implemented"
+ "start group #left #right #conditionalRight ...
+ at the moment only #right and #conditionalRight are implemented"
menuItem startGroup:aSymbol.
+
+ "Modified: / 16-10-2006 / 13:06:37 / cg"
!
submenu
@@ -7620,7 +7629,7 @@
!MenuPanel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.432 2006-10-16 11:02:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.433 2006-10-16 11:11:28 cg Exp $'
! !
MenuPanel initialize!