diff -r c606e46c4420 -r d7afe06ebbae UILayoutTool.st
--- a/UILayoutTool.st	Wed Aug 21 18:29:35 2002 +0200
+++ b/UILayoutTool.st	Thu Aug 22 13:08:41 2002 +0200
@@ -1366,13 +1366,15 @@
 
     layout  := Smalltalk::AlignmentOrigin new.
 
-    layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
-    layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
-    layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
-    layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
-
-    layout leftAlignmentFraction:((self aspectFor:#leftAlignmentFraction) value) ? 0.
-    layout  topAlignmentFraction:((self aspectFor:#topAlignmentFraction)  value) ? 0.
+    layout 
+        leftFraction:(((self aspectFor:#leftFraction) value) ? 0)
+              offset:(((self aspectFor:#leftOffset)   value) ? 0)
+        topFraction:(((self aspectFor:#topFraction)  value) ? 0)
+             offset:(((self aspectFor:#topOffset)    value) ? 0).
+
+    layout 
+        leftAlignmentFraction:(((self aspectFor:#leftAlignmentFraction) value) ? 0)
+        topAlignmentFraction:(((self aspectFor:#topAlignmentFraction)  value) ? 0).
 
   ^ layout
 ! !
@@ -2353,17 +2355,17 @@
 
     layout  := Smalltalk::LayoutFrame new.
 
-    layout     leftOffset:((self aspectFor:#leftOffset)     value) ? 0.
-    layout    rightOffset:((self aspectFor:#rightOffset)    value) ? 0.
-    layout      topOffset:((self aspectFor:#topOffset)      value) ? 0.
-    layout   bottomOffset:((self aspectFor:#bottomOffset)   value) ? 0.
-    layout   leftFraction:((self aspectFor:#leftFraction)   value) ? 0.
-    layout  rightFraction:((self aspectFor:#rightFraction)  value) ? 0.
-    layout    topFraction:((self aspectFor:#topFraction)    value) ? 0.
-    layout bottomFraction:((self aspectFor:#bottomFraction) value) ? 0.
+    layout 
+        leftFraction:(((self aspectFor:#leftFraction)   value) ? 0)
+              offset:(((self aspectFor:#leftOffset)     value) ? 0)
+        rightFraction:(((self aspectFor:#rightFraction)  value) ? 0)
+              offset:(((self aspectFor:#rightOffset)    value) ? 0)
+        topFraction:(((self aspectFor:#topFraction)    value) ? 0)
+              offset:(((self aspectFor:#topOffset)      value) ? 0)
+        bottomFraction:(((self aspectFor:#bottomFraction) value) ? 0)
+              offset:(((self aspectFor:#bottomOffset)   value) ? 0).
 
   ^ layout
-
 ! !
 
 !UILayoutTool::LayoutFrame methodsFor:'common frames'!
@@ -2561,13 +2563,13 @@
 
     layout  := Smalltalk::LayoutOrigin new.
 
-    layout   leftOffset:((self aspectFor:#leftOffset)   value) ? 0.
-    layout    topOffset:((self aspectFor:#topOffset)    value) ? 0.
-    layout leftFraction:((self aspectFor:#leftFraction) value) ? 0.
-    layout  topFraction:((self aspectFor:#topFraction)  value) ? 0.
+    layout 
+        leftFraction:(((self aspectFor:#leftFraction) value) ? 0)
+              offset:(((self aspectFor:#leftOffset)   value) ? 0)
+        topFraction:(((self aspectFor:#topFraction)  value) ? 0)
+             offset:(((self aspectFor:#topOffset)    value) ? 0).
 
   ^ layout
-
 ! !
 
 !UILayoutTool::Point class methodsFor:'interface specs'!