hg/jv-vdb: VDBBreakpointPresenter.st@e7d0453109a1 (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	"
46 6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	"{ Package: 'jv:vdb' }"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	"{ NameSpace: Smalltalk }"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	VDBModelPresenter subclass:#VDBBreakpointPresenter
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14	instanceVariableNames:'breakpoint'
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	classVariableNames:''
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	poolDictionaries:''
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	category:'VDB-Presentation'
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	!
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19
49 2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	20	!VDBBreakpointPresenter 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	21
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	22	copyright
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	23	"
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	24	jv:vdb - Visual / VM Debugger
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	25	Copyright (C) 2015-now Jan Vrany
2ec7f7ed9242 License this package under 'Creative Commons Attribution-NonCommercial 4.0 International License' Jan Vrany <jan.vrany@fit.cvut.cz> parents: 46 diff changeset	26
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	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	28
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	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	30	"
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	! !
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
46 6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!VDBBreakpointPresenter methodsFor:'accessing'!
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	breakpoint
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	^ breakpoint
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	!
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	label
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	^ String streamContents:[ :aStream \|
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	aStream nextPutAll:(breakpoint enabled ifTrue:[ 'e ' ] ifFalse:[ 'd ' ]).
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	breakpoint number printOn:aStream.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	aStream nextPutAll:', '.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	breakpoint func notNil ifTrue:[
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	aStream nextPutAll:'in '.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	breakpoint func printOn:aStream.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	aStream nextPutAll:'(), '.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	].
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	breakpoint file notNil ifTrue:[
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	breakpoint file printOn:aStream.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	aStream nextPut:$:.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	breakpoint line printOn:aStream.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	] ifFalse:[
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	aStream nextPutAll:'at '.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	breakpoint addr printOn: aStream.
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	].
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57	].
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59	"Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	"Modified: / 11-07-2017 / 12:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	! !
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63	!VDBBreakpointPresenter methodsFor:'initialization'!
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	64
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	setBreakpoint: aGDBBreakpoint
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66	breakpoint := aGDBBreakpoint
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	67
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68	"Created: / 10-07-2017 / 13:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	69	! !
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	70
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71	!VDBBreakpointPresenter methodsFor:'testing'!
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	72
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	isBreakpointPresenter
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74	^ true
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	75
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76	"Created: / 11-07-2017 / 11:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	77	! !
6b857f3cec8c Initial support for breakpoints Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 03 Feb 2018 21:18:50 +0000
changeset 59	e7d0453109a1
parent 49	2ec7f7ed9242
child 60	bcdb393c956f
permissions	-rw-r--r--