--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/GDBObject.st	Sat May 31 00:42:30 2014 +0100
@@ -0,0 +1,25 @@
+"{ 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>"
+! !
+