"{ Package: 'stx:libtool2' }"

ApplicationModel subclass:#MethodFinderWindow

	instanceVariableNames:'argumentsEditor messageAnswerEditor receiverEditor receiver

		resultSelectors arg2BoxVisible arg1BoxVisible arg4BoxVisible

		arg3BoxVisible argCountHolder argCountList argument1Editor

		argument2Editor argument3Editor argument4Editor resultSelected

		lookAtResultEditor codeHolder searchProcess'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-MethodFinder'

!

!MethodFinderWindow class methodsFor:'documentation'!

documentation

"

  [author:]

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

"

! !

!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:'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 798 595)

          menu: menu

          icon: defaultIcon

        )

        component: 

       (SpecCollection

          collection: (

           (VariableHorizontalPanelSpec

              name: 'VariableHorizontalPanel1'

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

              snapMode: both

              component: 

             (SpecCollection

                collection: (

                 (ViewSpec

                    name: 'LeftBox'

                    level: 1

                    component: 

                   (SpecCollection

                      collection: (

                       (ViewSpec

                          name: 'ReceiverArgBox'

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

                          component: 

                         (SpecCollection

                            collection: (

                             (LabelSpec

                                label: 'Receiver'

                                name: 'ReceiverLabel'

                                layout: (LayoutFrame 0 0 0 0 0 0.34 24 0)

                                translateLabel: true

                              )

                             (ComboListSpec

                                name: 'allowedArgments'

                                layout: (LayoutFrame 0 0.34 1 0 0 0.64 23 0)

                                model: argCountHolder

                                comboList: argCountList

                                useIndex: true

                              )

                             (LabelSpec

                                label: 'Answer'

                                name: 'MessageAnswerLabel'

                                layout: (LayoutFrame 0 0.64 0 0 0 1 24 0)

                                translateLabel: true

                              )

                             (HorizontalPanelViewSpec

                                name: 'HorizontalPanel1'

                                layout: (LayoutFrame 0 0 25 0 0 1 0 1)

                                horizontalLayout: fit

                                verticalLayout: fit

                                horizontalSpace: 3

                                verticalSpace: 3

                                component: 

                               (SpecCollection

                                  collection: (

                                   (WorkspaceSpec

                                      name: 'ReceiverEditor'

                                      tabable: true

                                      hasHorizontalScrollBar: true

                                      hasVerticalScrollBar: true

                                      miniScrollerHorizontal: true

                                      miniScrollerVertical: true

                                      autoHideScrollBars: true

                                      hasKeyboardFocusInitially: false

                                      extent: (Point 113 172)

                                      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

                                                  hasHorizontalScrollBar: true

                                                  hasVerticalScrollBar: true

                                                  miniScrollerHorizontal: true

                                                  miniScrollerVertical: true

                                                  autoHideScrollBars: true

                                                  hasKeyboardFocusInitially: false

                                                  postBuildCallback: argument1WidgetCreated:

                                                )

                                               )

                                            )

                                            extent: (Point 114 55)

                                          )

                                         (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

                                                  hasHorizontalScrollBar: true

                                                  hasVerticalScrollBar: true

                                                  miniScrollerHorizontal: true

                                                  miniScrollerVertical: true

                                                  autoHideScrollBars: true

                                                  hasKeyboardFocusInitially: false

                                                  postBuildCallback: argument2WidgetCreated:

                                                )

                                               )

                                            )

                                            extent: (Point 114 56)

                                          )

                                         (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

                                                  hasHorizontalScrollBar: true

                                                  hasVerticalScrollBar: true

                                                  miniScrollerHorizontal: true

                                                  miniScrollerVertical: true

                                                  autoHideScrollBars: true

                                                  hasKeyboardFocusInitially: false

                                                  postBuildCallback: argument3WidgetCreated:

                                                )

                                               )

                                            )

                                            extent: (Point 114 55)

                                          )

                                         )

                                      )

                                      extent: (Point 114 172)

                                    )

                                   (WorkspaceSpec

                                      name: 'AnswerEditor'

                                      tabable: true

                                      hasHorizontalScrollBar: true

                                      hasVerticalScrollBar: true

                                      miniScrollerHorizontal: true

                                      miniScrollerVertical: true

                                      autoHideScrollBars: true

                                      hasKeyboardFocusInitially: false

                                      extent: (Point 114 172)

                                      postBuildCallback: messageAnswerWidgetCreated:

                                    )

                                   )

                                )

                              )

                             )

                          )

                        )

                       (ViewSpec

                          name: 'ReceiverArgBoxActionBox'

                          layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5)

                          component: 

                         (SpecCollection

                            collection: (

                             (ActionButtonSpec

                                label: 'Clear'

                                name: 'Button2'

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

                                translateLabel: true

                                model: clear

                              )

                             (ActionButtonSpec

                                label: 'Search'

                                name: 'Button1'

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

                                translateLabel: true

                                tabable: true

                                model: search

                              )

                             )

                          )

                        )

                       (ViewSpec

                          name: 'MatchActionBox'

                          layout: (LayoutFrame 0 0 -70 0.5 0 1 -20 0.5)

                          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 0 0 -25 1 0 0.5 -5 1)

                                model: selectorPattern

                                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 -15 0.5 0 1 0 1)

                          model: selectedImplementorsHolder

                          menu: resultListMenu

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          autoHideScrollBars: true

                          valueChangeSelector: updateImplementorsOf:

                          useIndex: true

                          sequenceList: resultHolder

                        )

                       )

                    )

                  )

                 (VariableVerticalPanelSpec

                    name: 'VariableVerticalPanel1'

                    component: 

                   (SpecCollection

                      collection: (

                       (SequenceViewSpec

                          name: 'List2'

                          model: selectedClassOfResultHolder

                          menu: implementorListMenu

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          autoHideScrollBars: true

                          doubleClickSelector: openBrowserOn:

                          valueChangeSelector: selectedClassOfResultHolderChanged

                          useIndex: false

                          sequenceList: classOfResultHolder

                        )

                       (CodeViewSpec

                          name: 'CodeView'

                          model: codeHolder

                          hasHorizontalScrollBar: true

                          hasVerticalScrollBar: true

                          autoHideScrollBars: true

                          hasKeyboardFocusInitially: false

                          postBuildCallback: sourceCodeWidgetCreated:

                        )

                       )

                    )

                    handles: (Any 0.5 1.0)

                  )

                 )

              )

              handles: (Any 0.443786982248521 1.0)

            )

           )

        )

      )

    "Modified: / 21-09-2012 / 11:09:44 / cg"

! !

!MethodFinderWindow class methodsFor:'menu specs'!

implementorListMenu

    "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:#implementorListMenu

     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Browse'

            #translateLabel: true

            #value: #openBrowserOnSelectedItem

          )

         )

        nil

        nil

      )

!

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 MethodFinder...'

                  #value: #openAboutThisApplication

                  #activeHelpKey: #aboutThisAppliaction

                )

               )

              nil

              nil

            )

          )

         )

        nil

        nil

      )

    "Modified: / 13.11.2001 / 12:36:39 / cg"

!

resultListMenu

    "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:#implementorListMenu

     (Menu new fromLiteralArrayEncoding:(MethodFinderWindow implementorListMenu)) startUp

    "

    <resource: #menu>

    ^ 

     #(#Menu

        #(

         #(#MenuItem

            #label: 'Browse Senders'

            #translateLabel: true

            #value: #openBrowserOnSenderOfSelectedResultItem

          )

         #(#MenuItem

            #label: 'Browse Implementors'

            #translateLabel: true

            #value: #openBrowserOnSelectedResultItem

          )

         )

        nil

        nil

      )

    "Created: / 21-09-2012 / 11:05:15 / cg"

! !

!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