--- a/PluggableAdaptor.st	Thu Aug 25 23:13:57 2016 +0200
+++ b/PluggableAdaptor.st	Thu Aug 25 23:14:11 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -356,7 +358,17 @@
     "Modified: 21.2.1997 / 18:21:27 / cg"
 !
 
+model
+    "get the real model, into which / from which the
+     real model value is converted"
+
+    ^ model 
+!
+
 model:anObject
+    "set the real model, into which / from which the
+     real model value is converted"
+     
     model notNil ifTrue:[
        model removeDependent:self
     ].
@@ -466,10 +478,10 @@
 !PluggableAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.27 2015-01-26 14:48:02 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.27 2015-01-26 14:48:02 cg Exp $'
+    ^ '$Header$'
 ! !