"{ Package: 'stx:libtool2' }"

ApplicationModel subclass:#MethodFinderWindow

	instanceVariableNames:'argumentsEditor messageAnswerEditor receiverEditor receiver

		resultSelectors arg2BoxVisible arg1BoxVisible arg4BoxVisible

		arg3BoxVisible argCountHolder argCountList argument1Editor

		argument2Editor argument3Editor argument4Editor resultSelected

		lookAtResultEditor'

	classVariableNames:''

	poolDictionaries:''

	category:'MethodFinder'

!

!MethodFinderWindow class methodsFor:'interface specs'!

windowSpec

    "This resource specification was automatically generated

     by the UIPainter of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the UIPainter may not be able to read the specification."

    "

     UIPainter new openOnClass:MethodFinderWindow andSelector:#windowSpec

     MethodFinderWindow new openInterface:#windowSpec

     MethodFinderWindow open

    "

    <resource: #canvas>

    ^ 

     #(#FullSpec

        #name: #windowSpec

        #window: 

       #(#WindowSpec

          #label: 'MethodFinder'

          #name: 'MethodFinder'

          #min: #(#Point nil nil)

          #max: #(#Point nil nil)

          #menu: #menu

          #forceRecursiveBackground: false

        )

        #component: 

       #(#SpecCollection

          #collection: #(

           #(#SequenceViewSpec

              #name: 'List1'

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #autoHideScrollBars: true

              #valueChangeSelector: #updateImplementorsOf:

              #useIndex: true

              #sequenceList: #resultHolder

            )

           #(#SequenceViewSpec

              #name: 'List2'

              #layout: #(#LayoutFrame 0 0.65 0 0 0 1 0 1)

              #hasHorizontalScrollBar: true

              #hasVerticalScrollBar: true

              #autoHideScrollBars: true

              #doubleClickSelector: #openBrowserOn:

              #useIndex: false

              #sequenceList: #classOfResultHolder

            )

           #(#ViewSpec

              #name: 'Box4'

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#LabelSpec

                    #label: 'Receiver'

                    #name: 'ReceiverLabel'

                    #translateLabel: true

                    #adjust: #left

                  )

                 #(#ComboListSpec

                    #name: 'allowedArgments'

                    #model: #argCountHolder

                    #comboList: #argCountList

                    #useIndex: true

                  )

                 #(#LabelSpec

                    #label: 'MessageAnswer'

                    #name: 'MessageAnswerLabel'

                    #translateLabel: true

                    #adjust: #left

                  )

                 #(#HorizontalPanelViewSpec

                    #name: 'HorizontalPanel1'

                    #layout: #(#LayoutFrame 0 0 20 0 0 1 0 1)

                    #horizontalLayout: #fit

                    #verticalLayout: #fit

                    #horizontalSpace: 3

                    #verticalSpace: 3

                    #component: 

                   #(#SpecCollection

                      #collection: #(

                       #(#WorkspaceSpec

                          #name: 'ReceiverEditor'

                          #tabable: true

                          #autoHideScrollBars: true

                          #postBuildCallback: #receiverWidgetCreated:

                        )

                       #(#VerticalPanelViewSpec

                          #name: 'VerticalPanel1'

                          #horizontalLayout: #fit

                          #verticalLayout: #fit

                          #horizontalSpace: 3

                          #verticalSpace: 3

                          #component: 

                         #(#SpecCollection

                            #collection: #(

                             #(#ViewSpec

                                #name: 'Box1'

                                #visibilityChannel: #arg1BoxVisible

                                #component: 

                               #(#SpecCollection

                                  #collection: #(

                                   #(#WorkspaceSpec

                                      #name: 'Arg1Editor'

                                      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

                                      #tabable: true

                                      #autoHideScrollBars: true

                                      #postBuildCallback: #argument1WidgetCreated:

                                    )

                                   )

                                )

                              )

                             #(#ViewSpec

                                #name: 'Box2'

                                #visibilityChannel: #arg2BoxVisible

                                #component: 

                               #(#SpecCollection

                                  #collection: #(

                                   #(#WorkspaceSpec

                                      #name: 'TextEditor5'

                                      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

                                      #tabable: true

                                      #autoHideScrollBars: true

                                      #postBuildCallback: #argument2WidgetCreated:

                                    )

                                   )

                                )

                              )

                             #(#ViewSpec

                                #name: 'Box3'

                                #visibilityChannel: #arg3BoxVisible

                                #component: 

                               #(#SpecCollection

                                  #collection: #(

                                   #(#WorkspaceSpec

                                      #name: 'TextEditor6'

                                      #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)

                                      #tabable: true

                                      #autoHideScrollBars: true

                                      #postBuildCallback: #argument3WidgetCreated:

                                    )

                                   )

                                )

                              )

                             )

                          )

                        )

                       #(#WorkspaceSpec

                          #name: 'AnswerEditor'

                          #tabable: true

                          #autoHideScrollBars: true

                          #postBuildCallback: #messageAnswerWidgetCreated:

                        )

                       )

                    )

                  )

                 )

              )

            )

           #(#ViewSpec

              #name: 'Box5'

              #component: 

             #(#SpecCollection

                #collection: #(

                 #(#ActionButtonSpec

                    #label: 'Clear'

                    #name: 'Button2'

                    #layout: #(#LayoutFrame 0 0 0 0 -5 0.5 0 1)

                    #translateLabel: true

                    #model: #clear

                  )

                 #(#ActionButtonSpec

                    #label: 'Search'

                    #name: 'Button1'

                    #layout: #(#LayoutFrame 5 0.5 0 0 0 1 0 1)

                    #translateLabel: true

                    #tabable: true

                    #model: #search

                  )

                 )

              )

            )

           )

        )

      )

