equal
deleted
inserted
replaced
245 (#ResourceRetriever className selector) |
245 (#ResourceRetriever className selector) |
246 |
246 |
247 or if labelText not nil: |
247 or if labelText not nil: |
248 (#ResourceRetriever className selector labelText) |
248 (#ResourceRetriever className selector labelText) |
249 " |
249 " |
|
250 |myClassName| |
|
251 |
|
252 myClassName := self class name. |
250 labelText isNil ifTrue:[ |
253 labelText isNil ifTrue:[ |
251 ^ Array with:(self class name) with:className with:selector |
254 ^ Array with:myClassName with:className with:selector |
252 ] ifFalse:[ |
255 ] ifFalse:[ |
253 ^ Array with:(self class name) with:className with:selector with:labelText |
256 ^ Array with:myClassName with:className with:selector with:labelText |
254 ]. |
257 ]. |
255 |
258 |
|
259 "Modified: / 26.1.1998 / 13:52:43 / cg" |
256 ! ! |
260 ! ! |
257 |
261 |
258 !ResourceRetriever methodsFor:'testing'! |
262 !ResourceRetriever methodsFor:'testing'! |
259 |
263 |
260 isDefined |
264 isDefined |