--- a/MenuEditor.st Mon Oct 16 13:02:41 2006 +0200
+++ b/MenuEditor.st Mon Oct 16 13:34:00 2006 +0200
@@ -348,7 +348,7 @@
'Ignore mnemonic keys (access characters) in submenu(s).'
#detailsStartGroup
-'Specify start of a right-aligned item group.'
+'Specify start of a specially aligned group.'
#detailsVisibility
'Boolean, or aspect or binding for a boolean holder controlling the visibility of the menu item.'
@@ -412,7 +412,7 @@
)
- "Modified: / 16-07-2006 / 10:23:57 / cg"
+ "Modified: / 16-10-2006 / 13:20:38 / cg"
!
localFlyHelpSpecStrings
@@ -1461,6 +1461,30 @@
!MenuEditor methodsFor:'accessing'!
+helpSpec
+ |spec sel t g|
+
+ spec := super helpSpec.
+ t := spec at:#detailsStartGroup.
+ g := (aspects at:#startGroup ifAbsent:nil) value.
+ g == #conditionalRight ifTrue:[
+ t := t , ' #conditionalRight means: "right on non-win32 systems"'
+ ].
+ g == #right ifTrue:[
+ t := t , ' #right means: "right align from here"'
+ ].
+ g == #left ifTrue:[
+ t := t , ' #left means: "left align group"'
+ ].
+ spec at:#detailsStartGroup put:t.
+
+ ^ spec.
+"/ #detailsStartGroup
+"/ 'Specify start of a right-aligned item group.'
+
+ "Created: / 16-10-2006 / 13:19:14 / cg"
+!
+
helpTool
"get the help tool application
"