hg/stx-libtool: Tools__BreakpointBrowser.st@c936c0fc8ef4 (annotated)

8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	1	"
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	2	COPYRIGHT (c) 2008 by eXept Software AG
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	3	All Rights Reserved
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	4
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	5	This software is furnished under a license and may be used
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	6	only in accordance with the terms of that license and with the
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	7	inclusion of the above copyright notice. This software may not
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	8	be provided or otherwise made available to, or used by, any
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	9	other person. No title to or ownership of the software is
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	10	hereby transferred.
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	11	"
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12	"{ Package: 'stx:libtool' }"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	"{ NameSpace: Tools }"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	ApplicationModel subclass:#BreakpointBrowser
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	instanceVariableNames:'updatingLabelShown breakpointList shownCopyOfBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18	selectionIndexHolder currentSortColumn currentSortIsReverse
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	19	showHalts showOthers showAssertions showCodeBreakpoints
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	20	showCodeBreakpointsFor showMethodBreakpoints showDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	21	codeView infoHolder updateProcess showWhichHaltsHolder'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	22	classVariableNames:'MessagesAndTypes'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	poolDictionaries:''
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	category:'Interface-Smalltalk-Breakpoints'
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	Object subclass:#BreakpointListEntry
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28	instanceVariableNames:'type arg className selector lineNumber info enabled'
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	classVariableNames:''
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30	poolDictionaries:''
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	31	privateIn:BreakpointBrowser
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	RBProgramNodeVisitor subclass:#MessageArgumentExtractor
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	instanceVariableNames:'callBack selectorToSearch'
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	36	classVariableNames:''
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	poolDictionaries:''
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	38	privateIn:BreakpointBrowser
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	!BreakpointBrowser class methodsFor:'documentation'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	43	copyright
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	44	"
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	45	COPYRIGHT (c) 2008 by eXept Software AG
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	46	All Rights Reserved
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	47
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	48	This software is furnished under a license and may be used
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	49	only in accordance with the terms of that license and with the
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	50	inclusion of the above copyright notice. This software may not
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	51	be provided or otherwise made available to, or used by, any
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	52	other person. No title to or ownership of the software is
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	53	hereby transferred.
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	54	"
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	55	!
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	56
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	57	documentation
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	58	"
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	59	tool to list breakpoints (breakPoint/halt/assert)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	60
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	61	[author:]
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	62	cg (cg@FUSI)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	63	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	64	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	65
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	66	!BreakpointBrowser class methodsFor:'initialization'!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	67
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	68	defaultListOfMessagesAndTypes
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	69	"the set of messages which are shown;
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	70	you can add your own one's with a #other categorization"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	71
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	72	^ #(
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	73	(#breakPoint: #breakPoint)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	74	(#breakPoint:info: #breakPoint)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	75	(#debuggingCodeFor:is: #debugCode)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	76	(#halt #halt)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	77	(#halt: #halt)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	78	(#assert: #assertion)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	79	(#assert:message: #assertion)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	80	(#todo #other)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	81	(#todo: #other)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	82	).
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	83	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	84
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	85	initialize
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	86	MessagesAndTypes := self defaultListOfMessagesAndTypes
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	87	! !
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	88
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	!BreakpointBrowser class methodsFor:'interface specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	by the UIPainter of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	95	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	96	the UIPainter may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	97
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	98	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	99	UIPainter new openOnClass:Tools::BreakpointBrowser andSelector:#windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	100	Tools::BreakpointBrowser new openInterface:#windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	101	Tools::BreakpointBrowser open
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	102	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	104	<resource: #canvas>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	106	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	107	#(FullSpec
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	108	name: windowSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	109	window:
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	110	(WindowSpec
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	111	label: 'Breakpoint Browser'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	112	name: 'Breakpoint Browser'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	113	min: (Point 10 10)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	114	max: (Point 1024 768)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	115	bounds: (Rectangle 0 0 680 691)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	116	menu: mainMenu
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	117	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	118	component:
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	(SpecCollection
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	120	collection: (
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	121	(MenuPanelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	122	name: 'ToolBar1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	123	layout: (LayoutFrame 0 0.0 0 0 0 1.0 40 0)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	124	menu: toolBarMenu
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	125	textDefault: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	126	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	127	(VariableVerticalPanelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	128	name: 'VariableVerticalPanel1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	129	layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	130	snapMode: both
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	131	component:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	132	(SpecCollection
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	133	collection: (
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	134	(DataSetSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	135	name: 'Table'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	136	model: selectionIndexHolder
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	137	menu: itemMenu
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	138	hasHorizontalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	139	hasVerticalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	140	dataList: shownCopyOfBreakpointList
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	141	doubleClickSelector: itemDoubleClicked:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	142	columnHolder: tableColumns
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	143	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	144	(TextEditorSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	145	name: 'TextEditor1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	146	hasHorizontalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	147	hasVerticalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	148	hasKeyboardFocusInitially: false
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	149	viewClassName: 'CodeView'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	150	postBuildCallback: postBuildCodeView:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	151	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	152	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	153
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	154	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	155	handles: (Any 0.5 1.0)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	156	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	157	(LabelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	158	label: 'Updating - Please Wait...'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	159	name: 'Label1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	160	layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	161	visibilityChannel: updatingLabelShown
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	162	backgroundColor: (Color 100.0 49.999237048905 49.999237048905)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	163	translateLabel: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	164	)
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	165	(ViewSpec
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	166	name: 'InfoBox'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	167	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	168	visibilityChannel: updatingLabelShown
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	169	component:
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	170	(SpecCollection
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	171	collection: (
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	172	(LabelSpec
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	173	label: 'Label'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	174	name: 'Label2'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	175	layout: (LayoutFrame 2 0 2 0 680 0 30 0)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	176	level: -1
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	177	translateLabel: true
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	178	labelChannel: infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	179	adjust: left
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	180	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	181	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	182
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	183	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	184	)
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	185	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	186
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	187	)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	189	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	190
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	191	!BreakpointBrowser class methodsFor:'menu specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	192
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	193	itemMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	194	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	195	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	196
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	197	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	198	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	199
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	200	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	201	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#itemMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	202	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser itemMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	204
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	205	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	206
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	207	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	208	#(Menu
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	209	(
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	210	(MenuItem
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	211	label: 'Browse'
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	212	itemValue: browseSelectedItem
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	213	translateLabel: true
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	214	)
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	215	)
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	216	nil
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	217	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	mainMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	224
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#mainMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser mainMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	232
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	234
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	235	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	236	#(Menu
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	237	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	238	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	239	label: 'File'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	240	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	241	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	242	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	243	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	244	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	245	label: 'Exit'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	246	itemValue: closeRequest
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	247	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	248	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	249	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	250	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	251	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	252	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	253	)
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	254	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	255	label: 'Selection'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	256	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	257	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	258	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	259	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	260	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	261	enabled: hasSelectionHolder
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	262	label: 'Browse'
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	263	itemValue: browseSelectedItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	264	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	265	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	266	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	267	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	268	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	269	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	270	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	271	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	272	label: 'View'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	273	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	274	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	275	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	276	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	277	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	278	label: 'Update List'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	279	itemValue: updateList
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	280	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	281	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	282	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	283	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	284	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	285	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	286	label: 'Assertions'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	287	itemValue: showAssertions:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	288	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	289	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	290	indication: showAssertions
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	291	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	292	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	293	label: 'Halts'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	294	itemValue: showHalts:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	295	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	296	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	297	indication: showHalts
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	298	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	299	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	300	enabled: showHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	301	label: ' '
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	302	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	303	submenu:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	304	(Menu
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	305	(
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	306	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	307	label: 'All Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	308	nameKey: AllHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	309	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	310	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	311	choiceValue: all
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	312	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	313	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	314	label: 'Enabled Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	315	nameKey: EnabledHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	316	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	317	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	318	choiceValue: enabled
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	319	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	320	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	321	label: 'Ignored Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	322	nameKey: IgnoredHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	323	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	324	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	325	choiceValue: ignored
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	326	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	327	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	328	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	329	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	330	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	331	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	332	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	333	label: 'Code Breakpoints'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	334	itemValue: showCodeBreakpoints:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	335	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	336	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	337	indication: showCodeBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	338	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	339	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	340	enabled: showCodeBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	341	label: ' '
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	342	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	343	submenuChannel: codeBreakpointMenu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	344	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	345	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	346	label: 'Debug Code'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	347	itemValue: showDebugCode:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	348	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	349	hideMenuOnActivated: false
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	350	indication: showDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	351	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	352	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	353	label: 'Other Debug Messages'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	354	itemValue: showOthers:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	355	translateLabel: true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	356	hideMenuOnActivated: false
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	357	indication: showOthers
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	358	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	359	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	360	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	361	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	362	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	363	label: 'Method Breakpoints'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	364	itemValue: showMethodBreakpoints:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	365	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	366	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	367	indication: showMethodBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	368	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	369	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	370	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	371	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	372	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	373	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	374	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	375	label: 'Enable'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	376	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	377	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	378	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	379	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	380	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	381	label: 'Assertions'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	382	itemValue: enableAssertions:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	383	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	384	hideMenuOnActivated: false
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	385	indication: enableAssertions
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	386	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	387	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	388	label: 'Halts'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	389	itemValue: enableHalts:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	390	translateLabel: true
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	391	hideMenuOnActivated: false
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	392	indication: enableHalts
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	393	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	394	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	395	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	396	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	397	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	398	label: 'Code Breakpoints'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	399	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	400	submenuChannel: enabledCodeBreakpointMenu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	401	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	402	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	403	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	404	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	405	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	406	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	407	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	408	label: 'Help'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	409	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	410	startGroup: right
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	411	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	412	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	413	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	414	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	415	label: 'Documentation'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	416	itemValue: openDocumentation
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	417	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	418	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	419	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	420	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	421	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	422	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	423	label: 'About this Application...'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	424	itemValue: openAboutThisApplication
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	425	translateLabel: true
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	426	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	427	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	428	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	429	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	430	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	431	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	432	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	433	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	434	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	435	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	436	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	437
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	438	toolBarMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	439	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	440	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	441
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	442	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	443	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	444
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	445	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	446	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#toolBarMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	447	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser toolBarMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	448	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	449
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	450	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	451
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	452	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	453	#(Menu
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	454	(
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	455	(MenuItem
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	456	label: 'Update List'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	457	itemValue: updateList
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	458	translateLabel: true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	459	isButton: true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	460	labelImage: (ResourceRetriever XPToolbarIconLibrary reloadIcon)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	461	)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	462	(MenuItem
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	463	label: '-'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	464	)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	465	(MenuItem
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	466	enabled: hasSelectionHolder
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	467	label: 'Browse Selected Method'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	468	itemValue: browseSelectedItem
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	469	translateLabel: true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	470	isButton: true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	471	labelImage: (ResourceRetriever XPToolbarIconLibrary startNewSystemBrowserIcon)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	472	)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	473	)
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	474	nil
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	475	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	476	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	477	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	478
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	479	!BreakpointBrowser class methodsFor:'tableColumns specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	480
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	481	tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	482	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	483	by the DataSetBuilder of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	484
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	485	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	486	the DataSetBuilder may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	487
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	488	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	489	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	490	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	491
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	492	<resource: #tableColumns>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	493
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	494	^#(
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	495	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	496	label: 'Type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	497	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	498	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	499	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	500	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	501	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	502	width: 70
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	503	model: type
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	504	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	505	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	506	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	507	label: 'Arg'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	508	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	509	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	510	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	511	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	512	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	513	width: 50
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	514	model: arg
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	515	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	516	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	517	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	518	label: 'Class'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	519	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	520	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	521	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	522	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	523	labelActionArgument: 'className'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	524	width: 150
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	525	model: className
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	526	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	529	label: 'Method'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	530	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	531	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	532	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	533	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	534	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	535	labelActionArgument: 'selector'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	536	width: 200
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	537	model: selector
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	538	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	540	"/ (DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	541	"/ label: 'Line'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	542	"/ labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	543	"/ activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	544	"/ activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	545	"/ labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	546	"/ labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	547	"/ labelActionArgument: 'lineNumber'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	548	"/ width: 35
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	549	"/ model: lineNumber
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	550	"/ canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	551	"/ )
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	552	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	553	label: 'Info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	554	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	555	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	556	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	557	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	558	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	559	labelActionArgument: 'info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	560	model: info
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	561	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	562	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	563	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	564	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	tableColumns_v1
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	by the DataSetBuilder of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	the DataSetBuilder may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	<resource: #tableColumns>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	^#(
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	581	label: 'Enabled'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	582	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	583	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	584	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	585	width: 50
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	586	editorType: CheckToggle
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	587	rendererType: CheckToggle
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	588	model: enabled
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	589	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	590	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	591	label: 'Type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	592	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	593	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	594	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	595	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	596	labelActionArgument: 'type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	597	width: 60
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	598	model: type
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	599	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	600	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	601	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	602	label: 'Arg'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	603	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	604	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	605	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	606	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	607	labelActionArgument: 'type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	608	width: 50
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	609	model: arg
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	610	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	611	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	612	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	613	label: 'Class'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	614	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	615	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	616	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	617	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	618	labelActionArgument: 'className'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	619	width: 150
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	620	model: className
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	621	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	622	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	623	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	624	label: 'Method'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	625	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	626	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	627	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	628	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	629	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	630	labelActionArgument: 'selector'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	631	width: 200
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	632	model: selector
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	633	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	634	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	635	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	636	label: 'Line'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	637	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	638	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	639	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	640	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	641	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	642	labelActionArgument: 'lineNumber'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	643	width: 35
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	644	model: lineNumber
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	645	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	646	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	647	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	648	label: 'Info'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	649	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	650	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	651	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	652	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	653	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	654	labelActionArgument: 'info'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	655	model: info
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	656	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	659	!
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	660
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	661	tableColumns_v2
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	662	"This resource specification was automatically generated
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	663	by the DataSetBuilder of ST/X."
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	664
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	665	"Do not manually edit this!! If it is corrupted,
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	666	the DataSetBuilder may not be able to read the specification."
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	667
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	668	"
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	669	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	670	"
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	671
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	672	<resource: #tableColumns>
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	673
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	674	^#(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	675	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	676	label: 'Type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	677	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	678	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	679	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	680	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	681	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	682	width: 70
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	683	model: type
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	684	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	685	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	686	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	687	label: 'Arg'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	688	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	689	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	690	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	691	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	692	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	693	width: 50
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	694	model: arg
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	695	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	696	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	697	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	698	label: 'Class'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	699	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	700	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	701	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	702	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	703	labelActionArgument: 'className'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	704	width: 150
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	705	model: className
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	706	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	707	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	708	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	709	label: 'Method'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	710	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	711	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	712	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	713	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	714	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	715	labelActionArgument: 'selector'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	716	width: 200
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	717	model: selector
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	718	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	719	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	720	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	721	label: 'Line'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	722	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	723	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	724	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	725	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	726	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	727	labelActionArgument: 'lineNumber'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	728	width: 35
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	729	model: lineNumber
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	730	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	731	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	732	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	733	label: 'Info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	734	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	735	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	736	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	737	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	738	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	739	labelActionArgument: 'info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	740	model: info
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	741	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	742	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	743	)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	744	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	745
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	!BreakpointBrowser methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	748	aboutThisApplicationText
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	749	\|msg\|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	750
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	751	msg := super aboutThisApplicationText.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	752	msg := msg , '\\Written by Claus Gittinger (cg@exept.de).'.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	753	^msg withCRs.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	754	!
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	755
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	756	breakpointListEntryAtIndex:idx
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	757	^ shownCopyOfBreakpointList at:idx ifAbsent:nil
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	758
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	759
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	760
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	761
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	762
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	763	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	764
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	765	messagesAndTypes
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	766	"the spec of selectors to offer"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	767
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	768	^ MessagesAndTypes
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	769	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	770
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	771	selectedBreakpointListEntry
8398 f90fc6048ed4 changed #selectedBreakpointListEntry sr parents: 8365 diff changeset	772	self selectionIndex isNil ifTrue:[^ nil].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	773	^ self breakpointListEntryAtIndex:(self selectionIndex).
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	774	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	775
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	776	selectionIndex
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	777	^ self selectionIndexHolder value
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	778	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	779
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	780	shownCopyOfBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	781	shownCopyOfBreakpointList isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	782	shownCopyOfBreakpointList := List new
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	783	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	784	^ shownCopyOfBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	785
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	786	"Created: / 18-02-2007 / 12:53:01 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	787	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	788
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	789	updatingLabelShown
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	790	updatingLabelShown isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	791	updatingLabelShown := true asValue
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	792	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	793	^ updatingLabelShown
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	794	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	795
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	796	!BreakpointBrowser methodsFor:'aspects'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	797
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	798	enableAssertions
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	799	^ (Smalltalk at:#IgnoreAssertion ifAbsent:false) not
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	800	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	801
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	802	enableAssertions:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	803	^ Smalltalk at:#IgnoreAssertion put:aBoolean not
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	804	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	805
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	806	enableHalts
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	807	^ (Smalltalk at:#IgnoreHalt ifAbsent:false) not
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	808	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	809
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	810	enableHalts:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	811	^ Smalltalk at:#IgnoreHalt put:aBoolean not
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	812	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	813
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	814	hasSelectionHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	815	^ BlockValue
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	816	with:[:selIndex \| selIndex notNil and:[selIndex ~~ 0]]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	817	argument:self selectionIndexHolder
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	818	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	819
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	820	infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	821	infoHolder isNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	822	infoHolder := nil asValue.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	823	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	824	^ infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	825
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	826	"Created: / 22-10-2006 / 02:00:41 / cg"
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	827	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	828
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	829	selectionIndexHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	830	selectionIndexHolder isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	831	selectionIndexHolder := nil asValue.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	832	selectionIndexHolder onChangeSend:#updateCode to:self
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	833	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	834	^ selectionIndexHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836	"Created: / 22-10-2006 / 02:00:41 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	837	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	838
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	839	showAssertions
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	840	^ showAssertions ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	841	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	842
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	843	showAssertions:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	844	showAssertions := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848	showCodeBreakpoints
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849	^ showCodeBreakpoints ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	850	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	851
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	852	showCodeBreakpoints:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853	showCodeBreakpoints := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	854	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	855	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	856
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	857	showDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	858	^ showDebugCode ? true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	859	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	860
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	861	showDebugCode:aBoolean
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	862	showDebugCode := aBoolean.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	863	self updateShownBreakpointList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	864	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	865
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	showHalts
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	^ showHalts ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	showHalts:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	871	showHalts := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	showMethodBreakpoints
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	^ showMethodBreakpoints ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	showMethodBreakpoints:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	880	showMethodBreakpoints := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	self updateShownBreakpointList
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	882	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	883
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	884	showOthers
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	885	^ showOthers ? true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	886	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	887
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	888	showOthers:aBoolean
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	889	showOthers := aBoolean.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	890	self updateShownBreakpointList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	891	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	892
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	893	showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	894	showWhichHaltsHolder isNil ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	895	showWhichHaltsHolder := #all asValue.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	896	showWhichHaltsHolder onChangeSend:#updateShownBreakpointList to:self
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	897	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	898	^ showWhichHaltsHolder
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	899	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	900
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	901	!BreakpointBrowser methodsFor:'change & update'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	902
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	903	delayedUpdate:something with:aParameter from:changedObject
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	904	"/ changedObject == toDoList ifTrue:[
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	"/ self updateShownToDoList.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906	"/ ^ self
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	"/ ].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	909
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	910	filter
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	911	"filter those items which are to be shown from the complete list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	912
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	913	\|newList showWhichHalt\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	914
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	915	newList := breakpointList.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	916
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	917	self showOthers ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	918	newList := newList reject:[:entry \| entry isOther].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	919	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	920	self showDebugCode ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	921	newList := newList reject:[:entry \| entry isDebugCode].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	922	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	923	self showMethodBreakpoints ifFalse:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	924	newList := newList reject:[:entry \| entry isMethodBreakpoint].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	925	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	926	self showAssertions ifFalse:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	927	newList := newList reject:[:entry \| entry isAssertion].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	928	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	929
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	930	self showHalts ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	931	newList := newList reject:[:entry \| entry isHalt].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	932	] ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	933	showWhichHalt := showWhichHaltsHolder value.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	934	showWhichHalt ~~ #all ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	935	newList := newList reject:[:entry \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	936	entry isHalt
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	937	and:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	938	\|showInList isIgnored\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	939
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	940	showInList := true.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	941	isIgnored := Debugger isHaltToBeIgnoredIn:entry method atLineNr:entry lineNumber.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	942	showWhichHalt == #ignored ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	943	showInList := isIgnored
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	944	] ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	945	showInList := isIgnored not
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	946	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	947	showInList not]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	948	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	949	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	950	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	951
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	952	self showCodeBreakpoints ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	953	newList := newList reject:[:entry \| entry isCodeBreakpoint].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	954	] ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	955	newList := newList reject:[:entry \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	956	\|flag\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	957
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	958	flag := (showCodeBreakpointsFor at:(entry arg ? '<nil>') ifAbsentPut:[true asValue]) value.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	959	entry isCodeBreakpoint
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	960	and:[ flag not ]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	961	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	962	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	963
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	964	shownCopyOfBreakpointList contents:newList.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	965	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	966
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	967	messageSelectors
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	968	^ (self messagesAndTypes collect:[:each \| each first]) asSet.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	969	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	970
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	971	update:something with:aParameter from:changedObject
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	972	changedObject == Smalltalk ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	973	something == #methodInClass ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	974	self updateForClass:(aParameter first) selector:(aParameter second).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	975	^ self.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	976	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	977	something == #methodInClassRemoved ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	978	self updateForClass:(aParameter first) selector:(aParameter second).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	979	^ self.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	980	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	981	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	982
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	983	^ super update:something with:aParameter from:changedObject
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	984
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	985	"Created: / 18-02-2007 / 12:54:32 / cg"
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	986
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	987
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	988
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	989
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	990
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	991
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	992
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	993
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	994
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	995
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	996
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	997	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	998
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	999	updateBreakpointList
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1000	\|newShowCodeBreakpointsFor messages messageSelectors update \|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1001
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1002	breakpointList removeAll.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1003	newShowCodeBreakpointsFor := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1004
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1005	messages := self messagesAndTypes.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1006	messageSelectors := self messageSelectors.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1007
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008	update := [:cls :mthd :sel \|
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1009	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1010	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1011	messages:messages
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1012	messageSelectors:messageSelectors
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1013	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1014	do:[:newEntry \| breakpointList add:newEntry ].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1015	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1016
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1017	Smalltalk allClassesDo:[:cls \|
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1018	cls selectorsAndMethodsDo:[:sel :mthd \|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1019	update value:cls value:mthd value:sel
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1020	].
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1021	cls class selectorsAndMethodsDo:[:sel :mthd \|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1022	update value:cls class value:mthd value:sel
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1023	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1024	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1025
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1026	showCodeBreakpointsFor := newShowCodeBreakpointsFor.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1027	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1028
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1029	updateCode
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1030	\|entry method class\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1031
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1032	entry := self selectedBreakpointListEntry.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1033	entry isNil ifTrue:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1034	codeView contents:nil.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1035	^ self
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1036	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1037	method := entry method.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	method isNil ifTrue:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1039	codeView contents:'OOPS - no source found'.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1040	] ifFalse:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1041	codeView contents:(method source).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1042	entry lineNumber notNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1043	codeView cursorLine:entry lineNumber col:1.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1044	codeView selectLine:entry lineNumber.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1045	] ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1046	self breakPoint:#cg.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1047	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1048	codeView
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1049	acceptAction:[:newText \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1050	class := method mclass ? (Smalltalk classNamed:entry className).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1051	class
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1052	compilerClass
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1053	compile:newText asString
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1054	forClass:class
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1055	inCategory:method category
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1056	notifying:codeView.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1057	]
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1058	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1059	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1060
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1061	updateEntry:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1062	"after a change, update the list entry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1063	(or remove it if required)"
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1064
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1065	\|mthd cls sel newShowCodeBreakpointsFor any\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1066
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1067	newShowCodeBreakpointsFor := Dictionary new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1068
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1069	breakpointList remove:entry ifAbsent:[].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1070
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1071	mthd := entry method.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1072	cls := Smalltalk classNamed:entry className.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1073	sel := entry selector.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1074
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1075	any := false.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1076	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1077	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1078	messages:(self messagesAndTypes)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1079	messageSelectors:(self messageSelectors)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1080	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1081	do:[:newEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1082	any := true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1083	breakpointList add:newEntry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1084	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1085	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1086
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1087	updateForClass:aClass selector:selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1088	\|selectionIndexBefore mthd affectedEntries newShowCodeBreakpointsFor\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1089
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1090	selectionIndexBefore := selectionIndexHolder value.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1091
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1092	affectedEntries := breakpointList select:[:entry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1093	entry selector = selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1094	and:[ entry className = aClass name ]
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1095	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1096	affectedEntries do:[:eachEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1097	breakpointList remove:eachEntry ifAbsent:[].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1099
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1100	mthd := aClass compiledMethodAt:selector.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1101	mthd notNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1102	newShowCodeBreakpointsFor := Dictionary new.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1103
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1104	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1105	withBreakpointListEntriesFor:mthd class:aClass selector:selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1106	messages:(self messagesAndTypes)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1107	messageSelectors:(self messageSelectors)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1108	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1109	do:[:newEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1110	breakpointList add:newEntry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1111	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1112	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1113
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1114	self updateShownBreakpointList.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1115	self selectionIndexHolder value:selectionIndexBefore.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1116	self updateCode
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1117	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1118
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1119	updateList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1120	updateProcess notNil ifTrue:[^ self ].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1121
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1122	self updatingLabelShown value:true.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1123	"/ cg: mhmh why is this needed ????
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1124	Delay waitForSeconds:0.1.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1125	self windowGroup repairDamage.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1126
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1127	updateProcess :=
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1128	[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1129	[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1130	ActivityNotification handle:[:ex \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1131	self infoHolder value:ex errorString.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1132	self windowGroup processExposeEvents.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1133	ex proceed.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1134	] do:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1135	self updateBreakpointList.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1136	self updateShownBreakpointList.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1137	]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1138	] ensure:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1139	updateProcess := nil.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1140	self updatingLabelShown value:false.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1141	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1142	] newProcess.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1143	updateProcess resume.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1144	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1145
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1146	updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1147
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1148	self shownCopyOfBreakpointList contents:breakpointList.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1149	self filter.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	self resort.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1153	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1154
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1155	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1156	messages:messages
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1157	messageSelectors:messageSelectors
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1158	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1159	do:aBlock
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1160
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1161	\|entry type messagesSent showWhichHalt\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1162
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1163	showWhichHalt := self showWhichHaltsHolder value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1164
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1165	mthd isWrapped ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1166	mthd isBreakpointed ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1167	type := #trap
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1168	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1169	mthd isTraced ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1170	type := #trace
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1171	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1172	type := #probe
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1173	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1174	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1175	entry := BreakpointListEntry new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1176	entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1177	type:#wrap
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1178	arg:type
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1179	className:cls name
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1180	selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1181	lineNumber:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1182	info:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1183	enabled:true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1184	aBlock value:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1185	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1186
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1187	(mthd literalsDetect:[:lit \|messageSelectors includes:lit] ifNone:nil) notNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1188	messagesSent isNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1189	messagesSent := mthd messagesSent.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1190	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1191
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1192	messages pairsDo:[:bpSel :type\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1193	\|tree extractor\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1194
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1195	"/ used to be (mthd sends:bpSel);
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1196	"/ however, the sends requires an expensive parse of the methods source
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1197	"/ to fetch all message selectors. This should be done only once,
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1198	"/ and not for every selector we look for)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1199	(messagesSent includesIdentical:bpSel) ifTrue:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1200	tree := RBParser
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1201	parseMethod:mthd source
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1202	onError:[:aString :pos \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1203	('BreakPointBrowser [info]: error while parsing "%1": %2'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1204	bindWith:mthd whoString with:aString) infoPrintCR.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1205	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1206	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1207
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1208	tree isNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1209	entry := BreakpointListEntry new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1210	entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1211	type:type
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1212	arg:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1213	className:cls name
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1214	selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1215	lineNumber:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1216	info:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1217	enabled:true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1218	aBlock value:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1219	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1220	extractor := MessageArgumentExtractor new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1221	extractor selectorToSearch:bpSel.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1222	extractor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1223	callBack:[:lineNo :argument :infoMessage \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1224	\|showIt isIgnored\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1225
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1226	argument notNil ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1227	newShowCodeBreakpointsFor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1228	at:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1229	put:(showCodeBreakpointsFor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1230	at:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1231	ifAbsent:[true asValue])
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1232	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1233	entry := BreakpointListEntry new.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1234	entry
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1235	type:type
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1236	arg:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1237	className:cls name
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1238	selector:sel
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1239	lineNumber:lineNo
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1240	info:infoMessage
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1241	enabled:true.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1242
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1243	aBlock value:entry
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1244	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1245
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1246	tree acceptVisitor:extractor.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1247	]
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1248	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1249	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1250	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1251	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253	!BreakpointBrowser methodsFor:'initialization & release'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1254
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1255	initialize
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1256	super initialize.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1258	showCodeBreakpointsFor := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1259	breakpointList := List new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1260
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1261	currentSortColumn := #type.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1262	currentSortIsReverse := false.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1263
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1264	Smalltalk addDependent:self.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1265	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1266
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267	postBuildCodeView:aView
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1268	codeView := aView
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1269	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1270
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271	postOpenWith:aBuilder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272	super postOpenWith:aBuilder.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1273
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1274	self enqueueMessage:#updateList for:self arguments:#().
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1275
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1276	"Modified: / 18-02-2007 / 12:55:57 / cg"
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1277	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1278
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1279	release
8767 00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1280	\|p\|
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1281
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1282	(p := updateProcess) notNil ifTrue:[
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1283	updateProcess := nil.
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1284	p terminate
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1285	].
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1286	Smalltalk removeDependent:self.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1287	super release
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1288	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1289
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1290	!BreakpointBrowser methodsFor:'menu actions'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1291
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1292	openDocumentation
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1293	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1294
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1295	"/ add application-specific help files under the 'doc/online/<language>/help/appName'
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1296	"/ directory, and open a viewer with:
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1297	"/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1298	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1299
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	!BreakpointBrowser methodsFor:'menu actions-item'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	browseItem
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1303	self withWaitCursorDo:[
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1304	(self breakpointListEntryAtIndex:self selectionIndexHolder value) browse
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1305	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1307
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1308	removeItem
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1309	breakpointList remove:(self selectedBreakpointListEntry)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1310
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1311	"Created: / 22-10-2006 / 10:45:52 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1312	"Modified: / 18-02-2007 / 12:57:58 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1313	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1314
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1315	!BreakpointBrowser methodsFor:'menus-dynamic'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1316
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1317	codeBreakpointMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1318	<resource: #programMenu >
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1319
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1320	\|breakpointArgs menu\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1321
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1322	breakpointArgs := Set new.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1323	breakpointList
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1324	select:[:entry \| entry arg notNil]
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1325	thenDo:[:entry \| breakpointArgs add:entry arg].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1326	(breakpointList contains:[:entry \| entry arg isNil]) ifTrue:[
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1327	breakpointArgs add:'<nil>'.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1328	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1329	breakpointArgs := breakpointArgs asSortedCollection.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1330
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1331	menu := Menu new.
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1332	menu addItem:(
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1333	MenuItem new
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1334	label:'Toggle All';
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1335	translateLabel:true;
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1336	hideMenuOnActivated:false;
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1337	value:[
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1338	showCodeBreakpointsFor do:[:each \|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1339	each value:(each value not)
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1340	]
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1341	]).
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1342	menu addSeparator.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1343
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1344	breakpointArgs do:[:arg\|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1345	\| menuItem \|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1346
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1347	menuItem := MenuItem new.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1348	menuItem label:arg.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1349	menuItem translateLabel:false.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1350	menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]).
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1351	menuItem hideMenuOnActivated:false.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1352	menuItem value:[:onOff \|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1353	(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1354	self updateShownBreakpointList
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1355	].
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1356	menu addItem:menuItem.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1357	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1358	menu findGuiResourcesIn:self.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1359	^ menu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1360
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1361	"Modified: / 27-03-2007 / 10:54:29 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1362	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1363
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1364	enabledCodeBreakpointMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1365	<resource: #programMenu >
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1366
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1367	\|breakpointArgs menu enabledCodeBreakpointHolders\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1368
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1369	enabledCodeBreakpointHolders := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1370
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1371	breakpointArgs := Set new.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1372	breakpointList
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1373	select:[:entry \| entry arg notNil]
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1374	thenDo:[:entry \| breakpointArgs add:entry arg].
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1375
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1376	(breakpointList contains:[:entry \| entry arg isNil]) ifTrue:[
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1377	breakpointArgs add:'<nil>'.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1378	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1379	breakpointArgs := breakpointArgs asSortedCollection.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1380
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1381	menu := Menu new.
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1382	menu addItem:(
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1383	MenuItem new
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1384	label:'Toggle All';
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1385	translateLabel:true;
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1386	hideMenuOnActivated:false;
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1387	value:[
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1388	enabledCodeBreakpointHolders do:[:each \|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1389	each value:(each value not)
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1390	]
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1391	]).
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1392	menu addSeparator.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1393
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1394	breakpointArgs do:[:arg\|
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1395	\| menuItem \|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1396
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1397	menuItem := MenuItem new.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1398	menuItem label:arg.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1399	menuItem translateLabel:false.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1400	menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]).
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1401	menuItem hideMenuOnActivated:false.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1402	menuItem value:[:onOff \|
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1403	(enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1404	onOff ifFalse:[
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1405	Object disableBreakPoint:arg
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1406	] ifTrue:[
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1407	Object enableBreakPoint:arg
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1408	].
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1409	].
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1410	menu addItem:menuItem.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1411	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1412	menu findGuiResourcesIn:self.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1413	^ menu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1414
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1415	"Modified: / 27-03-2007 / 10:54:29 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1416	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1417
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1418	!BreakpointBrowser methodsFor:'tests'!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1419
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1420	aMethodWith_assert
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1421	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1422
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1423	self assert:(3 > 4)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1424	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1425
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1426	aMethodWith_assert2
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1427	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1428
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1429	self assert:(3 > 4) message:'well - that ought to work'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1430	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1431
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1432	aMethodWith_breakPoint
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1433	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1434
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1435	self breakPoint:#cg
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1436	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1437
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1438	aMethodWith_breakPoint2
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1439	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1440
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1441	self breakPoint:#cg info:'hello there'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1442	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1443
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1444	aMethodWith_debugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1445	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1446
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1447	self
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1448	debuggingCodeFor:#cg
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1449	is:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1450	self bla.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1451	Transcript show:'some debug prints here'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1452	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1453	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1454
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1455	aMethodWith_halt
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1456	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1457
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1458	self halt
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1459	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1460
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1461	aMethodWith_halt2
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1462	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1463
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1464	self halt:'some message'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1465	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1466
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1467	aMethodWith_todo
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1468	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1469
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1470	self todo
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1471	! !
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1472
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473	!BreakpointBrowser methodsFor:'user actions'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475	browseSelectedItem
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1476	self withWaitCursorDo:[
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1477	(self selectedBreakpointListEntry) browse
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1478	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1479
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1480	"Created: / 22-10-2006 / 01:49:13 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1481	"Modified: / 18-02-2007 / 12:56:30 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1482	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1483
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1484	itemDoubleClicked:itemIndex
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1485	self browseSelectedItem
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1486
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1487	"Created: / 22-10-2006 / 01:49:13 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1488	"Modified: / 18-02-2007 / 12:56:30 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1489	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1490
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1491	resort
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1492	\|sortBlock sortBlock1\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1493
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1494	currentSortColumn isNil ifTrue:[^ self ].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	sortBlock := sortBlock1 := [:a :b \|
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1497	\|vA vB\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1499	vA := (a perform:currentSortColumn).
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1500	vB := (b perform:currentSortColumn).
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1501	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1502	currentSortColumn == #type ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1503	vA := a arg.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1504	vB := b arg.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1505	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1506	vA := a className.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1507	vB := b className.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1508	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1509	vA := a selector.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1510	vB := b selector.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1511	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1512	vA := a lineNumber.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1513	vB := b lineNumber.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1514	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1515	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1516	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1517	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1518	].
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1519	(vA ? '') < (vB ? '')
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1520	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1521
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1522	currentSortIsReverse ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1523	sortBlock := [:a :b \| (sortBlock1 value:a value:b) not ].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1524	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1525
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1526	"/ temporary hack - should make a copy of the real list
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1527	self shownCopyOfBreakpointList sort:sortBlock
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1528
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1529	"Created: / 25-10-2006 / 01:01:26 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530	"Modified: / 18-02-2007 / 13:02:19 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1531	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1532
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1533	sortBy:instanceName
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1534	self sortBy:instanceName withReverse:true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1535
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1536	"Created: / 25-10-2006 / 00:53:55 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1537	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1538
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1539	sortBy:instanceName withReverse:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1540	\|aSymbol\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1541
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1542	aSymbol := instanceName asSymbol.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1543
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1544	currentSortColumn isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1545	currentSortColumn := aSymbol.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1546	currentSortIsReverse := false.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547	] ifFalse:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1548	currentSortColumn = aSymbol ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1549	"/ same column like before - change sort order ifReverse is true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1550	aBoolean ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1551	currentSortIsReverse := currentSortIsReverse not.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1552	].
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1553	] ifFalse:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1554	"/ another column - remark column
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1555	currentSortColumn := aSymbol.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1556	]
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1557	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1558	self resort.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1560	"Created: / 25-10-2006 / 00:54:59 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1561	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1562
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1563	!BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1564
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	arg
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1566	^ arg
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569	className
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1570	^ className
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1571	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1572
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1573	enabled
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1574	^ enabled
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1575	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1576
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1577	info
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1578	^ info
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1579	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1580
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1581	lineNumber
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1582	^ lineNumber
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1583	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1584
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1585	selector
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1586	^ selector
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1587	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1588
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1589	type
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1590	^ type
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1591	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1592
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1593	type:typeArg arg:argArg className:classNameArg selector:selectorArg lineNumber:lineNumberArg info:infoArg enabled:enabledArg
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1594	type := typeArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1595	arg := argArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1596	className := classNameArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1597	selector := selectorArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1598	lineNumber := lineNumberArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1599	info := infoArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1600	enabled := enabledArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1601	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1602
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1603	!BreakpointBrowser::BreakpointListEntry methodsFor:'actions'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1604
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1605	browse
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	\|browser\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1608	browser := UserPreferences systemBrowserClass
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1609	openInClass:(Smalltalk classNamed:className) selector:selector.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1610
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1611	lineNumber notNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1612	browser codeView cursorLine:lineNumber col:1.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1613	browser codeView selectLine:lineNumber.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1614	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1615
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1616	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1617
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1618	method
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1619	^ (Smalltalk classNamed:className) compiledMethodAt:selector.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1620	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1621
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1622	!BreakpointBrowser::BreakpointListEntry methodsFor:'testing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1623
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1624	isAssertion
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1625	^ type == #assertion
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1626	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1627
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1628	isCodeBreakpoint
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1629	^ type == #breakPoint
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1630	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1631
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1632	isDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1633	^ type == #debugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1634	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1635
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1636	isHalt
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1637	^ type == #halt
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1638	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1639
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1640	isMethodBreakpoint
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1641	^ type == #wrap
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1642	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1643
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1644	isOther
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1645	^ type == #other
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1646	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1647
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1648	!BreakpointBrowser::MessageArgumentExtractor methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1649
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1650	callBack:something
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1651	callBack := something.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1652	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1653
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1654	selectorToSearch:something
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1655	selectorToSearch := something.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1656	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1657
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1658	!BreakpointBrowser::MessageArgumentExtractor methodsFor:'visiting'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1659
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1660	acceptMessageNode: aMessageNode
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1661	\|arg1Node arg1 arg2Node arg2 argument infoMessage\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1662
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1663	aMessageNode selector == selectorToSearch ifTrue:[
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1664	aMessageNode arguments size > 0 ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1665	arg1Node := aMessageNode arguments first.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1666	arg1Node isLiteral ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1667	arg1 := arg1Node value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1668	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1669	arg1 := '(...)'.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1670	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1671	aMessageNode arguments size > 1 ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1672	arg2Node := aMessageNode arguments second.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1673	arg2Node isLiteral ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1674	arg2 := arg2Node value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1675	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1676	arg2 := '(...)'.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1677	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1678	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1679	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1680
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1681	selectorToSearch == #halt: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1682	infoMessage := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1683	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1684	selectorToSearch == #breakPoint: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1685	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1686	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1687	selectorToSearch == #breakPoint:info: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1688	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1689	infoMessage := arg2.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1690	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1691	selectorToSearch == #debuggingCodeFor:is: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1692	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1693	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1694	selectorToSearch == #assert: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1695	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1696	selectorToSearch == #assert:message: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1697	infoMessage := arg2.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1698	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1700	callBack
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1701	value:aMessageNode firstLineNumber
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1702	value:argument
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1703	value:infoMessage
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1704	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1705	super acceptMessageNode: aMessageNode
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1706	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1707
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1708	!BreakpointBrowser class methodsFor:'documentation'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1709
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1710	version
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1711	^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.16 2009-10-26 10:10:41 cg Exp $'
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1712	!
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1713
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1714	version_CVS
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1715	^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.16 2009-10-26 10:10:41 cg Exp $'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1716	! !
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1717
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1718	BreakpointBrowser initialize!

author	Claus Gittinger <cg@exept.de>
	Mon, 26 Oct 2009 11:10:41 +0100
changeset 9077	c936c0fc8ef4
parent 9045	a43cc56e8dca
child 9079	8f59fc950e8f
permissions	-rw-r--r--