!OBTextPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 15:47'!
createCompletionController
	^ ECController model: self! !

!OBTextPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 15:47'!
guessTypeForName: aString 
	^ nil! !

!OBTextPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 15:48'!
initializeCompletionController
	| controller |
	controller _ self createCompletionController.
	self
		when: #getCompletionController
		evaluate: (MessageSend receiver: controller selector: #yourself).
	^ controller! !

!OBMercuryPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 17:17'!
completionController
	| controller | 
	controller := self triggerEvent: #getCompletionController.
	controller ifNil: [controller := self initializeCompletionController].
	^controller! !

!OBMercuryPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 17:00'!
modelClass
   ^ECUnseparatedModel! !

!OBMercuryPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dr 10/30/2008 15:48'!
selectedClassOrMetaClass
	^nil! !

!OBDefinitionPanel methodsFor: '*ecompletionomnibrowser' stamp: 'bar 12/16/2004 10:03'!
completionController
	| controller |
	controller _ self triggerEvent: #getCompletionController.
	controller ifNil:[ controller _ self initializeCompletionController ].
	^controller! !

!OBDefinitionPanel methodsFor: '*ecompletionomnibrowser' stamp: 'dc 9/3/2007 14:49'!
selectedClassOrMetaClass
	^ definition ifNotNil: [definition selectedClass]! !