--- a/ResourceRetriever.st Wed Mar 12 18:22:11 2014 +0100
+++ b/ResourceRetriever.st Wed Mar 12 18:23:07 2014 +0100
@@ -126,20 +126,18 @@
in aResourceOwner,
in class of aResourceOwner,
in resources of class of aResourceOwner,
- and finally in my label resources
- "
+ and finally in my label resources"
|resources|
aResourceOwner isNil ifTrue: [^label].
label isSymbol ifTrue:[
- (aResourceOwner respondsTo: label) ifTrue:[
+ (aResourceOwner respondsTo:label) ifTrue:[
^ aResourceOwner perform:label
].
- (aResourceOwner isClass not
- and: [aResourceOwner class respondsTo: label])
+ (aResourceOwner isClass not and:[aResourceOwner class respondsTo:label])
ifTrue:[
^ aResourceOwner perform:label
].
@@ -159,7 +157,6 @@
].
^ self labelResources string:label
-
!
labelResources
@@ -355,9 +352,10 @@
!ResourceRetriever class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.14 2011-03-24 15:55:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.15 2014-03-12 17:23:07 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.14 2011-03-24 15:55:44 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.15 2014-03-12 17:23:07 stefan Exp $'
! !
+