MCWriteOnlyRepository.st
author Claus Gittinger <cg@exept.de>
Sat, 20 Aug 2011 14:31:00 +0200
changeset 368 d160453baf07
parent 240 7adda2d16d93
child 709 754ed3fb7cb1
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
119
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCRepository subclass:#MCWriteOnlyRepository
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Monticello-Repositories'
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCWriteOnlyRepository methodsFor:'as yet unclassified'!
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
includesVersionNamed: aString
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	^ false
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
versionWithInfo: aVersionInfo ifAbsent: aBlock
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	^ aBlock value
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
! !
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!MCWriteOnlyRepository class methodsFor:'documentation'!
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
version
368
d160453baf07 initial checkin
Claus Gittinger <cg@exept.de>
parents: 240
diff changeset
    24
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriteOnlyRepository.st,v 1.3 2011-08-20 12:31:00 cg Exp $'
240
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    25
!
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    26
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    27
version_CVS
368
d160453baf07 initial checkin
Claus Gittinger <cg@exept.de>
parents: 240
diff changeset
    28
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriteOnlyRepository.st,v 1.3 2011-08-20 12:31:00 cg Exp $'
240
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    29
!
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    30
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    31
version_SVN
7adda2d16d93 added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 119
diff changeset
    32
    ^ '§Id: MCWriteOnlyRepository.st 5 2010-08-29 07:30:29Z vranyj1 §'
119
9f3fb5a88a69 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
! !