--- 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 $'
 ! !