mask of icons
authorClaus Gittinger <cg@exept.de>
Sat, 10 Feb 2007 17:48:23 +0100
changeset 2157 76aadc90818e
parent 2156 215e8d8f965e
child 2158 20265a129645
mask of icons
UIPainter.st
--- a/UIPainter.st	Tue Feb 06 19:49:21 2007 +0100
+++ b/UIPainter.st	Sat Feb 10 17:48:23 2007 +0100
@@ -616,6 +616,12 @@
         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]
 !
 
+defaultIcon
+    ^ ToolbarIconLibrary startUIPainterIcon
+
+    "Created: / 10-02-2007 / 14:45:56 / cg"
+!
+
 iconAlignB
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -1083,6 +1089,7 @@
           name: 'GUI Painter'
           min: (Point 560 460)
           bounds: (Rectangle 12 22 620 545)
+          icon: defaultIcon
           menu: menu
         )
         component: 
@@ -1192,6 +1199,8 @@
          
         )
       )
+
+    "Modified: / 10-02-2007 / 14:45:31 / cg"
 ! !
 
 !UIPainter class methodsFor:'menu specs'!