'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 8 December 2009 at 4:03:29 pm'!

!Boolean methodsFor: 'printing' stamp: 'apb 4/21/2006 09:22'!
isLiteral 
	^ true! !


!CompiledMethod methodsFor: 'accessing' stamp: 'eem 5/24/2008 13:42'!
methodClass
	"answer the class that I am installed in"
	| who |
	self hasNewPropertyFormat ifFalse:
		[^(who := self who first) == #unknown ifFalse: [who]]. "there are some activated old methods"
	^(self literalAt: self numLiterals) value.! !


!Debugger methodsFor: 'context stack menu' stamp: 'eem 5/21/2008 10:39'!
implement: aMessage inClass: aClass
	
	aClass
		compile: aMessage createStubMethod
		classified: (self askForCategoryIn: aClass default: 'as yet unclassified').
	self setContentsToForceRefetch.
	self selectedContext privRefreshWith: (aClass lookupSelector: aMessage selector).
	self selectedContext method numArgs > 0 ifTrue:
		[(self selectedContext tempAt: 1) arguments withIndexDo:
			[:arg :index|
			self selectedContext tempAt: index put: arg]].
	self resetContext: self selectedContext.
	self debug.
! !


!Inspector methodsFor: 'selecting' stamp: 'eem 5/21/2008 11:46'!
selectedSlotName

	^ self fieldList at: self selectionIndex ifAbsent: []! !

