#BUGFIX by cg
class: ResourceRetriever
changed: #findResourceLabel:in:rememberResourcesIn:
oops: if the resourceRetriever is an instance (such as a tree item),
and does not implement resources, no xlation was done.
Must also look at the resourceRetriever's class's classResources.
--- a/ResourceRetriever.st Tue Jan 24 17:41:31 2017 +0100
+++ b/ResourceRetriever.st Tue Jan 24 17:42:27 2017 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libview2' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#ResourceRetriever
instanceVariableNames:'className resourceOwner selector labelText resource'
classVariableNames:''
@@ -146,6 +148,9 @@
resources := aValueHolderOrNil value.
resources isNil ifTrue:[
resources := aResourceOwner perform:#resources ifNotUnderstood:nil.
+ resources isNil ifTrue:[
+ resources := aResourceOwner class perform:#classResources ifNotUnderstood:nil.
+ ].
resources notNil ifTrue:[
aValueHolderOrNil notNil ifTrue:[
aValueHolderOrNil value:resources
@@ -352,10 +357,10 @@
!ResourceRetriever class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.15 2014-03-12 17:23:07 stefan Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libview2/ResourceRetriever.st,v 1.15 2014-03-12 17:23:07 stefan Exp $'
+ ^ '$Header$'
! !