"{ Encoding: utf8 }"

"

 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)

 Copyright (C) 2001 eXept Software AG

 Permission is hereby granted, free of charge, to any 

 person obtaining a copy of this software and associated 

 documentation files (the 'Software'), to deal in the 

 Software without restriction, including without limitation 

 the rights to use, copy, modify, merge, publish, distribute, 

 sublicense, and/or sell copies of the Software, and to 

 permit persons to whom the Software is furnished to do so, 

 subject to the following conditions:

 The above copyright notice and this permission notice shall 

 be included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, 

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 

 IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 

 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 

 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 

 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

"

"{ Package: 'stx:libtool2' }"

"{ NameSpace: Smalltalk }"

ApplicationModel subclass:#MethodFinderWindow

	instanceVariableNames:'resultHolder selectorPatternHolder classOfResultHolder

		selectedClassOfResultHolder selectedImplementorsHolder

		argumentsEditor messageAnswerEditor receiverEditor receiver

		resultSelectors arg2BoxVisible arg1BoxVisible arg4BoxVisible

		arg3BoxVisible argCountHolder argCountList argument1Editor

		argument2Editor argument3Editor argument4Editor resultSelected

		lookAtResultEditor codeHolder searchProcess'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Tools'

!

!MethodFinderWindow class methodsFor:'documentation'!

copyright

"

 Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)

 Copyright (C) 2001 eXept Software AG

 Permission is hereby granted, free of charge, to any 

 person obtaining a copy of this software and associated 

 documentation files (the 'Software'), to deal in the 

 Software without restriction, including without limitation 

 the rights to use, copy, modify, merge, publish, distribute, 

 sublicense, and/or sell copies of the Software, and to 

 permit persons to whom the Software is furnished to do so, 

 subject to the following conditions:

 The above copyright notice and this permission notice shall 

 be included in all copies or substantial portions of the Software.

 THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, 

 EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES 

 OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. 

 IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY 

 CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, 

 TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE 

 SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

"

!

documentation

"

  a tool to find implementing methods by example.

  Give it values for a receiver, optional arguments and a desired result,

  and it will find methods which do that for you.

  Please read the online documentation for details (open via the tool's help menu).

  [author:]

    original squeak version by Ted Kaehler, Scott Wallace and Dan Ingalls.

    ported from Squeak and GUI enhanced 2001 by James Hayes james@exept.de.

    improved by Claus Gittinger.

"

! !

!MethodFinderWindow class methodsFor:'constants'!

defaultIcon

    <resource: #programImage>

    ^ ToolbarIconLibrary methodFinder24x24Icon

    "Created: / 01-06-2012 / 13:05:11 / cg"

!

markerForImplementingClass

    ^ '=> '.

    ^ '*'

    "Created: / 13.11.2001 / 12:09:52 / cg"

    "Modified: / 13.11.2001 / 12:11:57 / cg"

! !

!MethodFinderWindow class methodsFor:'help specs'!

helpSpec

    "This resource specification was automatically generated

     by the UIHelpTool of ST/X."

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

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

    "

    "

    <resource: #help>

    ^ super helpSpec addPairsFrom:#(

#answerValue

'Enter result value here.\Can be a constant (like ''hello'')\or an expression, such as "Rectangle basicNew".'

#arg1Value

'Enter a value for the first argument here.\Can be a constant or an expression.'

#arg2Value

'Enter a value for the second argument here.\Can be a constant or an expression.'

#arg3Value

'Enter a value for the third argument here.\Can be a constant or an expression.'

#argumentCount

'Specify the number of arguments here.'

#clearButton

'Clear all sample value fields.'

#startSearchButton

'Search for methods which answer the desired value,\given the concrete arguments'

)

! !

