"{ 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 $'
! !