--- a/MenuEditor.st Wed Oct 16 15:44:57 2019 +0200
+++ b/MenuEditor.st Wed Oct 16 16:12:22 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997 by eXept Software AG
All Rights Reserved
@@ -1560,30 +1558,6 @@
!MenuEditor methodsFor:'accessing'!
-helpSpec
- |spec 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
"
@@ -2226,6 +2200,32 @@
"Modified: / 12-02-2019 / 10:56:08 / Claus Gittinger"
! !
+!MenuEditor methodsFor:'help specs'!
+
+helpSpec
+ |spec 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"
+! !
+
!MenuEditor methodsFor:'initialization & release'!
closeRequest