UILayoutTool.st
changeset 259 83440731fc3d
parent 252 c7ee94ff51c1
child 260 bf00ccde13f9
--- a/UILayoutTool.st	Mon Jul 28 13:14:17 1997 +0200
+++ b/UILayoutTool.st	Mon Jul 28 14:13:05 1997 +0200
@@ -168,14 +168,14 @@
      handle the specification if its corrupted."
 
     "
-     UIPainter new openOnClass:self andSelector:#layoutOriginSpec
-     self new openInterface:#layoutOriginSpec
+     UIPainter new openOnClass:UILayoutTool andSelector:#layoutOriginSpec
+     UILayoutTool new openInterface:#layoutOriginSpec
     "
 
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
@@ -205,7 +205,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldLeftFraction'
-                    #'layout:' #(#LayoutFrame 57 0 44 0 114 0 62 0)
+                    #'layout:' #(#LayoutFrame 57 0 44 0 114 0 66 0)
                     #'activeHelpKey:' #leftRelative
                     #'tabable:' true
                     #'model:' #leftFraction
@@ -219,7 +219,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldLeftOffset'
-                    #'layout:' #(#LayoutFrame 154 0 44 0 212 0 62 0)
+                    #'layout:' #(#LayoutFrame 154 0 44 0 212 0 66 0)
                     #'activeHelpKey:' #leftAbsolute
                     #'tabable:' true
                     #'model:' #leftOffset
@@ -238,7 +238,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldTopFraction'
-                    #'layout:' #(#LayoutFrame 57 0 71 0 114 0 89 0)
+                    #'layout:' #(#LayoutFrame 57 0 71 0 114 0 93 0)
                     #'activeHelpKey:' #topRelative
                     #'tabable:' true
                     #'model:' #topFraction
@@ -252,7 +252,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldTopOffset'
-                    #'layout:' #(#LayoutFrame 154 0 71 0 212 0 89 0)
+                    #'layout:' #(#LayoutFrame 154 0 71 0 212 0 93 0)
                     #'activeHelpKey:' #topAbsolute
                     #'tabable:' true
                     #'model:' #topOffset
@@ -268,6 +268,7 @@
           )
       )
 
+    "Modified: 28.7.1997 / 13:50:23 / cg"
 !
 
 layoutPointSpec
@@ -277,13 +278,14 @@
      handle the specification if its corrupted."
 
     "
-     UIPainter new openOnClass:self andSelector:#layoutPointSpec
-     self new openInterface:#layoutPointSpec
+     UIPainter new openOnClass:UILayoutTool andSelector:#layoutPointSpec
+     UILayoutTool new openInterface:#layoutPointSpec
     "
+
     <resource: #canvas>
 
     ^
-
+     
        #(#FullSpec
           #'window:' 
            #(#WindowSpec
@@ -303,7 +305,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldOriginX'
-                    #'layout:' #(#LayoutFrame 77 0 19 0 170 0 37 0)
+                    #'layout:' #(#LayoutFrame 77 0 19 0 170 0 41 0)
                     #'activeHelpKey:' #originX
                     #'tabable:' true
                     #'model:' #leftOffset
@@ -316,7 +318,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldOriginY'
-                    #'layout:' #(#LayoutFrame 77 0 46 0 170 0 64 0)
+                    #'layout:' #(#LayoutFrame 77 0 46 0 170 0 68 0)
                     #'activeHelpKey:' #originY
                     #'tabable:' true
                     #'model:' #topOffset
@@ -326,6 +328,7 @@
           )
       )
 
+    "Modified: 28.7.1997 / 14:12:22 / cg"
 !
 
 slices
@@ -763,7 +766,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'editField5'
-                    #'layout:' #(#LayoutFrame 89 0 106 0 146 0 124 0)
+                    #'layout:' #(#LayoutFrame 89 0 106 0 146 0 128 0)
                     #'activeHelpKey:' #alignHorizontal
                     #'tabable:' true
                     #'model:' #leftAlignmentFraction
@@ -771,7 +774,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'editField6'
-                    #'layout:' #(#LayoutFrame 89 0 132 0 146 0 150 0)
+                    #'layout:' #(#LayoutFrame 89 0 132 0 146 0 154 0)
                     #'activeHelpKey:' #alignVertical
                     #'tabable:' true
                     #'model:' #topAlignmentFraction
