UILayoutTool.st
changeset 1738 bdb5bedd2b57
parent 1726 7117789f3020
child 1781 d67090b1ad57
--- a/UILayoutTool.st	Thu Sep 04 20:59:42 2003 +0200
+++ b/UILayoutTool.st	Thu Sep 04 21:03:29 2003 +0200
@@ -195,148 +195,147 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #layoutOriginSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'UILayoutTool'
-          #name: 'UILayoutTool'
-          #min: #(#Point 10 10)
-          #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 12 22 357 204)
+     #(FullSpec
+        name: layoutOriginSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool'
+          name: 'UILayoutTool'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 359 228)
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#FramedBoxSpec
-              #label: 'Origin'
-              #name: 'FramedBox'
-              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 108 0)
-              #labelPosition: #topLeft
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#LabelSpec
-                    #label: 'Relative:'
-                    #name: 'labelRelative'
-                    #layout: #(#Point 103 6)
+        component: 
+       (SpecCollection
+          collection: (
+           (FramedBoxSpec
+              label: 'Origin'
+              name: 'FramedBox'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 108 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Relative:'
+                    name: 'labelRelative'
+                    layout: (Point 103 6)
                   )
-                 #(#LabelSpec
-                    #label: 'Offset:'
-                    #name: 'labelAbsolute'
-                    #layout: #(#Point 203 6)
+                 (LabelSpec
+                    label: 'Offset:'
+                    name: 'labelAbsolute'
+                    layout: (Point 203 6)
                   )
-                 #(#LabelSpec
-                    #label: 'Left:'
-                    #name: 'labelLeft'
-                    #layout: #(#AlignmentOrigin 68 0 27 0 1 0)
+                 (LabelSpec
+                    label: 'Left:'
+                    name: 'labelLeft'
+                    layout: (AlignmentOrigin 68 0 27 0 1 0)
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageFractX'
-                    #name: 'actionRelativeLeft'
-                    #layout: #(#LayoutFrame 77 0 24 0 99 0 46 0)
-                    #activeHelpKey: #makeLeftRelative
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #relativeLeft
+                 (ActionButtonSpec
+                    label: 'imageFractX'
+                    name: 'actionRelativeLeft'
+                    layout: (LayoutFrame 77 0 24 0 99 0 46 0)
+                    activeHelpKey: makeLeftRelative
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: relativeLeft
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldLeftFraction'
-                    #layout: #(#LayoutFrame 103 0 24 0 153 0 46 0)
-                    #activeHelpKey: #leftRelative
-                    #tabable: true
-                    #model: #leftFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldLeftFraction'
+                    layout: (LayoutFrame 103 0 24 0 153 0 46 0)
+                    activeHelpKey: leftRelative
+                    tabable: true
+                    model: leftFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsXFromRight'
-                    #name: 'actionRightRelativeLeft'
-                    #layout: #(#LayoutFrame 257 0 24 0 279 0 46 0)
-                    #activeHelpKey: #makeLeftRelativeFromRight
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #rightRelativeLeft
+                 (ActionButtonSpec
+                    label: 'imageAbsXFromRight'
+                    name: 'actionRightRelativeLeft'
+                    layout: (LayoutFrame 257 0 24 0 279 0 46 0)
+                    activeHelpKey: makeLeftRelativeFromRight
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: rightRelativeLeft
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldLeftOffset'
-                    #layout: #(#LayoutFrame 203 0 24 0 253 0 46 0)
-                    #activeHelpKey: #leftAbsolute
-                    #tabable: true
-                    #model: #leftOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldLeftOffset'
+                    layout: (LayoutFrame 203 0 24 0 253 0 46 0)
+                    activeHelpKey: leftAbsolute
+                    tabable: true
+                    model: leftOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsX'
-                    #name: 'actionAbsoluteLeft'
-                    #layout: #(#LayoutFrame 178 0 24 0 200 0 46 0)
-                    #activeHelpKey: #makeLeftAbsolute
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #absoluteLeft
+                 (ActionButtonSpec
+                    label: 'imageAbsX'
+                    name: 'actionAbsoluteLeft'
+                    layout: (LayoutFrame 178 0 24 0 200 0 46 0)
+                    activeHelpKey: makeLeftAbsolute
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: absoluteLeft
                   )
-                 #(#LabelSpec
-                    #label: 'Top:'
-                    #name: 'labelTop'
-                    #layout: #(#AlignmentOrigin 68 0 54 0 1 0)
+                 (LabelSpec
+                    label: 'Top:'
+                    name: 'labelTop'
+                    layout: (AlignmentOrigin 68 0 54 0 1 0)
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageFractY'
-                    #name: 'actionRelativeTop'
-                    #layout: #(#LayoutFrame 77 0 51 0 99 0 73 0)
-                    #activeHelpKey: #makeTopRelative
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #relativeTop
+                 (ActionButtonSpec
+                    label: 'imageFractY'
+                    name: 'actionRelativeTop'
+                    layout: (LayoutFrame 77 0 51 0 99 0 73 0)
+                    activeHelpKey: makeTopRelative
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: relativeTop
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldTopFraction'
-                    #layout: #(#LayoutFrame 103 0 51 0 153 0 73 0)
-                    #activeHelpKey: #topRelative
-                    #tabable: true
-                    #model: #topFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldTopFraction'
+                    layout: (LayoutFrame 103 0 51 0 153 0 73 0)
+                    activeHelpKey: topRelative
+                    tabable: true
+                    model: topFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsYFromBottom'
-                    #name: 'actionBottomRelativeTop'
-                    #layout: #(#LayoutFrame 257 0 51 0 279 0 73 0)
-                    #activeHelpKey: #makeTopRelativeFromBottom
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #bottomRelativeTop
+                 (ActionButtonSpec
+                    label: 'imageAbsYFromBottom'
+                    name: 'actionBottomRelativeTop'
+                    layout: (LayoutFrame 257 0 51 0 279 0 73 0)
+                    activeHelpKey: makeTopRelativeFromBottom
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: bottomRelativeTop
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldTopOffset'
-                    #layout: #(#LayoutFrame 203 0 51 0 253 0 73 0)
-                    #activeHelpKey: #topAbsolute
-                    #tabable: true
-                    #model: #topOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldTopOffset'
+                    layout: (LayoutFrame 203 0 51 0 253 0 73 0)
+                    activeHelpKey: topAbsolute
+                    tabable: true
+                    model: topOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsY'
-                    #name: 'actionAbsoluteTop'
-                    #layout: #(#LayoutFrame 178 0 51 0 200 0 73 0)
-                    #activeHelpKey: #makeTopAbsolute
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #absoluteTop
+                 (ActionButtonSpec
+                    label: 'imageAbsY'
+                    name: 'actionAbsoluteTop'
+                    layout: (LayoutFrame 178 0 51 0 200 0 73 0)
+                    activeHelpKey: makeTopAbsolute
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: absoluteTop
                   )
                  )
                
@@ -362,72 +361,69 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool'
-              #layout: #(#LayoutFrame 216 0 173 0 493 0 296 0)
-              #label: 'UILayoutTool'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 216 173 494 297)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#FramedBoxSpec
-                    #name: 'FramedBox'
-                    #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 94 0)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#LabelSpec
-                              #name: 'labelOriginY'
-                              #layout: #(#AlignmentOrigin 83 0 14 0 1 0)
-                              #label: 'Left:'
-                          )
-                           #(#InputFieldSpec
-                              #name: 'fieldOriginX'
-                              #layout: #(#LayoutFrame 85 0 11 0 135 0 33 0)
-                              #activeHelpKey: #originX
-                              #tabable: true
-                              #model: #leftOffset
-                              #group: #inputGroup
-                              #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                          )
-                           #(#LabelSpec
-                              #name: 'labelOriginX'
-                              #layout: #(#AlignmentOrigin 83 0 39 0 1 0)
-                              #label: 'Top:'
-                          )
-                           #(#InputFieldSpec
-                              #name: 'fieldOriginY'
-                              #layout: #(#LayoutFrame 85 0 36 0 135 0 58 0)
-                              #activeHelpKey: #originY
-                              #tabable: true
-                              #model: #topOffset
-                              #group: #inputGroup
-                              #type: #numberOrNil
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                          )
-                        )
-                    )
-                    #label: 'Origin'
-                    #labelPosition: #topLeft
-                )
+    ^ 
+     #(FullSpec
+        name: layoutPointSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool'
+          name: 'UILayoutTool'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 292 170)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (FramedBoxSpec
+              label: 'Origin'
+              name: 'FramedBox'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 94 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Left:'
+                    name: 'labelOriginY'
+                    layout: (AlignmentOrigin 83 0 14 0 1 0)
+                  )
+                 (InputFieldSpec
+                    name: 'fieldOriginX'
+                    layout: (LayoutFrame 85 0 11 0 135 0 33 0)
+                    activeHelpKey: originX
+                    tabable: true
+                    model: leftOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
+                 (LabelSpec
+                    label: 'Top:'
+                    name: 'labelOriginX'
+                    layout: (AlignmentOrigin 83 0 39 0 1 0)
+                  )
+                 (InputFieldSpec
+                    name: 'fieldOriginY'
+                    layout: (LayoutFrame 85 0 36 0 135 0 58 0)
+                    activeHelpKey: originY
+                    tabable: true
+                    model: topOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
+                 )
+               
               )
