--- a/PluggableAdaptor.st	Mon Mar 30 15:50:32 2009 +0200
+++ b/PluggableAdaptor.st	Tue Mar 31 23:57:34 2009 +0200
@@ -210,6 +210,14 @@
 
 !PluggableAdaptor methodsFor:'accessing'!
 
+getBlock
+    ^ getBlock
+!
+
+putBlock
+    ^ putBlock
+!
+
 setValue:newValue 
     putBlock notNil ifTrue:[
 	^ putBlock value:model value:newValue 
@@ -217,6 +225,10 @@
     model value:newValue "/ stupid default
 !
 
+updateBlock
+    ^ updateBlock
+!
+
 value
     getBlock notNil ifTrue:[
 	^ getBlock value:model 
@@ -388,5 +400,5 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.21 2009-03-26 13:58:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.22 2009-03-31 21:57:34 stefan Exp $'
 ! !