hg/jv-vdb: plugins/bee/BeeSymbolPresenter.st@16cd2d937309 (annotated)

160 fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'jv:vdb/plugins/bee' }"
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	VDBAbstractPresenter subclass:#BeeSymbolPresenter
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'symbol'
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'VDB-Plugin-Bee-Presentation'
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	12
165 1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	13	!BeeSymbolPresenter class methodsFor:'menu specs'!
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	14
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	15	contextMenu
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	16	"This resource specification was automatically generated
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	17	by the MenuEditor of ST/X."
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	18
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	19	"Do not manually edit this!! If it is corrupted,
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	20	the MenuEditor may not be able to read the specification."
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	21
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	22
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	23	"
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	24	MenuEditor new openOnClass:BeeSymbolPresenter andSelector:#contextMenu
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	25	(Menu new fromLiteralArrayEncoding:(BeeSymbolPresenter contextMenu)) startUp
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	26	"
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	27
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	28	<resource: #menu>
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	29
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	30	^
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	31	#(Menu
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	32	(
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	33	(MenuItem
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	34	label: 'Add Breakpoint'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	35	itemValue: doBreakpointAdd
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	36	isVisible: canBreakpointAdd
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	37	)
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	38	(MenuItem
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	39	label: 'Disable Breakpoint'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	40	itemValue: doBreakpointDisable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	41	isVisible: canBreakpointDisable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	42	)
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	43	(MenuItem
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	44	label: 'Enable Breakpoint'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	45	itemValue: doBreakpointEnable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	46	isVisible: canBreakpointEnable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	47	)
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	48	(MenuItem
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	49	label: 'Remove Breakpoint'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	50	itemValue: doBreakpointRemove
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	51	isVisible: canBreakpointRemove
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	52	)
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	53	(MenuItem
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	54	label: '-'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	55	)
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	56	(MenuItem
165 1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	57	label: 'Disassemble'
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	58	itemValue: doDisassemble
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	59	isVisible: true
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	60	)
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	61	)
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	62	nil
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	63	nil
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	64	)
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	65	! !
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	66
160 fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67	!BeeSymbolPresenter methodsFor:'accessing'!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	label
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70	^ String streamContents: [ :s \|
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	71	\| bkpts \|
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	72
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	73	s nextPutAll: '0x'.
160 fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	symbol addr printOn:s base: 16 size: (8 * 2) fill: $0.
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	75
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	76	bkpts := symbol breakpoints.
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	77	bkpts notEmptyOrNil ifTrue:[
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	78	(bkpts anySatisfy:[:e\|e enabled]) ifTrue:[
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	79	s nextPutAll:' B'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	80	] ifFalse:[
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	81	s nextPutAll:' d'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	82	].
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	83	] ifFalse:[
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	84	s nextPutAll: ' '
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	85	].
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	86
160 fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87	s space.
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	s nextPutAll: symbol name
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	].
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	"Created: / 07-06-2019 / 14:39:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	92	"Modified: / 12-06-2019 / 12:39:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
160 fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	subject
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	^ symbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98	"Modified: / 07-06-2019 / 14:38:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	symbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	^ symbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	symbol:aBeeSymbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	symbol := aBeeSymbol.
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107	! !
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109	!BeeSymbolPresenter methodsFor:'initialization'!
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	setSymbol: aBeeSymbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112	symbol := aBeeSymbol
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	"Created: / 07-06-2019 / 14:54:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	! !
fea681d31a3c Initial shot on Bee plugin Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	116
165 1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	117	!BeeSymbolPresenter methodsFor:'menu actions'!
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	118
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	119	doBreakpointAdd
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	120	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	121
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	122	symbol debugger send: (GDBMI_break_insert arguments: (Array with: '*0x', (symbol addr printStringRadix: 16)))
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	123
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	124	"Modified: / 10-06-2019 / 16:07:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	125	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	126
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	127	doBreakpointDisable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	128	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	129
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	130	symbol breakpoints do:[:e \| e enabled: false ]
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	131
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	132	"Modified: / 10-06-2019 / 16:05:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	133	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	134
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	135	doBreakpointEnable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	136	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	137
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	138	symbol breakpoints do:[:e \| e enabled: true ].
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	139
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	140	"Modified (format): / 10-06-2019 / 16:06:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	141	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	142
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	143	doBreakpointRemove
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	144	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	145
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	146	"automatically generated by UIEditor ..."
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	147
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	148	"*** the code below performs no action"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	149	"*** (except for some feedback on the Transcript)"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	150	"*** Please change as required and accept in the browser."
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	151	"*** (and replace this comment by something more useful ;-)"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	152
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	153	"action to be added ..."
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	154
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	155	Logger info:'action for #doBreakpointRemove ...'.
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	156	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	157
165 1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	158	doDisassemble
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	159	\| application \|
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	160
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	161	application := VDBInstructionListApplication new
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	162	debugger: symbol debugger;
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	163	disassemblable: symbol;
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	164	title: symbol name;
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	165	yourself.
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	166	WindowGroup activeGroup application doOpenToolApplication: application.
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	167
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	168	"Modified: / 10-06-2019 / 11:36:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	169	!
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	170
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	171	doDoubleClick
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	172	self doDisassemble
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	173
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	174	"Created: / 10-06-2019 / 10:46:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	175	! !
1e2a4cb4afdd plugins/bee: add menu item to disassemble given symbol Jan Vrany <jan.vrany@fit.cvut.cz> parents: 160 diff changeset	176
167 16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	177	!BeeSymbolPresenter methodsFor:'menu queries'!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	178
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	179	canBreakpointAdd
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	180	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	181
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	182	^ symbol breakpoints isEmpty
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	183
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	184	"Modified: / 10-06-2019 / 15:59:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	185	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	186
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	187	canBreakpointDisable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	188	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	189
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	190	\| breakpoints \|
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	191
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	192	breakpoints := symbol breakpoints.
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	193	^ breakpoints notEmpty and:[ breakpoints anySatisfy:[:e\|e enabled]]
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	194
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	195	"Modified: / 10-06-2019 / 16:01:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	196	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	197
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	198	canBreakpointEnable
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	199	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	200
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	201	\| breakpoints \|
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	202
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	203	breakpoints := symbol breakpoints.
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	204	^ breakpoints notEmpty and:[ breakpoints anySatisfy:[:e\|e enabled not]]
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	205
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	206	"Modified: / 10-06-2019 / 16:01:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	207	!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	208
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	209	canBreakpointRemove
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	210	<resource: #uiCallback>
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	211
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	212	^ symbol breakpoints notEmpty
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	213
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	214	"Modified: / 10-06-2019 / 15:59:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	215	! !
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	216
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	217	!BeeSymbolPresenter class methodsFor:'documentation'!
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	218
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	219	version_HG
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	220
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	221	^ '$Changeset: <not expanded> $'
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	222	! !
16cd2d937309 plugins/bee: add support for setting a breakpoint Jan Vrany <jan.vrany@fit.cvut.cz> parents: 165 diff changeset	223

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 11 Jun 2019 11:40:12 +0100
changeset 167	16cd2d937309
parent 165	1e2a4cb4afdd
permissions	-rw-r--r--