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 cls| |
126 |img cls appl| |
127 |
127 |
128 selector isNil ifTrue:[ |
128 selector isNil ifTrue:[ |
129 ^nil |
129 ^nil |
130 ]. |
130 ]. |
131 |
131 |
132 resourceOwner isNil ifTrue:[ |
132 resourceOwner isNil ifTrue:[ |
133 ( className isNil |
133 (resourceOwner := Smalltalk classNamed:className) isNil ifTrue:[ |
134 or:[(resourceOwner := Smalltalk at:className ifAbsent:nil) isNil] |
|
135 ) ifTrue:[ |
|
136 ^ nil |
134 ^ nil |
137 ] |
135 ] |
138 ]. |
136 ]. |
139 |
137 |
140 (resourceOwner respondsTo:#visualFor:) ifTrue:[ |
138 (resourceOwner respondsTo:#visualFor:) ifTrue:[ |