| author | Claus Gittinger <cg@exept.de> |
| Tue, 08 May 2018 19:54:33 +0200 | |
| changeset 1042 | 3b8c88c55251 |
| parent 710 | 10d134daf6fd |
| child 1095 | 87f223484bc3 |
| permissions | -rw-r--r-- |
| 38 | 1 |
"{ Package: 'stx:goodies/monticello' }"
|
2 |
||
3 |
Object subclass:#MCWriter |
|
4 |
instanceVariableNames:'stream' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
| 710 | 7 |
category:'SCM-Monticello-Storing' |
| 38 | 8 |
! |
9 |
||
10 |
||
11 |
!MCWriter class methodsFor:'accessing'! |
|
12 |
||
13 |
extension |
|
14 |
^ self readerClass extension |
|
15 |
! |
|
16 |
||
17 |
readerClass |
|
18 |
^ self subclassResponsibility |
|
19 |
! ! |
|
20 |
||
21 |
!MCWriter class methodsFor:'writing'! |
|
22 |
||
23 |
on: aStream |
|
24 |
^ self new stream: aStream |
|
25 |
! ! |
|
26 |
||
27 |
!MCWriter methodsFor:'as yet unclassified'! |
|
28 |
||
29 |
stream |
|
30 |
^ stream |
|
31 |
! |
|
32 |
||
33 |
stream: aStream |
|
| 257 | 34 |
stream := aStream |
| 38 | 35 |
! ! |
36 |
||
37 |
!MCWriter class methodsFor:'documentation'! |
|
38 |
||
39 |
version |
|
| 710 | 40 |
^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.5 2012-09-11 21:31:32 cg Exp $' |
|
138
ebac03eed350
more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents:
38
diff
changeset
|
41 |
! |
|
ebac03eed350
more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents:
38
diff
changeset
|
42 |
|
|
ebac03eed350
more porting (but still unfinished)
Claus Gittinger <cg@exept.de>
parents:
38
diff
changeset
|
43 |
version_CVS |
| 710 | 44 |
^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.5 2012-09-11 21:31:32 cg Exp $' |
| 257 | 45 |
! |
46 |
||
47 |
version_SVN |
|
48 |
^ '§Id: MCWriter.st 5 2010-08-29 07:30:29Z vranyj1 §' |
|
| 38 | 49 |
! ! |