equal
deleted
inserted
replaced
80 self shouldImplement. "not yet finished" |
80 self shouldImplement. "not yet finished" |
81 aSymbol := varName asSymbol. |
81 aSymbol := varName asSymbol. |
82 |
82 |
83 "First look in classVar dictionary." |
83 "First look in classVar dictionary." |
84 binding := self classPool bindingOf: aSymbol. |
84 binding := self classPool bindingOf: aSymbol. |
85 binding ifNotNil:[^binding]. |
85 binding notNil ifTrue:[^binding]. |
86 |
86 |
87 "Next look in shared pools." |
87 "Next look in shared pools." |
88 self sharedPools do:[:pool | |
88 self sharedPools do:[:pool | |
89 binding := pool bindingOf: aSymbol. |
89 binding := pool bindingOf: aSymbol. |
90 binding ifNotNil:[^binding]. |
90 binding notNil ifTrue:[^binding]. |
91 ]. |
91 ]. |
92 |
92 |
93 "subclassing and environment are not preserved" |
93 "subclassing and environment are not preserved" |
94 ^nil |
94 ^nil |
|
95 |
|
96 "Modified: / 08-08-2010 / 14:46:09 / cg" |
95 ! |
97 ! |
96 |
98 |
97 bindingsDo: aBlock |
99 bindingsDo: aBlock |
98 self halt:'unfinished implementation'. |
100 self halt:'unfinished implementation'. |
99 ^ self classPool bindingsDo: aBlock |
101 ^ self classPool bindingsDo: aBlock |
145 ! ! |
147 ! ! |
146 |
148 |
147 !SharedPool class methodsFor:'documentation'! |
149 !SharedPool class methodsFor:'documentation'! |
148 |
150 |
149 version |
151 version |
150 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009-10-12 19:09:14 cg Exp $' |
152 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.9 2010-08-08 12:46:20 cg Exp $' |
151 ! |
153 ! |
152 |
154 |
153 version_CVS |
155 version_CVS |
154 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009-10-12 19:09:14 cg Exp $' |
156 ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.9 2010-08-08 12:46:20 cg Exp $' |
155 ! ! |
157 ! ! |