#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 16 Jan 2020 10:20:47 +0100
changeset 6796 645f74e46f86
parent 6795 fa606db96fec
child 6797 236c24a6ce6c
#UI_ENHANCEMENT by cg class: GenericToolbarIconLibrary class added: #led_colon #led_dot changed: #colonBitmap #led0
GenericToolbarIconLibrary.st
--- a/GenericToolbarIconLibrary.st	Wed Jan 15 15:57:55 2020 +0100
+++ b/GenericToolbarIconLibrary.st	Thu Jan 16 10:20:47 2020 +0100
@@ -18514,24 +18514,9 @@
 !GenericToolbarIconLibrary class methodsFor:'image specs-widgets'!
 
 colonBitmap
-    "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 colonBitmap inspect
-     ImageEditor openOnClass:self andSelector:#colonBitmap
-     Icon flushCachedIcons
-    "
-
-    <resource: #image>
-
-    ^Icon
-        constantNamed:'GenericToolbarIconLibrary colonBitmap'
-        ifAbsentPut:[(Depth2Image width:13 height:23) bits:(ByteArray fromPackedString:'@@@@@@DQD@@PQDD@AADD@AD@DP@DB@P@DR(Q@@P*A@@QBAD@A@@D@AADPP@ADQ@@DDQA@@P@A@@QBAD@AB(D@AD*DP@DB@P@DP@Q@@PQA@@PQDD@@QDP@@@@
-@@@b') colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
+    <resource: #programImage>
+
+    ^self led_colon
 !
 
 led0
@@ -18550,9 +18535,10 @@
     <resource: #image>
 
     ^Icon
-        constantNamed:'GenericToolbarIconLibrary led0'
+        constantNamed:'GenericToolbarIconLibrary class led0'
         ifAbsentPut:[(Depth2Image width:13 height:23) bits:(ByteArray fromPackedString:'@@@@@@***@@"**H@JJ*J@B(@J @*@B(@J @*@B(@J @*@B(@J@@J@BADP!!TADQ@@HDQB@B @B @*@B(@J @*@B(@J @*@B(@J @*@B"*" @"**H@B**(@@@@
-@@@b') colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
+@@@b')
+            colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
 !
 
 led1
@@ -18744,6 +18730,50 @@
 @@@b') colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
 !
 
+led_colon
+    "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 led_colon inspect
+     ImageEditor openOnClass:self andSelector:#led_colon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'GenericToolbarIconLibrary class led_colon'
+        ifAbsentPut:[(Depth2Image width:13 height:23) bits:(ByteArray fromPackedString:'@@@@@@DQD@@PQDD@AADD@AD@DP@DB@P@DR(Q@@P*A@@QBAD@A@@D@AADPP@ADQ@@DDQA@@P@A@@QBAD@AB(D@AD*DP@DB@P@DP@Q@@PQA@@PQDD@@QDP@@@@
+@@@b')
+            colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
+!
+
+led_dot
+    "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 led_dot inspect
+     ImageEditor openOnClass:self andSelector:#led_dot
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'GenericToolbarIconLibrary class led_dot'
+        ifAbsentPut:[(Depth2Image width:13 height:23) bits:(ByteArray fromPackedString:'@@@@@@DQD@@PQDD@AADD@AD@DP@D@@P@DP@Q@@P@A@@Q@AD@A@@D@AADPP@ADQ@@DDQA@@P@A@@Q@AD@A@@D@AD@DP@D@@P@DP@Q@@P*A@@PZ$D@@R(P@@@@
+@@@b')
+            colorMapFromArray:#[0 0 0 128 0 0 255 0 0]; yourself]
+!
+
 meterBitmaps
 
     "Do not manually edit this!! If it is corrupted,