-          )
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 13.8.1998 / 19:52:15 / cg"
 !
 
 slices
@@ -458,33 +454,32 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'UILayoutTool'
-          #name: 'UILayoutTool'
-          #min: #(#Point 10 10)
-          #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 906 143 1248 442)
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool'
+          name: 'UILayoutTool'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 356 345)
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#NoteBookViewSpec
-              #name: 'NoteBook'
-              #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-              #activeHelpKey: #layoutTool
-              #enableChannel: #enableChannel
-              #tabable: true
-              #model: #noteBookModel
-              #menu: #noteBookList
-              #direction: #bottom
-              #canvas: #layoutCanvasHolder
-              #tabTopMargin: 0
-              #tabBottomMargin: 0
-              #keepCanvasAlive: true
-              #tabLevel: 0
+        component: 
+       (SpecCollection
+          collection: (
+           (NoteBookViewSpec
+              name: 'NoteBook'
+              layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+              activeHelpKey: layoutTool
+              enableChannel: enableChannel
+              tabable: true
+              model: noteBookModel
+              menu: noteBookList
+              direction: bottom
+              canvas: layoutCanvasHolder
+              tabTopMargin: 0
+              tabBottomMargin: 0
+              keepCanvasAlive: true
+              tabLevel: 0
             )
            )
          
@@ -1112,195 +1107,150 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'UILayoutTool-AlignmentOrigin'
-          #name: 'UILayoutTool-AlignmentOrigin'
-          #min: #(#Point 10 10)
-          #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 42 231 447 438)
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-AlignmentOrigin'
+          name: 'UILayoutTool-AlignmentOrigin'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 419 253)
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#UISubSpecification
-              #name: 'layoutOriginSpec'
-              #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 111 0)
-              #majorKey: #UILayoutTool
-              #minorKey: #layoutOriginSpec
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'layoutOriginSpec'
+              layout: (LayoutFrame 1 0.0 6 0 0 1.0 111 0)
+              majorKey: UILayoutTool
+              minorKey: layoutOriginSpec
             )
