--- a/AlignOrg.st Wed Jan 22 04:19:07 1997 +0100
+++ b/AlignOrg.st Wed Jan 22 12:01:54 1997 +0100
@@ -231,14 +231,18 @@
!AlignmentOrigin methodsFor:'printing & storing'!
displayString
+ "return a printed representation of the receiver for displaying"
+
^ 'LayoutOrigin('
- , 'l: ' , leftFraction displayString
- , '+' , leftOffset displayString
- , ' t: ' , topFraction displayString
- , '+' , topOffset displayString
- , ' a: ' , leftAlignmentFraction displayString
- , '@' , topAlignmentFraction displayString
- , ')'
+ , 'l: ' , leftFraction displayString
+ , '+' , leftOffset displayString
+ , ' t: ' , topFraction displayString
+ , '+' , topOffset displayString
+ , ' a: ' , leftAlignmentFraction displayString
+ , '@' , topAlignmentFraction displayString
+ , ')'
+
+ "Modified: 22.1.1997 / 11:58:38 / cg"
! !
!AlignmentOrigin methodsFor:'queries'!
@@ -291,5 +295,5 @@
!AlignmentOrigin class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.15 1996-05-08 19:54:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.16 1997-01-22 11:01:54 cg Exp $'
! !
--- a/AlignmentOrigin.st Wed Jan 22 04:19:07 1997 +0100
+++ b/AlignmentOrigin.st Wed Jan 22 12:01:54 1997 +0100
@@ -231,14 +231,18 @@
!AlignmentOrigin methodsFor:'printing & storing'!
displayString
+ "return a printed representation of the receiver for displaying"
+
^ 'LayoutOrigin('
- , 'l: ' , leftFraction displayString
- , '+' , leftOffset displayString
- , ' t: ' , topFraction displayString
- , '+' , topOffset displayString
- , ' a: ' , leftAlignmentFraction displayString
- , '@' , topAlignmentFraction displayString
- , ')'
+ , 'l: ' , leftFraction displayString
+ , '+' , leftOffset displayString
+ , ' t: ' , topFraction displayString
+ , '+' , topOffset displayString
+ , ' a: ' , leftAlignmentFraction displayString
+ , '@' , topAlignmentFraction displayString
+ , ')'
+
+ "Modified: 22.1.1997 / 11:58:38 / cg"
! !
!AlignmentOrigin methodsFor:'queries'!
@@ -291,5 +295,5 @@
!AlignmentOrigin class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.15 1996-05-08 19:54:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.16 1997-01-22 11:01:54 cg Exp $'
! !
--- a/AspctAdptr.st Wed Jan 22 04:19:07 1997 +0100
+++ b/AspctAdptr.st Wed Jan 22 12:01:54 1997 +0100
@@ -152,8 +152,14 @@
!
subject:anObject sendsUpdates:aBoolean accessWith:getSel assignWith:putSel aspect:aspect
+ "create and return a new adaptor, which forwards requests
+ to anObject, using getSel/putSel for access.
+ The returned object can be used in place of a ValueHolder"
+
^ (self subject:anObject sendsUpdates:aBoolean)
- accessWith:getSel assignWith:putSel aspect:aspect
+ accessWith:getSel assignWith:putSel aspect:aspect
+
+ "Modified: 22.1.1997 / 12:00:42 / cg"
! !
!AspectAdaptor methodsFor:'accessing-spec'!
@@ -240,5 +246,5 @@
!AspectAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.14 1996-05-18 15:36:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.15 1997-01-22 11:01:42 cg Exp $'
! !
--- a/AspectAdaptor.st Wed Jan 22 04:19:07 1997 +0100
+++ b/AspectAdaptor.st Wed Jan 22 12:01:54 1997 +0100
@@ -152,8 +152,14 @@
!
subject:anObject sendsUpdates:aBoolean accessWith:getSel assignWith:putSel aspect:aspect
+ "create and return a new adaptor, which forwards requests
+ to anObject, using getSel/putSel for access.
+ The returned object can be used in place of a ValueHolder"
+
^ (self subject:anObject sendsUpdates:aBoolean)
- accessWith:getSel assignWith:putSel aspect:aspect
+ accessWith:getSel assignWith:putSel aspect:aspect
+
+ "Modified: 22.1.1997 / 12:00:42 / cg"
! !
!AspectAdaptor methodsFor:'accessing-spec'!
@@ -240,5 +246,5 @@
!AspectAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.14 1996-05-18 15:36:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.15 1997-01-22 11:01:42 cg Exp $'
! !