MethodFinderWindow.st
changeset 2887 01e4c1a45e35
parent 2886 ba035714bf27
child 2889 e17b2eacfe84
--- a/MethodFinderWindow.st	Fri Apr 27 15:07:27 2012 +0200
+++ b/MethodFinderWindow.st	Fri Apr 27 15:21:01 2012 +0200
@@ -75,7 +75,7 @@
                       collection: (
                        (ViewSpec
                           name: 'ReceiverArgBox'
-                          layout: (LayoutFrame 0 0 0 0 0 1 -75 0.5)
+                          layout: (LayoutFrame 0 0 0 0 0 1 -100 0.5)
                           component: 
                          (SpecCollection
                             collection: (
@@ -117,7 +117,7 @@
                                       miniScrollerVertical: true
                                       autoHideScrollBars: true
                                       hasKeyboardFocusInitially: false
-                                      extent: (Point 87 99)
+                                      extent: (Point 87 74)
                                       postBuildCallback: receiverWidgetCreated:
                                     )
                                    (VerticalPanelViewSpec
@@ -150,7 +150,7 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 31)
+                                            extent: (Point 87 23)
                                           )
                                          (ViewSpec
                                             name: 'Box2'
@@ -173,7 +173,7 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 31)
+                                            extent: (Point 87 22)
                                           )
                                          (ViewSpec
                                             name: 'Box3'
@@ -196,12 +196,12 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 31)
+                                            extent: (Point 87 23)
                                           )
                                          )
                                        
                                       )
-                                      extent: (Point 87 99)
+                                      extent: (Point 87 74)
                                     )
                                    (WorkspaceSpec
                                       name: 'AnswerEditor'
@@ -212,7 +212,7 @@
                                       miniScrollerVertical: true
                                       autoHideScrollBars: true
                                       hasKeyboardFocusInitially: false
-                                      extent: (Point 88 99)
+                                      extent: (Point 88 74)
                                       postBuildCallback: messageAnswerWidgetCreated:
                                     )
                                    )
@@ -225,7 +225,7 @@
                         )
                        (ViewSpec
                           name: 'ReceiverArgBoxActionBox'
-                          layout: (LayoutFrame 0 0 -73 0.5 0 1 -50 0.5)
+                          layout: (LayoutFrame 0 0 -98 0.5 0 1 -75 0.5)
                           component: 
                          (SpecCollection
                             collection: (
@@ -250,20 +250,20 @@
                         )
                        (ViewSpec
                           name: 'MatchActionBox'
-                          layout: (LayoutFrame 0 0 -50 0.5 0 1 0 0.5)
+                          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 -25 0.5 0 0.5 0 0.5)
+                                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 0 1)
+                                layout: (LayoutFrame 0 0 -25 1 0 0.5 -5 1)
                                 model: selectorPattern
                                 immediateAccept: true
                                 acceptOnReturn: true
@@ -284,7 +284,7 @@
                         )
                        (SequenceViewSpec
                           name: 'ResultList'
-                          layout: (LayoutFrame 0 0 0 0.5 0 1 0 1)
+                          layout: (LayoutFrame 0 0 -15 0.5 0 1 0 1)
                           hasHorizontalScrollBar: true
                           hasVerticalScrollBar: true
                           autoHideScrollBars: true
@@ -853,13 +853,18 @@
     (holder := builder bindingAt:#resultHolder) isNil ifTrue:[
         holder := ValueHolder new.
         builder aspectAt:#resultHolder put:holder.
-        holder value:#('Please enter combination of'
-                       '    receiver, arg and result'
-                       ' into the above fields, then click on "search".').
+        holder value:{
+                        'Please enter combination of' .
+                        '    ',('receiver, arg and result' allBold) .
+                        'or a'.
+                        '    ',('selector search pattern' allBold) .
+                        'into the above fields,'.
+                        'then click on either ',('"search"' allBold),'-button.'
+                     }
     ].
     ^ holder.
 
-    "Modified: / 27-04-2012 / 14:25:33 / cg"
+    "Modified: / 27-04-2012 / 15:14:32 / cg"
 !
 
 selectedClassOfResultHolder