help text for #conditionalRight
authorClaus Gittinger <cg@exept.de>
Mon, 16 Oct 2006 13:34:00 +0200
changeset 2123 7a78e0088013
parent 2122 417dabd716d5
child 2124 214c0d1d3c5a
help text for #conditionalRight
MenuEditor.st
--- 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
     "