MenuPanel.st
changeset 3127 9b522d37eca0
parent 3126 8dca3b01f1db
child 3128 9b92638bbd58
--- 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!