InterfaceConfiguration

• defaultInterfaceClassCategory
• defaultInterfaceClassCategory:
• enforceNonEmptyInterfaces
• enforceNonEmptyInterfaces:
• removeOnlyStubbedImplementations
• removeOnlyStubbedImplementations:
• selectorForClassInterfaces
• selectorForClassInterfaces:
• selectorForInterfaceInheritance
• selectorForInterfaceInheritance:

• initialize
• obsolete

• current
• new
• nuke

InitialValue:

Interfaces

inferredType:

String

InitialValue:

true

inferredType:

True

InitialValue:

true

inferredType:

True

InitialValue:

#understoodInterfacesMinimalSet

inferredType:

Symbol

InitialValue:

#parents

inferredType:

Symbol

InitialValue:

an InterfaceConfiguration

inferredType:

InterfaceConfiguration

	"SmallInterfaces: ##added for Squeak -M.U. 6/23/1999 23:35"
	^defaultInterfaceClassCategory ifNil: [defaultInterfaceClassCategory := 'Interfaces']

	"SmallInterfaces: ##added for Squeak -M.U. 6/23/1999 23:35"
	defaultInterfaceClassCategory := aString

	^enforceNonEmptyInterfaces ifNil: [enforceNonEmptyInterfaces := true]

	enforceNonEmptyInterfaces := aBoolean

	^removeOnlyStubbedImplementations ifNil: [removeOnlyStubbedImplementations := true]

	removeOnlyStubbedImplementations := aBoolean

	^selectorForClassInterfaces ifNil: [selectorForClassInterfaces := #understoodInterfacesMinimalSet]

	| permittedSelectors |
	permittedSelectors := Class selectorsInCategory: #'interfaces'.
	(permittedSelectors includes: selectorSymbol) 
		ifTrue:  [selectorForClassInterfaces := selectorSymbol]
		ifFalse: [self error: 'selector must be one of: ',  permittedSelectors asArray printString]

	^selectorForInterfaceInheritance ifNil: [selectorForInterfaceInheritance := #parents]

	| permittedSelectors |
	permittedSelectors := Interface class selectorsInCategory: #'accessing-extended'.
	(permittedSelectors includes: selectorSymbol)
		ifTrue:  [selectorForInterfaceInheritance := selectorSymbol]
		ifFalse: [self error: 'selector must be one of: ',  permittedSelectors asArray printString]

	"InterfaceConfiguration initialize."
	"SmallInterfaces: ##modified for Squeak -M.U. 6/23/1999 23:35"

	"SmallInterfaces: ##modified for Squeak -M.U. 6/23/1999 23:35"
	self nuke.

	^singleton ifNil: [singleton := super new]

	^self current

	singleton := nil