--- a/ResourceRetriever.st Fri Jan 23 19:05:04 1998 +0100
+++ b/ResourceRetriever.st Mon Jan 26 13:53:41 1998 +0100
@@ -247,12 +247,16 @@
or if labelText not nil:
(#ResourceRetriever className selector labelText)
"
+ |myClassName|
+
+ myClassName := self class name.
labelText isNil ifTrue:[
- ^ Array with:(self class name) with:className with:selector
+ ^ Array with:myClassName with:className with:selector
] ifFalse:[
- ^ Array with:(self class name) with:className with:selector with:labelText
+ ^ Array with:myClassName with:className with:selector with:labelText
].
+ "Modified: / 26.1.1998 / 13:52:43 / cg"
! !
!ResourceRetriever methodsFor:'testing'!