--- a/AspctAdptr.st Wed Jan 22 18:17:33 1997 +0100
+++ b/AspctAdptr.st Wed Jan 22 18:30:09 1997 +0100
@@ -166,43 +166,60 @@
accessWith:getSelector assignWith:putSelector
"setup the recevier to use getSelector to fetch a value
- and setSelector to change it."
+ and putSelector to change it."
getMsg := getSelector.
putMsg := putSelector
+
+ "Modified: 22.1.1997 / 18:28:46 / cg"
!
accessWith:getSelector assignWith:putSelector aspect:aspectSymbol
"setup the recevier to use getSelector to fetch a value
- and setSelector to change it."
+ and putSelector to change it."
getMsg := getSelector.
putMsg := putSelector.
myAspect := aspectSymbol
+
+ "Modified: 22.1.1997 / 18:28:51 / cg"
!
forAspect
+ "get the adapters aspect - if none was defined, the getMsg is returned"
+
myAspect isNil ifTrue:[
- ^ getMsg
+ ^ getMsg
].
^ myAspect
+
+ "Modified: 22.1.1997 / 18:27:24 / cg"
!
forAspect:aSelector
+ "set the adapters aspect - this sets both the get- and put-Messages
+ (the putMessage is the aspect with a colon)"
+
getMsg := myAspect := aSelector.
putMsg := (aSelector , ':') asSymbol.
+
+ "Modified: 22.1.1997 / 18:29:05 / cg"
! !
!AspectAdaptor methodsFor:'accessing-value'!
setValue:newValue
+ "set the value - this forwards a putMessage to the target"
+
|target oldValue|
target := super value.
oldValue := target perform:getMsg.
oldValue ~~ newValue ifTrue:[
- target perform:putMsg with:newValue.
+ target perform:putMsg with:newValue.
]
+
+ "Modified: 22.1.1997 / 18:28:40 / cg"
!
value
@@ -216,16 +233,21 @@
!
value:newValue
+ "set the value - this forwards a putMessage to the target
+ and sends out a changeNotification if the value did really change."
+
|target oldValue|
target := super value.
oldValue := target perform:getMsg.
oldValue ~~ newValue ifTrue:[
- target perform:putMsg with:newValue.
- subjectSendsUpdates ifFalse:[
- self changed:#value
- ]
+ target perform:putMsg with:newValue.
+ subjectSendsUpdates ifFalse:[
+ self changed:#value
+ ]
]
+
+ "Modified: 22.1.1997 / 18:29:59 / cg"
! !
!AspectAdaptor methodsFor:'change & update'!
@@ -246,5 +268,5 @@
!AspectAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.15 1997-01-22 11:01:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/AspctAdptr.st,v 1.16 1997-01-22 17:30:09 cg Exp $'
! !
--- a/AspectAdaptor.st Wed Jan 22 18:17:33 1997 +0100
+++ b/AspectAdaptor.st Wed Jan 22 18:30:09 1997 +0100
@@ -166,43 +166,60 @@
accessWith:getSelector assignWith:putSelector
"setup the recevier to use getSelector to fetch a value
- and setSelector to change it."
+ and putSelector to change it."
getMsg := getSelector.
putMsg := putSelector
+
+ "Modified: 22.1.1997 / 18:28:46 / cg"
!
accessWith:getSelector assignWith:putSelector aspect:aspectSymbol
"setup the recevier to use getSelector to fetch a value
- and setSelector to change it."
+ and putSelector to change it."
getMsg := getSelector.
putMsg := putSelector.
myAspect := aspectSymbol
+
+ "Modified: 22.1.1997 / 18:28:51 / cg"
!
forAspect
+ "get the adapters aspect - if none was defined, the getMsg is returned"
+
myAspect isNil ifTrue:[
- ^ getMsg
+ ^ getMsg
].
^ myAspect
+
+ "Modified: 22.1.1997 / 18:27:24 / cg"
!
forAspect:aSelector
+ "set the adapters aspect - this sets both the get- and put-Messages
+ (the putMessage is the aspect with a colon)"
+
getMsg := myAspect := aSelector.
putMsg := (aSelector , ':') asSymbol.
+
+ "Modified: 22.1.1997 / 18:29:05 / cg"
! !
!AspectAdaptor methodsFor:'accessing-value'!
setValue:newValue
+ "set the value - this forwards a putMessage to the target"
+
|target oldValue|
target := super value.
oldValue := target perform:getMsg.
oldValue ~~ newValue ifTrue:[
- target perform:putMsg with:newValue.
+ target perform:putMsg with:newValue.
]
+
+ "Modified: 22.1.1997 / 18:28:40 / cg"
!
value
@@ -216,16 +233,21 @@
!
value:newValue
+ "set the value - this forwards a putMessage to the target
+ and sends out a changeNotification if the value did really change."
+
|target oldValue|
target := super value.
oldValue := target perform:getMsg.
oldValue ~~ newValue ifTrue:[
- target perform:putMsg with:newValue.
- subjectSendsUpdates ifFalse:[
- self changed:#value
- ]
+ target perform:putMsg with:newValue.
+ subjectSendsUpdates ifFalse:[
+ self changed:#value
+ ]
]
+
+ "Modified: 22.1.1997 / 18:29:59 / cg"
! !
!AspectAdaptor methodsFor:'change & update'!
@@ -246,5 +268,5 @@
!AspectAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.15 1997-01-22 11:01:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/AspectAdaptor.st,v 1.16 1997-01-22 17:30:09 cg Exp $'
! !