--- a/LayoutOrigin.st Wed Feb 12 00:06:06 1997 +0100
+++ b/LayoutOrigin.st Wed Feb 12 00:06:37 1997 +0100
@@ -311,6 +311,13 @@
!LayoutOrigin methodsFor:'queries'!
+isLayoutOrigin
+ "return true, if this is a layoutOrigin"
+
+ ^ true
+
+!
+
origin
^ leftFraction asFloat @ topFraction asFloat
!
@@ -355,5 +362,5 @@
!LayoutOrigin class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.14 1996-05-26 16:50:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.15 1997-02-11 23:06:37 ca Exp $'
! !