-           #(#FramedBoxSpec
-              #label: 'Alignment'
-              #name: 'FramedBox'
-              #layout: #(#LayoutFrame 1 0.0 113 0 0 1.0 208 0)
-              #labelPosition: #topLeft
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#LabelSpec
-                    #label: 'Horizontal:'
-                    #name: 'alignHLabel'
-                    #layout: #(#AlignmentOrigin 88 0 17 0 1 0)
-                    #adjust: #right
+           (FramedBoxSpec
+              label: 'Alignment'
+              name: 'FramedBox'
+              layout: (LayoutFrame 1 0.0 113 0 0 1.0 208 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Horizontal:'
+                    name: 'alignHLabel'
+                    layout: (AlignmentOrigin 88 0 17 0 1 0)
+                    adjust: right
                   )
-                 #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'leftAlignmentFractionField'
-                    #layout: #(#LayoutFrame 90 0 14 0 147 0 36 0)
-                    #activeHelpKey: #alignHorizontal
-                    #tabable: true
-                    #model: #leftAlignmentFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'leftAlignmentFractionField'
+                    layout: (LayoutFrame 90 0 14 0 147 0 36 0)
+                    activeHelpKey: alignHorizontal
+                    tabable: true
+                    model: leftAlignmentFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#LabelSpec
-                    #label: 'Vertical:'
-                    #name: 'alignVLabel'
-                    #layout: #(#AlignmentOrigin 88 0 43 0 1 0)
-                    #adjust: #right
+                 (LabelSpec
+                    label: 'Vertical:'
+                    name: 'alignVLabel'
+                    layout: (AlignmentOrigin 88 0 43 0 1 0)
+                    adjust: right
                   )
-                 #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'topAlignmentFractionField'
-                    #layout: #(#LayoutFrame 90 0 40 0 147 0 62 0)
-                    #activeHelpKey: #alignVertical
-                    #tabable: true
-                    #model: #topAlignmentFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'topAlignmentFractionField'
+                    layout: (LayoutFrame 90 0 40 0 147 0 62 0)
+                    activeHelpKey: alignVertical
+                    tabable: true
+                    model: topAlignmentFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#DividerSpec
-                    #name: 'separator1'
-                    #layout: #(#LayoutFrame 204 0 19 0 245 0 22 0)
-                  )
-                 #(#DividerSpec
-                    #name: 'separator2'
-                    #layout: #(#LayoutFrame 204 0 55 0 245 0 58 0)
+                 (DividerSpec
+                    name: 'separator1'
+                    layout: (LayoutFrame 204 0 19 0 245 0 22 0)
                   )
