MCMockDefinition.st
author Claus Gittinger <cg@exept.de>
Mon, 14 May 2018 02:21:18 +0200
changeset 1048 582b3a028cbc
parent 653 a8f7ebf2a9b3
child 1095 87f223484bc3
permissions -rw-r--r--
#FEATURE by cg class: MCMethodDefinition changed: #postloadOver:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
61
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCDefinition subclass:#MCMockDefinition
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'token'
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
653
a8f7ebf2a9b3 category change
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
     7
	category:'SCM-Monticello-Mocks'
61
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCMockDefinition class methodsFor:'as yet unclassified'!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
token: aString
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	^ self new token: aString
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
wantsChangeSetLogging
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	^ false
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
! !
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
!MCMockDefinition methodsFor:'as yet unclassified'!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
= definition
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
	^definition token = token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
asString
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
	^ token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
description
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
	^ token first
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
hash
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
	^ token hash
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
printString
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
	^ token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
summary
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
	^ token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
	^ token
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
token: aString
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
231
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    60
	token := aString
61
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
! !
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
!MCMockDefinition class methodsFor:'documentation'!
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
version
653
a8f7ebf2a9b3 category change
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
    66
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDefinition.st,v 1.4 2012-09-11 21:24:16 cg Exp $'
231
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    67
!
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    68
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    69
version_CVS
653
a8f7ebf2a9b3 category change
Claus Gittinger <cg@exept.de>
parents: 350
diff changeset
    70
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDefinition.st,v 1.4 2012-09-11 21:24:16 cg Exp $'
231
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    71
!
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    72
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    73
version_SVN
b8aec6c9cf8b added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 61
diff changeset
    74
    ^ '§Id: MCMockDefinition.st 5 2010-08-29 07:30:29Z vranyj1 §'
61
a193d5c83a49 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
! !