.

2018-12-17 16:05:03 -05:00 · 2018-12-17 16:05:03 -05:00 · 34bc20d682
parent 32fbb0bf1d
commit 34bc20d682
1 changed files with 26 additions and 0 deletions
--- a/t/key.rkt
+++ b/t/key.rkt
@ -0,0 +1,26 @@
+#lang racket/base
+(require racket/list
+         racket/format
+         racket/match         
+         lux
+         raart)
+
+(define (key)
+  (define base (word #:fps 0.0 #:label "Key Debug" #:return (void)))
+
+  (define (show-key k)
+    (word base
+          #:output (text (~a k))
+          #:event
+          (match-lambda
+            ["q" #f]
+            [x (show-key x)])))
+
+  (show-key "Please enter a key."))
+
+(module+ main
+  (require raart/lux-chaos)
+  (call-with-chaos
+   (make-raart)
+   (λ ()
+     (fiat-lux (key)))))