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

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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 10 Jun 2019 15:22:49 +0100
changeset 166	d55f55ac977b
parent 164	364ebdd1d42c
child 171	39774c491dbf
permissions	-rw-r--r--