"{ Package: 'jv:libgdbs' }"

GDBEvent subclass:#GDBStreamOutputEvent
	instanceVariableNames:'value'
	classVariableNames:''
	poolDictionaries:''
	category:'GDB-Core-Events'
!

!GDBStreamOutputEvent class methodsFor:'testing'!

isAbstract
    ^ self == GDBStreamOutputEvent

    "Modified: / 02-06-2014 / 22:21:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GDBStreamOutputEvent methodsFor:'accessing'!

value
    ^ value
!

value:aString
    value := aString.
! !

!GDBStreamOutputEvent methodsFor:'printing & storing'!

printOn:aStream
    "append a printed representation if the receiver to the argument, aStream"

    super printOn:aStream.
    aStream nextPut:$(.
    value storeOn:aStream.
    aStream nextPut:$).

    "Modified: / 01-06-2014 / 23:55:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !