changeset 1355 | ef6320ea43bc |
parent 1352 | 73f656cea457 |
child 1365 | a54466f79962 |
1354:92b8c51ccd20 | 1355:ef6320ea43bc |
---|---|
2218 |clsName| |
2218 |clsName| |
2219 |
2219 |
2220 clsName := (aspects at: #retriever) value. |
2220 clsName := (aspects at: #retriever) value. |
2221 |
2221 |
2222 clsName size == 0 ifTrue:[ |
2222 clsName size == 0 ifTrue:[ |
2223 clsName := specClass |
2223 clsName := specClass. |
2224 clsName isNil ifTrue:[^ nil]. |
|
2224 ]. |
2225 ]. |
2225 ^ Smalltalk at:clsName ifAbsent:nil |
2226 ^ Smalltalk at:clsName ifAbsent:nil |
2226 ! |
2227 ! |
2227 |
2228 |
2228 helpKey |
2229 helpKey |