diff -r 8c1607c0fbe8 -r 37b18e9a12fb MethodFinderWindow.st
--- a/MethodFinderWindow.st	Wed Nov 07 14:00:00 2001 +0100
+++ b/MethodFinderWindow.st	Fri Nov 09 09:11:59 2001 +0100
@@ -11,6 +11,13 @@
 	category:'MethodFinder'
 !
 
+!MethodFinderWindow class methodsFor:'documentation'!
+
+documentation
+"
+    ported from Squeak and GUI enhanced by James
+"
+! !
 
 !MethodFinderWindow class methodsFor:'interface specs'!
 
@@ -38,85 +45,72 @@
           #name: 'MethodFinder'
           #min: #(#Point nil nil)
           #max: #(#Point nil nil)
-          #bounds: #(#Rectangle 16 46 566 446)
+          #bounds: #(#Rectangle 13 23 563 423)
           #menu: #menu
           #forceRecursiveBackground: false
         )
         #component: 
        #(#SpecCollection
           #collection: #(
-           #(#SequenceViewSpec
-              #name: 'List1'
-              #layout: #(#LayoutFrame 0 0 0 0.5 0 0.65 0 1)
-              #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)
-              #menu: #implementorListMenu
-              #hasHorizontalScrollBar: true
-              #hasVerticalScrollBar: true
-              #autoHideScrollBars: true
-              #doubleClickSelector: #openBrowserOn:
-              #useIndex: false
-              #model: #selectedClassOfResultHolder
-              #sequenceList: #classOfResultHolder
-            )
            #(#ViewSpec
-              #name: 'Box4'
-              #layout: #(#LayoutFrame 0 0 0 0 0 0.65 -25 0.5)
+              #name: 'Box6'
+              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              #level: 1
               #component: 
              #(#SpecCollection
                 #collection: #(
-                 #(#LabelSpec
-                    #label: 'Receiver'
-                    #name: 'ReceiverLabel'
-                    #layout: #(#LayoutFrame -4 0.0162791 0 0 -4 0.293023 20 0)
-                    #translateLabel: true
-                    #adjust: #left
-                  )
-                 #(#ComboListSpec
-                    #name: 'allowedArgments'
-                    #layout: #(#LayoutFrame 0 0.339535 0 0 0 0.653488 20 0)
-                    #model: #argCountHolder
-                    #comboList: #argCountList
+                 #(#SequenceViewSpec
+                    #name: 'List1'
+                    #layout: #(#LayoutFrame 0 0 0 0.5 0 0.65 0 1)
+                    #hasHorizontalScrollBar: true
+                    #hasVerticalScrollBar: true
+                    #autoHideScrollBars: true
+                    #valueChangeSelector: #updateImplementorsOf:
                     #useIndex: true
+                    #sequenceList: #resultHolder
                   )
-                 #(#LabelSpec
-                    #label: 'MessageAnswer'
-                    #name: 'MessageAnswerLabel'
-                    #layout: #(#LayoutFrame 0 0.6693 0 0 0 0.99023 20 0)
-                    #translateLabel: true
-                    #adjust: #left
+                 #(#SequenceViewSpec
+                    #name: 'List2'
+                    #layout: #(#LayoutFrame 0 0.65 0 0 0 1 0 1)
+                    #model: #selectedClassOfResultHolder
+                    #menu: #implementorListMenu
+                    #hasHorizontalScrollBar: true
+                    #hasVerticalScrollBar: true
+                    #autoHideScrollBars: true
+                    #doubleClickSelector: #openBrowserOn:
+                    #useIndex: false
+                    #sequenceList: #classOfResultHolder
                   )
-                 #(#HorizontalPanelViewSpec
-                    #name: 'HorizontalPanel1'
-                    #layout: #(#LayoutFrame 0 0 20 0 0 1 0 1)
-                    #horizontalLayout: #fit
-                    #verticalLayout: #fit
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
+                 #(#ViewSpec
+                    #name: 'Box4'
+                    #layout: #(#LayoutFrame 0 0 0 0 0 0.65 -25 0.5)
                     #component: 
                    #(#SpecCollection
                       #collection: #(
-                       #(#WorkspaceSpec
-                          #name: 'ReceiverEditor'
-                          #tabable: true
-                          #hasHorizontalScrollBar: true
-                          #hasVerticalScrollBar: true
-                          #miniScrollerHorizontal: true
-                          #miniScrollerVertical: true
-                          #autoHideScrollBars: true
-                          #extent: #(#Point 117 155)
-                          #postBuildCallback: #receiverWidgetCreated:
+                       #(#LabelSpec
+                          #label: 'Receiver'
+                          #name: 'ReceiverLabel'
+                          #layout: #(#LayoutFrame -4 0.0162791 0 0 -4 0.293023 24 0)
+                          #translateLabel: true
+                          #adjust: #left
                         )
