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

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

author	Claus Gittinger <cg@exept.de>
	Sat, 03 Nov 2012 17:31:18 +0100
changeset 12008	a2ca11e42ad2
parent 11788	063a9c415a06
child 12009	9d2c3ebb1a2d
permissions	-rw-r--r--