'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 29 December 2009 at 11:02:20 am'!

!Debugger methodsFor: 'context stack menu' stamp: 'jmv 12/29/2009 11:00'!
buildMorphicNotifierLabelled: label message: messageString 
	| notifyPane window contentTop extentToUse |
	self expandStack.
	window := (PreDebugWindow labelled: label) model: self.
	contentTop := 0.2.
	extentToUse := 650 @ 320.	"nice and wide to show plenty of the error msg"
	window addMorph: (self buttonRowForPreDebugWindow: window)
		frame: (0 @ 0 corner: 1 @ contentTop).
	messageString notNil 
		ifFalse: [
			notifyPane := PluggableListMorph 
						model: self
						listGetter: #contextStackList
						indexGetter: #contextStackIndex
						indexSetter: #debugAt:
						menuGetter: nil
						keystrokeAction: nil]
		ifTrue: [
			notifyPane := PluggableTextMorph 
						model: self
						editorClass: self editorClass
						textGetter: nil
						textSetter: nil
						selectionGetter: nil
						menuGetter: #debugProceedMenu:.
			notifyPane
				editString: messageString;
				askBeforeDiscardingEdits: false].
	window addMorph: notifyPane frame: (0 @ contentTop corner: 1 @ 1).
	^window openInWorldExtent: extentToUse! !

Debugger removeSelector: #isolationRecoveryAdvice!
Debugger removeSelector: #preDebugNotifierContentsFrom:!
