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| |
126 |img cls| |
127 |
127 |
128 selector isNil ifTrue:[ |
128 selector isNil ifTrue:[ |
129 ^nil |
129 ^nil |
130 ]. |
130 ]. |
131 |
131 |
134 or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] |
134 or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] |
135 ) ifTrue:[ |
135 ) ifTrue:[ |
136 ^ nil |
136 ^ nil |
137 ] |
137 ] |
138 ]. |
138 ]. |
|
139 |
139 (resourceOwner respondsTo:#visualFor:) ifTrue:[ |
140 (resourceOwner respondsTo:#visualFor:) ifTrue:[ |
140 (img := resourceOwner visualFor:selector) notNil ifTrue:[ |
141 (img := resourceOwner visualFor:selector) notNil ifTrue:[ |
141 ^ img |
142 ^ img |
142 ] |
143 ] |
143 ]. |
144 ]. |
144 ^ resourceOwner perform:selector. |
145 |
|
146 (resourceOwner respondsTo:selector) ifTrue:[ |
|
147 ^ resourceOwner perform:selector |
|
148 ]. |
|
149 |
|
150 resourceOwner isClass ifFalse:[ |
|
151 cls := resourceOwner class. |
|
152 |
|
153 (cls respondsTo:selector) ifTrue:[ |
|
154 ^ cls perform:selector |
|
155 ] |
|
156 ]. |
|
157 ^ nil |
|
158 |
145 ! ! |
159 ! ! |
146 |
160 |
147 !ResourceRetriever methodsFor:'converting'! |
161 !ResourceRetriever methodsFor:'converting'! |
148 |
162 |
149 fromLiteralArrayEncoding:anArray |
163 fromLiteralArrayEncoding:anArray |