--- a/PluggableAdaptor.st	Fri Sep 18 11:34:14 2009 +0200
+++ b/PluggableAdaptor.st	Fri Sep 18 17:44:34 2009 +0200
@@ -206,6 +206,30 @@
     ^ self new model:anObject
 
     "Modified: 21.2.1997 / 18:31:22 / cg"
+!
+
+on:anObject getter:getterBlock 
+    ^ (self on:anObject)
+        getter:getterBlock
+
+    "Created: / 08-08-2004 / 21:54:04 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
+on:anObject getter:getterBlock setter:setterBlock
+    ^ (self on:anObject)
+        getter:getterBlock setter:setterBlock
+
+    "Created: / 08-08-2004 / 21:53:58 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
+on:anObject setter:setterBlock 
+    ^ (self on:anObject)
+        setter:setterBlock
+
+    "Created: / 08-08-2004 / 21:54:12 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
 ! !
 
 !PluggableAdaptor methodsFor:'accessing'!
@@ -397,8 +421,38 @@
     "Modified: 21.2.1997 / 18:19:46 / cg"
 ! !
 
+!PluggableAdaptor methodsFor:'utilities'!
+
+getter:getterBlock 
+    self
+        getter:getterBlock
+        setter:[:value|self shouldNeverBeReached]
+
+    "Created: / 08-08-2004 / 21:53:02 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
+getter:getterBlock setter:setterBlock
+    self
+        getBlock:[:model | getterBlock value:model value ]
+        putBlock:[:model :value| model value:(setterBlock value:value)]
+        updateBlock:[:model :aspect :value|true]
+
+    "Created: / 08-08-2004 / 21:52:20 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+!
+
+setter:setterBlock 
+    self
+        getter:[:value|self shouldNeverBeReached]
+        setter:setterBlock
+
+    "Created: / 08-08-2004 / 21:53:19 / janfrog"
+    "Modified: / 20-04-2005 / 18:59:28 / janfrog"
+! !
+
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.22 2009-03-31 21:57:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.23 2009-09-18 15:44:34 cg Exp $'
 ! !