--- 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$'
! !