#UI_ENHANCEMENT by cg
authorClaus Gittinger <cg@exept.de>
Thu, 19 Dec 2019 12:55:20 +0100
changeset 6781 d4b356512497
parent 6780 d7d4526fb3f3
child 6782 232ef2dd29a8
#UI_ENHANCEMENT by cg class: Windows8ToolbarIconLibrary class added: #downArrowIcon #leftArrowIcon #rightArrowIcon #upArrowIcon
Windows8ToolbarIconLibrary.st
--- a/Windows8ToolbarIconLibrary.st	Thu Dec 19 12:04:00 2019 +0100
+++ b/Windows8ToolbarIconLibrary.st	Thu Dec 19 12:55:20 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2013 by eXept Software AG
               All Rights Reserved
@@ -101,6 +99,28 @@
             mask:((ImageMask width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a'); yourself); yourself]
 !
 
+downArrowIcon
+    "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 downArrowIcon inspect
+     ImageEditor openOnClass:self andSelector:#downArrowIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'Windows8ToolbarIconLibrary class downArrowIcon'
+        ifAbsentPut:[(Depth1Image width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@D@@P@A@@D@@P@A@@D@@P@A@@D@@P@a')
+            colorMapFromArray:#[0 0 0 240 240 240]
+            mask:((ImageMask width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@DHHP1!!C.DG0PNA@PD@@P@A@@D@@P@a'); yourself); yourself]
+!
+
 downArrowPassiveIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -167,6 +187,28 @@
             mask:((ImageMask width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@A0@N@A0@N@@\@@8@A0@@@@@@@@@@@'); yourself); yourself]
 !
 
+leftArrowIcon
+    "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 leftArrowIcon inspect
+     ImageEditor openOnClass:self andSelector:#leftArrowIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'Windows8ToolbarIconLibrary class leftArrowIcon'
+        ifAbsentPut:[(Depth1Image width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
+            colorMapFromArray:#[0 0 0]
+            mask:((ImageMask width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@A0@N@A0@N@@\@@8@A0@@@@@@@@@@@'); yourself); yourself]
+!
+
 leftArrowPassiveIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -233,6 +275,28 @@
             mask:((ImageMask width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@N@@\@@8@A0@N@A0@N@@@@@@@@@@@@'); yourself); yourself]
 !
 
+rightArrowIcon
+    "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 rightArrowIcon inspect
+     ImageEditor openOnClass:self andSelector:#rightArrowIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'Windows8ToolbarIconLibrary class rightArrowIcon'
+        ifAbsentPut:[(Depth1Image width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
+            colorMapFromArray:#[0 0 0]
+            mask:((ImageMask width:14 height:15) bits:(ByteArray fromPackedString:'@@@@@@@@@@@N@@\@@8@A0@N@A0@N@@@@@@@@@@@@'); yourself); yourself]
+!
+
 rightArrowPassiveIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."
@@ -299,6 +363,28 @@
             mask:((ImageMask width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@DA@PNAA<DN8P1!!BBD@@P@A@@D@@P@a'); yourself); yourself]
 !
 
+upArrowIcon
+    "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 upArrowIcon inspect
+     ImageEditor openOnClass:self andSelector:#upArrowIcon
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'Windows8ToolbarIconLibrary class upArrowIcon'
+        ifAbsentPut:[(Depth1Image width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@D@@P@A@@D@@P@A@@D@@P@A@@D@@P@a')
+            colorMapFromArray:#[0 0 0 240 240 240]
+            mask:((ImageMask width:15 height:14) bits:(ByteArray fromPackedString:'@@D@@P@A@@DA@PNAA<DN8P1!!BBD@@P@A@@D@@P@a'); yourself); yourself]
+!
+
 upArrowPassiveIcon
     "This resource specification was automatically generated
      by the ImageEditor of ST/X."