Fix #selectValue: (Used by T-gen).
--- a/PlugAdptr.st Thu Nov 21 19:59:21 1996 +0100
+++ b/PlugAdptr.st Tue Dec 31 15:01:08 1996 +0100
@@ -299,8 +299,12 @@
true whenever the models value equals something"
getBlock := [:model | model value = something].
- putBlock := [:model :newValue | ].
- updateBlock := [:model :aspect :parameter | false]
+ putBlock := [:model :newValue | newValue ifTrue:[model value:something]].
+ updateBlock := [:model :aspect :parameter |
+ aspect isNil or:[aspect == #value]
+ ]
+
+ "Modified: 31.12.1996 / 13:58:09 / stefan"
!
subjectChannel:aValueHolder
@@ -310,5 +314,5 @@
!PluggableAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/PlugAdptr.st,v 1.12 1996-05-18 15:37:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/PlugAdptr.st,v 1.13 1996-12-31 14:01:08 stefan Exp $'
! !
--- a/PluggableAdaptor.st Thu Nov 21 19:59:21 1996 +0100
+++ b/PluggableAdaptor.st Tue Dec 31 15:01:08 1996 +0100
@@ -299,8 +299,12 @@
true whenever the models value equals something"
getBlock := [:model | model value = something].
- putBlock := [:model :newValue | ].
- updateBlock := [:model :aspect :parameter | false]
+ putBlock := [:model :newValue | newValue ifTrue:[model value:something]].
+ updateBlock := [:model :aspect :parameter |
+ aspect isNil or:[aspect == #value]
+ ]
+
+ "Modified: 31.12.1996 / 13:58:09 / stefan"
!
subjectChannel:aValueHolder
@@ -310,5 +314,5 @@
!PluggableAdaptor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.12 1996-05-18 15:37:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.13 1996-12-31 14:01:08 stefan Exp $'
! !