--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCVariableDefinition.st	Wed Nov 22 14:10:16 2006 +0100
@@ -0,0 +1,76 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+Object subclass:#MCVariableDefinition
+	instanceVariableNames:'name'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Modeling'
+!
+
+
+!MCVariableDefinition class methodsFor:'as yet unclassified'!
+
+name: aString
+	^ self new name: aString
+	
+! !
+
+!MCVariableDefinition methodsFor:'accessing'!
+
+name
+	^ name
+!
+
+name: aString
+	name _ aString
+! !
+
+!MCVariableDefinition methodsFor:'as yet unclassified'!
+
+printOn: aStream
+	super printOn: aStream.
+	aStream nextPut: $(; nextPutAll: self name; nextPut: $)
+! !
+
+!MCVariableDefinition methodsFor:'comparing'!
+
+= other
+	^ (self species = other species)
+		and: [self name = other name]
+!
+
+hash
+	^ name hash
+! !
+
+!MCVariableDefinition methodsFor:'testing'!
+
+isClassInstanceVariable
+	^ false
+!
+
+isClassInstanceVariableDefinition
+	^ false
+!
+
+isClassVariable
+	^ false
+!
+
+isInstanceVariable
+	^ false
+!
+
+isInstanceVariableDefinition
+	^ false
+!
+
+isPoolImport
+	^ false
+! !
+
+!MCVariableDefinition class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCVariableDefinition.st,v 1.1 2006-11-22 13:10:16 cg Exp $'
+! !