MenuEditor.st
changeset 902 f510032000ad
parent 888 2712edb36a3a
child 912 931b23146b3d
equal deleted inserted replaced
901:ce482227787d 902:f510032000ad
  1847 !
  1847 !
  1848 
  1848 
  1849 updateListOfImages
  1849 updateListOfImages
  1850     "updates the list of images"
  1850     "updates the list of images"
  1851 
  1851 
  1852     |iconClass|
  1852     |iconClass|      
  1853     iconClass := Smalltalk at: (aspects at: #retriever) value ? specClass.
  1853 
       
  1854     (iconClass := (aspects at: #retriever) value ? specClass) notNil ifTrue: 
       
  1855     [
       
  1856         iconClass := Smalltalk at: iconClass
       
  1857     ].
       
  1858 
  1854     self listOfImages contents:
  1859     self listOfImages contents:
  1855         ((self class getAllImageSelectorsFrom: iconClass)
  1860         ((self class getAllImageSelectorsFrom: iconClass)
  1856             collect: [:sel| |image| image := iconClass perform: sel. LabelAndIcon icon:(image magnifiedBy: 22/image extent y ) string: sel]).
  1861             collect: [:sel| |image| image := iconClass perform: sel. LabelAndIcon icon:(image magnifiedBy: 22/image extent y ) string: sel]).
  1857 
  1862 
  1858 
  1863