ResourceSelectionBrowser.st
changeset 1605 8aab97d1f5fe
parent 1524 4efbd088b787
child 1716 5ae373f6fef0
equal deleted inserted replaced
1604:69dc29cf0fc5 1605:8aab97d1f5fe
   838     resourceClass := nil.
   838     resourceClass := nil.
   839 
   839 
   840     aClassOrSymbol isClass 
   840     aClassOrSymbol isClass 
   841         ifTrue: [resourceClass := aClassOrSymbol name] 
   841         ifTrue: [resourceClass := aClassOrSymbol name] 
   842         ifFalse: [
   842         ifFalse: [
   843             aClassOrSymbol notNil ifTrue:[
   843             aClassOrSymbol size > 0 ifTrue:[
   844                 (Smalltalk at: aClassOrSymbol) notNil
   844                 (Smalltalk at: aClassOrSymbol) notNil
   845                 ifTrue: [resourceClass := aClassOrSymbol]
   845                 ifTrue: [resourceClass := aClassOrSymbol]
   846             ]
   846             ]
   847         ].            
   847         ].            
   848     self valueOfResourceSelector value:(aSelector ? '').
   848     self valueOfResourceSelector value:(aSelector ? '').