#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Fri, 19 Jul 2019 11:53:58 +0200
changeset 3697 46c77420db3b
parent 3696 530f3998b3a2
child 3698 173ace914343
#UI_ENHANCEMENT by cg class: MethodFinderWindow changed: #showMeHowItWorks category of: #aboutThisApplicationText #openHTMLDocumentation #showMeHowItWorks
MethodFinderWindow.st
--- a/MethodFinderWindow.st	Thu Jul 18 21:59:30 2019 +0200
+++ b/MethodFinderWindow.st	Fri Jul 19 11:53:58 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
  Copyright (C) 2001 eXept Software AG
@@ -1692,39 +1694,6 @@
 ^receiverWithArgument
 ! !
 
-!MethodFinderWindow methodsFor:'help - demonstration'!
-
-showMeHowItWorks
-    ShowMeHowItWorks do:#(
-        showing: 'Choose the number of arguments'
-        do: (
-            moveTo: NumberOfArguments
-            select: '1'
-        )    
-        showing: 'Click into the "receiver" field'
-        do: (
-            moveTo: ReceiverEditor
-            click: ReceiverEditor
-        )
-        showing: 'Enter a value (or expression) into "receiver" field'
-        do: (
-            enter: '100'
-        )
-        showing: 'Click into the "first argument" field'
-        do: (
-            moveTo: Arg1Editor
-            click: ReceiverEditor
-        )
-        showing: 'Enter a value (or expression) into "receiver" field'
-        do: (
-            enter: '100'
-        )
-        
-    )
-
-    "Created: / 18-07-2019 / 21:59:06 / Claus Gittinger"
-! !
-
 !MethodFinderWindow methodsFor:'initialization'!
 
 argument1WidgetCreated: aWidget
@@ -1782,7 +1751,7 @@
     "Modified: / 13.11.2001 / 12:51:23 / cg"
 ! !
 
-!MethodFinderWindow methodsFor:'menu actions'!
+!MethodFinderWindow methodsFor:'menu actions - help'!
 
 aboutThisApplicationText
     |msg|
@@ -1801,6 +1770,33 @@
     "about/help menu action"
     
     HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#METHODFINDER'
+!
+
+showMeHowItWorks
+    ShowMeHowItWorks do:#(
+        ( showing: 'Choose the number of arguments' do:(
+            moveTo: NumberOfArguments
+            select: '1' 
+        ))  
+        (showing: 'Click into the "receiver" field' do:(
+            moveTo: ReceiverEditor
+            click: ReceiverEditor 
+        ))
+        (showing: 'Enter a value (or expression) into "receiver" field' do:(
+            enter: '100'
+        ))
+        (showing: 'Click into the "first argument" field' do:(
+            moveTo: Arg1Editor
+            click: ReceiverEditor
+        ))
+        (showing: 'Enter a value (or expression) into "receiver" field' do:(
+            enter: '100'
+        ))
+        
+    )
+
+    "Created: / 18-07-2019 / 21:59:06 / Claus Gittinger"
+    "Modified: / 19-07-2019 / 11:05:20 / Claus Gittinger"
 ! !
 
 !MethodFinderWindow methodsFor:'private'!