new accessors
parent
4c2cd48d9a
commit
09cce11af7
|
@ -19,7 +19,7 @@ M: gesture-logger handle-gesture
|
||||||
t ;
|
t ;
|
||||||
|
|
||||||
M: gesture-logger user-input*
|
M: gesture-logger user-input*
|
||||||
gesture-logger-stream [
|
stream>> [
|
||||||
"User input: " write print
|
"User input: " write print
|
||||||
] with-output-stream* t ;
|
] with-output-stream* t ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue