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

change integer layer field when 'l' is pressed

Browse Source
This commit is contained in:
Humza Shahid
2025-08-09 08:36:14 +01:00
parent 8715879ceb
commit 6cd2b85d8b
4 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

6
fcore/normal-mode.sml
View File

@@ -226,10 +226,13 @@ struct
fun updateNum (model: app_type, newNum) = fun updateNum (model: app_type, newNum) =
(AppWith.modalNum (model, newNum), []) (AppWith.modalNum (model, newNum), [])
fun clearNum model = updateNum (model, 0)
fun updateRed model = (AppWith.r model, []) fun updateRed model = (AppWith.r model, [])
fun updateGreen model = (AppWith.g model, []) fun updateGreen model = (AppWith.g model, [])
fun updateBlue model = (AppWith.b model, []) fun updateBlue model = (AppWith.b model, [])
fun updateAlpha model = (AppWith.a model, []) fun updateAlpha model = (AppWith.a model, [])
fun changeLayer model = (AppWith.layer model, [])
fun selectCursorColour (model: app_type) = fun selectCursorColour (model: app_type) =
let let
@@ -333,10 +336,12 @@ struct
| MOUSE_LEFT_RELEASE => mouseMoveOrRelease model | MOUSE_LEFT_RELEASE => mouseMoveOrRelease model
| MOUSE_LEFT_CLICK => mouseLeftClick model | MOUSE_LEFT_CLICK => mouseLeftClick model
| NUM num => updateNum (model, num) | NUM num => updateNum (model, num)
| KEY_ESC => clearNum model
| KEY_R => updateRed model | KEY_R => updateRed model
| KEY_G => updateGreen model | KEY_G => updateGreen model
| KEY_B => updateBlue model | KEY_B => updateBlue model
| KEY_A => updateAlpha model | KEY_A => updateAlpha model
| KEY_L => changeLayer model
| KEY_C => selectCursorColour model | KEY_C => selectCursorColour model
| KEY_W => updateCanvasWidth model | KEY_W => updateCanvasWidth model
| KEY_H => updateCanvasHeight model | KEY_H => updateCanvasHeight model
@@ -362,5 +367,4 @@ struct
| KEY_SPACE => enterOrSpaceCoordinates model | KEY_SPACE => enterOrSpaceCoordinates model
| FILE_BROWSER_AND_PATH {fileBrowser, path} => | FILE_BROWSER_AND_PATH {fileBrowser, path} =>
handleFileBrowserAndPathInNormalMode (model, fileBrowser, path) handleFileBrowserAndPathInNormalMode (model, fileBrowser, path)
| KEY_ESC => (model, [])
end end

6
imperative-shell/input-callbacks.sml
View File

@@ -58,13 +58,17 @@ struct
key = Input.KEY_S () andalso action = Input.PRESS () andalso mods = 0x002 key = Input.KEY_S () andalso action = Input.PRESS () andalso mods = 0x002
then then
Mailbox.send (mailbox, KEY_CTRL_S) Mailbox.send (mailbox, KEY_CTRL_S)
else if
key = Input.KEY_L () andalso action = Input.PRESS () andalso mods = 0
then
Mailbox.send (mailbox, KEY_L)
else if else if
(* ctrl-l *) (* ctrl-l *)
key = Input.KEY_L () andalso action = Input.PRESS () andalso mods = 0x002 key = Input.KEY_L () andalso action = Input.PRESS () andalso mods = 0x002
then then
Mailbox.send (mailbox, KEY_CTRL_L) Mailbox.send (mailbox, KEY_CTRL_L)
else if else if
(* ctrl-l *) (* ctrl-e *)
key = Input.KEY_E () andalso action = Input.PRESS () andalso mods = 0x002 key = Input.KEY_E () andalso action = Input.PRESS () andalso mods = 0x002
then then
Mailbox.send (mailbox, KEY_CTRL_E) Mailbox.send (mailbox, KEY_CTRL_E)

1
message-types/input-msg.sml
View File

@@ -16,6 +16,7 @@ struct
| KEY_H | KEY_H
| KEY_M | KEY_M
| KEY_C | KEY_C
| KEY_L
| KEY_BACKSPACE | KEY_BACKSPACE
| KEY_CTRL_S | KEY_CTRL_S
| KEY_CTRL_L | KEY_CTRL_L