ResourceSelectionBrowser.st
changeset 2309 777065a9ff59
parent 2038 dfa6f1e641a7
child 2441 a0c5da242681
equal deleted inserted replaced
2308:60722577a10a 2309:777065a9ff59
     7  inclusion of the above copyright notice. This software may not
     7  inclusion of the above copyright notice. This software may not
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person. No title to or ownership of the software is
     9  other person. No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 
       
    13 
       
    14 "{ Package: 'stx:libtool2' }"
    12 "{ Package: 'stx:libtool2' }"
    15 
    13 
    16 SelectionBrowser subclass:#ResourceSelectionBrowser
    14 SelectionBrowser subclass:#ResourceSelectionBrowser
    17 	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes
    15 	instanceVariableNames:'resourceMethod resourceClass resourceSuperclass resourceTypes
    18 		allClasses classSelectionBlock'
    16 		allClasses classSelectionBlock'
   623     ].
   621     ].
   624     ^ holder
   622     ^ holder
   625 !
   623 !
   626 
   624 
   627 valueOfClassName
   625 valueOfClassName
       
   626     <resource: #obsolete>
   628     "returns the value holder for the name of the class"
   627     "returns the value holder for the name of the class"
   629 
   628 
   630     self obsoleteMethodWarning:'stupid name - use #classNameHolder'.
   629     self obsoleteMethodWarning:'stupid name - use #classNameHolder'.
   631     ^ self classNameHolder
   630     ^ self classNameHolder
   632 !
   631 !
   633 
   632 
   634 valueOfResourceSelector
   633 valueOfResourceSelector
       
   634     <resource: #obsolete>
   635     "returns the value holder for the name of the selector"
   635     "returns the value holder for the name of the selector"
   636 
   636 
   637     self obsoleteMethodWarning:'stupid name - use #resourceSelectorHolder'.
   637     self obsoleteMethodWarning:'stupid name - use #resourceSelectorHolder'.
   638     ^ self resourceSelectorHolder
   638     ^ self resourceSelectorHolder
   639 ! !
   639 ! !