hg/jv-vdb: VDBAbstractContainer.st@d55f55ac977b (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	"
1 09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"{ Package: 'jv:vdb' }"
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) 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: 13 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: 13 diff changeset	12
1 09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	VDBAbstractApplication subclass:#VDBAbstractContainer
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	14	instanceVariableNames:'components labels'
1 09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	classVariableNames:''
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	poolDictionaries:''
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	category:'VDB-UI-Abstract'
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!
09b3ef5606e7 Added simple event log application. Initial stub for application containers (docking panels) 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	!VDBAbstractContainer 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	! !
2 9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	32
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	33	!VDBAbstractContainer class methodsFor:'queries'!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	34
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	35	isAbstract
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	36	"Return if this class is an abstract class.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	37	True is returned here for myself only; false for subclasses.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	38	Abstract subclasses must redefine again."
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	39
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	40	^ self == VDBAbstractContainer.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	41	! !
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	42
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	43	!VDBAbstractContainer methodsFor:'adding & removing components'!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	44
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	45	addApplication: anApplicationModel
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	46	\| label \|
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	47
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	48	label := anApplicationModel perform: #title ifNotUnderstood:[ anApplicationModel class name ].
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	49	^ self addApplication: anApplicationModel labeled: label
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	50
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	51	"Created: / 10-06-2014 / 14:23:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	52	"Modified: / 10-06-2014 / 16:59:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	53	!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	54
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	55	addApplication: anApplicationModel labeled: aString
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	56	^ self addApplication: anApplicationModel labeled: aString beforeIndex: components size + 1
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	57
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	58	"Created: / 10-06-2014 / 16:59:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	59	!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	60
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	61	addApplication: anApplicationModel labeled: aString beforeIndex: anInteger
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	62	\| component \|
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	63
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	64	component := ApplicationSubView new.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	65	anApplicationModel createBuilder.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	66	anApplicationModel window: component.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	67	component client: anApplicationModel.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	68	^ self addComponent: component labeled: aString beforeIndex: anInteger
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	69
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	70	"Created: / 10-06-2014 / 16:58:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	71	!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	72
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	73	addComponent: aView labeled: aString
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	74	self addComponent: aView labeled: aString beforeIndex: labels size + 1.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	75
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	76	"Created: / 10-06-2014 / 16:39:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	77	!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	78
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	79	addComponent: aView labeled: aString beforeIndex: anInteger
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	80	labels add: aString beforeIndex: anInteger.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	81	components add: aView beforeIndex: anInteger.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	82	self assert: labels size == components size.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	83
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	84	"Created: / 10-06-2014 / 16:37:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	85	"Modified: / 17-09-2014 / 22:44:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	86	! !
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	87
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	88	!VDBAbstractContainer methodsFor:'aspects'!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	89
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	90	debuggerHolder:aValueModel
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	91	super debuggerHolder:aValueModel.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	92	components do:[:each \|
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	93	each isApplicationSubView ifTrue:[
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	94	each application debuggerHolder: aValueModel
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	95	].
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	96	].
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	97
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	98	"Created: / 10-06-2014 / 17:27:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	99	! !
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	100
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	101	!VDBAbstractContainer methodsFor:'initialization & release'!
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	102
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	103	initialize
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	104	labels := List new.
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	105	components := List new.
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	106	components addDependent: self.
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	107
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	108	"Created: / 10-06-2014 / 14:24:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	109	"Modified: / 17-09-2014 / 22:21:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	110	! !
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	111
2 9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	112	!VDBAbstractContainer class methodsFor:'documentation'!
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	113
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	114	version_HG
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	115
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	116	^ '$Changeset: <not expanded> $'
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	117	! !
9741a7683808 Added VDBInferiorConsoleApplication to display debugee's input/output. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	118

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 10 Jun 2019 15:22:49 +0100
changeset 166	d55f55ac977b
parent 49	2ec7f7ed9242
child 193	e6393500a665
permissions	-rw-r--r--