5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'GDB-Core' |
7 category:'GDB-Core' |
8 ! |
8 ! |
9 |
9 |
|
10 !GDBObject class methodsFor:'accessing - GDB value descriptors'! |
|
11 |
|
12 gdbValueDescriptor |
|
13 ^ GDBObjectValueDescriptor forClass: self. |
|
14 |
|
15 "Created: / 18-06-2014 / 23:12:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
16 ! ! |
|
17 |
10 !GDBObject methodsFor:'accessing-properties'! |
18 !GDBObject methodsFor:'accessing-properties'! |
11 |
19 |
|
20 properties |
|
21 properties isNil ifTrue:[ ^ Dictionary new ]. |
|
22 ^ properties |
|
23 |
|
24 "Modified: / 18-06-2014 / 23:54:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
25 ! |
|
26 |
12 propertyAt: name |
27 propertyAt: name |
|
28 | index | |
|
29 index := self class allInstVarNames indexOf: name. |
|
30 index ~~ 0 ifTrue:[ |
|
31 ^ self instVarAt: index |
|
32 ]. |
13 properties isNil ifTrue:[ Object keyNotFoundError: name ]. |
33 properties isNil ifTrue:[ Object keyNotFoundError: name ]. |
14 ^ properties at: name ifAbsent:[ Object keyNotFoundError: name ]. |
34 ^ properties at: name ifAbsent:[ Object keyNotFoundError: name ]. |
15 |
35 |
16 "Created: / 31-05-2014 / 00:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
36 "Created: / 31-05-2014 / 00:00:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
37 "Modified: / 18-06-2014 / 23:31:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
17 ! |
38 ! |
18 |
39 |
19 propertyAt: name put: value |
40 propertyAt: name put: value |
20 properties isNil ifTrue:[ properties := Dictionary new ]. |
41 | index | |
21 properties at: name put: value |
42 |
|
43 index := self class allInstVarNames indexOf: name. |
|
44 index ~~ 0 ifTrue:[ |
|
45 self instVarAt: index put: value |
|
46 ] ifFalse:[ |
|
47 properties isNil ifTrue:[ properties := Dictionary new ]. |
|
48 properties at: name put: value |
|
49 ] |
22 |
50 |
23 "Created: / 31-05-2014 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
51 "Created: / 31-05-2014 / 00:01:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
52 "Modified: / 18-06-2014 / 23:31:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
24 ! ! |
53 ! ! |
25 |
54 |
26 !GDBObject methodsFor:'attributes access'! |
55 !GDBObject methodsFor:'attributes access'! |
27 |
56 |
28 objectAttributes |
57 objectAttributes |