UIPainter.st
changeset 2157 76aadc90818e
parent 2138 55f338a77eb0
child 2159 7f02407f0bbf
equal deleted inserted replaced
2156:215e8d8f965e 2157:76aadc90818e
   612     <resource: #image>
   612     <resource: #image>
   613 
   613 
   614     ^Icon
   614     ^Icon
   615         constantNamed:#'UIPainter class arrowUp'
   615         constantNamed:#'UIPainter class arrowUp'
   616         ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a') ; yourself); yourself]
   616         ifAbsentPut:[(Depth1Image new) width: 11; height: 11; photometric:(#palette); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?>C?8O? >>C18NC 0FC?8O? ?>C?8@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 11; height: 11; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@A@@NG1<@O8@@@@@@@@@@AP@a') ; yourself); yourself]
       
   617 !
       
   618 
       
   619 defaultIcon
       
   620     ^ ToolbarIconLibrary startUIPainterIcon
       
   621 
       
   622     "Created: / 10-02-2007 / 14:45:56 / cg"
   617 !
   623 !
   618 
   624 
   619 iconAlignB
   625 iconAlignB
   620     "This resource specification was automatically generated
   626     "This resource specification was automatically generated
   621      by the ImageEditor of ST/X."
   627      by the ImageEditor of ST/X."
  1081        (WindowSpec
  1087        (WindowSpec
  1082           label: 'GUI Painter'
  1088           label: 'GUI Painter'
  1083           name: 'GUI Painter'
  1089           name: 'GUI Painter'
  1084           min: (Point 560 460)
  1090           min: (Point 560 460)
  1085           bounds: (Rectangle 12 22 620 545)
  1091           bounds: (Rectangle 12 22 620 545)
       
  1092           icon: defaultIcon
  1086           menu: menu
  1093           menu: menu
  1087         )
  1094         )
  1088         component: 
  1095         component: 
  1089        (SpecCollection
  1096        (SpecCollection
  1090           collection: (
  1097           collection: (
  1190             )
  1197             )
  1191            )
  1198            )
  1192          
  1199          
  1193         )
  1200         )
  1194       )
  1201       )
       
  1202 
       
  1203     "Modified: / 10-02-2007 / 14:45:31 / cg"
  1195 ! !
  1204 ! !
  1196 
  1205 
  1197 !UIPainter class methodsFor:'menu specs'!
  1206 !UIPainter class methodsFor:'menu specs'!
  1198 
  1207 
  1199 menu
  1208 menu