# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1062702831 -7200
# Node ID f7baa10ebb1cca1492be278e0828ad76ec2bd975
# Parent  bdb5bedd2b57ce91ac96f0a2f4cc36120bba28d9
Delete #max: (- windowsize) in windowSpecs

diff -r bdb5bedd2b57 -r f7baa10ebb1c UIPainter.st
--- a/UIPainter.st	Thu Sep 04 21:03:29 2003 +0200
+++ b/UIPainter.st	Thu Sep 04 21:13:51 2003 +0200
@@ -834,96 +834,95 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'GUI Painter'
-          #name: 'GUI Painter'
-          #min: #(#Point 560 460)
-          #max: #(#Point 1160 870)
-          #bounds: #(#Rectangle 174 290 782 813)
-          #menu: #menu
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'GUI Painter'
+          name: 'GUI Painter'
+          min: (Point 560 460)
+          bounds: (Rectangle 14 46 622 569)
+          menu: menu
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#MenuPanelSpec
-              #name: 'menuToolbarView'
-              #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0)
-              #level: 1
-              #tabable: true
-              #menu: #menuToolbar
+        component: 
+       (SpecCollection
+          collection: (
+           (MenuPanelSpec
+              name: 'menuToolbarView'
+              layout: (LayoutFrame 0 0.0 0 0 0 1.0 32 0)
+              level: 1
+              tabable: true
+              menu: menuToolbar
             )
-           #(#VariableHorizontalPanelSpec
-              #name: 'hpanel'
-              #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
-              #level: 1
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#ArbitraryComponentSpec
-                    #name: 'treeView'
-                    #tabable: true
-                    #menu: #menuEdit
-                    #hasHorizontalScrollBar: true
-                    #hasVerticalScrollBar: true
-                    #miniScrollerHorizontal: true
-                    #miniScrollerVertical: true
-                    #hasBorder: false
-                    #component: #treeView
+           (VariableHorizontalPanelSpec
+              name: 'hpanel'
+              layout: (LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0)
+              level: 1
+              component: 
+             (SpecCollection
+                collection: (
+                 (ArbitraryComponentSpec
+                    name: 'treeView'
+                    tabable: true
+                    menu: menuEdit
+                    hasHorizontalScrollBar: true
+                    hasVerticalScrollBar: true
+                    miniScrollerHorizontal: true
+                    miniScrollerVertical: true
+                    hasBorder: false
+                    component: treeView
                   )
-                 #(#ViewSpec
-                    #name: 'specHolderView'
-                    #level: 0
-                    #component: 
-                   #(#SpecCollection
-                      #collection: #(
-                       #(#MenuPanelSpec
-                          #name: 'menuToolbar2View'
-                          #layout: #(#LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
-                          #level: 0
-                          #tabable: true
-                          #menu: #menuToolbar2
+                 (ViewSpec
+                    name: 'specHolderView'
+                    level: 0
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (MenuPanelSpec
+                          name: 'menuToolbar2View'
+                          layout: (LayoutFrame 2 0.0 2 0 -2 1.0 32 0)
+                          level: 0
+                          tabable: true
+                          menu: menuToolbar2
                         )
-                       #(#NoteBookViewSpec
-                          #name: 'noteBook'
-                          #layout: #(#LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
-                          #level: 0
-                          #enableChannel: #enableChannel
-                          #tabable: true
-                          #model: #tabModel
-                          #menu: #tabList
-                          #canvas: #noteBookView
+                       (NoteBookViewSpec
+                          name: 'noteBook'
+                          layout: (LayoutFrame 2 0.0 32 0.0 -2 1.0 -28 1.0)
+                          level: 0
+                          enableChannel: enableChannel
+                          tabable: true
+                          model: tabModel
+                          menu: tabList
+                          canvas: noteBookView
                         )
-                       #(#HorizontalPanelViewSpec
-                          #name: 'HorizontalPanel1'
-                          #layout: #(#LayoutFrame 2 0 -26 1 -2 1 -2 1)
-                          #horizontalLayout: #fit
-                          #verticalLayout: #fit
-                          #horizontalSpace: 3
-                          #verticalSpace: 3
-                          #reverseOrderIfOKAtLeft: true
-                          #component: 
-                         #(#SpecCollection
-                            #collection: #(
-                             #(#ActionButtonSpec
-                                #label: 'Cancel'
-                                #name: 'cancelButton'
-                                #activeHelpKey: #commitCancel
-                                #tabable: true
-                                #model: #cancel
-                                #enableChannel: #modifiedChannel
-                                #extent: #(#Point 200 24)
+                       (HorizontalPanelViewSpec
+                          name: 'HorizontalPanel1'
+                          layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
+                          horizontalLayout: fit
+                          verticalLayout: fit
+                          horizontalSpace: 3
+                          verticalSpace: 3
+                          reverseOrderIfOKAtLeft: true
+                          component: 
+                         (SpecCollection
+                            collection: (
+                             (ActionButtonSpec
+                                label: 'Cancel'
+                                name: 'cancelButton'
+                                activeHelpKey: commitCancel
+                                tabable: true
+                                model: cancel
+                                enableChannel: modifiedChannel
+                                extent: (Point 201 24)
                               )
-                             #(#ActionButtonSpec
-                                #label: 'OK'
-                                #name: 'acceptButton'
-                                #activeHelpKey: #commitOK
-                                #tabable: true
-                                #model: #accept
-                                #enableChannel: #modifiedChannel
-                                #extent: #(#Point 201 24)
+                             (ActionButtonSpec
+                                label: 'OK'
+                                name: 'acceptButton'
+                                activeHelpKey: commitOK
+                                tabable: true
+                                model: accept
+                                enableChannel: modifiedChannel
+                                extent: (Point 201 24)
                               )
                              )
                            
@@ -936,14 +935,14 @@
                  )
                
               )
-              #handles: #(#Any 0.318868 1.0)
+              handles: (Any 0.318868 1.0)
             )
-           #(#UISubSpecification
-              #name: 'infoBarSubSpec'
-              #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
-              #level: 1
-              #majorKey: #ToolApplicationModel
-              #minorKey: #windowSpecForInfoBar
+           (UISubSpecification
+              name: 'infoBarSubSpec'
+              layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0)
+              level: 1
+              majorKey: ToolApplicationModel
+              minorKey: windowSpecForInfoBar
             )
            )
          
@@ -3583,7 +3582,7 @@
 
     doBrowse ifTrue:[
         methods := selectorsToGenerateCode 
-                        collect:[:sel | self halt. cls compiledMethodAt:sel]
+                        collect:[:sel | cls compiledMethodAt:sel]
                         thenSelect:[:m | m notNil].
 
         UserPreferences systemBrowserClass