added: #defaultIcon
authorClaus Gittinger <cg@exept.de>
Fri, 01 Jun 2012 13:12:25 +0200
changeset 2890 3d8556368fe9
parent 2889 e17b2eacfe84
child 2891 d4f1cd8626e6
added: #defaultIcon changed: #resultHolder #windowSpec
MethodFinderWindow.st
--- a/MethodFinderWindow.st	Thu May 03 08:02:26 2012 +0200
+++ b/MethodFinderWindow.st	Fri Jun 01 13:12:25 2012 +0200
@@ -22,6 +22,12 @@
 
 !MethodFinderWindow class methodsFor:'constants'!
 
+defaultIcon
+    ^ ToolbarIconLibrary methodFinder24x24Icon
+
+    "Created: / 01-06-2012 / 13:05:11 / cg"
+!
+
 markerForImplementingClass
     ^ '=> '.
     ^ '*'
@@ -54,8 +60,9 @@
        (WindowSpec
           label: 'MethodFinder'
           name: 'MethodFinder'
-          bounds: (Rectangle 0 0 550 400)
+          bounds: (Rectangle 0 0 798 595)
           menu: menu
+          icon: defaultIcon
         )
         component: 
        (SpecCollection
@@ -117,7 +124,7 @@
                                       miniScrollerVertical: true
                                       autoHideScrollBars: true
                                       hasKeyboardFocusInitially: false
-                                      extent: (Point 87 74)
+                                      extent: (Point 113 172)
                                       postBuildCallback: receiverWidgetCreated:
                                     )
                                    (VerticalPanelViewSpec
@@ -150,7 +157,7 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 23)
+                                            extent: (Point 114 55)
                                           )
                                          (ViewSpec
                                             name: 'Box2'
@@ -173,7 +180,7 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 22)
+                                            extent: (Point 114 56)
                                           )
                                          (ViewSpec
                                             name: 'Box3'
@@ -196,12 +203,12 @@
                                                )
                                              
                                             )
-                                            extent: (Point 87 23)
+                                            extent: (Point 114 55)
                                           )
                                          )
                                        
                                       )
-                                      extent: (Point 87 74)
+                                      extent: (Point 114 172)
                                     )
                                    (WorkspaceSpec
                                       name: 'AnswerEditor'
@@ -212,7 +219,7 @@
                                       miniScrollerVertical: true
                                       autoHideScrollBars: true
                                       hasKeyboardFocusInitially: false
-                                      extent: (Point 88 74)
+                                      extent: (Point 114 172)
                                       postBuildCallback: messageAnswerWidgetCreated:
                                     )
                                    )
@@ -330,7 +337,7 @@
                  )
                
               )
-              handles: (Any 0.5 1.0)
+              handles: (Any 0.443786982248521 1.0)
             )
            )
          
@@ -861,13 +868,12 @@
                         '    ',('receiver, arg and result' allBold) .
                         'or a'.
                         '    ',('selector search pattern' allBold) .
-                        'into the above fields,'.
-                        'then click on either ',('"search"' allBold),'-button.'
+                        'into the above fields, then click on either ',('"search"' allBold),'-button.'
                      }
     ].
     ^ holder.
 
-    "Modified: / 27-04-2012 / 15:14:32 / cg"
+    "Modified: / 01-06-2012 / 13:06:02 / cg"
 !
 
 selectedClassOfResultHolder