! !

!MethodFinderWindow class methodsFor:'menu specs'!

menu

    "This resource specification was automatically generated

     by the MenuEditor of ST/X."

    "Do not manually edit this!! If it is corrupted,

     the MenuEditor may not be able to read the specification."

    "

     MenuEditor new openOnClass:MethodFinderWindow andSelector:#menu

     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow menu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: '&File'

            #activeHelpKey: #file

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Exit'

                  #value: #closeRequest

                  #activeHelpKey: #fileExit

                )

               )

              nil

              nil

            )

          )

         #(#MenuItem

            #label: 'Help'

            #startGroup: #right

            #submenu: 

           #(#Menu

              #(

               #(#MenuItem

                  #label: 'Documentation'

                  #value: #openHTMLDocumentation

                  #activeHelpKey: #helpTutorial

                )

               #(#MenuItem

                  #label: 'About MenuEditor...'

                  #value: #openAboutThisApplication

                  #activeHelpKey: #aboutThisAppliaction

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

! !

!MethodFinderWindow methodsFor:'accessing'!

receiver

    "Return a copy of the value of the instance variable 'receiver' "

    ^ receiver copy

! !

!MethodFinderWindow methodsFor:'actions'!

argumentEditorsContents

"Determine how many text editors of the arguments are used and store the result

as argCounter. The result being the minimum between how many editors have

expressions in and how many are displayed.

Add each argument string (key)and the evaluated version (value) to an Ordered Dictionary

from each of the text editors.

Return the OrderedDictionary with the expressions from all the text editors. "

     | tempArguments argCounter tempArgument1Editor tempArgument2Editor tempArgument3Editor tempArgument4Editor

associationKey associationValue|

argCounter:=0.

tempArgument1Editor:= (self cleanInputs: argument1Editor contents).

tempArgument2Editor:=  (self cleanInputs: argument2Editor contents).

tempArgument3Editor:= (self cleanInputs: argument3Editor contents).

tempArgument1Editor = '' ifFalse:[argCounter:=argCounter +1].

tempArgument2Editor = '' ifFalse:[argCounter:=argCounter +1].

tempArgument3Editor = '' ifFalse:[argCounter:=argCounter +1].

argCounter:= (argCounter min: (self argCountHolder value -1)).

tempArguments:= OrderedDictionary new:argCounter. 

