InterfaceHome

• removeEmptyInterfaces

• allExtendedInterfaces
• allExtendingInterfaces
• allInterfaces
• allNonEmptyInterfaces
• childlessInterfaces
• classesNotFullyImplemented
• emptyInterfaces
• equivalentInterfaces
• includesInterfaceNamed:
• interfaceNamed:
• interfaceWithRepertoire:
• interfacesWithRepertoire:
• leafInterfaces
• rootInterfaces
• rootsOfTheInterfaceWorld

• obsolete

• current
• new
• nuke

InitialValue:

an InterfaceHome

inferredType:

InterfaceHome

	self emptyInterfaces do: [:each | self environment removeClassNamed: each name]

	^self allInterfaces select: [:each | each isExtended]

	^self allInterfaces select: [:each | each isExtending]

	^Interface subclasses asSet

	^self allInterfaces reject: [:each | each isEmptyInterface]

	^self leafInterfaces

	| resultSet classes |
	resultSet := Set new.
	classes := self environment allNonInterfaceClasses.
	self allInterfaces do: 
		[:eachInterface | 
		resultSet addAll: (classes select:
			[:eachClass | (eachInterface methodsStubbedIn: eachClass) notEmpty])].
	^resultSet

	^self allInterfaces select: [:each | each isEmptyInterface]

	"Return a collection of sets of interfaces having an equivalent repertoire"
	
	"SmallInterfaces: ##modified for Squeak -M.U. 6/23/1999 23:35"

	| collectionOfSetsOfEquivalentInterfaces interfaces  setOfEquivalentInterfaces |
	collectionOfSetsOfEquivalentInterfaces := OrderedCollection new.
	interfaces := self allInterfaces copy.
	self allInterfaces do: 
		[:each | 
		interfaces remove: each ifAbsent: [].
		setOfEquivalentInterfaces := interfaces select: [:anInterface | each isEquivalentTo: anInterface].
		setOfEquivalentInterfaces notEmpty
			ifTrue:
				[interfaces removeAll: setOfEquivalentInterfaces.
				setOfEquivalentInterfaces add: each. 	"...since it isn't included in yet"
				collectionOfSetsOfEquivalentInterfaces add: setOfEquivalentInterfaces]].
	^collectionOfSetsOfEquivalentInterfaces

	^self allInterfaces contains: [:each | each name == aSymbol]

	^self allInterfaces 
		detect: [:each | each name == aSymbol] 
		ifNone: [nil]

	^self allInterfaces 
		detect: [:each | each repertoire consistsOf: repertoire]
		ifNone: [nil]

	^self allInterfaces select: [:each | each repertoire consistsOf: repertoire]

	^Interface consolidate: self allInterfaces

	^self rootsOfTheInterfaceWorld

	^self allInterfaces select: [:each | each isOrphan]

	self nuke

	^singleton ifNil: [singleton := super new]

	^self current

	singleton := nil