hg/jv-vdb: VDBDebuggerApplication.st@91a467093d63 (annotated)

49 2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	1	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 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: 46 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: 46 diff changeset	4
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 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: 46 diff changeset	6
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 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: 46 diff changeset	8	"
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"{ Package: 'jv:vdb' }"
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	11	"{ NameSpace: Smalltalk }"
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	12
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	VDBAbstractApplication subclass:#VDBDebuggerApplication
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	14	instanceVariableNames:'layoutSpecHolder selectedThreadGroupHolder selectedThreadHolder
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	15	selectedFrameHolder canExecRestartHolder canExecResumeHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	16	canExecRunHolder canExecStepIntoHolder canExecStepOverHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	17	canExecStepReturnHolder canExecSuspendHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	18	canExecTerminateHolder canExecBackIntoHolder
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	19	canExecBackOverHolder canExecBackReturnHolder
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	20	canExecReverseHolder targetIsRR'
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	classVariableNames:''
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	22	poolDictionaries:'GDBStopReasons'
37 f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	23	category:'VDB-UI'
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	!
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
49 2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	26	!VDBDebuggerApplication class methodsFor:'documentation'!
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	27
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	28	copyright
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	29	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	30	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: 46 diff changeset	31	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: 46 diff changeset	32
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	33	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: 46 diff changeset	34
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	35	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: 46 diff changeset	36	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	37	! !
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	38
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	39	!VDBDebuggerApplication class methodsFor:'initialization'!
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	40
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	41	initializeDefaultKeyboardMap
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	42	defaultKeyboardMap := DebugView defaultKeyboardMap copy.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	43	defaultKeyboardMap bindValue: #DebuggerRestart to: ('Ctrl', (defaultKeyboardMap bindingForLogical: #DebuggerContinue)) asSymbol.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	44
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	45	"Created: / 05-06-2017 / 23:01:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	46	"Modified: / 11-06-2017 / 20:08:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	47	! !
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	48
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	49	!VDBDebuggerApplication class methodsFor:'accessing - defaults'!
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	50
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	51	gdbUserInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	52	"Return path to user-specific GDB init file (as Filename)."
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	53
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	54	\| gdbinit \|
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	55
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	56	gdbinit := Filename homeDirectory / '.gdbinit'.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	57	(gdbinit exists not and:[ (Filename homeDirectory / 'gdb.ini') exists ]) ifTrue:[
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	58	gdbinit := Filename homeDirectory / 'gdb.ini'
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	59	].
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	60	^ gdbinit
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	61
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	62	"
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	63	VDBDebuggerApplication gdbUserInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	64	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	65
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	66	"Created: / 20-06-2019 / 11:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	67	!
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	68
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	69	vdbDefaultInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	70	"Return path to default system VDB init file (as Filename).
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	71	This one is used when user init file is not found, see
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	72	#gdbUserInitFile"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	73
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	74	\| pkgdir \|
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	75
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	76	pkgdir := Smalltalk getPackageDirectoryForPackage: self package.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	77	^ pkgdir / 'vdbinit.st'
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	78
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	79	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	80	VDBDebuggerApplication vdbDefaultInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	81	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	82
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	83	"Created: / 20-06-2019 / 11:52:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	84	!
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	85
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	86	vdbUserInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	87	"Return path to user-specific VDB init file (as Filename).
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	88	Use this to customize VDB upon startup.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	89	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	90
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	91	^ Filename homeDirectory / '.vdbinit.st'.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	92
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	93
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	94	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	95	VDBDebuggerApplication vdbUserInitFile
136 285c33a15fd2 UI: in simple console use prompt defined by GDB parameter 'prompt' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 130 diff changeset	96	"
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	97
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	98	"Created: / 31-08-2018 / 07:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	99	"Modified (comment): / 20-06-2019 / 12:05:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	100	! !
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	101
28 9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	102	!VDBDebuggerApplication class methodsFor:'interface opening'!
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	103
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	104	open
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	105	^ self openFor: GDBDebugger new.
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	106
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	107	"Created: / 23-09-2014 / 16:39:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	108	! !
9e0fcd0edd6b Start gdb process when opened from browser (via VDBDebuggerApplication class>>open) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	109
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	!VDBDebuggerApplication class methodsFor:'interface specs'!
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	112	windowSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	113	"This resource specification was automatically generated
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	114	by the UIPainter of ST/X."
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	115
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	116	"Do not manually edit this!! If it is corrupted,
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	117	the UIPainter may not be able to read the specification."
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	118
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	119	"
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	120	UIPainter new openOnClass:VDBDebuggerApplication andSelector:#windowSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	121	VDBDebuggerApplication new openInterface:#windowSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	122	VDBDebuggerApplication open
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	123	"
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	124
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	125	<resource: #canvas>
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	126
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	127	^
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	128	#(FullSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	129	name: windowSpec
152 a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	130	uuid: '5f867d40-3168-11e9-8b55-606720e43e2c'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	131	window:
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	132	(WindowSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	133	label: 'Visual/VM Debugger'
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	134	name: 'Visual/VM Debugger'
152 a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	135	uuid: '03126dd1-3168-11e9-8b55-606720e43e2c'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	136	min: (Point 10 10)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	137	bounds: (Rectangle 0 0 800 600)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	138	menu: mainMenu
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	139	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	140	component:
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	141	(SpecCollection
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	142	collection: (
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	143	(MenuPanelSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	144	name: 'ToolBar'
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	145	layout: (LayoutFrame 0 0 0 0 0 1 25 0)
152 a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	146	uuid: '03126dd2-3168-11e9-8b55-606720e43e2c'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	147	menu: toolbarMenu
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	148	textDefault: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	149	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	150	(SubCanvasSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	151	name: 'Layout'
152 a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	152	layout: (LayoutFrame 0 0 25 0 0 1 -30 1)
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	153	uuid: '03126dd3-3168-11e9-8b55-606720e43e2c'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	154	hasHorizontalScrollBar: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	155	hasVerticalScrollBar: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	156	specHolder: layoutSpecHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	157	createNewBuilder: false
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	158	)
152 a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	159	(SubCanvasSpec
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	160	name: 'Status'
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	161	layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	162	uuid: '03126dd4-3168-11e9-8b55-606720e43e2c'
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	163	hasHorizontalScrollBar: false
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	164	hasVerticalScrollBar: false
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	165	majorKey: VDBStatusApplication
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	166	subAspectHolders:
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	167	(Array
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	168
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	169	(SubChannelInfoSpec
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	170	subAspect: debuggerHolder
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	171	aspect: debuggerHolder
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	172	)
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	173	)
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	174	createNewApplication: true
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	175	createNewBuilder: false
a069cf7fcab5 UI: add status bar to debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 136 diff changeset	176	)
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	177	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	178
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	179	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	180	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	181	! !
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	182
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	183	!VDBDebuggerApplication class methodsFor:'interface specs-layouts'!
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	184
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	185	layoutEclipseSpec
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	"This resource specification was automatically generated
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187	by the UIPainter of ST/X."
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	"Do not manually edit this!! If it is corrupted,
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	the UIPainter may not be able to read the specification."
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	"
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	193	UIPainter new openOnClass:VDBDebuggerApplication andSelector:#layoutEclipseSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	194	VDBDebuggerApplication new openInterface:#layoutEclipseSpec
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	"
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	<resource: #canvas>
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	^
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	#(FullSpec
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	201	name: layoutEclipseSpec
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	window:
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	(WindowSpec
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	label: 'Visual Debugger'
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	name: 'Visual Debugger'
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	min: (Point 10 10)
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	bounds: (Rectangle 0 0 718 390)
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	208	menu: mainMenu
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	)
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	component:
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	(SpecCollection
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	collection: (
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	213	(VariableVerticalPanelSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	214	name: 'VariableVerticalPanel'
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	216	showHandle: true
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	217	snapMode: both
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	218	component:
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	219	(SpecCollection
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	220	collection: (
37 f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	221	(VariableHorizontalPanelSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	222	name: 'StackAndFrameCanvas'
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	223	snapMode: both
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	224	component:
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	225	(SpecCollection
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	226	collection: (
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	227	(SubCanvasSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	228	name: 'StackCanvas'
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	229	level: 0
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	230	hasHorizontalScrollBar: false
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	231	hasVerticalScrollBar: false
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	232	majorKey: VDBStackApplication
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	233	subAspectHolders:
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	234	(Array
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	235
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	236	(SubChannelInfoSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	237	subAspect: selectedFrameHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	238	aspect: selectedFrameHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	239	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	240	(SubChannelInfoSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	241	subAspect: selectedThreadGroupHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	242	aspect: selectedThreadGroupHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	243	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	244
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	245	(SubChannelInfoSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	246	subAspect: selectedThreadHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	247	aspect: selectedThreadHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	248	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	249	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	250	createNewApplication: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	251	createNewBuilder: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	252	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	253	(SubCanvasSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	254	name: 'FrameCanvas'
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	255	hasHorizontalScrollBar: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	256	hasVerticalScrollBar: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	257	majorKey: VDBFrameApplication
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	258	subAspectHolders:
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	259	(Array
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	260
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	261	(SubChannelInfoSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	262	subAspect: debuggerHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	263	aspect: debuggerHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	264	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	265	(SubChannelInfoSpec
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	266	subAspect: frameHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	267	aspect: selectedFrameHolder
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	268	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	269	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	270	createNewApplication: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	271	createNewBuilder: true
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	272	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	273	)
f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	274
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	275	)
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	276	handles: (Any 0.5 1.0)
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	277	)
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	278	(SubCanvasSpec
113 1a40f33af921 UI: Show disassembly along with source code Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	279	name: 'SourcePane'
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	280	hasHorizontalScrollBar: false
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	281	hasVerticalScrollBar: false
113 1a40f33af921 UI: Show disassembly along with source code Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	282	majorKey: VDBSourceAndDisassemblyApplication
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	283	subAspectHolders:
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	284	(Array
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	285
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	286	(SubChannelInfoSpec
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	287	subAspect: frameHolder
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	288	aspect: selectedFrameHolder
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	289	)
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	290	)
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	291	createNewApplication: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	292	createNewBuilder: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	293	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	294	(SubCanvasSpec
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	295	name: 'ConsolePane'
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	296	level: 0
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	297	hasHorizontalScrollBar: false
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	298	hasVerticalScrollBar: false
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	299	clientHolder: consolePane
16 fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	300	subAspectHolders:
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	301	(Array
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	302
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	303	(SubChannelInfoSpec
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	304	subAspect: debuggerHolder
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	305	aspect: debuggerHolder
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	306	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	307	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	308	createNewApplication: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	309	createNewBuilder: true
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	310	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	311	)
fc1898815ab6 Temporary commit: some more work on displaying source code. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13 diff changeset	312
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	)
37 f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	314	handles: (Any 0.33333333333333337 0.66666666666666674 1.0)
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	)
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	)
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	)
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	)
37 f417fe8685c5 Initial support for variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	320
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	321	"Modified: / 04-10-2018 / 11:08:20 / 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: 12 diff changeset	322	!
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	323
118 b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	324	layoutIDAProSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	325	"This resource specification was automatically generated
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	326	by the UIPainter of ST/X."
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	327
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	328	"Do not manually edit this!! If it is corrupted,
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	329	the UIPainter may not be able to read the specification."
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	330
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	331	"
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	332	UIPainter new openOnClass:VDBDebuggerApplication andSelector:#layoutIDASpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	333	VDBDebuggerApplication new openInterface:#layoutIDASpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	334	"
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	335
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	336	<resource: #canvas>
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	337
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	338	^
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	339	#(FullSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	340	name: 'layoutIDASpec'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	341	uuid: 'a436edc0-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	342	window:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	343	(WindowSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	344	label: 'Visual Debugger'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	345	name: 'Visual Debugger'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	346	uuid: 'a43714d0-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	347	min: (Point 10 10)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	348	bounds: (Rectangle 0 0 718 390)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	349	menu: mainMenu
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	350	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	351	component:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	352	(SpecCollection
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	353	collection: (
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	354	(VariableHorizontalPanelSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	355	name: 'Contents'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	356	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	357	uuid: 'a43714d1-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	358	snapMode: both
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	359	component:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	360	(SpecCollection
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	361	collection: (
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	362	(VariableVerticalPanelSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	363	name: 'SourceAndConsole'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	364	uuid: 'a43714d2-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	365	snapMode: both
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	366	component:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	367	(SpecCollection
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	368	collection: (
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	369	(SubCanvasSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	370	name: 'Source'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	371	uuid: 'a43714d3-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	372	hasHorizontalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	373	hasVerticalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	374	majorKey: VDBSourceAndDisassemblyApplication
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	375	subAspectHolders:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	376	(Array
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	377
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	378	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	379	subAspect: frameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	380	aspect: selectedFrameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	381	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	382	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	383	createNewApplication: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	384	createNewBuilder: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	385	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	386	(SubCanvasSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	387	name: 'ConsolePane'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	388	uuid: 'a43714d4-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	389	level: 0
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	390	hasHorizontalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	391	hasVerticalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	392	clientHolder: consolePane
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	393	subAspectHolders:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	394	(Array
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	395
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	396	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	397	subAspect: debuggerHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	398	aspect: debuggerHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	399	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	400	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	401	createNewApplication: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	402	createNewBuilder: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	403	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	404	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	405
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	406	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	407	handles: (Any 0.75 1.0)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	408	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	409	(VariableVerticalPanelSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	410	name: 'FrameAndThreads'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	411	uuid: 'a43714d5-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	412	snapMode: both
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	413	component:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	414	(SpecCollection
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	415	collection: (
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	416	(SubCanvasSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	417	name: 'Frame'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	418	uuid: 'a43714d6-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	419	hasHorizontalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	420	hasVerticalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	421	majorKey: VDBFrameApplication
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	422	subAspectHolders:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	423	(Array
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	424
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	425	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	426	subAspect: debuggerHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	427	aspect: debuggerHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	428	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	429	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	430	subAspect: frameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	431	aspect: selectedFrameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	432	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	433	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	434	createNewApplication: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	435	createNewBuilder: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	436	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	437	(SubCanvasSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	438	name: 'StackCanvas'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	439	uuid: 'a43714d7-c61b-11e8-8890-0021ccd5e3d3'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	440	level: 0
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	441	hasHorizontalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	442	hasVerticalScrollBar: false
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	443	majorKey: VDBStackApplication
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	444	subAspectHolders:
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	445	(Array
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	446
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	447	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	448	subAspect: selectedFrameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	449	aspect: selectedFrameHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	450	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	451	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	452	subAspect: selectedThreadGroupHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	453	aspect: selectedThreadGroupHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	454	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	455
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	456	(SubChannelInfoSpec
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	457	subAspect: selectedThreadHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	458	aspect: selectedThreadHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	459	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	460	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	461	createNewApplication: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	462	createNewBuilder: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	463	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	464	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	465
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	466	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	467	handles: (Any 0.5 1.0)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	468	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	469	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	470
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	471	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	472	handles: (Any 0.7 1.0)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	473	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	474	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	475
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	476	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	477	)
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	478
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	479	"Created: / 05-10-2018 / 09:13:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	480	!
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	481
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	482	layoutSingleSpec
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	483	"This resource specification was automatically generated
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	484	by the UIPainter of ST/X."
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	485
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	486	"Do not manually edit this!! If it is corrupted,
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	487	the UIPainter may not be able to read the specification."
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	488
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	489	"
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	490	UIPainter new openOnClass:VDBDebuggerApplication andSelector:#layoutSingleSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	491	VDBDebuggerApplication new openInterface:#layoutSingleSpec
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	492	"
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	493
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	494	<resource: #canvas>
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	495
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	496	^
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	497	#(FullSpec
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	498	name: layoutSingleSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	499	uuid: '6229e7e0-c7bd-11e8-8f9c-0021ccd5e3d3'
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	500	window:
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	501	(WindowSpec
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	502	label: 'Visual Debugger'
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	503	name: 'Visual Debugger'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	504	uuid: '6229e7e1-c7bd-11e8-8f9c-0021ccd5e3d3'
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	505	min: (Point 10 10)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	506	bounds: (Rectangle 0 0 718 390)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	507	menu: mainMenu
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	508	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	509	component:
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	510	(SpecCollection
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	511	collection: (
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	512	(SubCanvasSpec
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	513	name: 'ConsolePane'
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	514	layout: (LayoutFrame 0 0 0 0 0 1 0 1)
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	515	uuid: '6229e7e2-c7bd-11e8-8f9c-0021ccd5e3d3'
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	516	level: 0
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	517	hasHorizontalScrollBar: false
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	518	hasVerticalScrollBar: false
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	519	clientHolder: consolePane
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	520	subAspectHolders:
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	521	(Array
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	522
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	523	(SubChannelInfoSpec
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	524	subAspect: debuggerHolder
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	525	aspect: debuggerHolder
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	526	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	527	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	528	createNewApplication: true
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	529	createNewBuilder: true
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	530	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	531	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	532
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	533	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	534	)
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	! !
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	537	!VDBDebuggerApplication class methodsFor:'menu specs'!
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	538
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	539	execMenu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	540	"This resource specification was automatically generated
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	541	by the MenuEditor of ST/X."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	542
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	543	"Do not manually edit this!! If it is corrupted,
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	544	the MenuEditor may not be able to read the specification."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	545
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	546
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	547	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	548	MenuEditor new openOnClass:VDBDebuggerApplication andSelector:#execMenu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	549	(Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication execMenu)) startUp
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	550	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	551
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	552	<resource: #menu>
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	553
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	554	^
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	555	#(Menu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	556	(
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	557	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	558	enabled: canExecRunHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	559	label: 'Run'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	560	itemValue: doExecRun
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	561	isVisible: true
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	562	labelImage: (ResourceRetriever VDBIconLibrary actionRun16x16 'Run')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	563	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	564	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	565	enabled: canExecResumeHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	566	label: 'Resume'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	567	itemValue: doExecResume
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	568	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	569	shortcutKey: DebuggerContinue
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	570	labelImage: (ResourceRetriever VDBIconLibrary actionContinue16x16 'Resume')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	571	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	572	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	573	enabled: canExecSuspendHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	574	label: 'Suspend'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	575	itemValue: doExecSuspend
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	576	isVisible: true
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	577	labelImage: (ResourceRetriever VDBIconLibrary actionStop16x16 'Suspend')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	578	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	579	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	580	enabled: canExecTerminateHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	581	label: 'Terminate'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	582	itemValue: doExecTerminate
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	583	isVisible: true
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	584	labelImage: (ResourceRetriever VDBIconLibrary actionTerminate6x16 'Terminate')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	585	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	586	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	587	enabled: canExecRestartHolder
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	588	label: 'Restart'
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	589	itemValue: doExecRestart
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	590	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	591	shortcutKey: DebuggerRestart
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	592	labelImage: (ResourceRetriever VDBIconLibrary actionTerminateAndRun6x16 'Restart')
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	593	)
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	594	(MenuItem
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	595	label: '-'
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	596	isVisible: true
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	597	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	598	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	599	enabled: canExecStepOverHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	600	label: 'Step Over'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	601	itemValue: doExecStepOver
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	602	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	603	shortcutKey: DebuggerNext
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	604	labelImage: (ResourceRetriever VDBIconLibrary actionStepOver6x16 'Step Over')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	605	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	606	(MenuItem
26 45980fbc001b Added enablement holders to exec menu items. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	607	enabled: canExecStepIntoHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	608	label: 'Step Into'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	609	itemValue: doExecStepInto
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	610	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	611	shortcutKey: DebuggerSend
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	612	labelImage: (ResourceRetriever VDBIconLibrary actionStepInto6x16 'Step Into')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	613	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	614	(MenuItem
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	615	enabled: canExecStepReturnHolder
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	616	label: 'Step Return'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	617	itemValue: doExecStepReturn
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	618	isVisible: true
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	619	shortcutKey: DebuggerReturn
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	620	labelImage: (ResourceRetriever VDBIconLibrary actionStepReturn6x16 'Step Return')
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	621	)
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	622	(MenuItem
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	623	label: '-'
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	624	isVisible: true
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	625	)
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	626	(MenuItem
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	627	enabled: canExecBackOverHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	628	label: 'Back Over'
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	629	itemValue: doExecBackOver
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	630	isVisible: true
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	631	shortcutKey: DebuggerBackOver
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	632	)
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	633	(MenuItem
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	634	enabled: canExecBackIntoHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	635	label: 'Back Into'
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	636	itemValue: doExecBackInto
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	637	isVisible: true
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	638	shortcutKey: DebuggerBackInto
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	639	)
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	640	(MenuItem
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	641	enabled: canExecBackReturnHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	642	label: 'Back Return'
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	643	itemValue: doExecBackReturn
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	644	isVisible: true
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	645	shortcutKey: DebuggerBackReturn
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	646	)
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	647	(MenuItem
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	648	label: '-'
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	649	isVisible: true
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	650	)
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	651	(MenuItem
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	652	enabled: canExecReverseHolder
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	653	label: 'Reverse'
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	654	itemValue: doExecReverse
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	655	isVisible: true
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	656	shortcutKey: DebuggerBackReturn
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	657	)
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	658	(MenuItem
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	659	label: '-'
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	660	)
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	661	(MenuItem
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	662	label: 'Pin Menu'
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	663	itemValue: doPinMenuAs:item:
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	664	isVisible: true
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	665	labelImage: (ResourceRetriever VDBIconLibrary pin 'Pin Menu')
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	666	argument: 'Execute'
a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	667	)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	668	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	669	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	670	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	671	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	672	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	673
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	674	mainMenu
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	675	"This resource specification was automatically generated
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	676	by the MenuEditor of ST/X."
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	677
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	678	"Do not manually edit this!! If it is corrupted,
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	679	the MenuEditor may not be able to read the specification."
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	680
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	681
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	682	"
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	683	MenuEditor new openOnClass:VDBDebuggerApplication andSelector:#mainMenu
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	684	(Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication mainMenu)) startUp
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	685	"
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	686
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	687	<resource: #menu>
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	688
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	689	^
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	690	#(Menu
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	691	(
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	692	(MenuItem
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	693	label: 'File'
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	694	isVisible: true
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	695	submenu:
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	696	(Menu
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	697	(
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	698	(MenuItem
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	699	label: 'Open Executable'
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	700	itemValue: doOpenExecutable
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	701	isVisible: true
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	702	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	703	(MenuItem
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	704	label: '-'
109 8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	705	isVisible: true
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	706	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	707	(MenuItem
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	708	enabled: canAttachToRR
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	709	label: 'Attach to Replay Server'
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	710	itemValue: doAttachToRR
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	711	isVisible: true
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	712	)
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	713	(MenuItem
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	714	label: '-'
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	715	isVisible: true
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	716	)
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	717	(MenuItem
116 d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	718	label: 'Preferences'
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	719	itemValue: doOpenPreferences
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	720	isVisible: true
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	721	)
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	722	(MenuItem
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	723	label: '-'
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	724	isVisible: true
116 d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	725	)
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	726	(MenuItem
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	727	label: 'Quit'
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	728	itemValue: doQuit
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	729	isVisible: true
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	730	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	731	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	732	nil
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	733	nil
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	734	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	735	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	736	(MenuItem
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	737	label: 'Run'
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	738	isVisible: true
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	739	submenuChannel: execMenu
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	740	)
12 b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	741	(MenuItem
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	742	label: 'View'
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	743	isVisible: true
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	744	submenu:
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	745	(Menu
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	746	(
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	747	(MenuItem
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	748	label: 'Eclipse Layout'
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	749	isVisible: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	750	choice: layoutSpecHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	751	choiceValue: layoutEclipseSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	752	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	753	(MenuItem
118 b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	754	label: 'IDA Pro Layout'
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	755	isVisible: true
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	756	choice: layoutSpecHolder
b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	757	choiceValue: layoutIDAProSpec
156 6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	758	)
118 b5fe8d511cfa UI: add Hex-Rays IDA Pro like debugger layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 117 diff changeset	759	(MenuItem
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	760	label: 'Console-Only Layout'
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	761	isVisible: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	762	choice: layoutSpecHolder
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	763	choiceValue: layoutSingleSpec
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	764	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	765	(MenuItem
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	766	label: '-'
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	767	isVisible: true
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	768	)
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	769	(MenuItem
114 8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	770	enabled: canViewEnableFrameFilters
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	771	label: 'Enable Frame Filters'
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	772	itemValue: doViewEnableFrameFilters
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	773	isVisible: true
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	774	)
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	775	(MenuItem
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	776	enabled: canViewEnablePrettyPrinting
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	777	label: 'Enable Pretty Printing'
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	778	itemValue: doViewEnablePrettyPrinting
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	779	isVisible: true
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	780	)
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	781	)
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	782	nil
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	783	nil
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	784	)
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	785	)
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	786	(MenuItem
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	787	label: 'Window'
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	788	isVisible: true
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	789	submenu:
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	790	(Menu
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	791	(
8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	792	(MenuItem
175 a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	793	label: 'Scratch Pad'
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	794	itemValue: doOpenScatchPad
171 39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	795	isVisible: true
39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	796	)
39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	797	(MenuItem
39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	798	label: '-'
175 a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	799	isVisible: true
171 39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	800	)
39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	801	(MenuItem
114 8a0643c344a9 UI: split View menu into View and Window Jan Vrany <jan.vrany@fit.cvut.cz> parents: 113 diff changeset	802	label: 'Callstack'
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	803	itemValue: doOpenToolApplicationClass:
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	804	isVisible: true
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	805	argument: VDBStackApplication
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	806	)
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	807	(MenuItem
109 8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	808	label: 'Variables'
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	809	itemValue: doOpenToolVariables
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	810	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	811	)
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	812	(MenuItem
110 7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	813	label: 'Registers'
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	814	itemValue: doOpenToolRegisters
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	815	isVisible: true
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	816	)
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	817	(MenuItem
111 a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	818	label: 'Disassembly'
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	819	itemValue: doOpenToolDIsassembly
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	820	isVisible: true
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	821	)
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	822	(MenuItem
46 6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: 44 diff changeset	823	label: 'Breakpoints'
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	824	itemValue: doOpenToolApplicationClass:
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	825	isVisible: true
46 6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: 44 diff changeset	826	argument: VDBBreakpointListApplication
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: 44 diff changeset	827	)
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: 44 diff changeset	828	(MenuItem
56 6c7ed8cc00ea UI: added "memory view" to display memory dumps Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	829	label: 'Memory'
66 a6439bb6d8bc UI: add support to "pin" menus, i.e., turn them into a floating toolboxes Jan Vrany <jan.vrany@fit.cvut.cz> parents: 65 diff changeset	830	itemValue: doOpenToolApplicationClass:
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	831	isVisible: true
56 6c7ed8cc00ea UI: added "memory view" to display memory dumps Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	832	argument: VDBMemoryApplication
6c7ed8cc00ea UI: added "memory view" to display memory dumps Jan Vrany <jan.vrany@fit.cvut.cz> parents: 52 diff changeset	833	)
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	834	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	835	nil
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	836	nil
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	837	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	838	)
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	839	(MenuItem
12 b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	840	label: 'Debug'
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	841	startGroup: right
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	842	isVisible: true
12 b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	843	submenu:
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	844	(Menu
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	845	(
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	846	(MenuItem
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	847	label: 'Inspect Debugger'
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	848	itemValue: doInspectDebugger
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	849	isVisible: true
12 b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	850	)
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	851	(MenuItem
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	852	label: '-'
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	853	isVisible: true
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	854	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	855	(MenuItem
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	856	label: 'Reopen'
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	857	itemValue: doDebugReopenDebugger
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	858	isVisible: true
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	859	)
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	860	(MenuItem
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	861	label: 'Launcher'
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	862	itemValue: doDebugReopenLauncher
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	863	isVisible: true
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	864	)
156 6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	865	(MenuItem
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	866	label: '-'
171 39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	867	isVisible: true
156 6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	868	)
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	869	(MenuItem
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	870	enabled: canDebugOpenAndAttachToGDB
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	871	label: 'Open & Attach to GDB Process'
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	872	itemValue: doDebugOpenAndAttachToGDB
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	873	isVisible: true
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	874	)
12 b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	875	)
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	876	nil
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	877	nil
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	878	)
b17ffe0604f0 Added debug menu to VDBDebuggerApplication Jan Vrany <jan.vrany@fit.cvut.cz> parents: 10 diff changeset	879	)
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	880	)
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	881	nil
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	882	nil
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	883	)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	884	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	885
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	886	toolbarMenu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	887	"This resource specification was automatically generated
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	888	by the MenuEditor of ST/X."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	889
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	890	"Do not manually edit this!! If it is corrupted,
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	891	the MenuEditor may not be able to read the specification."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	892
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	893
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	894	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	895	MenuEditor new openOnClass:VDBDebuggerApplication andSelector:#toolbarMenu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	896	(Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication toolbarMenu)) startUp
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	897	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	898
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	899	<resource: #menu>
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	900
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	901	^
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	902	#(Menu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	903	(
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	904	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	905	label: 'Exec Slice'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	906	submenuChannel: toolbarMenuExecSlice
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	907	isMenuSlice: true
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	908	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	909	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	910	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	911	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	912	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	913	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	914
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	915	toolbarMenuExecSlice
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	916	"This resource specification was automatically generated
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	917	by the MenuEditor of ST/X."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	918
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	919	"Do not manually edit this!! If it is corrupted,
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	920	the MenuEditor may not be able to read the specification."
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	921
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	922
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	923	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	924	MenuEditor new openOnClass:VDBDebuggerApplication andSelector:#toolbarMenuExecSlice
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	925	(Menu new fromLiteralArrayEncoding:(VDBDebuggerApplication toolbarMenuExecSlice)) startUp
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	926	"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	927
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	928	<resource: #menu>
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	929
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	930	^
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	931	#(Menu
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	932	(
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	933	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	934	enabled: canExecRunHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	935	label: 'Run'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	936	itemValue: doExecRun
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	937	labelImage: (ResourceRetriever VDBIconLibrary actionRun16x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	938	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	939	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	940	enabled: canExecResumeHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	941	label: 'Resume'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	942	itemValue: doExecResume
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	943	labelImage: (ResourceRetriever VDBIconLibrary actionContinue16x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	944	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	945	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	946	enabled: canExecSuspendHolder
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	947	label: 'Suspend'
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	948	itemValue: doExecSuspend
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	949	labelImage: (ResourceRetriever VDBIconLibrary actionStop16x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	950	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	951	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	952	enabled: canExecTerminateHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	953	label: 'Terminate'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	954	itemValue: doExecTerminate
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	955	labelImage: (ResourceRetriever VDBIconLibrary actionTerminate6x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	956	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	957	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	958	label: '-'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	959	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	960	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	961	enabled: canExecStepOverHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	962	label: 'Step Over'
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	963	itemValue: doExecStepOver
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	964	labelImage: (ResourceRetriever VDBIconLibrary actionStepOver6x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	965	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	966	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	967	enabled: canExecStepIntoHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	968	label: 'Step Into'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	969	itemValue: doExecStepInto
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	970	labelImage: (ResourceRetriever VDBIconLibrary actionStepInto6x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	971	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	972	(MenuItem
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	973	enabled: canExecStepReturnHolder
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	974	label: 'Step Return'
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	975	itemValue: doExecStepReturn
24 c33a063cb363 Added icons from Eclipse. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	976	labelImage: (ResourceRetriever VDBIconLibrary actionStepReturn6x16)
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	977	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	978	)
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	979	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	980	nil
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	981	)
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	982	! !
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	983
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	984	!VDBDebuggerApplication class methodsFor:'plugIn spec'!
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	985
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	986	aspectSelectors
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	987	"This resource specification was automatically generated
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	988	by the UIPainter of ST/X."
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	989
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	990	"Do not manually edit this. If it is corrupted,
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	991	the UIPainter may not be able to read the specification."
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	992
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	993	"Return a description of exported aspects;
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	994	these can be connected to aspects of an embedding application
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	995	(if this app is embedded in a subCanvas)."
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	996
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	997	^ #(
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	998	#debuggerHolder
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	999	#selectedFrameHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1000	#selectedThreadGroupHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1001	#selectedThreadHolder
0 33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1002	).
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1003
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1004	! !
33a652015a1a Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1005
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1006	!VDBDebuggerApplication methodsFor:'accessing'!
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1007
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1008	currentThreadGroup
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1009	"Return 'current' thread group (inferior) or nil. 'Current' thread group is
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1010	either the selected one or, if none's selected or the only one thread group
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1011	(if there's only one)"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1012
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1013	\| tg \|
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1014
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1015	tg := self selectedThreadGroup.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1016	tg isNil ifTrue:[
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1017	\| tgs \|
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1018
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1019	tgs := debugger inferiors.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1020	tgs size == 1 ifTrue:[
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1021	tg := tgs anyOne.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1022	].
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1023	].
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1024	^ tg.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1025
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1026	"Created: / 03-07-2017 / 06:58:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1027	!
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1028
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1029	layout: layoutSpecSymbol
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1030	"Set the desired debugger window layout. For list of
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1031	available layouts, see class protocol 'insterface specs - layouts'
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1032	"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1033	\| layoutSpec \|
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1034
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1035	"/ Validate `layoutSpecSymbol`
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1036	(self class respondsTo: layoutSpecSymbol) ifFalse:[
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1037	self error: ('Unsupported layout: %1' bindWith: layoutSpecSymbol).
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1038	^ self.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1039	].
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1040	layoutSpec := self class perform: layoutSpecSymbol.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1041	(layoutSpec isCollection not or:[ layoutSpec first ~~ #FullSpec ]) ifTrue:[
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1042	self error: ('Invalid layout (not an UI spec) %1' bindWith: layoutSpecSymbol).
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1043	^ self.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1044	].
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1045	self layoutSpecHolder value: layoutSpecSymbol
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1046
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1047	"Created: / 20-06-2019 / 13:08:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1048	!
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1049
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1050	selectedThreadGroup
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1051	^ self selectedThreadGroupHolder value
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1052
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1053	"Created: / 03-07-2017 / 06:51:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1054	! !
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1055
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1056	!VDBDebuggerApplication methodsFor:'aspects'!
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1057
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1058	layoutSpecHolder
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1059	"return/create the 'layoutSpecHolder' value holder (automatically generated)"
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1060
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1061	layoutSpecHolder isNil ifTrue:[
171 39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	1062	layoutSpecHolder := ValueHolder with: #layoutEclipseSpec
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1063	].
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1064	^ layoutSpecHolder
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1065
171 39774c491dbf Clean up settings application and remove obsolete settings Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	1066	"Modified: / 18-06-2019 / 11:06:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1067	!
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1068
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1069	selectedFrameHolder
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1070	"return/create the 'selectionHolder' value holder (automatically generated)"
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1071
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1072	selectedFrameHolder isNil ifTrue:[
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1073	selectedFrameHolder := ValueHolder new.
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1074	selectedFrameHolder addDependent:self.
17 c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1075	].
c5ee4ea44165 Some more work on source displaying Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	1076	^ selectedFrameHolder
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1077
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1078	"Created: / 21-09-2014 / 23:51:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1079	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1080
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1081	selectedFrameHolder:aValueModel
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1082	"set the 'selectionHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1083
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1084	\|oldValue newValue\|
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1085
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1086	selectedFrameHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1087	oldValue := selectedFrameHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1088	selectedFrameHolder removeDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1089	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1090	selectedFrameHolder := aValueModel.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1091	selectedFrameHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1092	selectedFrameHolder addDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1093	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1094	newValue := selectedFrameHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1095	oldValue ~~ newValue ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1096	self update:#value with:newValue from:selectedFrameHolder.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1097	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1098
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1099	"Created: / 21-09-2014 / 23:50:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1100	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1101
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1102	selectedThreadGroupHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1103	"return/create the 'selectedThreadGroupHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1104
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1105	selectedThreadGroupHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1106	selectedThreadGroupHolder := ValueHolder new.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1107	selectedThreadGroupHolder addDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1108	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1109	^ selectedThreadGroupHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1110	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1111
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1112	selectedThreadGroupHolder:something
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1113	"set the 'selectedThreadGroupHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1114
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1115	\|oldValue newValue\|
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1116
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1117	selectedThreadGroupHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1118	oldValue := selectedThreadGroupHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1119	selectedThreadGroupHolder removeDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1120	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1121	selectedThreadGroupHolder := something.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1122	selectedThreadGroupHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1123	selectedThreadGroupHolder addDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1124	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1125	newValue := selectedThreadGroupHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1126	oldValue ~~ newValue ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1127	self update:#value with:newValue from:selectedThreadGroupHolder.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1128	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1129	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1130
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1131	selectedThreadHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1132	"return/create the 'selectedThreadHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1133
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1134	selectedThreadHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1135	selectedThreadHolder := ValueHolder new.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1136	selectedThreadHolder addDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1137	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1138	^ selectedThreadHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1139	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1140
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1141	selectedThreadHolder:something
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1142	"set the 'selectedThreadHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1143
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1144	\|oldValue newValue\|
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1145
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1146	selectedThreadHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1147	oldValue := selectedThreadHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1148	selectedThreadHolder removeDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1149	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1150	selectedThreadHolder := something.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1151	selectedThreadHolder notNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1152	selectedThreadHolder addDependent:self.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1153	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1154	newValue := selectedThreadHolder value.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1155	oldValue ~~ newValue ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1156	self update:#value with:newValue from:selectedThreadHolder.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1157	].
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1158	! !
d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1159
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1160	!VDBDebuggerApplication methodsFor:'aspects-panes'!
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1161
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1162	consolePane
128 d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1163	\| pane useUnixConsole \|
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1164
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1165	pane := VDBTabbingContainer new.
128 d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1166
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1167	debugger notNil ifTrue:[
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1168	useUnixConsole := debugger consoleOutput notNil and:[ debugger consoleInput notNil ]
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1169	] ifFalse:[
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1170	useUnixConsole := OperatingSystem isUNIXlike.
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1171	].
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1172
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1173	useUnixConsole ifTrue:[
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1174	pane addApplication:VDBUnixDebuggerConsoleApplication new.
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1175	pane addApplication:VDBUnixInferiorConsoleApplication new.
128 d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1176	] ifFalse:[
d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1177	pane addApplication:VDBSimpleDebuggerConsoleApplication new.
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1178	].
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1179	pane addApplication:VDBEventLogApplication new.
1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1180	^ pane
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1181
117 1ae8e04f5feb UI: add option to change debugger layout and preference to set the default layout Jan Vrany <jan.vrany@fit.cvut.cz> parents: 116 diff changeset	1182	"Created: / 04-10-2018 / 11:08:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
128 d2786cef6a21 Fix: use `VDBUnixDebuggerConsoleApplication` only when GDB's process is a UNIX process Jan Vrany <jan.vrany@fit.cvut.cz> parents: 127 diff changeset	1183	"Modified: / 12-12-2018 / 22:43:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5 fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1184	! !
fac6e83fd5c0 Implemented VDBTabbingContainer. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 2 diff changeset	1185
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1186	!VDBDebuggerApplication methodsFor:'change & update'!
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1187
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1188	update:aspect with:parameter from:sender
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1189	"Invoked when an object that I depend upon sends a change notification."
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1190
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1191	"stub code automatically generated - please change as required"
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1192
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1193	sender == selectedThreadGroupHolder ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1194	self updateAfterSelectedThreadGroupHolderChanged.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1195	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1196
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1197	sender == selectedFrameHolder ifTrue:[
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1198	self updateAfterSelectedFrameHolderChanged.
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1199	].
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1200
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1201	super update:aspect with:parameter from:sender
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1202
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1203	"Modified: / 01-06-2017 / 23:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1204	!
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1205
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1206	updateAfterSelectedFrameHolderChanged
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1207	\| frame \|
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1208
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1209	frame := selectedFrameHolder value.
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1210	frame notNil ifTrue:[
39 d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1211	debugger
172 9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1212	send:(GDBMI_thread_select new arguments:(Array with:frame thread id))
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1213	andWait:false.
39 d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1214	debugger
d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1215	send:(GDBMI_stack_select_frame new arguments:(Array with:frame level))
d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1216	andWait:false.
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1217	].
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1218
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1219	"Created: / 27-02-2015 / 13:24:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
172 9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1220	"Modified: / 19-06-2019 / 16:15:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1221	"Modified (format): / 20-06-2019 / 10:07:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1222	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1223
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1224	updateAfterSelectedThreadGroupHolderChanged
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1225	self updateButtonEnablements
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1226
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1227	"Created: / 01-06-2017 / 23:34:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1228	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1229
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1230	updateButtonEnablements
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1231	\| inferior inferiorIsStopped inferiorIsRunning canReverse hasAsync \|
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1232
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1233	inferior := self currentThreadGroup.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1234	inferiorIsStopped := inferior notNil and:[ inferior isStopped ].
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1235	inferiorIsRunning := inferior notNil and:[ inferior isRunning ].
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1236	canReverse := debugger hasFeature: 'reverse'.
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1237	hasAsync := debugger hasFeature: 'async'.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1238
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1239	self canExecResumeHolder value: inferiorIsRunning & inferiorIsStopped .
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1240	self canExecStepIntoHolder value: inferiorIsRunning & inferiorIsStopped.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1241	self canExecStepOverHolder value: inferiorIsRunning & inferiorIsStopped.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1242	self canExecStepReturnHolder value: inferiorIsRunning & inferiorIsStopped.
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1243	self canExecSuspendHolder value: hasAsync & inferiorIsRunning & inferiorIsStopped not.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1244
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1245	self canExecBackIntoHolder value: inferiorIsRunning & inferiorIsStopped & canReverse.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1246	self canExecBackOverHolder value: inferiorIsRunning & inferiorIsStopped & canReverse.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1247	self canExecBackReturnHolder value: inferiorIsRunning & inferiorIsStopped & canReverse.
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1248	self canExecReverseHolder value: inferiorIsRunning & inferiorIsStopped & canReverse.
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1249
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1250	self canExecTerminateHolder value: inferiorIsRunning & (hasAsync \| inferiorIsStopped).
04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1251	self canExecRestartHolder value: hasAsync.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1252
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1253	self canExecRunHolder value: ( inferiorIsRunning not ).
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1254
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1255	"Created: / 01-06-2017 / 23:18:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1256	"Modified: / 26-03-2018 / 21:31:41 / jv"
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1257	"Modified: / 30-07-2018 / 08:57:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
36 60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1258	! !
60a0713ab8c3 Update "selected frame" when frame selection changes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 31 diff changeset	1259
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1260	!VDBDebuggerApplication methodsFor:'event handling'!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1261
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1262	onCommandResultEvent: aGDBStoppedEvent
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1263	self updateButtonEnablements
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1264
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1265	"Created: / 01-06-2017 / 23:43:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1266	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1267
75 05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1268	onExitEvent: aGDBExitEvent
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1269	"/ Check if GDB terminateg gracefully, if not,
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1270	"/ show warning and allow user to inspect the
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1271	"/ record.
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1272	"/
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1273	"/ Yes, even GDB has bugs and crashes.
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1274	aGDBExitEvent status status == #signal ifTrue:[
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1275	(Dialog confirm:
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1276	(resources stringWithCRs: 'GDB terminated by signal %1 (%2)\Show MI trace?'
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1277	with: aGDBExitEvent status code
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1278	with:(OperatingSystem nameForSignal: aGDBExitEvent status code)))
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1279	ifTrue:[ aGDBExitEvent trace inspect ]
05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1280	].
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1281	self closeDownViews
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1282
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1283	"Created: / 01-06-2017 / 13:42:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
75 05177610d04d UX: inform user that GDB teminated abnormally (i.e., crashed) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 73 diff changeset	1284	"Modified: / 28-05-2018 / 23:00:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1285	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1286
59 e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1287	onLogOutputEvent:aGDBLogOutputEvent
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1288	debugger notNil ifTrue:[
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1289	Transcript nextPutAll: aGDBLogOutputEvent value.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1290	Transcript isView ifTrue:[
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1291	\| flasher \|
65 3fdd35be056d Fixed handling of log events in `VDBDebuggerApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 59 diff changeset	1292
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1293	flasher := [
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1294	debugger announcer unsubscribe: flasher.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1295	Transcript topView raise; flash.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1296	].
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1297	debugger announcer when: GDBEventSetProcessingFinished do: flasher
65 3fdd35be056d Fixed handling of log events in `VDBDebuggerApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 59 diff changeset	1298	].
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1299	]
59 e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1300
e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1301	"Created: / 02-02-2018 / 11:46:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1302	"Modified: / 14-12-2018 / 09:26:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
59 e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1303	!
e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1304
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1305	onRRExitEvent: anRRExitEvent
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1306	targetIsRR := false.
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1307	anRRExitEvent rr announcer unsubscribe: self.
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1308
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1309	"Created: / 03-08-2018 / 13:29:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1310	"Modified: / 31-08-2018 / 22:50:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1311	!
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1312
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1313	onRRStartEvent: anRRStartEvent
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1314
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1315	"Created: / 03-08-2018 / 13:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1316	!
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1317
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1318	onRunningEvent: aGDBStoppedEvent
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1319	self updateButtonEnablements
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1320
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1321	"Created: / 21-09-2014 / 22:44:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1322	"Modified: / 01-06-2017 / 23:18:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1323	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1324
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1325	onStoppedEvent: aGDBStoppedEvent
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1326	self updateButtonEnablements
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1327
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1328	"Created: / 21-09-2014 / 22:44:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1329	"Modified: / 01-06-2017 / 23:18:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1330	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1331
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1332	onThreadGroupExitedEvent: aGDBStoppedEvent
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1333	self updateButtonEnablements
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1334
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1335	"Created: / 21-09-2014 / 22:45:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1336	"Modified: / 01-06-2017 / 23:41:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
87 a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1337	!
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1338
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1339	onThreadSelectedEvent: aGDBThreadSelectedEvent
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1340	\| frame thread group \|
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1341
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1342	frame := aGDBThreadSelectedEvent frame.
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1343	thread := aGDBThreadSelectedEvent thread.
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1344	group := aGDBThreadSelectedEvent threadGroup.
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1345
172 9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1346	self selectedFrameHolder withoutUpdating: self do: [
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1347	self selectedFrameHolder value: frame.
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1348	].
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1349	self selectedThreadHolder withoutUpdating: self do: [
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1350	self selectedThreadHolder value: thread.
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1351	].
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1352	self selectedThreadGroupHolder withoutUpdating: self do: [
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1353	self selectedThreadGroupHolder value: group.
9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1354	].
87 a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1355
a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1356	"Created: / 30-07-2018 / 07:33:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
172 9ce05ad5c37e Avoid update cycle when handling `=thread-selected` event Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	1357	"Modified: / 19-06-2019 / 17:20:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1358	! !
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1359
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1360	!VDBDebuggerApplication methodsFor:'initialization'!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1361
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1362	initializeKeyboardMap
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1363	\| mapping \|
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1364
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1365	super initializeKeyboardMap.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1366	#(
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1367	DebuggerBackOver DebuggerNext
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1368	DebuggerBackInto DebuggerSend
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1369	DebuggerBackReturn DebuggerReturn
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1370	) pairWiseDo: [:backwardKey :forwardKey \|
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1371	((keyboardMap hasMappingFor: backwardKey) not
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1372	and:[ (mapping := keyboardMap bindingForLogical: forwardKey) notNil
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1373	and:[ (mapping includesString:'Ctrl') not]]) ifTrue:[
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1374	keyboardMap bindValue: backwardKey to: ('Ctrl', mapping) asSymbol
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1375	].
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1376	]
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1377
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1378	"Created: / 14-03-2018 / 11:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1379	! !
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1380
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1381	!VDBDebuggerApplication methodsFor:'initialization & release'!
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1382
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1383	commonPostOpen
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1384	self updateButtonEnablements
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1385
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1386	"Created: / 05-06-2017 / 22:50:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1387	!
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1388
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1389	release
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1390	"remove all dependencies from the receiver"
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1391
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1392	super release.
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1393	self unsubscribe.
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1394	(debugger notNil and:[debugger isConnected]) ifTrue:[
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1395	debugger send: GDBMI_gdb_exit new andWait: false.
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1396	].
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1397
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1398	"Created: / 01-06-2017 / 13:41:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1399	"Modified: / 12-06-2017 / 12:48:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1400	!
25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1401
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1402	subscribe
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1403	"Register for debugger events. To be overrided by subclasses"
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1404
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1405	\| init \|
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1406
177 fd154978bab5 Load Python support code upon startup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 175 diff changeset	1407	"/ Load VDB support
fd154978bab5 Load Python support code upon startup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 175 diff changeset	1408	debugger pythonImportVDB.
fd154978bab5 Load Python support code upon startup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 175 diff changeset	1409
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1410	"/ Read init file
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1411	init := self class vdbUserInitFile.
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1412	init exists ifFalse:[
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1413	init := self class vdbDefaultInitFile
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1414	].
bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1415	init exists ifTrue:[
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1416	[
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1417	[
173 bc6174f3570f Refactor support for VDB customization scripts Jan Vrany <jan.vrany@fit.cvut.cz> parents: 172 diff changeset	1418	Workspace workspaceVariableAt: 'vdb' put: self.
95 f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1419	init fileIn.
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1420	] ensure:[
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1421	Workspace workspaceVariables removeKey: 'vdb'.
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1422	].
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1423	] on: Error do:[:ex \|
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1424	Transcript
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1425	showCR: ('Error while reading VGB init file (%1)' bindWith: init pathName);
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1426	showCR: ('Description: %1' bindWith: ex description);
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1427	showCR: ('Backtrace:');
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1428	cr.
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1429	ex suspendedContext fullPrintAllOn: Transcript.
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1430	Transcript showCR:'------'.
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1431	].
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1432
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1433	].
f7be8c7905c2 Add support for use-specific init file (~/.vdbinit.st) Jan Vrany <jan.vrany@fit.cvut.cz> parents: 89 diff changeset	1434
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1435	debugger announcer
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1436	when: GDBStoppedEvent send: #onStoppedEvent: to: self;
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1437	when: GDBRunningEvent send: #onRunningEvent: to: self;
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1438	when: GDBExitEvent send: #onExitEvent: to: self;
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1439	when: GDBCommandResultEvent send: #onCommandResultEvent: to: self;
59 e7d0453109a1 Variable objects: splitted `VDBFrameApplication` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 56 diff changeset	1440	when: GDBThreadGroupExitedEvent send: #onThreadGroupExitedEvent: to: self;
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1441	when: GDBThreadSelectedEvent send: #onThreadSelectedEvent: to: self.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1442
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1443	"/ If debugger does provide separate CLI (console) channel, we should handle
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1444	"/ LogOutputEvent since these are not printed on CLI channel. This is - for
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1445	"/ example - when a python exception occurs when executing MI command.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1446	"/
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1447	"/ However, when there's no separate CLI channel, VDB uses emulated (dumb)
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1448	"/ console and the console itself handles all log events and print then,
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1449	"/
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1450	"/ Therefore, only handle log events when there's a CLI channel.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1451	"/ Sigh, this is a mess.
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1452	debugger consoleOutput notNil ifTrue:[
15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1453	debugger announcer
87 a7db77284c7f UX: always show selected (contextual) frame in stack view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 84 diff changeset	1454	when: GDBLogOutputEvent send: #onLogOutputEvent: to: self.
130 15335a3523c4 Fix: bug in simple console causing output being lost Jan Vrany <jan.vrany@fit.cvut.cz> parents: 128 diff changeset	1455	]
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1456
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1457	"Created: / 21-09-2014 / 22:43:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
177 fd154978bab5 Load Python support code upon startup. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 175 diff changeset	1458	"Modified: / 08-07-2019 / 12:09:03 / 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: 17 diff changeset	1459	! !
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1460
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1461	!VDBDebuggerApplication methodsFor:'menu actions'!
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1462
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1463	doAttachToRR
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1464	self doAttachToRR: RR replay.
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1465
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1466	"Modified: / 03-08-2018 / 13:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1467	!
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1468
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1469	doAttachToRR: rr
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1470	rr announcer
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1471	when: RRStartEvent send: #onRRStartEvent: to: self;
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1472	when: RRExitEvent send: #onRRExitEvent: to: self.
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1473	rr start.
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1474	(VDBUnixReplayServerConsoleApplication new)
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1475	debugger:debugger;
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1476	rr:rr;
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1477	open.
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1478	debugger targetConnectRR:rr.
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1479	targetIsRR := true.
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1480
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1481	"Created: / 03-08-2018 / 13:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1482	"Modified: / 31-08-2018 / 22:51:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1483	!
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1484
156 6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1485	doDebugOpenAndAttachToGDB
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1486	\| debuggerOnGDB \|
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1487
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1488	debuggerOnGDB := debugger class newWithProcess: (debugger process class newWithCommand: debugger process command).
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1489	self class openFor: debuggerOnGDB.
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1490	debuggerOnGDB attach: debugger process id.
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1491
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1492	"Modified: / 28-03-2019 / 12:42:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1493	!
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1494
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1495	doDebugReopenDebugger
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1496	\| d \|
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1497
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1498	d := debugger.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1499	self unsubscribe.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1500	debugger := nil.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1501	debuggerHolder setValue: nil.
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1502	self closeDownViews.
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1503	(Smalltalk at: self class name) openFor: d.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1504
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1505	"Created: / 20-06-2017 / 20:56:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1506	!
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1507
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1508	doDebugReopenLauncher
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1509	NewLauncher open
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1510
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1511	"Created: / 20-06-2017 / 20:58:01 / 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: 17 diff changeset	1512	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1513
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1514	doOpenExecutable
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1515	\| file \|
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1516
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1517	file := Dialog requestFileName:'Selected executable to debug' pattern:'*'.
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1518	file isNil ifTrue:[ ^ self ].
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1519	file := file asFilename.
39 d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1520	debugger send:(GDBMI_file_exec_and_symbols arguments:{ file asString }) andWait:false.
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1521
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1522	"Modified: / 12-06-2014 / 01:12:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
39 d2afdbaaabdb Catch up after API changes in GDBDebugger command API. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 37 diff changeset	1523	"Modified (format): / 08-03-2015 / 15:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1524	!
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1525
116 d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1526	doOpenPreferences
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1527	\| pathAndClass \|
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1528
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1529	pathAndClass := AbstractLauncherApplication allSettingsList
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1530	detect:[:pair \| pair second = VDBSettingsApplication name ].
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1531	AbstractLauncherApplication openSettingsAndSelect: pathAndClass first
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1532
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1533	"Modified: / 04-10-2018 / 10:34:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1534	!
d0d6da74ead3 UI: add GDB executable configuration to settings dialog Jan Vrany <jan.vrany@fit.cvut.cz> parents: 114 diff changeset	1535
175 a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1536	doOpenScatchPad
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1537	\| notepad \|
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1538
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1539	notepad := VDBScatchPadApplication new.
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1540	notepad open.
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1541	notepad window label:(resources string:'Scatch Pad')
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1542	!
a304c250e889 UI: add "Scratch Pad" tool Jan Vrany <jan.vrany@fit.cvut.cz> parents: 173 diff changeset	1543
111 a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1544	doOpenToolDIsassembly
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1545	\| application \|
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1546
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1547	application := VDBInstructionListApplication new
113 1a40f33af921 UI: Show disassembly along with source code Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	1548	debuggerHolder: self debuggerHolder;
164 364ebdd1d42c Generalize `VDBInstructionListView` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 156 diff changeset	1549	disassemblableHolder: self selectedFrameHolder;
364ebdd1d42c Generalize `VDBInstructionListView` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 156 diff changeset	1550	frameHolder: self selectedFrameHolder;
364ebdd1d42c Generalize `VDBInstructionListView` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 156 diff changeset	1551	yourself.
111 a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1552	self doOpenToolApplication: application.
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1553
164 364ebdd1d42c Generalize `VDBInstructionListView` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 156 diff changeset	1554	"Modified: / 10-06-2019 / 12:47:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
111 a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1555	!
a70313e80780 UI: add View -> Disassembly menu item to debugger menu Jan Vrany <jan.vrany@fit.cvut.cz> parents: 110 diff changeset	1556
110 7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1557	doOpenToolRegisters
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1558	\| registers application \|
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1559
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1560	registers := (AspectAdaptor forAspect:#registers)
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1561	subjectChannel: self selectedFrameHolder.
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1562	application := VDBRegisterListApplication new
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1563	registerListHolder: registers.
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1564	self doOpenToolApplication: application.
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1565
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1566	"Created: / 27-09-2018 / 21:01:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1567	!
7150377a44e1 UI: add register view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	1568
109 8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1569	doOpenToolVariables
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1570	\| variables application \|
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1571
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1572	variables := (AspectAdaptor forAspect:#variables)
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1573	subjectChannel: self selectedFrameHolder.
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1574	application := VDBVariableObjectListApplication new
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1575	variableObjectListHolder: variables.
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1576	self doOpenToolApplication: application.
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1577
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1578	"Modified: / 27-09-2018 / 20:56:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1579	!
8cd32ab019a4 UI: rename and fix debugger's View -> Frame to View -> Variables Jan Vrany <jan.vrany@fit.cvut.cz> parents: 97 diff changeset	1580
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1581	doQuit
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1582	self closeRequest.
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1583
41 25d1418e3316 Close debugger window when debugger quits. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 40 diff changeset	1584	"Modified: / 01-06-2017 / 13:46:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1585	!
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1586
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1587	doViewEnableFrameFilters
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1588	debugger enableFrameFilters.
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1589
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1590	"Modified (format): / 12-06-2017 / 09:42:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1591	!
13 d06924d8ca0a Minor fixes in UI - allow to open stack window as floating tool window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 12 diff changeset	1592
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1593	doViewEnablePrettyPrinting
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1594	debugger enablePrettyPrinting
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1595
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1596	"Modified: / 12-06-2017 / 09:42:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1597	! !
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1598
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1599	!VDBDebuggerApplication methodsFor:'menu actions-exec'!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1600
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1601	doExec: command
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1602	debugger send: command andWait: false.
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1603
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1604	"Created: / 21-09-2014 / 21:50:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
69 04d188dcd0dc Disable restart, terminate and suspend actions if target does not support async mode Jan Vrany <jan.vrany@fit.cvut.cz> parents: 67 diff changeset	1605	"Modified: / 26-03-2018 / 17:57:15 / jv"
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1606	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1607
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1608	doExecBackInto
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1609	self doExec: (GDBMI_exec_step arguments: #('--reverse')).
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1610
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1611	"Modified: / 13-03-2018 / 10:22:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1612	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1613
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1614	doExecBackOver
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1615	self doExec: (GDBMI_exec_next arguments: #('--reverse')).
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1616
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1617	"Modified: / 13-03-2018 / 10:22:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1618	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1619
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1620	doExecBackReturn
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1621	self doExec: (GDBMI_exec_finish arguments: #('--reverse')).
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1622
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1623	"Modified: / 13-03-2018 / 10:39:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1624	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1625
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1626	doExecRestart
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1627	<resource: #uiCallback>
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1628
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1629	self doExecTerminate; doExecRun.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1630
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1631	"Modified: / 11-06-2017 / 20:12:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1632	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1633
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1634	doExecResume
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1635	self doExec: GDBMI_exec_continue new.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1636
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1637	"Modified: / 21-09-2014 / 21:50:45 / 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: 17 diff changeset	1638	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1639
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1640	doExecReverse
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1641	\| handler \|
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1642
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1643	"/ It seems that RR (as of 2018-08-31) has a funny bug:
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1644	"/ when a program is stopped due to a signal, reverse-contine
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1645	"/ will stop at the same place (when signal is reveiver) and
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1646	"/ second reverse-contine does the job.
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1647	"/
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1648	"/ To somegow hide this from user, issue the second
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1649	"/ reverse-continue automagically.
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1650	"/
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1651	"/ This is horible hack and maybe not a great idea, but
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1652	"/ it looks beter when doing demos :-)
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1653
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1654	targetIsRR ifTrue:[
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1655	handler := [ :ev \|
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1656	debugger announcer unsubscribe: handler.
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1657	ev reason = SignalReceived ifTrue:[
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1658	debugger send: (GDBMI_exec_continue arguments: #('--reverse')) andWait: false.
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1659	]
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1660	].
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1661	debugger announcer when: GDBStoppedEvent do: handler.
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1662	].
f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1663	debugger send: (GDBMI_exec_continue arguments: #('--reverse')) andWait: false.
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1664
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1665	"Created: / 30-07-2018 / 08:58:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
97 f59fab5b1d0f Workaround for `doExecReverse` when using RR Jan Vrany <jan.vrany@fit.cvut.cz> parents: 95 diff changeset	1666	"Modified: / 31-08-2018 / 23:28:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1667	!
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1668
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1669	doExecRun
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1670	self doExec: GDBMI_exec_run new.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1671
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1672	"Modified: / 21-09-2014 / 21:51:05 / 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: 17 diff changeset	1673	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1674
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1675	doExecStepInto
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1676	self doExec: GDBMI_exec_step new.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1677
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1678	"Modified: / 21-09-2014 / 21:52:42 / 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: 17 diff changeset	1679	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1680
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1681	doExecStepOver
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1682	self doExec: GDBMI_exec_next new.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1683
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1684	"Modified: / 21-09-2014 / 21:52:58 / 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: 17 diff changeset	1685	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1686
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1687	doExecStepReturn
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1688	self doExec: GDBMI_exec_finish new.
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1689
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1690	"Modified: / 13-03-2018 / 10:39:27 / 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: 17 diff changeset	1691	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1692
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1693	doExecSuspend
30 1851cfc16f27 When issuing CLI commands, make sure they're run in background mode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 28 diff changeset	1694	self doExec: (GDBMI_exec_interrupt arguments: #('--all'))
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1695
30 1851cfc16f27 When issuing CLI commands, make sure they're run in background mode. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 28 diff changeset	1696	"Modified: / 29-09-2014 / 23:50:31 / 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: 17 diff changeset	1697	!
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1698
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1699	doExecTerminate
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1700	self doExec: 'kill'
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1701
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1702	"Modified: / 05-06-2017 / 23:13:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1703	! !
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1704
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1705	!VDBDebuggerApplication methodsFor:'menu apects'!
22 6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1706
83 101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1707	canAttachToRR
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1708	^ RR available
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1709
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1710	"Modified: / 26-07-2018 / 22:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1711	!
101ff2210613 Initial support for Mozilla rr Jan Vrany <jan.vrany@fit.cvut.cz> parents: 75 diff changeset	1712
156 6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1713	canDebugOpenAndAttachToGDB
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1714	<resource: #uiCallback>
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1715
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1716	^ [ debugger notNil and:[ debugger process isLocal ] ]
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1717
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1718	"Modified: / 27-03-2019 / 09:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1719	!
6295a4afb286 UI: add a menu item to attach another debugger to cuurrent GDB Jan Vrany <jan.vrany@fit.cvut.cz> parents: 152 diff changeset	1720
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1721	canViewEnableFrameFilters
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1722	^ [ debugger isFrameFiltersEnabled not ]
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1723
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1724	"Modified: / 12-06-2017 / 09:54:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1725	!
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1726
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1727	canViewEnablePrettyPrinting
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1728	^ [ debugger isPrettyPrintingEnabled not ].
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1729
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1730	"Modified: / 12-06-2017 / 09:54:06 / 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: 17 diff changeset	1731	! !
6684f4d82301 Temporary commit: reworking VDBStackApplication to support multiple threads and inferiors Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	1732
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1733	!VDBDebuggerApplication methodsFor:'menu aspects-exec'!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1734
67 c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1735	canExecBackIntoHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1736	canExecBackIntoHolder isNil ifTrue:[
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1737	canExecBackIntoHolder := ValueHolder with: false.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1738	].
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1739	^ canExecBackIntoHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1740
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1741	"Modified: / 13-03-2018 / 10:23:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1742	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1743
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1744	canExecBackOverHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1745	canExecBackOverHolder isNil ifTrue:[
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1746	canExecBackOverHolder := ValueHolder with: false.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1747	].
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1748	^ canExecBackOverHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1749
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1750	"Modified: / 13-03-2018 / 10:24:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1751	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1752
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1753	canExecBackReturnHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1754	canExecBackReturnHolder isNil ifTrue:[
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1755	canExecBackReturnHolder := ValueHolder with: false.
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1756	].
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1757	^ canExecBackReturnHolder
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1758
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1759	"Modified: / 13-03-2018 / 10:24:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1760	!
c16e5afcf586 Added commands for reverse debugging Jan Vrany <jan.vrany@fit.cvut.cz> parents: 66 diff changeset	1761
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1762	canExecRestartHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1763	"return/create the 'canExecRestartHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1764
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1765	canExecRestartHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1766	canExecRestartHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1767	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1768	^ canExecRestartHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1769
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1770	"Modified: / 01-06-2017 / 23:15:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1771	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1772
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1773	canExecResumeHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1774	"return/create the 'canExecResumeHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1775
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1776	canExecResumeHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1777	canExecResumeHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1778	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1779	^ canExecResumeHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1780
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1781	"Modified: / 01-06-2017 / 23:15:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1782	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1783
89 b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1784	canExecReverseHolder
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1785	canExecReverseHolder isNil ifTrue:[
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1786	canExecReverseHolder := ValueHolder with: false.
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1787	].
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1788	^ canExecReverseHolder
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1789
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1790	"Created: / 30-07-2018 / 08:57:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1791	!
b8a2f47655a8 UI: added `Reverse` exec menu item Jan Vrany <jan.vrany@fit.cvut.cz> parents: 87 diff changeset	1792
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1793	canExecRunHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1794	"return/create the 'canExecRunHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1795
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1796	canExecRunHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1797	canExecRunHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1798	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1799	^ canExecRunHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1800
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1801	"Modified: / 01-06-2017 / 23:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1802	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1803
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1804	canExecStepIntoHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1805	"return/create the 'canExecStepIntoHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1806
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1807	canExecStepIntoHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1808	canExecStepIntoHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1809	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1810	^ canExecStepIntoHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1811
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1812	"Modified: / 01-06-2017 / 23:15:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1813	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1814
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1815	canExecStepOverHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1816	"return/create the 'canExecStepOverHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1817
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1818	canExecStepOverHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1819	canExecStepOverHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1820	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1821	^ canExecStepOverHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1822
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1823	"Modified: / 01-06-2017 / 23:15:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1824	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1825
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1826	canExecStepReturnHolder
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1827	"return/create the 'canExecStepReturn' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1828
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1829	canExecStepReturnHolder isNil ifTrue:[
41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1830	canExecStepReturnHolder := ValueHolder with: false.
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1831	].
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1832	^ canExecStepReturnHolder
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1833
44 41cc5a7840fe Debugger UI improvements Jan Vrany <jan.vrany@fit.cvut.cz> parents: 42 diff changeset	1834	"Created: / 05-06-2017 / 22:41:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
42 a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1835	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1836
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1837	canExecSuspendHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1838	"return/create the 'canExecSuspendHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1839
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1840	canExecSuspendHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1841	canExecSuspendHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1842	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1843	^ canExecSuspendHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1844
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1845	"Modified: / 01-06-2017 / 23:15:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1846	!
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1847
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1848	canExecTerminateHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1849	"return/create the 'canExecTerminateHolder' value holder (automatically generated)"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1850
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1851	canExecTerminateHolder isNil ifTrue:[
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1852	canExecTerminateHolder := ValueHolder with: false.
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1853	].
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1854	^ canExecTerminateHolder
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1855
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1856	"Modified: / 01-06-2017 / 23:16:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1857	! !
a6f5f470a947 Display variable values in frame view Jan Vrany <jan.vrany@fit.cvut.cz> parents: 41 diff changeset	1858
164 364ebdd1d42c Generalize `VDBInstructionListView` Jan Vrany <jan.vrany@fit.cvut.cz> parents: 156 diff changeset	1859
84 74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1860	!VDBDebuggerApplication methodsFor:'startup & release'!
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1861
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1862	closeRequestFor:aTopView
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1863	aTopView == self window ifTrue:[
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1864	super closeRequestFor:aTopView
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1865	] ifFalse:[
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1866	\| app \|
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1867
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1868	app := aTopView application.
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1869	app notNil ifTrue:[
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1870	app release
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1871	].
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1872	aTopView destroy.
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1873	].
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1874
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1875	"Created: / 29-07-2018 / 16:34:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1876	"Modified: / 29-07-2018 / 17:44:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1877	! !
74080a37751a UI: fixed bug when clofing a tool window closed the whole debugger Jan Vrany <jan.vrany@fit.cvut.cz> parents: 83 diff changeset	1878
10 a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1879	!VDBDebuggerApplication class methodsFor:'documentation'!
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1880
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1881	version_HG
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1882
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1883	^ '$Changeset: <not expanded> $'
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1884	! !
a618018a2dab Added window menu to main window. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	1885

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 06 Sep 2019 02:30:16 +0100
changeset 183	91a467093d63
parent 177	fd154978bab5
child 185	bb863cb24c1a
permissions	-rw-r--r--