LayoutOrigin.st
changeset 949 0eb888b21192
parent 700 67f1dccb8333
child 1039 4095e7721dad
--- a/LayoutOrigin.st	Wed May 27 11:20:52 1998 +0200
+++ b/LayoutOrigin.st	Wed May 27 11:21:38 1998 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:59:21 pm'                !
-
 Layout subclass:#LayoutOrigin
 	instanceVariableNames:'leftFraction topFraction leftOffset topOffset'
 	classVariableNames:''
@@ -349,11 +347,13 @@
     ^ leftFraction asFloat @ topFraction asFloat
 !
 
-rectangleRelativeTo:superRectangle preferred:prefRect
+rectangleRelativeTo:superRectangle preferred:prefRectHolder
     "compute the rectangle represented by the receiver,
      given the superViews rectangle and the views preferredExtent."
 
-    |x y|
+    |x y prefRect|
+
+    prefRect := prefRectHolder value.
 
     leftOffset isNil ifTrue:[
         x := 0
@@ -383,11 +383,11 @@
      lO rectangleRelativeTo:superRect preferred:(0@0 corner:30@30)
     "
 
-    "Modified: 13.9.1997 / 10:40:35 / cg"
+    "Modified: / 27.5.1998 / 10:19:58 / cg"
 ! !
 
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.18 1997-09-20 22:19:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.19 1998-05-27 09:21:38 cg Exp $'
 ! !