#UI_ENHANCEMENT by cg
class: ComboView
added: #defaultButtonForm
changed: #buttonForm
fallback form should have a mask
--- 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