equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger |
4 COPYRIGHT (c) 1995 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
354 ] |
356 ] |
355 |
357 |
356 "Modified: 21.2.1997 / 18:21:27 / cg" |
358 "Modified: 21.2.1997 / 18:21:27 / cg" |
357 ! |
359 ! |
358 |
360 |
|
361 model |
|
362 "get the real model, into which / from which the |
|
363 real model value is converted" |
|
364 |
|
365 ^ model |
|
366 ! |
|
367 |
359 model:anObject |
368 model:anObject |
|
369 "set the real model, into which / from which the |
|
370 real model value is converted" |
|
371 |
360 model notNil ifTrue:[ |
372 model notNil ifTrue:[ |
361 model removeDependent:self |
373 model removeDependent:self |
362 ]. |
374 ]. |
363 model := anObject. |
375 model := anObject. |
364 model notNil ifTrue:[ |
376 model notNil ifTrue:[ |
464 ! ! |
476 ! ! |
465 |
477 |
466 !PluggableAdaptor class methodsFor:'documentation'! |
478 !PluggableAdaptor class methodsFor:'documentation'! |
467 |
479 |
468 version |
480 version |
469 ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.27 2015-01-26 14:48:02 cg Exp $' |
481 ^ '$Header$' |
470 ! |
482 ! |
471 |
483 |
472 version_CVS |
484 version_CVS |
473 ^ '$Header: /cvs/stx/stx/libview2/PluggableAdaptor.st,v 1.27 2015-01-26 14:48:02 cg Exp $' |
485 ^ '$Header$' |
474 ! ! |
486 ! ! |
475 |
487 |