hg/jv-vdb: VDBFramePresenter.st@4e8268dabaf7 (annotated)

49 2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	2	jv:vdb - Visual / VM Debugger
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	3	Copyright (C) 2015-now Jan Vrany
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	4
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	5	This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	6
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	7	You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	8	"
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"{ Package: 'jv:vdb' }"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
40 d766d4c854a2 Cleanup in debugger and inferior console applications to catch up changes in `jv:libgdbs` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	11	"{ NameSpace: Smalltalk }"
d766d4c854a2 Cleanup in debugger and inferior console applications to catch up changes in `jv:libgdbs` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	12
60 bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	13	VDBAbstractPresenter subclass:#VDBFramePresenter
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	instanceVariableNames:'frame'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	classVariableNames:''
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	poolDictionaries:''
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	category:'VDB-Presentation'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
49 2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	20	!VDBFramePresenter class methodsFor:'documentation'!
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	21
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	22	copyright
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	23	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	24	jv:vdb - Visual / VM Debugger
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	25	Copyright (C) 2015-now Jan Vrany
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	26
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	27	This software is licensed under 'Creative Commons Attribution-NonCommercial 4.0 International License'
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	28
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	29	You may find a full license text in LICENSE.txt or at http://creativecommons.org/licenses/by-nc/4.0/
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	30	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	31	! !
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	32
54 d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	33	!VDBFramePresenter class methodsFor:'menu specs'!
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	34
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	35	contextMenu
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	36	"This resource specification was automatically generated
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	37	by the MenuEditor of ST/X."
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	38
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	39	"Do not manually edit this!! If it is corrupted,
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	40	the MenuEditor may not be able to read the specification."
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	41
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	42
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	43	"
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	44	MenuEditor new openOnClass:VDBFramePresenter andSelector:#contextMenu
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	45	(Menu new fromLiteralArrayEncoding:(VDBFramePresenter contextMenu)) startUp
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	46	"
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	47
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	48	<resource: #menu>
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	49
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	50	^
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	51	#(Menu
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	52	(
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	53	(MenuItem
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	54	enabled: canCopyFunctionName
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	55	label: 'Copy Function Name'
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	56	itemValue: doCopyFunctionName
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	57	)
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	58	)
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	59	nil
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	60	nil
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	61	)
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	62	! !
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	63
23 ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	64	!VDBFramePresenter methodsFor:'accessing'!
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65
23 ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	66	frame
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	67	^ frame
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	68	!
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	69
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	70	icon
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	71	^ frame thread isRunning
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	72	ifTrue:[ VDBIconLibrary frameRunning16x16 ]
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	73	ifFalse:[ VDBIconLibrary frameStopped16x16 ]
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	74
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	75	"Created: / 22-09-2014 / 22:06:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	76	!
c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	77
23 ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	78	label
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	^ frame displayString
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80
23 ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	81	"Created: / 22-09-2014 / 00:14:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
60 bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	82	!
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	83
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	84	subject
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	85	"Return an instance of GDB object that this presenter displays."
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	86
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	87	^ frame
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	88
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	89	"Modified: / 05-02-2018 / 13:08:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	! !
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	92	!VDBFramePresenter methodsFor:'initialization'!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	setFrame: aGDBFrame
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	^ frame := aGDBFrame
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	"Created: / 21-09-2014 / 23:38:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	! !
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99
60 bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	100	!VDBFramePresenter methodsFor:'menu-actions'!
54 d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	101
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	102	doCopyFunctionName
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	103	<resource: #uiCallback>
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	104
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	105	self doCopy: frame func.
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	106
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	107	"Modified: / 16-01-2018 / 22:36:37 / jv"
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	108	! !
d974a70c70ad UI: support for presenter-defined context menus Jan Vrany <jan.vrany@fit.cvut.cz> parents: 49 diff changeset	109
60 bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	110	!VDBFramePresenter methodsFor:'menu-queries'!
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	111
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	112	canCopyFunctionName
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	113	^ frame func notNil
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	114
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	115	"Modified: / 16-01-2018 / 22:19:59 / jv"
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	116	"Modified: / 05-02-2018 / 12:13:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	117	! !
bcdb393c956f Cleanup of (former) `VDBModelPresenter` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 54 diff changeset	118
72 4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	119	!VDBFramePresenter methodsFor:'private-displaying'!
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	120
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	121	displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	122	\| color \|
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	123	frame thread isStopped ifFalse:[
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	124	color := aGC paint.
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	125	aGC paint: Color gray.
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	126	[
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	127	super displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	128	] ensure:[
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	129	aGC paint: color.
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	130	].
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	131	] ifTrue:[
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	132	super displayLabel:aLabel h:lH on:aGC x:x y:y h:h isHighlightedAsSelected:isHighlightedAsSelected
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	133	].
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	134
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	135	"Created: / 09-04-2018 / 16:50:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	136	! !
4e8268dabaf7 UI: "disable" frames in frame list while inferior is running Jan Vrany <jan.vrany@fit.cvut.cz> parents: 60 diff changeset	137
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	!VDBFramePresenter methodsFor:'protocol-accessing'!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	fetchChildren
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	"should compute the list of children via the model.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	Be aware, that the somewhat stupid 'optimization' of how the model is fetched may lead to
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	a O(n*log n) or even O(n^2) behavior here.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	*** to optimize: redefine by subClass"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	146	^ #()
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148	"Created: / 21-09-2014 / 23:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	! !
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150
23 ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	151	!VDBFramePresenter methodsFor:'testing'!
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	152
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	153	isFramePresenter
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	154	^ true
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	155
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	156	"Created: / 21-09-2014 / 23:54:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	157	! !
ed5f4b55cee5 Added toolbar and icons. Show all thread groups and threads in stack view. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 22 diff changeset	158

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 09 Apr 2018 21:43:54 +0100
changeset 72	4e8268dabaf7
parent 60	bcdb393c956f
child 77	163d914fae79
permissions	-rw-r--r--