--- a/PluggableAdaptor.st	Fri Mar 03 14:41:29 2006 +0100
+++ b/PluggableAdaptor.st	Mon Mar 06 09:45:55 2006 +0100
@@ -263,6 +263,18 @@
     "Modified: 21.2.1997 / 18:20:24 / cg"
 !
 
+getBlock:newGetBlock putBlock:newPutBlock
+    "configure the adaptor to translate #value/#value:-messages into
+     evaluation of the corresponding block1/block2.
+     The getBlock argument block1 is called with one argument, the model, and is
+     supposed to extract & return a value from that model.
+     The putBlock argument, block2 is called with 2 arguments, the model
+     and the new value, and is supposed to store the new value."
+
+    getBlock := newGetBlock.
+    putBlock := newPutBlock.
+!
+
 getBlock:newGetBlock putBlock:newPutBlock updateBlock:newUpdateBlock
     "configure the adaptor to translate #value/#value:-messages into
      evaluation of the corresponding block1/block2.
@@ -358,5 +370,5 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.17 2003-05-07 14:55:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.18 2006-03-06 08:45:55 cg Exp $'
 ! !