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