#UI_ENHANCEMENT by cg
class: MethodFinderWindow
changed: #showMeHowItWorks
category of:
#aboutThisApplicationText
#openHTMLDocumentation
#showMeHowItWorks
--- 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'!