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