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

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

author	Claus Gittinger <cg@exept.de>
	Wed, 05 Jun 2019 14:16:59 +0200
changeset 18805	f6df57c6dbfb
parent 18703	91c116f548c9
child 19247	ae02dee6db87
permissions	-rw-r--r--