--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/VDBBreakpointPresenter.st Tue Jul 11 09:07:35 2017 +0200
@@ -0,0 +1,57 @@
+"{ Package: 'jv:vdb' }"
+
+"{ NameSpace: Smalltalk }"
+
+VDBModelPresenter subclass:#VDBBreakpointPresenter
+ instanceVariableNames:'breakpoint'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'VDB-Presentation'
+!
+
+!VDBBreakpointPresenter methodsFor:'accessing'!
+
+breakpoint
+ ^ breakpoint
+!
+
+label
+ ^ String streamContents:[ :aStream |
+ aStream nextPutAll:(breakpoint enabled ifTrue:[ 'e ' ] ifFalse:[ 'd ' ]).
+ breakpoint number printOn:aStream.
+ aStream nextPutAll:', '.
+ breakpoint func notNil ifTrue:[
+ aStream nextPutAll:'in '.
+ breakpoint func printOn:aStream.
+ aStream nextPutAll:'(), '.
+ ].
+ breakpoint file notNil ifTrue:[
+ breakpoint file printOn:aStream.
+ aStream nextPut:$:.
+ breakpoint line printOn:aStream.
+ ] ifFalse:[
+ aStream nextPutAll:'at '.
+ breakpoint addr printOn: aStream.
+ ].
+ ].
+
+ "Created: / 10-07-2017 / 13:30:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 11-07-2017 / 12:13:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBBreakpointPresenter methodsFor:'initialization'!
+
+setBreakpoint: aGDBBreakpoint
+ breakpoint := aGDBBreakpoint
+
+ "Created: / 10-07-2017 / 13:29:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!VDBBreakpointPresenter methodsFor:'testing'!
+
+isBreakpointPresenter
+ ^ true
+
+ "Created: / 11-07-2017 / 11:50:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+