-                       #(#VerticalPanelViewSpec
-                          #name: 'VerticalPanel1'
+                       #(#ComboListSpec
+                          #name: 'allowedArgments'
+                          #layout: #(#LayoutFrame 0 0.339535 1 0 0 0.653488 23 0)
+                          #model: #argCountHolder
+                          #comboList: #argCountList
+                          #useIndex: true
+                        )
+                       #(#LabelSpec
+                          #label: 'MessageAnswer'
+                          #name: 'MessageAnswerLabel'
+                          #layout: #(#LayoutFrame 0 0.6693 0 0 0 0.99023 24 0)
+                          #translateLabel: true
+                          #adjust: #left
+                        )
+                       #(#HorizontalPanelViewSpec
+                          #name: 'HorizontalPanel1'
+                          #layout: #(#LayoutFrame 0 0 25 0 0 1 0 1)
                           #horizontalLayout: #fit
                           #verticalLayout: #fit
                           #horizontalSpace: 3
@@ -124,87 +118,136 @@
                           #component: 
                          #(#SpecCollection
                             #collection: #(
-                             #(#ViewSpec
-                                #name: 'Box1'
-                                #visibilityChannel: #arg1BoxVisible
+                             #(#WorkspaceSpec
+                                #name: 'ReceiverEditor'
+                                #tabable: true
+                                #hasHorizontalScrollBar: true
+                                #hasVerticalScrollBar: true
+                                #miniScrollerHorizontal: true
+                                #miniScrollerVertical: true
+                                #autoHideScrollBars: true
+                                #extent: #(#Point 116 149)
+                                #postBuildCallback: #receiverWidgetCreated:
+                              )
+                             #(#VerticalPanelViewSpec
+                                #name: 'VerticalPanel1'
+                                #horizontalLayout: #fit
+                                #verticalLayout: #fit
+                                #horizontalSpace: 3
+                                #verticalSpace: 3
                                 #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
-                                      #postBuildCallback: #argument1WidgetCreated:
+                                   #(#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
+                                            #postBuildCallback: #argument1WidgetCreated:
+                                          )
+                                         )
+                                       
+                                      )
+                                      #extent: #(#Point 117 48)
+                                    )
+                                   #(#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
+                                            #postBuildCallback: #argument2WidgetCreated:
+                                          )
+                                         )
+                                       
+                                      )
+                                      #extent: #(#Point 117 47)
+                                    )
+                                   #(#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
+                                            #postBuildCallback: #argument3WidgetCreated:
+                                          )
+                                         )
+                                       
+                                      )
+                                      #extent: #(#Point 117 48)
                                     )
                                    )
                                  
                                 )
-                                #extent: #(#Point 117 50)
+                                #extent: #(#Point 117 149)
                               )
-                             #(#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
-                                      #postBuildCallback: #argument2WidgetCreated:
-                                    )
-                                   )
-                                 
-                                )
-                                #extent: #(#Point 117 49)
-                              )
-                             #(#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
-                                      #postBuildCallback: #argument3WidgetCreated:
-                                    )
-                                   )
-                                 
-                                )
-                                #extent: #(#Point 117 50)
+                             #(#WorkspaceSpec
+                                #name: 'AnswerEditor'
+                                #tabable: true
+                                #hasHorizontalScrollBar: true
+                                #hasVerticalScrollBar: true
+                                #miniScrollerHorizontal: true
+                                #miniScrollerVertical: true
+                                #autoHideScrollBars: true
+                                #extent: #(#Point 117 149)
+                                #postBuildCallback: #messageAnswerWidgetCreated:
                               )
                              )
                            
                           )
-                          #extent: #(#Point 117 155)
                         )
-                       #(#WorkspaceSpec
-                          #name: 'AnswerEditor'
+                       )
+                     
+                    )
+                  )
+                 #(#ViewSpec
+                    #name: 'Box5'
+                    #layout: #(#LayoutFrame 53 0.224737 -23 0.5 0 0.65 0 0.5)
+                    #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
-                          #hasHorizontalScrollBar: true
-                          #hasVerticalScrollBar: true
-                          #miniScrollerHorizontal: true
-                          #miniScrollerVertical: true
-                          #autoHideScrollBars: true
-                          #extent: #(#Point 118 155)
-                          #postBuildCallback: #messageAnswerWidgetCreated:
+                          #model: #search
                         )
                        )
                      
@@ -214,35 +257,12 @@
                
               )
             )
-           #(#ViewSpec
-              #name: 'Box5'
-              #layout: #(#LayoutFrame 53 0.224737 -23 0.5 0 0.65 0 0.5)
-              #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
-                  )
-                 )
-               
-              )
-            )
            )
          
         )
       )
+
+    "Modified: / 9.11.2001 / 08:45:48 / cg"
 ! !
 
 !MethodFinderWindow class methodsFor:'menu specs'!