-                 #(#DividerSpec
-                    #name: 'separator3'
-                    #layout: #(#LayoutFrame 196 0 28 0 199 0 50 0)
-                    #orientation: #vertical
-                  )
-                 #(#DividerSpec
-                    #name: 'separator4'
-                    #layout: #(#LayoutFrame 250 0 28 0 253 0 50 0)
-                    #orientation: #vertical
+                 (DividerSpec
+                    name: 'separator2'
+                    layout: (LayoutFrame 204 0 55 0 245 0 58 0)
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignTopLeft'
-                    #layout: #(#LayoutFrame 190 0 14 0 204 0 28 0)
-                    #activeHelpKey: #alignTopLeft
-                    #tabable: true
-                    #model: #alignTopLeft
+                 (DividerSpec
+                    name: 'separator3'
+                    layout: (LayoutFrame 196 0 28 0 199 0 50 0)
+                    orientation: vertical
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignTopCenter'
-                    #layout: #(#LayoutFrame 217 0 14 0 231 0 28 0)
-                    #activeHelpKey: #alignTopCenter
-                    #tabable: true
-                    #model: #alignTopCenter
+                 (DividerSpec
+                    name: 'separator4'
+                    layout: (LayoutFrame 250 0 28 0 253 0 50 0)
+                    orientation: vertical
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignTopRight'
-                    #layout: #(#LayoutFrame 245 0 14 0 259 0 28 0)
-                    #activeHelpKey: #alignTopRight
-                    #tabable: true
-                    #model: #alignTopRight
+                 (ActionButtonSpec
+                    name: 'alignTopLeft'
+                    layout: (LayoutFrame 190 0 14 0 204 0 28 0)
+                    activeHelpKey: alignTopLeft
+                    tabable: true
+                    model: alignTopLeft
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignLeftCenter'
-                    #layout: #(#LayoutFrame 190 0 32 0 204 0 46 0)
-                    #activeHelpKey: #alignLeftCenter
-                    #tabable: true
-                    #model: #alignLeftCenter
+                 (ActionButtonSpec
+                    name: 'alignTopCenter'
+                    layout: (LayoutFrame 217 0 14 0 231 0 28 0)
+                    activeHelpKey: alignTopCenter
+                    tabable: true
+                    model: alignTopCenter
+                  )
+                 (ActionButtonSpec
+                    name: 'alignTopRight'
+                    layout: (LayoutFrame 245 0 14 0 259 0 28 0)
+                    activeHelpKey: alignTopRight
+                    tabable: true
+                    model: alignTopRight
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignCenter'
-                    #layout: #(#LayoutFrame 217 0 32 0 231 0 46 0)
-                    #activeHelpKey: #alignCenter
-                    #tabable: true
-                    #model: #alignCenter
+                 (ActionButtonSpec
+                    name: 'alignLeftCenter'
+                    layout: (LayoutFrame 190 0 32 0 204 0 46 0)
+                    activeHelpKey: alignLeftCenter
+                    tabable: true
+                    model: alignLeftCenter
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignRightCenter'
-                    #layout: #(#LayoutFrame 245 0 32 0 259 0 46 0)
-                    #activeHelpKey: #alignRightCenter
-                    #tabable: true
-                    #model: #alignRightCenter
+                 (ActionButtonSpec
+                    name: 'alignCenter'
+                    layout: (LayoutFrame 217 0 32 0 231 0 46 0)
+                    activeHelpKey: alignCenter
+                    tabable: true
+                    model: alignCenter
+                  )
+                 (ActionButtonSpec
+                    name: 'alignRightCenter'
+                    layout: (LayoutFrame 245 0 32 0 259 0 46 0)
+                    activeHelpKey: alignRightCenter
+                    tabable: true
+                    model: alignRightCenter
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignBottomLeft'
-                    #layout: #(#LayoutFrame 190 0 50 0 204 0 64 0)
-                    #activeHelpKey: #alignBottomLeft
-                    #tabable: true
-                    #model: #alignBottomLeft
+                 (ActionButtonSpec
+                    name: 'alignBottomLeft'
+                    layout: (LayoutFrame 190 0 50 0 204 0 64 0)
+                    activeHelpKey: alignBottomLeft
+                    tabable: true
+                    model: alignBottomLeft
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignBottomCenter'
-                    #layout: #(#LayoutFrame 217 0 50 0 231 0 64 0)
-                    #activeHelpKey: #alignBottomCenter
-                    #tabable: true
-                    #model: #alignBottomCenter
+                 (ActionButtonSpec
+                    name: 'alignBottomCenter'
+                    layout: (LayoutFrame 217 0 50 0 231 0 64 0)
+                    activeHelpKey: alignBottomCenter
+                    tabable: true
+                    model: alignBottomCenter
                   )
-                 #(#ActionButtonSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'alignBottomRight'
-                    #layout: #(#LayoutFrame 245 0 50 0 259 0 64 0)
-                    #activeHelpKey: #alignBottomRight
-                    #tabable: true
-                    #model: #alignBottomRight
+                 (ActionButtonSpec
+                    name: 'alignBottomRight'
+                    layout: (LayoutFrame 245 0 50 0 259 0 64 0)
+                    activeHelpKey: alignBottomRight
+                    tabable: true
+                    model: alignBottomRight
                   )
                  )
                
@@ -1503,87 +1453,74 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'UILayoutTool-Extent'
-          #name: 'UILayoutTool-Extent'
-          #min: #(#Point 10 10)
-          #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 506 24 832 173)
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-Extent'
+          name: 'UILayoutTool-Extent'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 340 195)
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#FramedBoxSpec
-              #label: 'Extent'
-              #name: 'FramedBox'
-              #layout: #(#LayoutFrame 0 0.0 6 0.0 0 1.0 137 0)
-              #labelPosition: #topLeft
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#LabelSpec
-                    #label: 'Width:'
-                    #name: 'labelWidth'
-                    #layout: #(#AlignmentOrigin 89 0 24 0 1 0.5)
-                    #adjust: #right
+        component: 
+       (SpecCollection
+          collection: (
+           (FramedBoxSpec
+              label: 'Extent'
+              name: 'FramedBox'
+              layout: (LayoutFrame 0 0.0 6 0.0 0 1.0 137 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Width:'
+                    name: 'labelWidth'
+                    layout: (AlignmentOrigin 89 0 24 0 1 0.5)
+                    adjust: right
                   )
-                 #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'fieldLeftOffset'
-                    #layout: #(#LayoutFrame 90 0 13 0 140 0 35 0)
-                    #activeHelpKey: #hrzExtent
-                    #enableChannel: #notUsingDefaultExtent
-                    #tabable: true
-                    #model: #leftOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldLeftOffset'
+                    layout: (LayoutFrame 90 0 13 0 140 0 35 0)
+                    activeHelpKey: hrzExtent
+                    enableChannel: notUsingDefaultExtent
+                    tabable: true
+                    model: leftOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#LabelSpec
-                    #label: 'Height:'
-                    #name: 'labelHeight'
-                    #layout: #(#AlignmentOrigin 89 0 49 0 1 0.5)
-                    #adjust: #right
+                 (LabelSpec
+                    label: 'Height:'
+                    name: 'labelHeight'
+                    layout: (AlignmentOrigin 89 0 49 0 1 0.5)
+                    adjust: right
                   )
-                 #(#InputFieldSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #name: 'fieldRightOffset'
-                    #layout: #(#LayoutFrame 90 0 38 0 140 0 60 0)
-                    #activeHelpKey: #vrtExtent
-                    #enableChannel: #notUsingDefaultExtent
-                    #tabable: true
-                    #model: #rightOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldRightOffset'
+                    layout: (LayoutFrame 90 0 38 0 140 0 60 0)
+                    activeHelpKey: vrtExtent
+                    enableChannel: notUsingDefaultExtent
+                    tabable: true
+                    model: rightOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#CheckBoxSpec
-                    #attributes: 
-                   #(#tabable
-                      true
-                    )
-                    #label: 'Use Widgets Default Extent'
-                    #name: 'useDefaultExtentCheckBox'
-                    #layout: #(#Point 5 74)
-                    #enableChannel: #defaultExtentEnabled
-                    #tabable: true
-                    #model: #useDefaultExtent
-                    #translateLabel: true
+                 (CheckBoxSpec
+                    label: 'Use Widgets Default Extent'
+                    name: 'useDefaultExtentCheckBox'
+                    layout: (Point 5 74)
+                    enableChannel: defaultExtentEnabled
+                    tabable: true
+                    model: useDefaultExtent
+                    translateLabel: true
                   )
                  )
                
@@ -2092,169 +2029,168 @@
     <resource: #canvas>
 
     ^ 
-     #(#FullSpec
-        #name: #windowSpec
-        #window: 
-       #(#WindowSpec
-          #label: 'UILayoutTool-LayoutFrame'
-          #name: 'UILayoutTool-LayoutFrame'
-          #min: #(#Point 10 10)
-          #max: #(#Point 1152 900)
-          #bounds: #(#Rectangle 16 46 415 349)
-          #forceRecursiveBackground: false
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-LayoutFrame'
+          name: 'UILayoutTool-LayoutFrame'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 413 349)
+          forceRecursiveBackground: false
         )
-        #component: 
-       #(#SpecCollection
-          #collection: #(
-           #(#UISubSpecification
-              #name: 'layoutOriginSpec'
-              #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0)
-              #majorKey: #UILayoutTool
-              #minorKey: #layoutOriginSpec
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'layoutOriginSpec'
+              layout: (LayoutFrame 1 0.0 6 0 0 1.0 110 0)
+              majorKey: UILayoutTool
+              minorKey: layoutOriginSpec
             )
-           #(#FramedBoxSpec
-              #label: 'Corner'
-              #name: 'FramedBox'
-              #layout: #(#LayoutFrame 1 0.0 113 0 0 1.0 214 0)
-              #labelPosition: #topLeft
-              #component: 
-             #(#SpecCollection
-                #collection: #(
-                 #(#LabelSpec
-                    #label: 'Right:'
-                    #name: 'labelRight'
-                    #layout: #(#AlignmentOrigin 68 0 25 0 1 0.5)
+           (FramedBoxSpec
+              label: 'Corner'
+              name: 'FramedBox'
+              layout: (LayoutFrame 1 0.0 113 0 0 1.0 214 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Right:'
+                    name: 'labelRight'
+                    layout: (AlignmentOrigin 68 0 25 0 1 0.5)
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageFractX'
-                    #name: 'actionRelativeRight'
-                    #layout: #(#LayoutFrame 78 0 14 0 100 0 36 0)
-                    #activeHelpKey: #makeRightRelative
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #relativeRight
+                 (ActionButtonSpec
+                    label: 'imageFractX'
+                    name: 'actionRelativeRight'
+                    layout: (LayoutFrame 78 0 14 0 100 0 36 0)
+                    activeHelpKey: makeRightRelative
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: relativeRight
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldRightFraction'
-                    #layout: #(#LayoutFrame 103 0 14 0 153 0 36 0)
-                    #activeHelpKey: #rightRelative
-                    #tabable: true
-                    #model: #rightFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldRightFraction'
+                    layout: (LayoutFrame 103 0 14 0 153 0 36 0)
+                    activeHelpKey: rightRelative
+                    tabable: true
+                    model: rightFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsXFromRight'
-                    #name: 'actionRightRelativeRight'
-                    #layout: #(#LayoutFrame 257 0 14 0 279 0 36 0)
-                    #activeHelpKey: #makeRightRelativeFromRight
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #rightRelativeRight
+                 (ActionButtonSpec
+                    label: 'imageAbsXFromRight'
+                    name: 'actionRightRelativeRight'
+                    layout: (LayoutFrame 257 0 14 0 279 0 36 0)
+                    activeHelpKey: makeRightRelativeFromRight
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: rightRelativeRight
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldRightOffset'
-                    #layout: #(#LayoutFrame 203 0 14 0 253 0 36 0)
-                    #activeHelpKey: #rightAbsolute
-                    #tabable: true
-                    #model: #rightOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldRightOffset'
+                    layout: (LayoutFrame 203 0 14 0 253 0 36 0)
+                    activeHelpKey: rightAbsolute
+                    tabable: true
+                    model: rightOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsX'
-                    #name: 'actionAbsoluteRight'
-                    #layout: #(#LayoutFrame 178 0 14 0 200 0 36 0)
-                    #activeHelpKey: #makeRightAbsolute
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #absoluteRight
+                 (ActionButtonSpec
+                    label: 'imageAbsX'
+                    name: 'actionAbsoluteRight'
+                    layout: (LayoutFrame 178 0 14 0 200 0 36 0)
+                    activeHelpKey: makeRightAbsolute
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: absoluteRight
                   )
-                 #(#LabelSpec
-                    #label: 'Bottom:'
-                    #name: 'labelBottom'
-                    #layout: #(#AlignmentOrigin 68 0 53 0 1 0.5)
+                 (LabelSpec
+                    label: 'Bottom:'
+                    name: 'labelBottom'
+                    layout: (AlignmentOrigin 68 0 53 0 1 0.5)
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageFractY'
-                    #name: 'actionRelativeBottom'
-                    #layout: #(#LayoutFrame 78 0 42 0 100 0 64 0)
-                    #activeHelpKey: #makeBottomRelative
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #relativeBottom
+                 (ActionButtonSpec
+                    label: 'imageFractY'
+                    name: 'actionRelativeBottom'
+                    layout: (LayoutFrame 78 0 42 0 100 0 64 0)
+                    activeHelpKey: makeBottomRelative
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: relativeBottom
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldBottomFraction'
-                    #layout: #(#LayoutFrame 103 0 42 0 153 0 64 0)
-                    #activeHelpKey: #bottomRelative
-                    #tabable: true
-                    #model: #bottomFraction
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldBottomFraction'
+                    layout: (LayoutFrame 103 0 42 0 153 0 64 0)
+                    activeHelpKey: bottomRelative
+                    tabable: true
+                    model: bottomFraction
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsYFromBottom'
-                    #name: 'actionBottomRelativeBottom'
-                    #layout: #(#LayoutFrame 257 0 42 0 279 0 64 0)
-                    #activeHelpKey: #makeBottomRelativeFromBottom
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #bottomRelativeBottom
+                 (ActionButtonSpec
+                    label: 'imageAbsYFromBottom'
+                    name: 'actionBottomRelativeBottom'
+                    layout: (LayoutFrame 257 0 42 0 279 0 64 0)
+                    activeHelpKey: makeBottomRelativeFromBottom
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: bottomRelativeBottom
                   )
-                 #(#InputFieldSpec
-                    #name: 'fieldBottomOffset'
-                    #layout: #(#LayoutFrame 203 0 42 0 253 0 64 0)
-                    #activeHelpKey: #bottomAbsolute
-                    #tabable: true
-                    #model: #bottomOffset
-                    #group: #inputGroup
-                    #type: #numberOrNil
-                    #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                    #acceptOnPointerLeave: false
+                 (InputFieldSpec
+                    name: 'fieldBottomOffset'
+                    layout: (LayoutFrame 203 0 42 0 253 0 64 0)
+                    activeHelpKey: bottomAbsolute
+                    tabable: true
+                    model: bottomOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
                   )
-                 #(#ActionButtonSpec
-                    #label: 'imageAbsY'
-                    #name: 'actionAbsoluteBottom'
-                    #layout: #(#LayoutFrame 178 0 42 0 200 0 64 0)
-                    #activeHelpKey: #makeBottomAbsolute
-                    #hasCharacterOrientedLabel: false
-                    #tabable: true
-                    #model: #absoluteBottom
+                 (ActionButtonSpec
+                    label: 'imageAbsY'
+                    name: 'actionAbsoluteBottom'
+                    layout: (LayoutFrame 178 0 42 0 200 0 64 0)
+                    activeHelpKey: makeBottomAbsolute
+                    hasCharacterOrientedLabel: false
+                    tabable: true
+                    model: absoluteBottom
                   )
                  )
                
               )
             )
-           #(#MenuPanelSpec
-              #name: 'commonLayoutToolBar1'
-              #layout: #(#LayoutFrame 6 0.0 215 0 -4 1.0 247 0)
-              #level: 0
-              #tabable: true
-              #menu: #commonFrameLayoutsMenu1
-              #textDefault: true
+           (MenuPanelSpec
+              name: 'commonLayoutToolBar1'
+              layout: (LayoutFrame 6 0.0 215 0 -4 1.0 247 0)
+              level: 0
+              tabable: true
+              menu: commonFrameLayoutsMenu1
+              textDefault: true
             )
-           #(#MenuPanelSpec
-              #name: 'commonLayoutToolBar2'
-              #layout: #(#LayoutFrame 6 0.0 255 0 -4 1.0 287 0)
-              #level: 0
-              #tabable: true
-              #menu: #commonFrameLayoutsMenu2
-              #textDefault: true
+           (MenuPanelSpec
+              name: 'commonLayoutToolBar2'
+              layout: (LayoutFrame 6 0.0 255 0 -4 1.0 287 0)
+              level: 0
+              tabable: true
+              menu: commonFrameLayoutsMenu2
+              textDefault: true
             )
            )
          
@@ -2697,31 +2633,28 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool-LayoutOrigin'
-              #layout: #(#LayoutFrame 290 0 420 0 647 0 565 0)
-              #label: 'UILayoutTool-LayoutOrigin'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 290 420 648 566)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#UISubSpecification
-                    #name: 'layoutOriginSpec'
-                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0)
-                    #majorKey: #UILayoutTool
-                    #minorKey: #layoutOriginSpec
-                )
-              )
-          )
+    ^ 
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-LayoutOrigin'
+          name: 'UILayoutTool-LayoutOrigin'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 372 192)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'layoutOriginSpec'
+              layout: (LayoutFrame 1 0.0 6 0 0 1.0 110 0)
+              majorKey: UILayoutTool
+              minorKey: layoutOriginSpec
+            )
+           )
+         
+        )
       )
 ! !
 
