Selection color

parent f95f2c8f
Pipeline #740 passed with stage
in 8 minutes and 41 seconds
......@@ -33,6 +33,7 @@ color-h 1 > [IF]
$FFFFBBFF re-text-color dark-blue
$000000FF re-text-color whitish
$40C0FFFF $000000FF $000000FF $FFFFFFFF re-text-emoji-fade-color toggle-color
$1F3F7F7F re-text-color selection-color
day-mode
[THEN]
......
......@@ -609,6 +609,8 @@ text class
value: start-curpos \ selection mode
end-class edit
$3F7FFF7F text-color, FValue selection-color
: edit-marking ( -- )
cursize 0< ?EXIT text-font to font
text$ curpos umin layout-string fdrop fdrop
......@@ -625,7 +627,7 @@ end-class edit
x0 cw f+ fround
y h border borderv f+ bordert f+ f- f- { f: x1 f: y1 }
-2e to t.i0 6 ?flush-tris i>off
cursize 0> IF m2c:selectioncolor# @ color, ELSE text-color THEN >v
cursize 0> IF selection-color ELSE text-color THEN >v
x0 y0 >xy fdup i>c n> 2e 2e >st v+
x1 y0 >xy fdup i>c n> 3e 2e >st v+
x0 y1 >xy fdup i>c n> 2e 3e >st v+
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment