"{ Package: 'jv:libgdbs' }"

Object subclass:#GDBObject
	instanceVariableNames:'properties'
	classVariableNames:''
	poolDictionaries:''
	category:'GDB-Core'
!

!GDBObject methodsFor:'accessing-properties'!

propertyAt: name
    properties isNil ifTrue:[ Object keyNotFoundError: name ].
    ^ properties at: name ifAbsent:[ Object keyNotFoundError: name ].

    "Created: / 31-05-2014 / 00:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

propertyAt: name put: value
    properties isNil ifTrue:[ properties := Dictionary new ].
    properties at: name put: value

    "Created: / 31-05-2014 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !

!GDBObject methodsFor:'attributes access'!

objectAttributes
    ^ properties

    "Created: / 18-06-2014 / 07:56:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!

objectAttributes: aDictionary
    properties := aDictionary

    "Created: / 18-06-2014 / 07:57:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !