UIPainter.st
changeset 3296 9a42d2d7ff05
parent 3256 175d2d7e95c5
child 3325 8ce2df5fc1f7
--- a/UIPainter.st	Mon May 09 10:08:38 2016 +0200
+++ b/UIPainter.st	Mon May 09 19:55:10 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995-1998 by eXept Software AG
               All Rights Reserved
@@ -707,6 +705,30 @@
         ]
 !
 
+builderIcon
+    "This resource specification was automatically generated
+     by the ImageEditor of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the ImageEditor may not be able to read the specification."
+
+    "
+     self builderIcon inspect
+     ImageEditor openOnClass:self andSelector:#builderIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'UIPainter builderIcon'
+        ifAbsentPut:[(Depth1Image width:48 height:48 photometric:#whiteIs0) bits:(ByteArray fromPackedString:'
+@@@@@@@@O??????<H@@@@@@DH_@@@@@DH_@OC?>DH_@IC??$H_@IC??4H_@IC??$H_@IC?>DH_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@F@M D
+H_@F@J DH_@F@M DH_@F@J DH_@F@M DH_@F@J DH_@_ M DH_@ PJ DH_@)PM DH_@)PJ DH_@)PM DH? )PJ DI?0)PM DK?8)PJ DK18)PM DK 8)PJ D
+K@X)PM DK@X PG@DK@X_ @@DH@@@@@@DH@@@@@@DO??????<@@@@@@@@NDIHNG''@IDIHIDD H$IHH$DPIDIHH$DPNDIHH$D IDIHH''G@H$IHH$E@H$IHH$D 
+IBQHIDDPNA!!ONG$P@@@@@@@@'); yourself]
+!
+
 defaultIcon
     <resource: #programImage>
 
@@ -5132,7 +5154,7 @@
         ^ self.
     ].
 
-    icon := Smalltalk imageFromFileNamed:'UIPainter.xbm' forClass:self class.
+    icon := self class builderIcon.
 
     topView := self window.