hg/stx-libtool: Tools__BreakpointBrowser.st@28f5bfaa093d (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
12526 dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	19	showHalts showOthers showAssertions showAssertionsInTests
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	20	showCodeBreakpoints showCodeBreakpointsFor showMethodBreakpoints
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	21	showLineBreakpoints showDebugCode showTracepoints codeView
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	22	infoHolder updateProcess showWhichHaltsHolder packageFilter
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	23	classNameFilter'
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	24	classVariableNames:'MessagesAndTypes'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	poolDictionaries:''
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	26	category:'Interface-Debugger'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	Object subclass:#BreakpointListEntry
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	30	instanceVariableNames:'type ignoredInfo arg className selector lineNumber info enabled'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	classVariableNames:''
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	poolDictionaries:''
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	33	privateIn:BreakpointBrowser
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	36	BreakpointBrowser::BreakpointListEntry subclass:#BreakpointListEntryForLineBreak
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	37	instanceVariableNames:'breakPoint'
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	38	classVariableNames:''
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	39	poolDictionaries:''
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	40	privateIn:BreakpointBrowser
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	41	!
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	42
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	RBProgramNodeVisitor subclass:#MessageArgumentExtractor
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	instanceVariableNames:'callBack selectorToSearch'
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	classVariableNames:''
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	poolDictionaries:''
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	47	privateIn:BreakpointBrowser
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50	!BreakpointBrowser class methodsFor:'documentation'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	52	copyright
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	53	"
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	54	COPYRIGHT (c) 2008 by eXept Software AG
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	55	All Rights Reserved
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	56
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	57	This software is furnished under a license and may be used
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	58	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	59	inclusion of the above copyright notice. This software may not
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	60	be provided or otherwise made available to, or used by, any
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	61	other person. No title to or ownership of the software is
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	62	hereby transferred.
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	63	"
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	64	!
971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	65
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	66	documentation
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	67	"
8234 971ce68b9ff6 * empty log message * Claus Gittinger <cg@exept.de> parents: 8233 diff changeset	68	tool to list breakpoints (breakPoint/halt/assert)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	69
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	70	[author:]
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	71	cg (cg@FUSI)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	72	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	73	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	74
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	75	!BreakpointBrowser class methodsFor:'initialization'!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	76
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	77	defaultListOfMessagesAndTypes
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	78	"the set of messages which are shown;
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	79	you can add your own one's with a #other categorization"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	80
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	81	^ #(
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	82	(#breakPoint: #breakPoint)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	83	(#breakPoint:info: #breakPoint)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	84	(#debuggingCodeFor:is: #debugCode)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	85	(#halt #halt)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	86	(#halt: #halt)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	87	(#assert: #assertion)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	88	(#assert:message: #assertion)
12938 626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	89	(#todo #todo)
626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	90	(#todo: #todo)
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	91	(#tracePoint: #tracepoint)
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	92	(#tracePoint:message: #tracepoint)
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	93	).
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	94	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	95
15619 964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	96	messagesAndTypes
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	97	"the spec of selectors to search for coded breakpoints"
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	98
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	99	MessagesAndTypes isNil ifTrue:[
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	100	MessagesAndTypes := self defaultListOfMessagesAndTypes
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	101	].
964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	102	^ MessagesAndTypes
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	103	! !
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	104
9335 1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	105	!BreakpointBrowser class methodsFor:'defaults'!
1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	106
1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	107	defaultIcon
9804 87e3f570a574 set icon resource Stefan Vogel <sv@exept.de> parents: 9795 diff changeset	108	<resource: #programImage>
87e3f570a574 set icon resource Stefan Vogel <sv@exept.de> parents: 9795 diff changeset	109
9335 1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	110	^ ToolbarIconLibrary openBreakpointBrowserIcon
1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	111	! !
1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	112
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	113	!BreakpointBrowser class methodsFor:'interface specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	114
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	by the UIPainter of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	119	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	120	the UIPainter may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	121
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	122	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	123	UIPainter new openOnClass:Tools::BreakpointBrowser andSelector:#windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	124	Tools::BreakpointBrowser new openInterface:#windowSpec
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	125	Tools::BreakpointBrowser open
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	126	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	127
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	128	<resource: #canvas>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	129
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	130	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	131	#(FullSpec
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	132	name: windowSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	133	window:
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	134	(WindowSpec
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	135	label: 'Breakpoint Browser'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	136	name: 'Breakpoint Browser'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	137	min: (Point 10 10)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	138	bounds: (Rectangle 0 0 680 691)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	139	menu: mainMenu
9335 1694dac4e946 added: #defaultIcon Claus Gittinger <cg@exept.de> parents: 9285 diff changeset	140	icon: defaultIcon
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	141	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	142	component:
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	143	(SpecCollection
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	144	collection: (
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	145	(MenuPanelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	146	name: 'ToolBar1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	147	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	148	menu: toolBarMenu
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	149	textDefault: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	150	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	151	(VariableVerticalPanelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	152	name: 'VariableVerticalPanel1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	153	layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	154	snapMode: both
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	155	component:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	156	(SpecCollection
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	157	collection: (
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	158	(DataSetSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	159	name: 'Table'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	160	model: selectionIndexHolder
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	161	menu: itemMenu
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	162	hasHorizontalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	163	hasVerticalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	164	dataList: shownCopyOfBreakpointList
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	165	doubleClickSelector: itemDoubleClicked:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	166	columnHolder: tableColumns
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	167	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	168	(TextEditorSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	169	name: 'TextEditor1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	170	hasHorizontalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	171	hasVerticalScrollBar: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	172	hasKeyboardFocusInitially: false
12009 9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	173	viewClassName: 'codeViewClass'
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	174	postBuildCallback: postBuildCodeView:
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	175	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	176	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	177
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	178	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	179	handles: (Any 0.5 1.0)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	180	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	181	(LabelSpec
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	182	label: 'Updating - Please Wait...'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	183	name: 'Label1'
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	184	layout: (LayoutFrame 0 0 40 0 0 1 0 1)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	185	visibilityChannel: updatingLabelShown
12009 9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	186	backgroundColor: (Color 100.0 49.9992370489052 49.9992370489052)
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	187	translateLabel: true
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	188	)
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	189	(ViewSpec
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	190	name: 'InfoBox'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	191	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	192	visibilityChannel: updatingLabelShown
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	193	component:
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	194	(SpecCollection
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	195	collection: (
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	196	(LabelSpec
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	197	label: 'Label'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	198	name: 'Label2'
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	199	layout: (LayoutFrame 2 0 2 0 680 0 30 0)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	200	level: -1
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	201	translateLabel: true
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	202	labelChannel: infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	203	adjust: left
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	204	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	205	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	206
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	207	)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	208	)
8357 2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	209	)
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	210
2fa277092d1c * empty log message * Claus Gittinger <cg@exept.de> parents: 8354 diff changeset	211	)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	212	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	213	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	214
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	215	!BreakpointBrowser class methodsFor:'menu specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	216
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	217	itemMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	218	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	219	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	220
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	221	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	222	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	223
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	224
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	225	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	226	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#itemMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	227	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser itemMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	228	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	229
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	230	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	231
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	232	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	233	#(Menu
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	234	(
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	235	(MenuItem
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	236	label: 'Browse'
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	237	itemValue: browseSelectedItem
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	238	)
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	239	(MenuItem
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	240	label: '-'
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	241	)
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	242	(MenuItem
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	243	enabled: selectedItemIsIgnoredHalt
9795 b1dc5c2513fe changed: #itemMenu Claus Gittinger <cg@exept.de> parents: 9638 diff changeset	244	label: 'Stop Ignoring this Halt'
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	245	itemValue: reenableHalt
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	246	)
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	247	(MenuItem
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	248	enabled: selectedItemIsEnabledLineBreak
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	249	label: 'Disable this Breakpoint'
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	250	itemValue: disableLineBreak
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	251	)
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	252	)
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	253	nil
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	254	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	255	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	256	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	257
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	258	mainMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	259	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	260	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	261
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	262	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	263	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	264
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	265
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	266	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	267	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#mainMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	268	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser mainMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	269	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	270
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	271	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	272
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	273	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	274	#(Menu
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	275	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	276	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	277	label: 'File'
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	278	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	279	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	280	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	281	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	282	label: 'Exit'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	283	itemValue: closeRequest
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	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	286	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	287	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	288	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	289	)
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	290	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	291	label: 'Selection'
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	292	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	293	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	294	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	295	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	296	enabled: hasSelectionHolder
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	297	label: 'Browse'
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	298	itemValue: browseSelectedItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	299	)
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	300	(MenuItem
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	301	label: '-'
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	302	)
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	303	(MenuItem
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	304	enabled: selectedItemIsIgnoredHalt
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	305	label: 'Stop Ignoring this Halt'
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	306	itemValue: reenableHalt
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	307	)
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	308	(MenuItem
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	309	enabled: selectedItemIsEnabledLineBreak
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	310	label: 'Disable this Breakpoint'
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	311	itemValue: disableLineBreak
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	312	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	313	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	314	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	315	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	316	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	317	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	318	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	319	label: 'View'
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	320	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	321	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	322	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	323	(MenuItem
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	324	enabled: false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	325	label: '-- Coded --'
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	326	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	327	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	328	label: 'Assertions'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	329	itemValue: showAssertions:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	330	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	331	indication: showAssertions
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	332	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	333	(MenuItem
12526 dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	334	enabled: showAssertions
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	335	label: 'Assertions in Tests'
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	336	itemValue: showAssertionsInTests:
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	337	hideMenuOnActivated: false
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	338	indication: showAssertionsInTests
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	339	)
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	340	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	341	label: 'Halts'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	342	itemValue: showHalts:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	343	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	344	indication: showHalts
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	345	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	346	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	347	enabled: showHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	348	label: ' '
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	349	submenu:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	350	(Menu
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: 'All Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	354	nameKey: AllHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	355	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	356	choiceValue: all
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	357	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	358	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	359	label: 'Enabled Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	360	nameKey: EnabledHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	361	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	362	choiceValue: enabled
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	363	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	364	(MenuItem
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	365	label: 'Ignored Halts'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	366	nameKey: IgnoredHalts
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	367	choice: showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	368	choiceValue: ignored
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	369	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	370	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	371	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	372	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	373	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	374	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	375	(MenuItem
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	376	label: 'Coded Breakpoints'
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	377	itemValue: showCodeBreakpoints:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	378	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	379	indication: showCodeBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	380	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	381	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	382	enabled: showCodeBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	383	label: ' '
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	384	submenuChannel: codeBreakpointMenu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	385	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	386	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	387	label: 'Debug Code'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	388	itemValue: showDebugCode:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	389	hideMenuOnActivated: false
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	390	indication: showDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	391	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	392	(MenuItem
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	393	label: 'Tracepoints'
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	394	itemValue: showTracepoints:
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	395	hideMenuOnActivated: false
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	396	indication: showTracepoints
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	397	)
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	398	(MenuItem
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	399	label: 'Other Debug Messages'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	400	itemValue: showOthers:
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	401	hideMenuOnActivated: false
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	402	indication: showOthers
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	403	)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	404	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	405	label: '-'
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
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	408	enabled: false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	409	label: '-- Dynamic --'
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	410	)
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	411	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	412	label: 'Method Breakpoints'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	413	itemValue: showMethodBreakpoints:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	414	hideMenuOnActivated: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	415	indication: showMethodBreakpoints
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	416	)
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	417	(MenuItem
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	418	label: 'Line Breakpoints'
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	419	itemValue: showLineBreakpoints:
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	420	hideMenuOnActivated: false
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	421	indication: showLineBreakpoints
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	422	)
12016 3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	423	(MenuItem
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	424	label: '-'
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	425	)
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	426	(MenuItem
13349 cadf708fe6cc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13347 diff changeset	427	label: 'Toggle All'
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	428	itemValue: toggleAllShownTypes
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	429	hideMenuOnActivated: false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	430	)
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	431	(MenuItem
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	432	label: 'All On'
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	433	itemValue: showAllTypes
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	434	hideMenuOnActivated: false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	435	)
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	436	(MenuItem
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	437	label: 'All Off'
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	438	itemValue: hideAllTypes
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	439	hideMenuOnActivated: false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	440	)
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	441	(MenuItem
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	442	label: '-'
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	443	)
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	444	(MenuItem
12016 3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	445	label: 'Update List'
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	446	itemValue: updateList
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	447	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	448	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	449	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	450	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	451	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	452	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	453	(MenuItem
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	454	label: 'Filter'
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	455	submenu:
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	456	(Menu
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	457	(
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	458	(MenuItem
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	459	label: 'Package Filter...'
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	460	itemValue: openPackageFilterDialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	461	)
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	462	(MenuItem
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	463	label: 'Class Filter...'
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	464	itemValue: openClassFilterDialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	465	)
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	466	)
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	467	nil
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	468	nil
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	469	)
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	470	)
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	471	(MenuItem
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	472	label: 'Enable'
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	473	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	474	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	475	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	476	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	477	label: 'Assertions'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	478	itemValue: enableAssertions:
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	479	hideMenuOnActivated: false
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	480	indication: enableAssertions
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	481	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	482	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	483	label: 'Halts'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	484	itemValue: enableHalts:
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	485	hideMenuOnActivated: false
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	486	indication: enableHalts
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	487	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	488	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	489	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	490	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	491	(MenuItem
13349 cadf708fe6cc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13347 diff changeset	492	label: 'Coded Break & Tracepoints'
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	493	submenuChannel: enabledCodeBreakpointMenu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	494	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	495	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	496	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	497	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	498	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	499	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	500	(MenuItem
15393 118cb3a35f14 help menu layout and title (Menu_Help instead of Help) Claus Gittinger <cg@exept.de> parents: 15219 diff changeset	501	label: 'MENU_Help'
118cb3a35f14 help menu layout and title (Menu_Help instead of Help) Claus Gittinger <cg@exept.de> parents: 15219 diff changeset	502	startGroup: conditionalRight
9045 a43cc56e8dca changed: #mainMenu Claus Gittinger <cg@exept.de> parents: 8859 diff changeset	503	submenu:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	504	(Menu
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	505	(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	506	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	507	label: 'Documentation'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	508	itemValue: openDocumentation
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	509	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	510	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	511	label: '-'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	512	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	513	(MenuItem
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	514	label: 'About this Application...'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	515	itemValue: openAboutThisApplication
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	516	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	517	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	518	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	519	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	520	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	521	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	522	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	523	nil
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	524	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	525	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	526	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	527
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	528	toolBarMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	529	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	530	by the MenuEditor of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	531
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	532	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	533	the MenuEditor may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	534
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	535
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	536	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	537	MenuEditor new openOnClass:Tools::BreakpointBrowser andSelector:#toolBarMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	538	(Menu new fromLiteralArrayEncoding:(Tools::BreakpointBrowser toolBarMenu)) startUp
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	539	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	540
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	541	<resource: #menu>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	542
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	543	^
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	544	#(Menu
10853 2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	545	(
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	546	(MenuItem
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	547	label: 'Update List'
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	548	itemValue: updateList
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	549	isButton: true
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	550	labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	551	)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	552	(MenuItem
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	553	label: '-'
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	554	)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	555	(MenuItem
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	556	enabled: hasSelectionHolder
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	557	label: 'Browse Selected Method'
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	558	itemValue: browseSelectedItem
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	559	isButton: true
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	560	labelImage: (ResourceRetriever ToolbarIconLibrary startNewSystemBrowserIcon)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	561	)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	562	)
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	563	nil
2c561fd68036 changed: #toolBarMenu Claus Gittinger <cg@exept.de> parents: 9804 diff changeset	564	nil
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	565	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	566	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	567
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	568	!BreakpointBrowser class methodsFor:'tableColumns specs'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	569
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	570	tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	571	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	572	by the DataSetBuilder of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	573
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	574	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	575	the DataSetBuilder may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	576
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	577	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	578	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	579	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	580
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	581	<resource: #tableColumns>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	582
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	583	^#(
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	584	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	585	label: 'Type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	586	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	587	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	588	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	589	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	590	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	591	width: 70
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	592	model: typeString
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	593	menuFromApplication: false
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	594	writeSelector: type:
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	595	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	596	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	597	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	598	label: 'Arg'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	599	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	600	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	601	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	602	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	603	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	604	width: 50
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	605	model: arg
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	606	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	607	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	608	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	609	label: 'Class'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	610	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	611	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	612	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	613	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	614	labelActionArgument: 'className'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	615	width: 150
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	616	model: className
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	617	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	618	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	619	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	620	label: 'Method'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	621	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	622	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	623	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	624	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	625	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	626	labelActionArgument: 'selector'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	627	width: 200
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	628	model: selector
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	629	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	630	)
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	631	(DataSetColumnSpec
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	632	label: 'Ign'
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	633	labelButtonType: Button
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	634	columnAlignment: center
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	635	width: 50
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	636	model: isIgnoredString
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	637	menuFromApplication: false
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	638	writeSelector: isIgnored:
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	639	)
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	640	(DataSetColumnSpec
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	641	label: 'Info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	642	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	643	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	644	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	645	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	646	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	647	labelActionArgument: 'info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	648	model: info
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	649	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	650	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	651	)
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	652
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	653	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	654
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	655	tableColumns_v1
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	656	"This resource specification was automatically generated
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	657	by the DataSetBuilder of ST/X."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	658
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	659	"Do not manually edit this!! If it is corrupted,
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	660	the DataSetBuilder may not be able to read the specification."
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	661
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	662	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	663	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	664	"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	665
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	666	<resource: #tableColumns>
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	667
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	668	^#(
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	669	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	670	label: 'Enabled'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	671	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	672	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	673	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	674	width: 50
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	675	editorType: CheckToggle
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	676	rendererType: CheckToggle
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	677	model: enabled
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	678	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	679	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	680	label: 'Type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	681	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	682	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	683	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	684	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	685	labelActionArgument: 'type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	686	width: 60
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	687	model: type
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	688	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	689	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	690	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	691	label: 'Arg'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	692	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	693	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	694	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	695	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	696	labelActionArgument: 'type'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	697	width: 50
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	698	model: arg
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	699	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	700	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	701	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	702	label: 'Class'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	703	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	704	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	705	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	706	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	707	labelActionArgument: 'className'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	708	width: 150
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	709	model: className
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	710	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	711	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	712	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	713	label: 'Method'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	714	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	715	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	716	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	717	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	718	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	719	labelActionArgument: 'selector'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	720	width: 200
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	721	model: selector
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	722	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	723	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	724	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	725	label: 'Line'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	726	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	727	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	728	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	729	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	730	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	731	labelActionArgument: 'lineNumber'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	732	width: 35
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	733	model: lineNumber
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	734	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	735	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	736	(DataSetColumnSpec
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	737	label: 'Info'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	738	labelAlignment: left
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	739	activeHelpKey: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	740	activeHelpKeyForLabel: ''
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	741	labelButtonType: Button
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	742	labelActionSelector: sortBy:
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	743	labelActionArgument: 'info'
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	744	model: info
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	745	canSelect: false
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	746	)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	747	)
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	748	!
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	749
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	750	tableColumns_v2
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	751	"This resource specification was automatically generated
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	752	by the DataSetBuilder of ST/X."
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	753
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	754	"Do not manually edit this!! If it is corrupted,
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	755	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	756
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	757	"
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	758	DataSetBuilder new openOnClass:Tools::BreakpointBrowser andSelector:#tableColumns
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	759	"
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	760
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	761	<resource: #tableColumns>
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	762
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	763	^#(
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	764	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	765	label: 'Type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	766	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	767	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	768	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	769	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	770	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	771	width: 70
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	772	model: type
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	773	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	774	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	775	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	776	label: 'Arg'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	777	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	778	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	779	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	780	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	781	labelActionArgument: 'type'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	782	width: 50
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	783	model: arg
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	784	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	785	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	786	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	787	label: 'Class'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	788	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	789	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	790	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	791	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	792	labelActionArgument: 'className'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	793	width: 150
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	794	model: className
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	795	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	796	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	797	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	798	label: 'Method'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	799	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	800	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	801	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	802	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	803	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	804	labelActionArgument: 'selector'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	805	width: 200
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	806	model: selector
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	807	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	808	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	809	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	810	label: 'Line'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	811	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	812	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	813	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	814	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	815	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	816	labelActionArgument: 'lineNumber'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	817	width: 35
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	818	model: lineNumber
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	819	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	820	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	821	(DataSetColumnSpec
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	822	label: 'Info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	823	labelAlignment: left
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	824	activeHelpKey: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	825	activeHelpKeyForLabel: ''
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	826	labelButtonType: Button
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	827	labelActionSelector: sortBy:
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	828	labelActionArgument: 'info'
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	829	model: info
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	830	canSelect: false
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	831	)
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	832	)
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
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	835	!BreakpointBrowser methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	836
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	837	aboutThisApplicationText
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	838	\|msg\|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	839
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	840	msg := super aboutThisApplicationText.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	841	msg := msg , '\\Written by Claus Gittinger (cg@exept.de).'.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	842	^msg withCRs.
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	843	!
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	844
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	845	breakpointListEntryAtIndex:idx
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	846	^ shownCopyOfBreakpointList at:idx ifAbsent:nil
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	847
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	848
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	849
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	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	853
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	854	messagesAndTypes
12021 d4ebd47bfc5d comment/format in: #messagesAndTypes Claus Gittinger <cg@exept.de> parents: 12020 diff changeset	855	"the spec of selectors to search for coded breakpoints"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	856
15619 964dfc605d29 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 15393 diff changeset	857	^ self class messagesAndTypes
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	858	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	859
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	860	selectedBreakpointListEntry
8398 f90fc6048ed4 changed #selectedBreakpointListEntry sr parents: 8365 diff changeset	861	self selectionIndex isNil ifTrue:[^ nil].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	862	^ self breakpointListEntryAtIndex:(self selectionIndex).
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	863	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	864
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	865	selectionIndex
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	866	^ self selectionIndexHolder value
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	867	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	868
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	869	shownCopyOfBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	870	shownCopyOfBreakpointList isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	871	shownCopyOfBreakpointList := List new
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	872	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	873	^ shownCopyOfBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	874
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	875	"Created: / 18-02-2007 / 12:53:01 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	876	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	877
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	878	updatingLabelShown
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	879	updatingLabelShown isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	880	updatingLabelShown := true asValue
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	881	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	882	^ updatingLabelShown
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	883	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	884
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	885	!BreakpointBrowser methodsFor:'aspects'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	886
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	887	enableAssertions
15219 f05465a64087 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 14607 diff changeset	888	^ Smalltalk ignoreAssertions not
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	889	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	890
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	891	enableAssertions:aBoolean
15219 f05465a64087 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 14607 diff changeset	892	Smalltalk ignoreAssertions:aBoolean not.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	893	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	894
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	895	enableHalts
9638 dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	896	^ Smalltalk ignoreHalt not
dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	897
dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	898	"Modified: / 18-11-2010 / 11:24:11 / cg"
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	enableHalts:aBoolean
9638 dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	902	^ Smalltalk ignoreHalt:aBoolean not
dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	903
dec674bd410b changed: Claus Gittinger <cg@exept.de> parents: 9614 diff changeset	904	"Modified: / 18-11-2010 / 11:30:03 / cg"
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	905	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	906
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	907	hasSelectionHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	908	^ BlockValue
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	909	with:[:selIndex \| selIndex notNil and:[selIndex ~~ 0]]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	910	argument:self selectionIndexHolder
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	911	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	912
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	913	infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	914	infoHolder isNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	915	infoHolder := nil asValue.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	916	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	917	^ infoHolder
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	918
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	919	"Created: / 22-10-2006 / 02:00:41 / cg"
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	920	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	921
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	922	selectedItemIsEnabledLineBreak
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	923	\|selIndex entry\|
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	924
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	925	(selIndex := self selectionIndexHolder value) isNil ifTrue:[^ false].
a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	926	entry := self breakpointListEntryAtIndex:selIndex.
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	927	^ entry isLineBreakpoint and:[entry breakPoint isEnabled]
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	928	!
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	929
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	930	selectedItemIsIgnoredHalt
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	931	\|selIndex entry info\|
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	932
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	933	(selIndex := self selectionIndexHolder value) isNil ifTrue:[^ false].
16119 b19267e8b8ed #OTHER matilk parents: 15941 diff changeset	934	(selIndex == 0) ifTrue:[^ false].
b19267e8b8ed #OTHER matilk parents: 15941 diff changeset	935
12563 a59337482755 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12561 diff changeset	936	entry := self breakpointListEntryAtIndex:selIndex.
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	937	info := Debugger haltIgnoreInformationFor:(entry method) atLineNr:(entry lineNumber).
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	938	^ info notNil and:[ info isHaltIgnored ].
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	939	!
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	940
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	941	selectionIndexHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	942	selectionIndexHolder isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	943	selectionIndexHolder := nil asValue.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	944	selectionIndexHolder onChangeSend:#updateCode to:self
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	945	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	946	^ selectionIndexHolder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	947
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	948	"Created: / 22-10-2006 / 02:00:41 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	949	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	950
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	951	showAssertions
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	952	^ showAssertions ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	953	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	954
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	955	showAssertions:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	956	showAssertions := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	957	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	958	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	959
12526 dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	960	showAssertionsInTests
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	961	^ showAssertionsInTests ? false
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	962	!
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	963
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	964	showAssertionsInTests:aBoolean
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	965	showAssertionsInTests := aBoolean.
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	966	self updateShownBreakpointList
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	967	!
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	968
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	969	showCodeBreakpoints
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	970	^ showCodeBreakpoints ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	971	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	972
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	973	showCodeBreakpoints:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	974	showCodeBreakpoints := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	975	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	976	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	977
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	978	showDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	979	^ showDebugCode ? true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	980	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	981
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	982	showDebugCode:aBoolean
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	983	showDebugCode := aBoolean.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	984	self updateShownBreakpointList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	985	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	986
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	987	showHalts
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	988	^ showHalts ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	989	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	990
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	991	showHalts:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	992	showHalts := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	993	self updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	994	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	995
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	996	showLineBreakpoints
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	997	^ showLineBreakpoints ? true
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	998	!
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	999
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1000	showLineBreakpoints:aBoolean
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1001	showLineBreakpoints := aBoolean.
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1002	self updateShownBreakpointList
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1003	!
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1004
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1005	showMethodBreakpoints
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1006	^ showMethodBreakpoints ? true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1007	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1008
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1009	showMethodBreakpoints:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1010	showMethodBreakpoints := aBoolean.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1011	self updateShownBreakpointList
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1012	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1013
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1014	showOthers
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1015	^ showOthers ? true
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1016	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1017
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1018	showOthers:aBoolean
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1019	showOthers := aBoolean.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1020	self updateShownBreakpointList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1021	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1022
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1023	showTracepoints
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1024	^ showTracepoints ? true
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1025	!
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1026
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1027	showTracepoints:aBoolean
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1028	showTracepoints := aBoolean.
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1029	self updateShownBreakpointList
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1030	!
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1031
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1032	showWhichHaltsHolder
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1033	showWhichHaltsHolder isNil ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1034	showWhichHaltsHolder := #all asValue.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1035	showWhichHaltsHolder onChangeSend:#updateShownBreakpointList to:self
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1036	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1037	^ showWhichHaltsHolder
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1038	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1039
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1040	!BreakpointBrowser methodsFor:'change & update'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1041
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1042	delayedUpdate:something with:aParameter from:changedObject
9092 6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1043	changedObject == Smalltalk ifTrue:[
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1044	something == #methodInClass ifTrue:[
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1045	self updateForClass:(aParameter first) selector:(aParameter second).
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1046	^ self.
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1047	].
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1048	something == #methodInClassRemoved ifTrue:[
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1049	self updateForClass:(aParameter first) selector:(aParameter second).
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1050	^ self.
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1051	].
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1052	something == #ignoredHalts ifTrue:[
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1053	self updateShownBreakpointList.
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1054	^ self.
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1055	].
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1056	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1057	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1058
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1059	filter
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1060	"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	1061
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1062	\|newList showWhichHalt\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1063
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1064	newList := breakpointList.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1065
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1066	classNameFilter notEmptyOrNil ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1067	newList := newList select:[:entry \| entry relatedToClass:classNameFilter].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1068	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1069	packageFilter notEmptyOrNil ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1070	newList := newList select:[:entry \| entry relatedToPackage:packageFilter].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1071	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1072
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1073	self showOthers ifFalse:[
12943 90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1074	newList := newList reject:[:entry \| entry isOther or:[ entry isTodo] ].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1075	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1076	self showDebugCode ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1077	newList := newList reject:[:entry \| entry isDebugCode].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1078	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1079	self showMethodBreakpoints ifFalse:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1080	newList := newList reject:[:entry \| entry isMethodBreakpoint].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1081	].
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1082	self showLineBreakpoints ifFalse:[
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1083	newList := newList reject:[:entry \| entry isLineBreakpoint].
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1084	].
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1085	self showTracepoints ifFalse:[
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1086	newList := newList reject:[:entry \| entry isTracepoint].
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1087	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1088	self showAssertions ifFalse:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1089	newList := newList reject:[:entry \| entry isAssertion].
12526 dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1090	] ifTrue:[
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1091	self showAssertionsInTests ifFalse:[
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1092	newList := newList reject:[:entry \| \|cls\|
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1093	entry isAssertion
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1094	and:[ (entry selector startsWith:'test')
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1095	and:[ (cls := Smalltalk classNamed: entry className) notNil
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1096	and:[ cls theNonMetaclass isTestCaseLike ]]]].
dc89c5a91cfc class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12022 diff changeset	1097	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1098	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1099
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1100	self showHalts ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1101	newList := newList reject:[:entry \| entry isHalt].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1102	] ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1103	showWhichHalt := showWhichHaltsHolder value.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1104	showWhichHalt ~~ #all ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1105	newList := newList reject:[:entry \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1106	entry isHalt
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1107	and:[
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1108	\|showInList isIgnored info\|
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1109
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1110	entry ignoredInfo:nil.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1111
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1112	showInList := true.
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1113	info := Debugger haltIgnoreInformationFor:(entry method) atLineNr:(entry lineNumber).
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1114	isIgnored := info notNil and:[ info isHaltIgnored ].
12943 90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1115	info notNil ifTrue:[ entry ignoredInfo:info haltIgnoredInfoString ].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1116	showWhichHalt == #ignored ifTrue:[
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1117	showInList := isIgnored.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1118	] ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1119	showInList := isIgnored not
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1120	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1121	showInList not]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1122	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1123	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1124	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1125
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1126	self showCodeBreakpoints ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1127	newList := newList reject:[:entry \| entry isCodeBreakpoint].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1128	] ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1129	newList := newList reject:[:entry \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1130	\|flag\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1131
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1132	flag := (showCodeBreakpointsFor at:(entry arg ? '<nil>') ifAbsentPut:[true asValue]) value.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1133	entry isCodeBreakpoint
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1134	and:[ flag not ]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1135	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1136	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1137
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1138	shownCopyOfBreakpointList contents:newList.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1139	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1140
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1141	messageSelectors
11744 e450cce01e34 changed: #messageSelectors Stefan Vogel <sv@exept.de> parents: 11211 diff changeset	1142	^ self messagesAndTypes collect:[:each \| each first] as:Set.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1143	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1144
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1145	update:something with:aParameter from:changedObject
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1146	changedObject == Smalltalk ifTrue:[
9092 6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1147	self enqueueDelayedUpdate:something with:aParameter from:changedObject.
6bd5d66d58cf changed: Claus Gittinger <cg@exept.de> parents: 9080 diff changeset	1148	^ self.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1149	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1150	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1151
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1152	updateBreakpointList
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1153	\|newShowCodeBreakpointsFor messages messageSelectors update \|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1154
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1155	breakpointList removeAll.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1156	newShowCodeBreakpointsFor := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1157
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1158	messages := self messagesAndTypes.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1159	messageSelectors := self messageSelectors.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	1160
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1161	update := [:cls :mthd :sel \|
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1162	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1163	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1164	messages:messages
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1165	messageSelectors:messageSelectors
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1166	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1167	do:[:newEntry \| breakpointList add:newEntry ].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1168	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1169
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1170	Smalltalk allClassesDo:[:cls \|
8302 7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1171	cls selectorsAndMethodsDo:[:sel :mthd \|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1172	update value:cls value:mthd value:sel
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1173	].
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1174	cls class selectorsAndMethodsDo:[:sel :mthd \|
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1175	update value:cls class value:mthd value:sel
7e1f250578ff speedup Claus Gittinger <cg@exept.de> parents: 8249 diff changeset	1176	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1177	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1178
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1179	showCodeBreakpointsFor := newShowCodeBreakpointsFor.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1180	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1181
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1182	updateCode
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1183	\|entry method class\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1184
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1185	entry := self selectedBreakpointListEntry.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1186	entry isNil ifTrue:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1187	codeView contents:nil.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1188	^ self
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1189	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1190	method := entry method.
12952 61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1191	codeView editedMethodOrClass:method.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1192	method isNil ifTrue:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1193	codeView contents:'OOPS - no source found'.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1194	] ifFalse:[
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1195	codeView contents:(method source).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1196	entry lineNumber notNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1197	codeView cursorLine:entry lineNumber col:1.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1198	codeView selectLine:entry lineNumber.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1199	] ifFalse:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1200	self breakPoint:#cg.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1201	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1202	codeView
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1203	acceptAction:[:newText \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1204	class := method mclass ? (Smalltalk classNamed:entry className).
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1205	class
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1206	compilerClass
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1207	compile:newText asString
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1208	forClass:class
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1209	inCategory:method category
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1210	notifying:codeView.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1211	]
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1212	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1213	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1214
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1215	updateEntry:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1216	"after a change, update the list entry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1217	(or remove it if required)"
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1218
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1219	\|mthd cls sel newShowCodeBreakpointsFor any\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1220
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1221	newShowCodeBreakpointsFor := Dictionary new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1222
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1223	breakpointList remove:entry ifAbsent:[].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1224
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1225	mthd := entry method.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1226	cls := Smalltalk classNamed:entry className.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1227	sel := entry selector.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1228
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1229	any := false.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1230	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1231	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1232	messages:(self messagesAndTypes)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1233	messageSelectors:(self messageSelectors)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1234	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1235	do:[:newEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1236	any := true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1237	breakpointList add:newEntry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1238	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1239	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1240
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1241	updateForClass:aClass selector:selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1242	\|selectionIndexBefore mthd affectedEntries newShowCodeBreakpointsFor\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1243
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1244	selectionIndexBefore := selectionIndexHolder value.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1245
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1246	affectedEntries := breakpointList select:[:entry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1247	entry selector = selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1248	and:[ entry className = aClass name ]
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	affectedEntries do:[:eachEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1251	breakpointList remove:eachEntry ifAbsent:[].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1252	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1253
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1254	mthd := aClass compiledMethodAt:selector.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1255	mthd notNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1256	newShowCodeBreakpointsFor := Dictionary new.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1257
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1258	self
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1259	withBreakpointListEntriesFor:mthd class:aClass selector:selector
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1260	messages:(self messagesAndTypes)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1261	messageSelectors:(self messageSelectors)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1262	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1263	do:[:newEntry \|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1264	breakpointList add:newEntry.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1265	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1266	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1267
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1268	self updateShownBreakpointList.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1269	self selectionIndexHolder value:selectionIndexBefore.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1270	self updateCode
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1271	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1272
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1273	updateList
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1274	updateProcess notNil ifTrue:[^ self ].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1275
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1276	self updatingLabelShown value:true.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1277	"/ cg: mhmh why is this needed ????
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1278	Delay waitForSeconds:0.1.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1279	self windowGroup repairDamage.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1280
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1281	updateProcess :=
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1282	[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1283	[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1284	ActivityNotification handle:[:ex \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1285	self infoHolder value:ex errorString.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1286	self windowGroup processExposeEvents.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1287	ex proceed.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1288	] do:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1289	self updateBreakpointList.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1290	self updateShownBreakpointList.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1291	]
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1292	] ensure:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1293	updateProcess := nil.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1294	self updatingLabelShown value:false.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1295	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1296	] newProcess.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1297	updateProcess resume.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1298	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1299
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1300	updateShownBreakpointList
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1301
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1302	self shownCopyOfBreakpointList contents:breakpointList.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1303	self filter.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1304	self resort.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1305
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1306
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1307	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1308
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1309	withBreakpointListEntriesFor:mthd class:cls selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1310	messages:messages
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1311	messageSelectors:messageSelectors
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1312	rememberingCodeBreakpointTypesIn:newShowCodeBreakpointsFor
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1313	do:aBlock
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1314
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1315	\|entry type messagesSent showWhichHalt\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1316
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1317	showWhichHalt := self showWhichHaltsHolder value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1318
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1319	mthd isWrapped ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1320	mthd isBreakpointed ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1321	type := #trap
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1322	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1323	mthd isTraced ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1324	type := #trace
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1325	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1326	type := #probe
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1327	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1328	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1329	entry := BreakpointListEntry new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1330	entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1331	type:#wrap
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1332	arg:type
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1333	className:cls name
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1334	selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1335	lineNumber:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1336	info:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1337	enabled:true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1338	aBlock value:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1339	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1340
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1341	(mthd literalsDetect:[:lit \|
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1342	(messageSelectors includes:lit)
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1343	or:[lit class == Breakpoint]
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1344	] ifNone:nil) notNil ifTrue:[
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1345	messagesSent := mthd messagesSent.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1346
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1347	messages pairsDo:[:bpSel :type\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1348	\|tree extractor\|
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1349
19600 4b1129981eb9 Replace `sends:` with `sendsSelector:` and `sendsAny:` with `sendsAnySelector:` Jan Vrany <jan.vrany@labware.com> parents: 16445 diff changeset	1350	"/ used to be (mthd sendsSelector:bpSel);
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1351	"/ however, the sends requires an expensive parse of the methods source
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1352	"/ to fetch all message selectors. This should be done only once,
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1353	"/ and not for every selector we look for)
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1354	(messagesSent includesIdentical:bpSel) ifTrue:[
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1355	tree := RBParser
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1356	parseMethod:mthd source
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1357	onError:[:aString :pos \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1358	('BreakPointBrowser [info]: error while parsing "%1": %2'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1359	bindWith:mthd whoString with:aString) infoPrintCR.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1360	nil
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1361	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1362
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1363	tree isNil ifTrue:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1364	entry := BreakpointListEntry new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1365	entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1366	type:type
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1367	arg:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1368	className:cls name
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1369	selector:sel
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1370	lineNumber:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1371	info:nil
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1372	enabled:true.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1373	aBlock value:entry
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1374	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1375	extractor := MessageArgumentExtractor new.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1376	extractor selectorToSearch:bpSel.
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1377	extractor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1378	callBack:[:lineNo :argument :infoMessage \|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1379	\|showIt isIgnored\|
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1380
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1381	argument notNil ifTrue:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1382	newShowCodeBreakpointsFor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1383	at:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1384	put:(showCodeBreakpointsFor
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1385	at:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1386	ifAbsent:[true asValue])
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1387	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1388	entry := BreakpointListEntry new.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1389	entry
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1390	type:type
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1391	arg:argument
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1392	className:cls name
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1393	selector:sel
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1394	lineNumber:lineNo
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1395	info:infoMessage
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1396	enabled:true.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1397
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1398	aBlock value:entry
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1399	].
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1400
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1401	tree acceptVisitor:extractor.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1402	]
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1403	].
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1404	].
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1405
12952 61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1406	mthd isMethodWithBreakpoints ifTrue:[
13788 8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1407	mthd breakpointsDo:[:bp \|
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1408	bp isVisible ifTrue:[
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1409	entry := BreakpointListEntryForLineBreak new.
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1410	entry
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1411	type:#line
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1412	arg:nil
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1413	className:cls name
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1414	selector:sel
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1415	lineNumber:(bp line)
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1416	info:nil
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1417	enabled:true.
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1418	entry breakPoint:bp.
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1419	aBlock value:entry
12952 61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1420	]
61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1421	].
61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1422	]
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1423	].
13788 8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1424
8cb3d21e2d52 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13349 diff changeset	1425	"Modified: / 03-02-2014 / 10:35:14 / cg"
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1426	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1427
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1428	!BreakpointBrowser methodsFor:'initialization & release'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1429
12009 9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	1430	codeViewClass
12018 508304bbb86b comment/format in: #codeViewClass Claus Gittinger <cg@exept.de> parents: 12017 diff changeset	1431	"the type of codeview to use"
508304bbb86b comment/format in: #codeViewClass Claus Gittinger <cg@exept.de> parents: 12017 diff changeset	1432
12952 61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1433	^ (UserPreferences current useCodeView2In: #Browser)
61520be3610a class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12943 diff changeset	1434	ifTrue:[ Tools::CodeView2 ? CodeView ]
12009 9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	1435	ifFalse:[ CodeView ]
9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	1436	!
9d2c3ebb1a2d honor the codeView/codeView2 setting Claus Gittinger <cg@exept.de> parents: 12008 diff changeset	1437
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1438	initialize
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1439	super initialize.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1440
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1441	showCodeBreakpointsFor := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1442	breakpointList := List new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1443
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1444	currentSortColumn := #type.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1445	currentSortIsReverse := false.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1446
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1447	Smalltalk addDependent:self.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1448	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1449
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1450	postBuildCodeView:aView
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1451	codeView := aView
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1452	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1453
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1454	postOpenWith:aBuilder
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1455	super postOpenWith:aBuilder.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1456
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1457	self enqueueMessage:#updateList for:self arguments:#().
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1458
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1459	"Modified: / 18-02-2007 / 12:55:57 / cg"
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1460	!
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1461
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1462	release
8767 00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1463	\|p\|
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1464
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1465	(p := updateProcess) notNil ifTrue:[
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1466	updateProcess := nil.
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1467	p terminate
00f1c865aaea * empty log message * Claus Gittinger <cg@exept.de> parents: 8530 diff changeset	1468	].
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1469	Smalltalk removeDependent:self.
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1470	super release
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1471	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1472
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1473	!BreakpointBrowser methodsFor:'menu actions-item'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1474
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1475	browseItem
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 breakpointListEntryAtIndex:self selectionIndexHolder value) 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
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1481	reenableHalt
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1482	\|entry\|
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1483
11211 3b5ed0754639 changed: #reenableHalt Claus Gittinger <cg@exept.de> parents: 10853 diff changeset	1484	entry := self breakpointListEntryAtIndex:self selectionIndexHolder value.
3b5ed0754639 changed: #reenableHalt Claus Gittinger <cg@exept.de> parents: 10853 diff changeset	1485	Debugger
16436 4d0d3645aa7d #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16204 diff changeset	1486	ignoreHaltIn:(entry method) at:(entry lineNumber)
12938 626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	1487	forCount:nil orTimeDuration:nil orUntilShiftKey:false
626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	1488	orReceiverClass:nil orProcess:nil.
16436 4d0d3645aa7d #DOCUMENTATION by cg Claus Gittinger <cg@exept.de> parents: 16204 diff changeset	1489
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1490	self updateShownBreakpointList
11211 3b5ed0754639 changed: #reenableHalt Claus Gittinger <cg@exept.de> parents: 10853 diff changeset	1491
3b5ed0754639 changed: #reenableHalt Claus Gittinger <cg@exept.de> parents: 10853 diff changeset	1492	"Modified: / 27-01-2012 / 11:34:11 / cg"
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1493	!
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1494
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1495	removeItem
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1496	breakpointList remove:(self selectedBreakpointListEntry)
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1497
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1498	"Created: / 22-10-2006 / 10:45:52 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1499	"Modified: / 18-02-2007 / 12:57:58 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1500	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1501
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1502	!BreakpointBrowser methodsFor:'menus-dynamic'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1503
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1504	codeBreakpointMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1505	<resource: #programMenu >
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1506
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1507	\|breakpointArgs menu\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1508
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1509	breakpointArgs := Set new.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1510	breakpointList
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1511	select:[:entry \| entry arg notNil]
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1512	thenDo:[:entry \| breakpointArgs add:entry arg].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1513	(breakpointList contains:[:entry \| entry arg isNil]) ifTrue:[
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1514	breakpointArgs add:'<nil>'.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1515	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1516	breakpointArgs := breakpointArgs asSortedCollection.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1517
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1518	menu := Menu new.
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1519	menu addItem:(
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1520	MenuItem new
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1521	hideMenuOnActivated:false;
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1522	label:'Toggle All'
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1523	itemValue:
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1524	[
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1525	showCodeBreakpointsFor do:[:each \|
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1526	each value:(each value not)
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1527	]
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1528	]).
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1529	menu addSeparator.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1530
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1531	breakpointArgs do:[:arg\|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1532	\| menuItem \|
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1533
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1534	menuItem := MenuItem
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1535	label:arg
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1536	itemValue:
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1537	[:onOff \|
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1538	(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff.
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1539	self updateShownBreakpointList
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1540	]
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1541	translateLabel:false.
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1542	menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]).
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1543	menuItem hideMenuOnActivated:false.
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1544
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1545	menu addItem:menuItem.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1546	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1547	menu findGuiResourcesIn:self.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1548	^ menu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1549
11788 063a9c415a06 menuitem protocol Claus Gittinger <cg@exept.de> parents: 11744 diff changeset	1550	"Modified (format): / 09-09-2012 / 13:11:14 / cg"
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1551	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1552
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1553	enabledCodeBreakpointMenu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1554	<resource: #programMenu >
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1555
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1556	\|breakpointArgs menu enabledCodeBreakpointHolders\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1557
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1558	enabledCodeBreakpointHolders := Dictionary new.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1559
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1560	breakpointArgs := Set new.
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1561	breakpointList
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1562	select:[:entry \| entry arg notNil]
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1563	thenDo:[:entry \| breakpointArgs add:entry arg].
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1564
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1565	(breakpointList contains:[:entry \| entry arg isNil]) ifTrue:[
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1566	breakpointArgs add:'<nil>'.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1567	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1568	breakpointArgs := breakpointArgs asSortedCollection.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1569
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1570	menu := Menu new.
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1571	menu addItem:(
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1572	MenuItem new
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1573	hideMenuOnActivated:false;
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1574	label:'Toggle All'
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1575	itemValue:
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1576	[
9614 1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1577	enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each \|
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1578	each value:(each value not).
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1579	each value ifTrue:[
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1580	Object enableBreakPoint:arg
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1581	] ifFalse:[
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1582	Object disableBreakPoint:arg
1f2c844d482a changed: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 9335 diff changeset	1583	].
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1584	]
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1585	]).
8859 ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1586	menu addSeparator.
ea979fe04ab7 changed: Claus Gittinger <cg@exept.de> parents: 8858 diff changeset	1587
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1588	breakpointArgs do:[:arg\|
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1589	\| menuItem \|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1590
14607 b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1591	menuItem := MenuItem
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1592	label:arg
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1593	itemValue:
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1594	[:onOff \|
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1595	(enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff.
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1596	onOff ifFalse:[
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1597	Object disableBreakPoint:arg
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1598	] ifTrue:[
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1599	Object enableBreakPoint:arg
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1600	].
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1601	]
b4a144ee8154 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 13788 diff changeset	1602	translateLabel:false.
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1603	menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]).
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1604	menuItem hideMenuOnActivated:false.
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	1605	menu addItem:menuItem.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1606	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1607	menu findGuiResourcesIn:self.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1608	^ menu
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1609
11788 063a9c415a06 menuitem protocol Claus Gittinger <cg@exept.de> parents: 11744 diff changeset	1610	"Modified: / 09-09-2012 / 13:11:30 / cg"
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1611	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1612
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1613	!BreakpointBrowser methodsFor:'tests'!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1614
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1615	aMethodWith_assert
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1616	"only here for demonstration purposes - should be found in the list"
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1617
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1618	self assert:(3 > 4)
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1619	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1620
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1621	aMethodWith_assert2
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1622	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1623
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1624	self assert:(3 > 4) message:'well - that ought to work'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1625	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1626
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1627	aMethodWith_breakPoint
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1628	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1629
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1630	self breakPoint:#cg
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1631	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1632
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1633	aMethodWith_breakPoint2
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1634	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1635
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1636	self breakPoint:#cg info:'hello there'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1637	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1638
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1639	aMethodWith_debugCode
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1640	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1641
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1642	self
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1643	debuggingCodeFor:#cg
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1644	is:[
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1645	self bla.
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1646	Transcript show:'some debug prints here'
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1647	].
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1648	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1649
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1650	aMethodWith_halt
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1651	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1652
12943 90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1653	self halt "/ should be highlighted in breakpoint browser
9080 dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1654
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1655	"after the first halt, in the debugger, ignore this halt for some time and see what
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1656	the breakpoint browser shows...
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1657
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1658	10 timesRepeat:[
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1659	self new aMethodWith_halt
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1660	].
dca24ca8a31f comment/format in: #aMethodWith_halt Claus Gittinger <cg@exept.de> parents: 9079 diff changeset	1661	"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1662	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1663
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1664	aMethodWith_halt2
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1665	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1666
12943 90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1667	self halt:'some message' "/ should be highlighted in breakpoint browser
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1668	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1669
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1670	aMethodWith_todo
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1671	"only here for demonstration purposes - should be found in the breakpoint browser''s list"
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1672
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1673	self todo
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1674	! !
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1675
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1676	!BreakpointBrowser methodsFor:'user actions'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1677
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1678	browseSelectedItem
8362 1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1679	self withWaitCursorDo:[
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1680	(self selectedBreakpointListEntry) browse
1e7ce1305522 * empty log message * Claus Gittinger <cg@exept.de> parents: 8357 diff changeset	1681	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1682
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1683	"Created: / 22-10-2006 / 01:49:13 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1684	"Modified: / 18-02-2007 / 12:56:30 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1685	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1686
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1687	disableLineBreak
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1688	(self selectedBreakpointListEntry) breakPoint disable
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1689	!
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1690
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1691	hideAllTypes
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1692	self setShowAllTypesTo:false
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1693	!
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1694
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1695	itemDoubleClicked:itemIndex
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1696	self browseSelectedItem
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1697
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1698	"Created: / 22-10-2006 / 01:49:13 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1699	"Modified: / 18-02-2007 / 12:56:30 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1700	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1701
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1702	openClassFilterDialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1703	\|nameOrPattern\|
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1704
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1705	nameOrPattern := Dialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1706	requestClassName:'Only show breakpoints for class(es) matching (empty to show all):'
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1707	initialAnswer:(classNameFilter ? '*').
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1708	nameOrPattern isNil ifTrue:[^ self]. "/ cancel
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1709	(nameOrPattern isEmpty or:[nameOrPattern = '*']) ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1710	classNameFilter := nil.
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1711	] ifFalse:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1712	classNameFilter := nameOrPattern.
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1713	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1714	self updateShownBreakpointList
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1715	!
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1716
12016 3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1717	openDocumentation
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1718	HTMLDocumentView openFullOnDocumentationFile:'tools/misc/TOP.html#BREAKPOINTLIST'.
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1719	!
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1720
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1721	openPackageFilterDialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1722	\|nameOrPattern\|
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1723
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1724	nameOrPattern := Dialog
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1725	request:'Only show breakpoints for code in package(s) matching (empty to show all):'
16204 e5df21e1e404 #REFACTORING Claus Gittinger <cg@exept.de> parents: 16119 diff changeset	1726	list:(Smalltalk allPackageIDs)
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1727	initialAnswer:(packageFilter ? '*').
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1728	nameOrPattern isNil ifTrue:[^ self]. "/ cancel
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1729	(nameOrPattern isEmpty or:[nameOrPattern = '*']) ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1730	packageFilter := nil.
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1731	] ifFalse:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1732	packageFilter := nameOrPattern.
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1733	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1734	self updateShownBreakpointList
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1735	!
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1736
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1737	resort
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1738	\|sortBlock sortBlock1\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1739
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1740	currentSortColumn isNil ifTrue:[^ self ].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1741
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1742	sortBlock := sortBlock1 := [:a :b \|
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1743	\|vA vB\|
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1744
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1745	vA := (a perform:currentSortColumn).
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1746	vB := (b perform:currentSortColumn).
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1747	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1748	currentSortColumn == #type ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1749	vA := a arg.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1750	vB := b arg.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1751	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1752	vA := a className.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1753	vB := b className.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1754	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1755	vA := a selector.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1756	vB := b selector.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1757	vA = vB ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1758	vA := a lineNumber.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1759	vB := b lineNumber.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1760	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1761	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1762	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1763	]
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1764	].
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1765	(vA ? '') < (vB ? '')
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1766	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1767
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1768	currentSortIsReverse ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1769	sortBlock := [:a :b \| (sortBlock1 value:a value:b) not ].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1770	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1771
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1772	"/ temporary hack - should make a copy of the real list
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1773	self shownCopyOfBreakpointList sort:sortBlock
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1774
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1775	"Created: / 25-10-2006 / 01:01:26 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1776	"Modified: / 18-02-2007 / 13:02:19 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1777	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1778
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1779	setShowAllTypesTo:aBoolean
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1780	self showAssertions:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1781	self showHalts:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1782	self showCodeBreakpoints:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1783	self showDebugCode:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1784	self showLineBreakpoints:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1785	self showMethodBreakpoints:aBoolean.
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1786	self showOthers:aBoolean.
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1787	self showTracepoints:aBoolean.
12953 ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1788	!
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1789
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1790	showAllTypes
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1791	self setShowAllTypesTo:true
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1792	!
ebadf80de946 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12952 diff changeset	1793
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1794	sortBy:instanceName
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1795	self sortBy:instanceName withReverse:true
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1796
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1797	"Created: / 25-10-2006 / 00:53:55 / cg"
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1798	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1799
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1800	sortBy:instanceName withReverse:aBoolean
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1801	\|aSymbol\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1802
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1803	aSymbol := instanceName asSymbol.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1804
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1805	currentSortColumn isNil ifTrue:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1806	currentSortColumn := aSymbol.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1807	currentSortIsReverse := false.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1808	] ifFalse:[
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1809	currentSortColumn = aSymbol ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1810	"/ same column like before - change sort order ifReverse is true
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1811	aBoolean ifTrue:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1812	currentSortIsReverse := currentSortIsReverse not.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1813	].
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1814	] ifFalse:[
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1815	"/ another column - remark column
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1816	currentSortColumn := aSymbol.
ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1817	]
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1818	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1819	self resort.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1820
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1821	"Created: / 25-10-2006 / 00:54:59 / cg"
12016 3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1822	!
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1823
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1824	toggleAllShownTypes
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1825	self showAssertions:(self showAssertions not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1826	self showHalts:(self showHalts not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1827	self showCodeBreakpoints:(self showCodeBreakpoints not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1828	self showDebugCode:(self showDebugCode not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1829	self showLineBreakpoints:(self showLineBreakpoints not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1830	self showMethodBreakpoints:(self showMethodBreakpoints not).
3e3d4015fd7b added: #toggleAllShownTypes Claus Gittinger <cg@exept.de> parents: 12012 diff changeset	1831	self showOthers:(self showOthers not).
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1832	self showTracepoints:(self showTracepoints not).
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1833	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1834
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1835	!BreakpointBrowser::BreakpointListEntry methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1836
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1837	arg
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1838	^ arg
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1839	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1840
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1841	className
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1842	^ className
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1843	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1844
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1845	enabled
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1846	^ enabled
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1847	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1848
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1849	ignoredInfo
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1850	^ ignoredInfo
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1851	!
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1852
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1853	ignoredInfo:something
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1854	ignoredInfo := something.
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1855	!
8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1856
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1857	info
9079 8f59fc950e8f added: Claus Gittinger <cg@exept.de> parents: 9077 diff changeset	1858	^ ignoredInfo ? info
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1859	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1860
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1861	isIgnored
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1862	type == #halt ifTrue:[
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1863	^ (Debugger haltIgnoreInformationFor:self method atLineNr:lineNumber) notNil
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1864	].
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1865	^ false
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1866	!
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1867
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1868	isIgnoredString
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1869	self isIgnored ifTrue:[^ 'Yes'].
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1870	^ ''
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1871	!
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1872
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1873	lineNumber
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1874	^ lineNumber
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1875	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1876
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1877	selector
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1878	^ selector
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1879	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1880
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1881	type
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1882	^ type
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1883	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1884
8241 ea82422336bb * empty log message * Claus Gittinger <cg@exept.de> parents: 8234 diff changeset	1885	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	1886	type := typeArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1887	arg := argArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1888	className := classNameArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1889	selector := selectorArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1890	lineNumber := lineNumberArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1891	info := infoArg.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1892	enabled := enabledArg.
12564 11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1893	!
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1894
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1895	typeString
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1896	"/ loks ugly
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1897	"/ self isIgnored ifTrue:[
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1898	"/ ^ type asText allStrikedOut
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1899	"/ ].
11b2d9fb6554 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12563 diff changeset	1900	^ type
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1901	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1902
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1903	!BreakpointBrowser::BreakpointListEntry methodsFor:'actions'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1904
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1905	browse
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1906	\|browser\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1907
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1908	browser := UserPreferences systemBrowserClass
15941 a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	1909	openInClass:(Smalltalk classNamed:className) selector:selector.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1910
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1911	lineNumber notNil ifTrue:[
15941 a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	1912	browser codeView
a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	1913	cursorLine:lineNumber col:1;
a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	1914	selectLine:lineNumber.
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1915	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1916	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1917
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1918	method
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1919	^ (Smalltalk classNamed:className) compiledMethodAt:selector.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1920	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1921
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1922	!BreakpointBrowser::BreakpointListEntry methodsFor:'queries'!
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1923
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1924	relatedToClass:aClassNamePattern
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1925	className isNil ifTrue:[^ true].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1926	(aClassNamePattern includesMatchCharacters) ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1927	^ aClassNamePattern match: className
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1928	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1929	^ className startsWith:aClassNamePattern
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1930	!
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1931
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1932	relatedToPackage:aPackagePattern
12585 add379de2916 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12564 diff changeset	1933	\|mthd package\|
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1934
12585 add379de2916 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12564 diff changeset	1935	(mthd := self method) isNil ifTrue:[^ false].
add379de2916 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12564 diff changeset	1936	package := mthd package.
12561 0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1937	(aPackagePattern includesMatchCharacters) ifTrue:[
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1938	^ aPackagePattern match: package
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1939	].
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1940	^ package startsWith:aPackagePattern
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1941	! !
0766dc3e8079 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12526 diff changeset	1942
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1943	!BreakpointBrowser::BreakpointListEntry methodsFor:'testing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1944
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1945	isAssertion
12020 52f0fad2fb57 x Claus Gittinger <cg@exept.de> parents: 12019 diff changeset	1946
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1947	^ type == #assertion
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1948	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1949
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1950	isCodeBreakpoint
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	1951	^ type == #breakPoint
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1952	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1953
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1954	isDebugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1955	^ type == #debugCode
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1956	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1957
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1958	isHalt
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1959	^ type == #halt
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1960	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1961
12008 a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1962	isLineBreakpoint
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1963	^ type == #line
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1964	!
a2ca11e42ad2 updated to also include line breaks as per Jan's codeView2 Claus Gittinger <cg@exept.de> parents: 11788 diff changeset	1965
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1966	isMethodBreakpoint
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1967	^ type == #wrap
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1968	!
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1969
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1970	isOther
c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	1971	^ type == #other
12943 90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1972	!
90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1973
90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1974	isTodo
90dc405718b2 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12938 diff changeset	1975	^ type == #todo
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1976	!
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1977
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1978	isTracepoint
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	1979	^ type == #tracepoint
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1980	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1981
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1982	!BreakpointBrowser::BreakpointListEntryForLineBreak methodsFor:'accessing'!
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1983
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1984	breakPoint
12019 21f2043b5a21 x Claus Gittinger <cg@exept.de> parents: 12018 diff changeset	1985	"return the BreakPoint-instance"
21f2043b5a21 x Claus Gittinger <cg@exept.de> parents: 12018 diff changeset	1986
12012 d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1987	^ breakPoint
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1988	!
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1989
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1990	breakPoint:something
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1991	breakPoint := something.
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1992	! !
d9e1b1a352b6 added: Claus Gittinger <cg@exept.de> parents: 12009 diff changeset	1993
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1994	!BreakpointBrowser::MessageArgumentExtractor methodsFor:'accessing'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1995
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1996	callBack:something
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1997	callBack := something.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1998	!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	1999
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2000	selectorToSearch:something
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2001	selectorToSearch := something.
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2002	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2003
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2004	!BreakpointBrowser::MessageArgumentExtractor methodsFor:'visiting'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2005
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2006	acceptMessageNode: aMessageNode
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2007	\|arg1Node arg1 arg2Node arg2 argument infoMessage\|
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2008
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2009	aMessageNode selector == selectorToSearch ifTrue:[
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2010	aMessageNode arguments size > 0 ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2011	arg1Node := aMessageNode arguments first.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2012	arg1Node isLiteral ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2013	arg1 := arg1Node value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	2014	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	2015	arg1 := '(...)'.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2016	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2017	aMessageNode arguments size > 1 ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2018	arg2Node := aMessageNode arguments second.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2019	arg2Node isLiteral ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2020	arg2 := arg2Node value.
8365 a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	2021	] ifFalse:[
a61926c8f65c * empty log message * Claus Gittinger <cg@exept.de> parents: 8362 diff changeset	2022	arg2 := '(...)'.
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2023	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2024	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2025	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2026
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2027	selectorToSearch == #halt: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2028	infoMessage := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2029	].
12938 626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	2030	selectorToSearch == #todo: ifTrue:[
626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	2031	infoMessage := arg1.
626cbab0ce93 class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12585 diff changeset	2032	].
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2033	selectorToSearch == #breakPoint: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2034	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2035	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2036	selectorToSearch == #breakPoint:info: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2037	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2038	infoMessage := arg2.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2039	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2040	selectorToSearch == #debuggingCodeFor:is: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2041	argument := arg1.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2042	].
13347 94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2043	selectorToSearch == #tracePoint: ifTrue:[
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2044	argument := arg1.
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2045	].
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2046	selectorToSearch == #tracePoint:info: ifTrue:[
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2047	argument := arg1.
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2048	infoMessage := arg2.
94bed93d15dd class: Tools::BreakpointBrowser Claus Gittinger <cg@exept.de> parents: 12953 diff changeset	2049	].
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2050	selectorToSearch == #assert: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2051	].
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2052	selectorToSearch == #assert:message: ifTrue:[
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2053	infoMessage := arg2.
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2054	].
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2055
8354 9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2056	callBack
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2057	value:aMessageNode firstLineNumber
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2058	value:argument
9791dde64bd7 also show&handle debuggingCodeFor:is Claus Gittinger <cg@exept.de> parents: 8302 diff changeset	2059	value:infoMessage
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2060	].
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2061	super acceptMessageNode: aMessageNode
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2062	! !
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2063
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2064	!BreakpointBrowser class methodsFor:'documentation'!
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2065
e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2066	version
15941 a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	2067	^ '$Header$'
8858 a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	2068	!
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	2069
a03067b9d96c comment/format in: #enabledCodeBreakpointMenu Claus Gittinger <cg@exept.de> parents: 8767 diff changeset	2070	version_CVS
15941 a2bb2952da6d #REFACTORING Claus Gittinger <cg@exept.de> parents: 15619 diff changeset	2071	^ '$Header$'
8233 e2f89abb11d9 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	2072	! !
9077 c936c0fc8ef4 * empty log message * Claus Gittinger <cg@exept.de> parents: 9045 diff changeset	2073

author	Jan Vrany <jan.vrany@labware.com>
	Wed, 05 Oct 2022 11:57:26 +0100
branch	jv
changeset 19637	28f5bfaa093d
parent 19600	4b1129981eb9
permissions	-rw-r--r--