# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1481487197 -3600
# Node ID 738829c844c89407cc996ba2ce036d63c5cf99a6
# Parent  cb54dd13c7c3aa6acb031c923df098a039e3710a
#UI_ENHANCEMENT by cg
class: ComboView
added: #defaultButtonForm
changed: #buttonForm
fallback form should have a mask

diff -r cb54dd13c7c3 -r 738829c844c8 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