--- 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.