@@ -2775,31 +2708,28 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool-Point'
-              #layout: #(#LayoutFrame 324 0 410 0 618 0 547 0)
-              #label: 'UILayoutTool-Point'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 324 410 619 548)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#UISubSpecification
-                    #name: 'layoutPointSpec'
-                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 100 0)
-                    #majorKey: #UILayoutTool
-                    #minorKey: #layoutPointSpec
-                )
-              )
-          )
+    ^ 
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-Point'
+          name: 'UILayoutTool-Point'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 309 184)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'layoutPointSpec'
+              layout: (LayoutFrame 1 0.0 6 0 0 1.0 100 0)
+              majorKey: UILayoutTool
+              minorKey: layoutPointSpec
+            )
+           )
+         
+        )
       )
 ! !
 
@@ -2843,82 +2773,79 @@
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'UILayoutTool-Rectangle'
-              #layout: #(#LayoutFrame 291 0 130 0 632 0 328 0)
-              #label: 'UILayoutTool-Rectangle'
-              #min: #(#Point 10 10)
-              #max: #(#Point 1152 900)
-              #bounds: #(#Rectangle 291 130 633 329)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#UISubSpecification
-                    #name: 'subSpecification'
-                    #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 96 0)
-                    #majorKey: #UILayoutTool
-                    #minorKey: #layoutPointSpec
-                )
-                 #(#FramedBoxSpec
-                    #name: 'FramedBox'
-                    #layout: #(#LayoutFrame 1 0.0 99 0 0 1.0 194 0)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#LabelSpec
-                              #name: 'labelCornerY'
-                              #layout: #(#AlignmentOrigin 83 0 16 0 1 0)
-                              #label: 'Right:'
-                              #adjust: #left
-                          )
-                           #(#InputFieldSpec
-                              #name: 'fieldCornerX'
-                              #layout: #(#LayoutFrame 85 0 13 0 135 0 35 0)
-                              #activeHelpKey: #cornerX
-                              #tabable: true
-                              #model: #rightOffset
-                              #group: #inputGroup
-                              #type: #numberOrNil
-                              #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                          )
-                           #(#LabelSpec
-                              #name: 'labelCornerX'
-                              #layout: #(#AlignmentOrigin 83 0 41 0 1 0)
-                              #label: 'Bottom:'
-                              #adjust: #left
-                          )
-                           #(#InputFieldSpec
-                              #name: 'fieldCornerY'
-                              #layout: #(#LayoutFrame 85 0 38 0 135 0 60 0)
-                              #activeHelpKey: #cornerY
-                              #tabable: true
-                              #model: #bottomOffset
-                              #group: #inputGroup
-                              #type: #numberOrNil
-                              #acceptOnLostFocus: true
-                    #acceptChannel: #acceptChannel
-                    #modifiedChannel: #modifiedChannel
-                          )
-                        )
-                    )
-                    #label: 'Corner'
-                    #labelPosition: #topLeft
-                )
+    ^ 
+     #(FullSpec
+        name: windowSpec
+        window: 
+       (WindowSpec
+          label: 'UILayoutTool-Rectangle'
+          name: 'UILayoutTool-Rectangle'
+          min: (Point 10 10)
+          bounds: (Rectangle 14 46 356 245)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (UISubSpecification
+              name: 'subSpecification'
+              layout: (LayoutFrame 1 0.0 6 0 0 1.0 96 0)
+              majorKey: UILayoutTool
+              minorKey: layoutPointSpec
+            )
+           (FramedBoxSpec
+              label: 'Corner'
+              name: 'FramedBox'
+              layout: (LayoutFrame 1 0.0 99 0 0 1.0 194 0)
+              labelPosition: topLeft
+              component: 
+             (SpecCollection
+                collection: (
+                 (LabelSpec
+                    label: 'Right:'
+                    name: 'labelCornerY'
+                    layout: (AlignmentOrigin 83 0 16 0 1 0)
+                    adjust: left
+                  )
+                 (InputFieldSpec
+                    name: 'fieldCornerX'
+                    layout: (LayoutFrame 85 0 13 0 135 0 35 0)
+                    activeHelpKey: cornerX
+                    tabable: true
+                    model: rightOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
+                 (LabelSpec
+                    label: 'Bottom:'
+                    name: 'labelCornerX'
+                    layout: (AlignmentOrigin 83 0 41 0 1 0)
+                    adjust: left
+                  )
+                 (InputFieldSpec
+                    name: 'fieldCornerY'
+                    layout: (LayoutFrame 85 0 38 0 135 0 60 0)
+                    activeHelpKey: cornerY
+                    tabable: true
+                    model: bottomOffset
+                    group: inputGroup
+                    type: numberOrNil
+                    acceptOnLostFocus: true
+                    acceptChannel: acceptChannel
+                    modifiedChannel: modifiedChannel
+                    acceptOnPointerLeave: false
+                  )
+                 )
+               
               )
-          )
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 13.8.1998 / 19:59:16 / cg"
 ! !
 
 !UILayoutTool::Rectangle methodsFor:'accessing'!