--- a/VariablePanel.st Thu Aug 30 08:49:16 2018 +0200
+++ b/VariablePanel.st Sat Sep 01 08:50:44 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
@@ -697,14 +699,23 @@
DefaultSnapIcons isNil ifTrue:[
DefaultSnapIcons := IdentityDictionary new.
-
- DefaultSnapIcons at:#iconUp put:self snapIconUp.
- DefaultSnapIcons at:#iconRight put:self snapIconRight.
- DefaultSnapIcons at:#iconDown put:self snapIconDown.
- DefaultSnapIcons at:#iconLeft put:self snapIconLeft.
-
- DefaultSnapIcons at:#iconUpDown put:self snapIconUpDown.
- DefaultSnapIcons at:#iconLeftRight put:self snapIconLeftRight.
+ View defaultBackgroundColor brightness < 0.4 ifTrue:[
+ DefaultSnapIcons at:#iconUp put:self snapIconUp_dark.
+ DefaultSnapIcons at:#iconRight put:self snapIconRight_dark.
+ DefaultSnapIcons at:#iconDown put:self snapIconDown_dark.
+ DefaultSnapIcons at:#iconLeft put:self snapIconLeft_dark.
+
+ DefaultSnapIcons at:#iconUpDown put:self snapIconUpDown_dark.
+ DefaultSnapIcons at:#iconLeftRight put:self snapIconLeftRight_dark.
+ ] ifFalse:[
+ DefaultSnapIcons at:#iconUp put:self snapIconUp.
+ DefaultSnapIcons at:#iconRight put:self snapIconRight.
+ DefaultSnapIcons at:#iconDown put:self snapIconDown.
+ DefaultSnapIcons at:#iconLeft put:self snapIconLeft.
+
+ DefaultSnapIcons at:#iconUpDown put:self snapIconUpDown.
+ DefaultSnapIcons at:#iconLeftRight put:self snapIconLeftRight.
+ ]
].
^ DefaultSnapIcons
@@ -712,6 +723,8 @@
DefaultSnapIcons := nil.
self snapIcons
"
+
+ "Modified: / 01-09-2018 / 08:50:30 / Claus Gittinger"
!
updateStyleCache
@@ -818,6 +831,28 @@
]
!
+snapIconDown_dark
+ "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 snapIconDown_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconDown_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconDown_dark'
+ ifAbsentPut:[(Depth2Image width:62 height:5) bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@C??C8O >G8_!!>G8_!!>O?<@O?@1CDLQ1GD\Q1GD\P?<H@?@EPUATEPUATEPUATC<@@C@@@@@@@@@@@@@@@@@L@@b')
+ colorMapFromArray:#[0 0 0 68 68 68 255 255 255 191 191 191]
+ mask:((ImageMask width:62 height:5) bits:(ByteArray fromPackedString:'@@@@@@@@@@A?LX1#FLX3>C8)R%JT)R''0GA#FLX1#FN@H@@@@@@@@P@@a'); yourself); yourself]
+!
+
snapIconLeft
<resource: #image>
"This resource specification was automatically generated
@@ -875,6 +910,54 @@
mask:((ImageMask width:5 height:62) bits:(ByteArray fromPackedString:' LC <NK@ @@A@&QPLP@@XE@0@@@D?? A@VAPL@@@XE@0@@A TCL@@@C8>@@BXE@0@PY$TCD@@A@0\OA0LAXb'); yourself); yourself]
!
+snapIconLeftRight_dark
+ "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 snapIconLeftRight_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconLeftRight_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconLeftRight_dark'
+ ifAbsentPut:[(Depth2Image width:5 height:62) bits:(ByteArray fromPackedString:'
+ @B @J K*!!J(@J@@ AX@L@@@@@@(@BD@AQD@B@@FJ#@!!@AT@@@@@@@@@@@B*$P@H@AD*LBD@EP@@@@@@J"\!!B1T@@@@@E"(0HP@U@@@@@@B*$P@H*(X@L@@@
+J @!!@AT@@@@@@B(RHP UDP@0@@@B@@(@J B*I2(KB @B@@@a')
+ colorMapFromArray:#[0 0 0 68 68 68 191 191 191]
+ mask:((ImageMask width:5 height:62) bits:(ByteArray fromPackedString:' LC <NK@ @@A@&QPLP@@XE@0@@@D?? A@VAPL@@@XE@0@@A TCL@@@C8>@@BXE@0@PY$TCD@@A@0\OA0LAXb'); yourself); yourself]
+!
+
+snapIconLeft_dark
+ "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 snapIconLeft_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconLeft_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconLeft_dark'
+ ifAbsentPut:[(Depth2Image width:5 height:62) bits:(ByteArray fromPackedString:'
+@C BB@(@J B*@B(@B @B@@@P@C@)@BD@IP@@@@@BJP@!!@BT@@@@@@B$HHP %@@@@AP@)@BD@IP@@D@T0JP@!!@BT@@@@ED2$@HP@%@@@@AP@)ARDHIP@@@@T@
+JP@!!@BT@@A@ELB @HP@E@@@@@#\J@B(@* @*@@(@@ T@B@@a')
+ colorMapFromArray:#[0 0 0 68 68 68 191 191 191]
+ mask:((ImageMask width:5 height:62) bits:(ByteArray fromPackedString:'@A@0\OA0LA@D@6UPL@@@XE@0@@A TC@@@FAPL@@@XE@0@@A UCLD@FAPL@@@XE@0@@A TC@@DCA0=''T0D@@b'); yourself); yourself]
+!
+
snapIconRight
<resource: #image>
"This resource specification was automatically generated
@@ -908,6 +991,30 @@
]
!
+snapIconRight_dark
+ "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 snapIconRight_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconRight_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconRight_dark'
+ ifAbsentPut:[(Depth2Image width:5 height:62) bits:(ByteArray fromPackedString:'
+@@L @B @J @* B(@JAT B@@@J@@!!@@T@E@@@@B(QHS@U@AP@@@@*@BD@EP@T@@@@J L!!@AT@E@@@DB(0HP@U@AP@@@@*J"D@EP@T@@@@J @!!B!!TH@@@@@B(@
+HP@U@@@@@A@*LBD@EP@@@@@@H@X(@B(@J(@*@B @H@ @B@@a')
+ colorMapFromArray:#[0 0 0 68 68 68 191 191 191]
+ mask:((ImageMask width:5 height:62) bits:(ByteArray fromPackedString:'@4A \G%2X4@AXE@0@@A TC@E@6AQL@@@XE@0@@A TC@@@6APL@@@XEL0@@A UC\@@VAPL@@@PFA0^''M PP@b'); yourself); yourself]
+!
+
snapIconUp
<resource: #image>
"This resource specification was automatically generated
@@ -961,6 +1068,50 @@
mask:((ImageMask width:62 height:5) bits:(ByteArray fromPackedString:'@@@F@@A @@@PLXY#FFX1?C )Q%JTYR#8_A#FLX1#FGC>@@X@@F@@H@@a'); yourself); yourself]
!
+snapIconUpDown_dark
+ "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 snapIconUpDown_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconUpDown_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconUpDown_dark'
+ ifAbsentPut:[(Depth2Image width:62 height:5) bits:(ByteArray fromPackedString:'@@@@@@@H@@@@@@ @@@@@@@H@B J@BB J@(@HJ@(B**@J @!!BDE !!BDHPFBDHPJ*@J*@APE@HAPE@T@ E@T@*@J*(@@@@B@@@@@@H@@@@B@@b')
+ colorMapFromArray:#[0 0 0 68 68 68 191 191 191]
+ mask:((ImageMask width:62 height:5) bits:(ByteArray fromPackedString:'@@@F@@A @@@PLXY#FFX1?C )Q%JTYR#8_A#FLX1#FGC>@@X@@F@@H@@a'); yourself); yourself]
+!
+
+snapIconUp_dark
+ "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 snapIconUp_dark inspect
+ ImageEditor openOnClass:self andSelector:#snapIconUp_dark
+ Icon flushCachedIcons
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:'VariablePanel class snapIconUp_dark'
+ ifAbsentPut:[(Depth2Image width:62 height:5) bits:(ByteArray fromPackedString:'@H@@@@@@@@@@@@@@@@@ @@J J *B(J *B(J (B @*@@J*BEHT!!REHT!!RDHP!!@*(@J*(EPUATEPUATE@TAP** @@@@@@@@@@@@@@@@@@@@@@b')
+ colorMapFromArray:#[0 0 0 68 68 68 191 191 191]
+ mask:((ImageMask width:62 height:5) bits:(ByteArray fromPackedString:'B@@@@@@@@D@\X1#FLX1 8C9R%JT)R%G0_3FLX1#FL? @@@@@@@@@@@@a'); yourself); yourself]
+!
+
verticalResizeCursor
"This resource specification was automatically generated
by the ImageEditor of ST/X."