ProjectBrowser.st
changeset 1106 07f8c4005d10
parent 1099 965cfbbf4bf2
child 1107 0d190d1f4875
equal deleted inserted replaced
1105:a19cdc769750 1106:07f8c4005d10
    72 
    72 
    73     <resource: #image>
    73     <resource: #image>
    74 
    74 
    75     ^Icon
    75     ^Icon
    76         constantNamed:#'ProjectBrowser commentIcon'
    76         constantNamed:#'ProjectBrowser commentIcon'
    77         ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@PDDA@PA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PDA@@PDA@@A@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PDA@@PDA@@A@PDA@PDA@PDA@PD@@@@A@PDA@PDA@PDA@PDA@PD@@PDA@PDA@P@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@C @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
    77         ifAbsentPut:[(Depth8Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(8 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDAA@PD@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@PDDA@PA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PDA@PPDA@DA@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PDA@@PDA@@A@PDA@PDA@PDA@P@DA@P@@PDA@PDA@PDA@PD@A@PD@@DA@PDA@PDA@PD@A@PDA@P@@PDA@PDA@PDA@PD@@@@A@PDA@PDA@PDA@PDA@PD@@PDA@PDA@P@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@8@C @N@@@@C @N@@8@C @N@@8@G0@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]!
    78 
    78 
    79 deploymentIcon
    79 deploymentIcon
    80     "This resource specification was automatically generated
    80     "This resource specification was automatically generated
    81      by the ImageEditor of ST/X."
    81      by the ImageEditor of ST/X."
    82 
    82 
  1838         ].
  1838         ].
  1839         ^ self.
  1839         ^ self.
  1840     ].
  1840     ].
  1841 
  1841 
  1842     changedObject == self currentProject ifTrue:[
  1842     changedObject == self currentProject ifTrue:[
  1843         self halt.
       
  1844         self readAspectsFromProject.
  1843         self readAspectsFromProject.
  1845         self halt.
  1844         self halt.
  1846     ].
  1845     ].
  1847 ! !
  1846 ! !
  1848 
  1847 
  2512     |projectItem project classInfo l|
  2511     |projectItem project classInfo l|
  2513 
  2512 
  2514     projectItem := anItem parent.
  2513     projectItem := anItem parent.
  2515     project := projectItem contents.
  2514     project := projectItem contents.
  2516 
  2515 
  2517     classInfo := project classInfo asOrderedCollection.
  2516     classInfo := project classInfo copy asOrderedCollection.
  2518     classInfo sort:[:a :b | a className < b className].
  2517     classInfo sort:[:a :b | a className < b className].
  2519 
  2518 
  2520     l := self classList.
  2519     l := self classList.
  2521     l removeAll.
  2520     l removeAll.
  2522     l addAll:classInfo.
  2521     l addAll:classInfo.