equal
deleted
inserted
replaced
77 klass:something |
77 klass:something |
78 klass := something. |
78 klass := something. |
79 ! |
79 ! |
80 |
80 |
81 propertyDescriptorAt: name |
81 propertyDescriptorAt: name |
82 ^ children detect:[:each | (each accessor isKindOf: GDBMAPropertyAccessor) and:[ each accessor name = name ] ] ifNone:nil |
82 ^ children detect:[:each | (each accessor isKindOf: GDBMAPropertyAccessor) and:[ each accessor name = name ] ] ifNone:[ nil ] |
83 |
83 |
84 "Created: / 23-09-2014 / 22:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
84 "Created: / 23-09-2014 / 22:50:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
85 "Modified: / 17-10-2018 / 21:54:50 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
85 ! ! |
86 ! ! |
86 |
87 |
87 !GDBMAContainer methodsFor:'adding-easy shortcuts'! |
88 !GDBMAContainer methodsFor:'adding-easy shortcuts'! |
88 |
89 |
89 define: property as: class |
90 define: property as: class |