humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

highlight different options in red when they are (focused andalso selected)

Browse Source
This commit is contained in:
Humza Shahid
2025-02-21 14:53:26 +00:00
parent b2f58f1c9a
commit abcbc030e1
1 changed files with 49 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
fcore/options/options-vec.sml
View File

@@ -44,8 +44,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 35, width, height, "Left key", 0.0, 0.0, 0.0, []) (155, 35, width, height, "Left key", 0.0, 0.0, 0.0, [])
val acc = MakeTextVec.make val acc =
(155, 95, width, height, "Right key", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 95, width, height, "Right key", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 95, width, height, "Right key", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc) (155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
@@ -76,8 +81,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc) (155, 95, width, height, "Right key", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 155, width, height, "Up key", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 155, width, height, "Up key", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 155, width, height, "Up key", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc) (155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
@@ -108,8 +118,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc) (155, 155, width, height, "Up key", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 215, width, height, "Down key", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 215, width, height, "Down key", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 215, width, height, "Down key", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc) (155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
@@ -140,8 +155,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc) (155, 215, width, height, "Down key", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 275, width, height, "Jump key", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 275, width, height, "Jump key", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 275, width, height, "Jump key", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc) (155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
@@ -172,8 +192,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc) (155, 275, width, height, "Jump key", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 335, width, height, "Attack key", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 335, width, height, "Attack key", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 335, width, height, "Attack key", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc) (155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
@@ -204,8 +229,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc) (155, 335, width, height, "Attack key", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 395, width, height, "Save changes", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 395, width, height, "Save changes", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 395, width, height, "Save changes", 0.3, 0.3, 0.7, acc)
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc) (155, 455, width, height, "Cancel changes", 0.0, 0.0, 0.0, acc)
@@ -236,8 +266,13 @@ struct
val acc = MakeTextVec.make val acc = MakeTextVec.make
(155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc) (155, 395, width, height, "Save changes", 0.0, 0.0, 0.0, acc)
val acc = MakeTextVec.make val acc =
(155, 455, width, height, "Cancel changes", 0.3, 0.3, 0.7, acc) if #isSelected options then
MakeTextVec.make
(155, 455, width, height, "Cancel changes", 0.7, 0.7, 0.3, acc)
else
MakeTextVec.make
(155, 455, width, height, "Cancel changes", 0.3, 0.3, 0.7, acc)
in in
Vector.concat acc Vector.concat acc
end end