[ENH]PreDebugWindow

Karl Ramberg karl.ramberg at chello.se
Wed Oct 4 21:04:05 UTC 2000


This is a small change to the PreDebugWindow. Now you
can click on the message in the stack list to jump
directly to that in the debugger. This saves a few 
mouse clicks and a few seconds when debugging :-)

(And as allways with this kind of stuff, file in this change
set at your own risk .)

Karl
-------------- next part --------------
'From Squeak2.9alpha of 13 June 2000 [latest update: #2762] on 4 October 2000 at 10:53:47 pm'!

!Debugger methodsFor: 'initialize' stamp: 'kfr 10/4/2000 22:13'!
debugAt: anInteger
	self toggleContextStackIndex: anInteger. 
	 ^ self debug.! !

!Debugger methodsFor: 'context stack menu' stamp: 'kfr 10/4/2000 22:13'!
buildMorphicNotifierLabelled: label message: messageString
	| notifyPane window contentTop extentToUse |
	self expandStack.
	window _ (PreDebugWindow labelled: label) model: self.

	contentTop _ 0.2.
	extentToUse _ 450 @ 156. "nice and wide to show plenty of the error msg"
	window addMorph: (self buttonRowForPreDebugWindow: window)
				frame: (0 at 0 corner: 1 @ contentTop).

	notifyPane _(PluggableListMorph on: self list: #contextStackList
			selected: #contextStackIndex changeSelected: #debugAt:
			menu: #contextStackMenu:shifted: keystroke: #contextStackKey:from:).
	window addMorph: notifyPane frame: (0 at contentTop corner: 1 at 1).
	"window deleteCloseBox.
		chickened out by commenting the above line out, sw 8/14/2000 12:54"
	window setBalloonTextForCloseBox.

	^ window openInWorldExtent: extentToUse! !



More information about the Squeak-dev mailing list