add function to check for key event

pull/8675/head
Matt Paras 2025-05-20 22:00:47 -07:00
parent 9f0501d060
commit 67c5a2a99b
1 changed files with 14 additions and 1 deletions

View File

@ -1354,6 +1354,19 @@ value : any?
"#
);
register!(
"key-event?",
|event: Event| { matches!(event, Event::Key(_)) },
r#"Checks if the given event is a key event.
```scheme
(key-event? event) -> bool?
```
* event : Event?
"#
);
register!(
"key-event-char",
|event: Event| {
@ -1382,7 +1395,7 @@ event : Event?
}
},
r#"
Get the key event modifier off of the evnet, if there is one.
Get the key event modifier off of the event, if there is one.
```scheme
(key-event-modifier event) -> (or int? #false)