#UI_ENHANCEMENT by cg expecco_2_10_0 expecco_2_10_0_41 expecco_2_11_0 expecco_2_11_1
authorClaus Gittinger <cg@exept.de>
Sun, 11 Dec 2016 21:13:17 +0100
changeset 5383 738829c844c8
parent 5381 cb54dd13c7c3
child 5384 391f34785fae
child 5385 730032499904
#UI_ENHANCEMENT by cg class: ComboView added: #defaultButtonForm changed: #buttonForm fallback form should have a mask
ComboView.st
--- a/ComboView.st	Sat Dec 10 22:23:53 2016 +0100
+++ b/ComboView.st	Sun Dec 11 21:13:17 2016 +0100
@@ -90,22 +90,7 @@
         ].
     ].
     form isNil ifTrue:[
-        form  := Form width:12 height:12 
-                      fromArray:#[2r00000000 2r00000000
-                                  "/ 2r00001111 2r00000000
-                                  "/ 2r00001111 2r00000000
-                                  2r00001111 2r00000000
-                                  2r00001111 2r00000000
-                                  2r00001111 2r00000000
-                                  2r01111111 2r11100000
-                                  2r00111111 2r11000000
-                                  2r00011111 2r10000000
-                                  2r00001111 2r00000000
-                                  2r00000110 2r00000000
-                                  2r00000000 2r00000000
-                                  2r01111111 2r11100000
-                                  2r00000000 2r00000000]
-                      onDevice:Display.
+        form  := self defaultButtonForm.
     ].
     form notNil ifTrue:[
         form := DefaultButtonForm := form onDevice:Display.
@@ -241,6 +226,30 @@
     "Created: / 3.11.1997 / 15:28:48 / cg"
 ! !
 
+!ComboView class methodsFor:'image specs'!
+
+defaultButtonForm
+    "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 defaultButtonForm inspect
+     ImageEditor openOnClass:self andSelector:#defaultButtonForm
+     Icon flushCachedIcons
+    "
+
+    <resource: #image>
+
+    ^Icon
+        constantNamed:'ComboView class defaultButtonForm'
+        ifAbsentPut:[(Depth1Image width:12 height:12) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@')
+            colorMapFromArray:#[0 0 0]
+            mask:((ImageMask width:12 height:12) bits:(ByteArray fromPackedString:'@@<OC0<OC0=?;3?OG8<OC0XO@@=?;0@O'); yourself); yourself]
+! !
+
 !ComboView class methodsFor:'queries'!
 
 isAbstract