!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: 'lr 7/4/2009 10:42'!
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: 'lr 7/4/2009 10:42'!
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]! !