21 !

    22 

    23 ResourceRetriever class instanceVariableNames:'LabelResources'

    24 

    25 "

    26  The following class instance variables are inherited by this class:

    27 

    28 	Object - 

    29 "

    79 !ResourceRetriever class methodsFor:'accessing resource'!

    80 

    81 findResourceLabel: label in: aResourceOwner

    82     "look for a string 

    83         in aResourceOwner, 

    84         in class of aResourceOwner,

    85         in resources of class of aResourceOwner,

    86         and finally in my label resources

    87     "

    88 

    89     aResourceOwner isNil ifTrue: [^label].

    90 

    91     label isSymbol

    92     ifTrue:

    93     [

    94         (aResourceOwner respondsTo: label)

    95         ifTrue:

    96         [           

    97             ^aResourceOwner perform: label

    98         ].

    99 

   100         (aResourceOwner isClass not and: [aResourceOwner class respondsTo: label])

   101         ifTrue:

   102         [            

   103             ^aResourceOwner perform: label

   104         ].

   105     ].

   106 

   107     ((aResourceOwner isKindOf: ApplicationModel) or: 

   108     [aResourceOwner isKindOf: SimpleView]) 

   109     ifTrue:

   110     [

   111         ^aResourceOwner resources string: label

   112     ].

   113 

   114     ^self labelResources string:label

   115   

   116 !

   117 

   118 labelResources

   119     "if not already loaded, get the common label resourcePack

   120      and return it"

   121 

   122     LabelResources isNil ifTrue:[

   123         LabelResources := ResourcePack for:self.

   124     ].

   125     ^ LabelResources

   126 ! !

   127