equal
deleted
inserted
replaced
121 ! |
121 ! |
122 |
122 |
123 resource |
123 resource |
124 "returns form assigned to resource or nil |
124 "returns form assigned to resource or nil |
125 " |
125 " |
|
126 |img| |
|
127 |
126 selector isNil ifTrue:[ |
128 selector isNil ifTrue:[ |
127 ^nil |
129 ^nil |
128 ]. |
130 ]. |
129 |
131 |
130 resourceOwner isNil ifTrue:[ |
132 resourceOwner isNil ifTrue:[ |
132 or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] |
134 or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] |
133 ) ifTrue:[ |
135 ) ifTrue:[ |
134 ^ nil |
136 ^ nil |
135 ] |
137 ] |
136 ]. |
138 ]. |
137 ^ resourceOwner visualFor:selector. |
139 (resourceOwner respondsTo:#visualFor:) ifTrue:[ |
|
140 (img := resourceOwner visualFor:selector) notNil ifTrue:[ |
|
141 ^ img |
|
142 ] |
|
143 ]. |
|
144 ^ resourceOwner perform:selector. |
138 ! ! |
145 ! ! |
139 |
146 |
140 !ResourceRetriever methodsFor:'converting'! |
147 !ResourceRetriever methodsFor:'converting'! |
141 |
148 |
142 fromLiteralArrayEncoding:anArray |
149 fromLiteralArrayEncoding:anArray |