UIPainter.st
changeset 2531 dcfbf5a1e032
parent 2529 07c7e9ba97ee
child 2540 fd4d8522f02c
--- a/UIPainter.st	Mon May 18 12:10:10 2009 +0200
+++ b/UIPainter.st	Mon May 18 12:10:52 2009 +0200
@@ -1360,135 +1360,144 @@
         component: 
        (SpecCollection
           collection: (
-            (ViewSpec
-              name: 'ToolBar'
-              layout: (LayoutFrame 0 0 0 0 0 1 32 0)
-              visibilityChannel: toolBarVisibleHolder
-              component: 
-             (SpecCollection
-                collection: (
-                 (ActionButtonSpec
-                    label: 'hideToolBarIcon'
-                    name: 'HideToolBarButton'
-                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)
-                    activeHelpKey: hideToolBar
-                    hasCharacterOrientedLabel: false
-                    translateLabel: true
-                    model: hideToolbar
-                    postBuildCallback: hideToolBarButtonCreated:
-                  )
-                 (MenuPanelSpec
-                    name: 'menuToolbarView'
-                    layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
-                    visibilityChannel: toolBarVisibleHolder
-                    menu: menuToolbar
-                    textDefault: true
-                  )
-                 )
-              )
-            ) 
-
-            (ViewSpec
-              name: 'EditToolBar'
-              layout: (LayoutFrame 0 0 32 0 0 1 64 0)
-              visibilityChannel: editToolBarVisibleHolder
-              component: 
-             (SpecCollection
-                collection: (
-                 (ActionButtonSpec
-                    label: 'hideToolBarIcon'
-                    name: 'HideEditToolBarButton'
-                    layout: (LayoutFrame 0 0 0 0 13 0 0 1)
-                    activeHelpKey: hideToolBar
-                    hasCharacterOrientedLabel: false
-                    translateLabel: true
-                    model: hideEditToolbar
-                    postBuildCallback: hideToolBarButtonCreated:
-                  )
-                 (MenuPanelSpec
-                    name: 'EditToolBar1'
-                    layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
-                    visibilityChannel: editToolBarVisibleHolder
-                    menu: editToolbar
-                    textDefault: true
-                  )
-                 )
-
-              )
-            )
-
-           (VariableHorizontalPanelSpec
-              name: 'Painter'
-              layout: (LayoutFrame 0 0.0 64 0.0 0 1.0 -24 1.0)
-              level: 1
+           (ViewSpec
+              name: 'mainPanel'
+              layout: (LayoutFrame 0 0 0 0 0 1 -24 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: 'ToolBar'
+                    layout: (LayoutFrame 0 0 0 0 0 1 32 0)
+                    visibilityChannel: toolBarVisibleHolder
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (ActionButtonSpec
+                          label: 'hideToolBarIcon'
+                          name: 'HideToolBarButton'
+                          layout: (LayoutFrame 0 0 0 0 13 0 0 1)
+                          activeHelpKey: hideToolBar
+                          hasCharacterOrientedLabel: false
+                          translateLabel: true
+                          model: hideToolbar
+                          postBuildCallback: hideToolBarButtonCreated:
+                        )
+                       (MenuPanelSpec
+                          name: 'menuToolbarView'
+                          layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
+                          visibilityChannel: toolBarVisibleHolder
+                          menu: menuToolbar
+                          textDefault: true
+                        )
+                       )
+                     
+                    )
                   )
                  (ViewSpec
-                    name: 'specHolderView'
-                    level: 0
+                    name: 'EditToolBar'
+                    layout: (LayoutFrame 0 0 30 0 0 1 62 0)
+                    visibilityChannel: editToolBarVisibleHolder
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (ActionButtonSpec
+                          label: 'hideToolBarIcon'
+                          name: 'HideEditToolBarButton'
+                          layout: (LayoutFrame 0 0 0 0 13 0 0 1)
+                          activeHelpKey: hideToolBar
+                          hasCharacterOrientedLabel: false
+                          translateLabel: true
+                          model: hideEditToolbar
+                          postBuildCallback: hideToolBarButtonCreated:
+                        )
+                       (MenuPanelSpec
+                          name: 'EditToolBar1'
+                          layout: (LayoutFrame 13 0.0 0 0.0 0 1.0 0 1.0)
+                          visibilityChannel: editToolBarVisibleHolder
+                          menu: editToolbar
+                          textDefault: true
+                        )
+                       )
+                     
+                    )
+                  )
+                 (VariableHorizontalPanelSpec
+                    name: 'Painter'
+                    layout: (LayoutFrame 0 0.0 60 0.0 0 1.0 0 1.0)
+                    level: 1
                     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
+                       (ArbitraryComponentSpec
+                          name: 'treeView'
                           tabable: true
-                          model: tabModel
-                          menu: tabList
-                          translateLabel: true
-                          canvas: noteBookView
+                          menu: menuEdit
+                          hasHorizontalScrollBar: true
+                          hasVerticalScrollBar: true
+                          miniScrollerHorizontal: true
+                          miniScrollerVertical: true
+                          hasBorder: false
+                          component: treeView
                         )
-                       (HorizontalPanelViewSpec
-                          name: 'HorizontalPanel1'
-                          layout: (LayoutFrame 2 0 -26 1 -2 1 -2 1)
-                          horizontalLayout: fit
-                          verticalLayout: fit
-                          horizontalSpace: 3
-                          verticalSpace: 3
-                          reverseOrderIfOKAtLeft: true
+                       (ViewSpec
+                          name: 'specHolderView'
+                          level: 0
                           component: 
                          (SpecCollection
                             collection: (
-                             (ActionButtonSpec
-                                label: 'Cancel'
-                                name: 'cancelButton'
-                                activeHelpKey: commitCancel
+                             (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
                                 translateLabel: true
-                                tabable: true
-                                model: cancel
-                                enableChannel: modifiedChannel
-                                extent: (Point 201 24)
+                                canvas: noteBookView
                               )
-                             (ActionButtonSpec
-                                label: 'OK'
-                                name: 'acceptButton'
-                                activeHelpKey: commitOK
-                                translateLabel: true
-                                tabable: true
-                                model: accept
-                                enableChannel: modifiedChannel
-                                extent: (Point 201 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
+                                      translateLabel: true
+                                      tabable: true
+                                      model: cancel
+                                      enableChannel: modifiedChannel
+                                      extent: (Point 146 24)
+                                    )
+                                   (ActionButtonSpec
+                                      label: 'OK'
+                                      name: 'acceptButton'
+                                      activeHelpKey: commitOK
+                                      translateLabel: true
+                                      tabable: true
+                                      model: accept
+                                      enableChannel: modifiedChannel
+                                      extent: (Point 146 24)
+                                    )
+                                   )
+                                 
+                                )
                               )
                              )
                            
@@ -1497,11 +1506,11 @@
                        )
                      
                     )
+                    handles: (Any 0.5 1.0)
                   )
                  )
                
               )
-              handles: (Any 0.318868 1.0)
             )
            (UISubSpecification
               name: 'infoBarSubSpec'
@@ -1512,7 +1521,7 @@
             )
            )
          
-      )
+        )
       )
 ! !