# HG changeset patch # User Claus Gittinger # Date 1563808218 -7200 # Node ID 88345ce4ef2d97a6bf02670360eb30a43723b19c # Parent 4a8a3dc10ed8c360d5d7c6541302c9a86de4ee8e #REFACTORING by exept class: MethodFinderWindow removed: #showMeHowItWorks changed: #showMeHowItWorks:in: diff -r 4a8a3dc10ed8 -r 88345ce4ef2d MethodFinderWindow.st --- a/MethodFinderWindow.st Mon Jul 22 17:05:07 2019 +0200 +++ b/MethodFinderWindow.st Mon Jul 22 17:10:18 2019 +0200 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls) Copyright (C) 2001 eXept Software AG @@ -1772,75 +1770,6 @@ "about/help menu action" HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#METHODFINDER' -! - -showMeHowItWorks - ShowMeHowItWorks do: #( - show: 'this little presentation shows, how to find a method when the desired result is known' - - intro - - (unless: ( isEmpty: ReceiverEditor ) do:( - (showing: 'you can clear the fields - by pressing the "Clear" button' do:( - fastMoveTo: ClearButton - click - )) - )) - - ( showing: 'start by choosing the number of arguments,' do:( - moveTo: AllowedArguments - select: '1 argument' - )) - (showing: 'Click into the "receiver" field' do:( - moveTo: ReceiverEditor - click - )) - wait: 0.5 - (showing: 'Enter a value (or expression) into "receiver" field' do:( - type: '10' - )) - wait: 0.5 - (showing: 'Click into the "first argument" field' do:( - moveTo: Arg1Editor - click - )) - wait: 0.5 - (showing: 'and enter a value for the argument' do:( - type: '1' - )) - wait: 0.5 - (showing: 'Click into the "answer" field' do:( - fastMoveTo: AnswerEditor - click - )) - (showing: 'Enter the expected result value into the "answer" field' do:( - type: '11' - )) - wait: 0.5 - (showing: 'and finally, Click on the "search" button' do:( - fastMoveTo: SearchButton - click - )) - show: 'now, the finder searches for combinations that produce the desired result' - fastMoveTo: ResultList - show: 'and present code which would produce it in the answer list below' - show: 'if you select any item there,' - wait: 0.5 - selectIndex: 2 - wait: 0.5 - fastMoveTo: ImplementorsList - show: 'the implementations will be shown in the top right implementor list' - show: 'if you select any item there,' - selectIndex: 1 - wait: 0.5 - show: 'the implementation is shown in the bottom code editor' - fastMoveTo: CodeView - wait: 0.5 - show: 'Thank you for watching, indeed' - ) - - "Created: / 18-07-2019 / 21:59:06 / Claus Gittinger" - "Modified: / 19-07-2019 / 16:52:01 / Claus Gittinger" ! ! !MethodFinderWindow methodsFor:'private'!