initial checkin
authorClaus Gittinger <cg@exept.de>
Wed, 22 Nov 2006 14:11:16 +0100
changeset 61 a193d5c83a49
parent 60 7476cb845887
child 62 bf41d3e3e19d
initial checkin
MCMockDefinition.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCMockDefinition.st	Wed Nov 22 14:11:16 2006 +0100
@@ -0,0 +1,67 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCDefinition subclass:#MCMockDefinition
+	instanceVariableNames:'token'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Mocks'
+!
+
+
+!MCMockDefinition class methodsFor:'as yet unclassified'!
+
+token: aString
+
+	^ self new token: aString
+!
+
+wantsChangeSetLogging
+	^ false
+! !
+
+!MCMockDefinition methodsFor:'as yet unclassified'!
+
+= definition
+	^definition token = token
+!
+
+asString
+
+	^ token
+!
+
+description
+
+	^ token first
+!
+
+hash
+
+	^ token hash
+!
+
+printString
+
+	^ token
+!
+
+summary
+
+	^ token
+!
+
+token
+
+	^ token
+!
+
+token: aString
+
+	token _ aString
+! !
+
+!MCMockDefinition class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDefinition.st,v 1.1 2006-11-22 13:11:16 cg Exp $'
+! !