--- a/AlignmentOrigin.st	Mon Sep 15 22:04:24 1997 +0200
+++ b/AlignmentOrigin.st	Mon Sep 15 22:16:05 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.1.10 on 13-sep-1997 at 10:54:44 pm'                !
+
 LayoutOrigin subclass:#AlignmentOrigin
 	instanceVariableNames:'leftAlignmentFraction topAlignmentFraction'
 	classVariableNames:''
@@ -273,24 +275,24 @@
     leftOffset isNil ifTrue:[
         x := 0
     ] ifFalse:[
-        x := leftOffset
+        x := leftOffset value
     ].
     topOffset isNil ifTrue:[
         y := 0
     ] ifFalse:[
-        y := topOffset
+        y := topOffset value
     ].
     leftFraction notNil ifTrue:[
-        x := x + (superRectangle width * leftFraction)
+        x := x + (superRectangle width * leftFraction value)
     ].
     topFraction notNil ifTrue:[
-        y := y + (superRectangle height * topFraction)
+        y := y + (superRectangle height * topFraction value)
     ].
     leftAlignmentFraction ~~ 0 ifTrue:[
-        x := x - (prefRect width * leftAlignmentFraction)
+        x := x - (prefRect width * leftAlignmentFraction value)
     ].
     topAlignmentFraction ~~ 0 ifTrue:[
-        y := y - (prefRect height * topAlignmentFraction)
+        y := y - (prefRect height * topAlignmentFraction value)
     ].
     ^ Rectangle left:x top:y extent:prefRect extent
 
@@ -306,11 +308,11 @@
      aO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30) 
     "
 
-    "Modified: 8.5.1996 / 20:57:09 / cg"
+    "Modified: 13.9.1997 / 10:39:50 / cg"
 ! !
 
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.20 1997-04-18 18:11:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.21 1997-09-15 20:16:04 cg Exp $'
 ! !