(argCounter value >= 1) 

                ifTrue:[associationValue:= (Compiler evaluate: tempArgument1Editor).

                        ((self isExpression:tempArgument1Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"

                                        associationKey:=associationValue printString]

                                                          ifFalse:[

                                        associationKey:=tempArgument1Editor].

                        tempArguments add: associationKey-> associationValue.

                        ].

(argCounter value >= 2) 

                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument2Editor).

                        (((self isExpression:tempArgument2Editor) or:[ associationValue isNil])) ifTrue:[                  "looks if an expression is typed in"

                                        associationKey:=associationValue printString]

                                                          ifFalse:[

                                        associationKey:=tempArgument2Editor].

                        tempArguments add: associationKey-> associationValue].

(argCounter value >= 3)

                ifTrue:[ associationValue:= (Compiler evaluate: tempArgument3Editor).

                        ((self isExpression:tempArgument3Editor) or:[ associationValue isNil]) ifTrue:[                  "looks if an expression is typed in"

                                        associationKey:=associationValue printString]

                                                          ifFalse:[

                                        associationKey:=tempArgument3Editor].

                        tempArguments add: associationKey-> associationValue].

^tempArguments

!

clear

    "Reset the contents of all the outputs. Return the receiver."

    receiverEditor contents:nil.

    argument1Editor contents:nil.

    argument2Editor contents:nil.

    argument3Editor contents:nil.

    messageAnswerEditor contents:nil.

    self resultHolder value:nil.

    self classOfResultHolder value: nil.

!

isExpression: aString

      "Return true or false depending on if the subString includes certain characters"

(aString includesSubString:': ') ifTrue:[^true].

(aString includesSubString:'+') ifTrue:[^true].

(aString includesSubString:'-') ifTrue:[^true].

(aString includesSubString:'*') ifTrue:[^true].

(aString includesSubString:'/') ifTrue:[^true].

(aString includesSubString:'>') ifTrue:[^true].

(aString includesSubString:'<') ifTrue:[^true].

(aString includesSubString:' new') ifTrue:[^true].

(aString includesSubString:'[') &  (aString includesSubString:']') & (aString includesSubString:'.')

                                ifTrue:[^false].

(aString includesSubString:'.') ifTrue:[^true].

 ^false

!

messageAnswerEditorContents

   "Return a cleaned up version of message answer taken from the messageAnswerEditor

    as an association. The association has cleanedAnswerString as a key and the 

    compiledAnswer as value."

    |   aCleanedAnswerString   compiledAnswer  |

aCleanedAnswerString:=self cleanInputs: (messageAnswerEditor contents). 

compiledAnswer:=Compiler evaluate: aCleanedAnswerString.

((self isExpression:aCleanedAnswerString) or:[compiledAnswer isNil]) ifTrue:[

                        aCleanedAnswerString:=compiledAnswer printString].

^aCleanedAnswerString->compiledAnswer.

!

openBrowserOn:anArgument 

    "Opens browser on theArgument of a specific class. anArgument being a string with the

       Class and the selector upon which the browser is to be opened. Return the receiver."

    |aClass aSelector x theArgument|

    anArgument isNil ifTrue:[

        ^ self

    ].

    (anArgument at:1) == $* ifTrue:[

        theArgument := anArgument copyFrom:2

    ] ifFalse:[

        theArgument := anArgument

    ].

    aClass := theArgument copyUpTo:(Character space).

    x := aClass size + 2.

    aSelector := theArgument copyFrom:x.

    aClass := Smalltalk classNamed:aClass.

    SystemBrowser openInClass:(aClass) selector:(aSelector asSymbol)   

"

MethodFinderWindow new openBrowserOn: '*SmallInteger +'

MethodFinderWindow new openBrowserOn: 'String ,'

MethodFinderWindow new openBrowserOn: 'Number detentBy:atMultiplesOf:snap:' 

"

!

receiverEditorContents

   "Return a cleaned up version of receiver taken from the receiverEditor

    as an association. The association has aCleanedRecieverString as a key and the 

    compiledReceiver as value."

    |   aCleanedRecieverString   compiledReceiver  |

aCleanedRecieverString:=self cleanInputs: (receiverEditor contents). 

compiledReceiver:=Compiler evaluate: aCleanedRecieverString.

((self isExpression:aCleanedRecieverString) or:[compiledReceiver isNil]) ifTrue:[

                        aCleanedRecieverString:=compiledReceiver printString].

^aCleanedRecieverString->compiledReceiver.

!