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

author	Claus Gittinger <cg@exept.de>
	Thu, 28 Mar 2013 16:13:48 +0100
changeset 12563	a59337482755
parent 12561	0766dc3e8079
child 12564	11b2d9fb6554
permissions	-rw-r--r--