"Happy Squeaking Sample(7)"
"Copyright (C) 1999 OGIS-RI"

ClassDescription subclass: #Interface
	instanceVariableNames: 'name operationList '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Metamodel-Interface'!

!Interface methodsFor: 'accessing'!
name
	name isNil ifTrue:[ name := 'a nameless interface'].
	^name! !

!Interface methodsFor: 'accessing'!
name: newName
	name := newName! !

!Interface methodsFor: 'accessing'!
operationList
	operationList isNil ifTrue:[ operationList := Set new].
	^operationList! !

!Interface methodsFor: 'accessing'!
operationList: aListOfOperaionSymbol
	operationList := aListOfOperaionSymbol ! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

Interface class
	instanceVariableNames: ''!

!Interface class methodsFor: 'instance creation'!
name: aNameString operationList: aSetOfOperationSymbol
	^self new name: aNameString;
	 	operationList: aSetOfOperationSymbol asSet

! !