#OTHER by exept draft
authorClaus Gittinger <cg@exept.de>
Wed, 16 Oct 2019 16:12:22 +0200
changeset 3789 fac47345f7ba
parent 3788 f15afc1c9b20
child 3790 a28f8340a3eb
#OTHER by exept class: ResourceSpecEditor class category of: #helpSpec
MenuEditor.st
--- 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