!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'

         bounds: (Rectangle 0 0 816 738)

         menu: menu

         icon: defaultIcon

       )

       component: 

      (SpecCollection

         collection: (

          (VariableHorizontalPanelSpec

             name: 'VariableHorizontalPanel1'

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

             showHandle: true

             snapMode: both

             component: 

            (SpecCollection

               collection: (

                (VariableVerticalPanelSpec

                   name: 'LeftBox'

                   showHandle: true

                   component: 

                  (SpecCollection

                     collection: (

                      (ViewSpec

                         name: 'MethodFinderBox'

                         component: 

                        (SpecCollection

                           collection: (

                            (ViewSpec

                               name: 'ReceiverArgBox'

                               layout: (LayoutFrame 0 0 0 0 0 1 -30 1)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'Receiver'

                                     name: 'ReceiverLabel'

                                     layout: (LayoutFrame 0 0 0 0 0 0.34000000000000002 28 0)

                                     translateLabel: true

                                   )

                                  (ComboListSpec

                                     name: 'allowedArgments'

                                     layout: (LayoutFrame 0 0.34000000000000002 1 0 0 0.64000000000000135 28 0)

                                     activeHelpKey: argumentCount

                                     model: argCountHolder

                                     comboList: argCountList

                                     useIndex: true

                                   )

                                  (LabelSpec

                                     label: 'Answer'

                                     name: 'MessageAnswerLabel'

                                     layout: (LayoutFrame 0 0.64000000000000135 0 0 0 1 28 0)

                                     activeHelpKey: arg1Value

                                     translateLabel: true

                                   )

                                  (HorizontalPanelViewSpec

                                     name: 'HorizontalPanel1'

                                     layout: (LayoutFrame 0 0 30 0 0 1 0 1)

                                     horizontalLayout: fit

                                     verticalLayout: fit

                                     horizontalSpace: 3

                                     verticalSpace: 3

                                     component: 

                                    (SpecCollection

                                       collection: (

                                        (WorkspaceSpec

                                           name: 'ReceiverEditor'

                                           activeHelpKey: receiverValue

                                           tabable: true

                                           hasHorizontalScrollBar: true

                                           hasVerticalScrollBar: true

                                           miniScrollerHorizontal: true

                                           miniScrollerVertical: true

                                           autoHideScrollBars: true

                                           hasKeyboardFocusInitially: false

                                           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)

                                                       activeHelpKey: arg1Value

                                                       tabable: true

                                                       hasHorizontalScrollBar: true

                                                       hasVerticalScrollBar: true

                                                       miniScrollerHorizontal: true

                                                       miniScrollerVertical: true

                                                       autoHideScrollBars: true

                                                       hasKeyboardFocusInitially: false

                                                       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)

                                                       activeHelpKey: arg2Value

                                                       tabable: true

                                                       hasHorizontalScrollBar: true

                                                       hasVerticalScrollBar: true

                                                       miniScrollerHorizontal: true

                                                       miniScrollerVertical: true

                                                       autoHideScrollBars: true

                                                       hasKeyboardFocusInitially: false

                                                       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)

                                                       activeHelpKey: arg3Value

                                                       tabable: true

                                                       hasHorizontalScrollBar: true

                                                       hasVerticalScrollBar: true

                                                       miniScrollerHorizontal: true

                                                       miniScrollerVertical: true

                                                       autoHideScrollBars: true

                                                       hasKeyboardFocusInitially: false

                                                       postBuildCallback: argument3WidgetCreated:

                                                     )

                                                    )

                                                 )

                                               )

                                              )

                                           )

                                         )

                                        (WorkspaceSpec

                                           name: 'AnswerEditor'

                                           activeHelpKey: answerValue

                                           tabable: true

                                           hasHorizontalScrollBar: true

                                           hasVerticalScrollBar: true

                                           miniScrollerHorizontal: true

                                           miniScrollerVertical: true

                                           autoHideScrollBars: true

                                           hasKeyboardFocusInitially: false

                                           postBuildCallback: messageAnswerWidgetCreated:

                                         )

                                        )

                                     )

                                   )

                                  )

                               )

                             )

                            (ViewSpec

                               name: 'ReceiverArgBoxActionBox'

                               layout: (LayoutFrame 0 0 -30 1 0 1 0 1)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (ActionButtonSpec

                                     label: 'Clear'

                                     name: 'Button2'

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

                                     activeHelpKey: clearButton

                                     translateLabel: true

                                     model: clear

                                   )

                                  (ActionButtonSpec

                                     label: 'Search'

                                     name: 'Button1'

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

                                     activeHelpKey: startSearchButton

                                     translateLabel: true

                                     tabable: true

                                     model: search

                                   )

                                  )

                               )

                             )

                            )

                         )

                       )

                      (ViewSpec

                         name: 'SelectorFinderBox'

                         component: 

                        (SpecCollection

                           collection: (

                            (ViewSpec

                               name: 'MatchActionBox'

                               layout: (LayoutFrame 0 0 0 0 0 1 90 0)

                               component: 

                              (SpecCollection

                                 collection: (

                                  (LabelSpec

                                     label: 'Selector Pattern:'

                                     name: 'Label1'

                                     layout: (LayoutFrame 0 0 0 0 0 0.5 25 0)

                                     translateLabel: true

                                     adjust: left

                                   )

                                  (InputFieldSpec

                                     name: 'EntryField1'

                                     layout: (LayoutFrame 2 0 -54 1 -2 1 -29 1)

                                     model: selectorPatternHolder

                                     immediateAccept: true

                                     acceptOnReturn: true

                                     acceptOnTab: true

                                     acceptOnPointerLeave: true

                                   )

                                  (ActionButtonSpec

                                     label: 'Search'

                                     name: 'Button4'

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

                                     translateLabel: true

                                     tabable: true

                                     model: searchPatternMatchesInBackground

                                   )

                                  )

                               )

                             )

                            (SequenceViewSpec

                               name: 'ResultList'

                               layout: (LayoutFrame 0 0 94 0 0 1 0 1)

                               model: selectedImplementorsHolder

                               menu: resultListMenu

                               hasHorizontalScrollBar: true

                               hasVerticalScrollBar: true

                               autoHideScrollBars: true

                               useIndex: true

                               sequenceList: resultHolder

                             )

                            )

                         )

                       )

                      )