diff -r 65ddf082738a -r e779b06d9ac9 PluggableAdaptor.st --- 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$' ! !