@@ -779,22 +782,22 @@
                 )
                  #(#DividerSpec
                     #'name:' 'separator1'
-                    #'layout:' #(#Rectangle 175 108 224 111)
+                    #'layout:' #(#Rectangle 175 107 224 110)
                     #'orientation:' #horizontal
                 )
                  #(#DividerSpec
                     #'name:' 'separator2'
-                    #'layout:' #(#Rectangle 175 140 224 143)
+                    #'layout:' #(#Rectangle 175 139 224 142)
                     #'orientation:' #horizontal
                 )
                  #(#DividerSpec
                     #'name:' 'separator3'
-                    #'layout:' #(#Rectangle 168 118 171 139)
+                    #'layout:' #(#Rectangle 167 118 170 139)
                     #'orientation:' #vertical
                 )
                  #(#DividerSpec
                     #'name:' 'separator4'
-                    #'layout:' #(#Rectangle 223 118 226 139)
+                    #'layout:' #(#Rectangle 222 118 225 139)
                     #'orientation:' #vertical
                 )
                  #(#ActionButtonSpec
@@ -854,6 +857,8 @@
               )
           )
       )
+
+    "Modified: 28.7.1997 / 14:11:40 / cg"
 ! !
 
 !UILayoutTool::AlignmentOrigin methodsFor:'accessing'!
@@ -1173,7 +1178,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldRightFraction'
-                    #'layout:' #(#LayoutFrame 57 0 98 0 114 0 116 0)
+                    #'layout:' #(#LayoutFrame 57 0 98 0 114 0 120 0)
                     #'activeHelpKey:' #rightRelative
                     #'model:' #rightFraction
                     #'type:' #numberOrNil
@@ -1186,7 +1191,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldRightOffset'
-                    #'layout:' #(#LayoutFrame 154 0 98 0 212 0 116 0)
+                    #'layout:' #(#LayoutFrame 154 0 98 0 212 0 120 0)
                     #'activeHelpKey:' #rightAbsolute
                     #'model:' #rightOffset
                     #'type:' #numberOrNil
@@ -1204,7 +1209,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldBottomFraction'
-                    #'layout:' #(#LayoutFrame 57 0 126 0 114 0 144 0)
+                    #'layout:' #(#LayoutFrame 57 0 126 0 114 0 148 0)
                     #'activeHelpKey:' #bottomRelative
                     #'model:' #bottomFraction
                     #'type:' #numberOrNil
@@ -1217,7 +1222,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldBottomOffset'
-                    #'layout:' #(#LayoutFrame 154 0 126 0 211 0 144 0)
+                    #'layout:' #(#LayoutFrame 154 0 126 0 211 0 148 0)
                     #'activeHelpKey:' #bottomAbsolute
                     #'model:' #bottomOffset
                     #'type:' #numberOrNil
@@ -1231,6 +1236,8 @@
               )
           )
       )
+
+    "Modified: 28.7.1997 / 13:49:24 / cg"
 ! !
 
 !UILayoutTool::LayoutFrame methodsFor:'accessing'!
@@ -1453,7 +1460,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldCornerX'
-                    #'layout:' #(#LayoutFrame 77 0 74 0 170 0 92 0)
+                    #'layout:' #(#LayoutFrame 77 0 74 0 170 0 96 0)
                     #'activeHelpKey:' #cornerX
                     #'tabable:' true
                     #'model:' #rightOffset
@@ -1467,7 +1474,7 @@
                 )
                  #(#InputFieldSpec
                     #'name:' 'fieldCornerY'
-                    #'layout:' #(#LayoutFrame 77 0 101 0 170 0 119 0)
+                    #'layout:' #(#LayoutFrame 77 0 101 0 170 0 123 0)
                     #'activeHelpKey:' #cornerY
                     #'tabable:' true
                     #'model:' #bottomOffset
@@ -1476,6 +1483,8 @@
               )
           )
       )
+
+    "Modified: 28.7.1997 / 14:12:46 / cg"
 ! !
 
 !UILayoutTool::Rectangle methodsFor:'accessing'!