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

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

author	Claus Gittinger <cg@exept.de>
	Mon, 03 Feb 2014 10:36:25 +0100
changeset 13788	8cb3d21e2d52
parent 13349	cadf708fe6cc
child 14607	b4a144ee8154
permissions	-rw-r--r--