extra/gesture-logger/gesture-logger.factor

   1 ! Copyright (C) 2007 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: io kernel prettyprint ui ui.gadgets ui.gadgets.panes
   4 ui.gadgets.scrollers ui.gadgets.theme ui.gestures colors ;
   5 IN: gesture-logger
   6
   7 TUPLE: gesture-logger stream ;
   8
   9 : <gesture-logger> ( stream -- gadget )
  10     \ gesture-logger construct-gadget
  11     [ set-gesture-logger-stream ] keep
  12     { 100 100 } over set-rect-dim
  13     dup black solid-interior ;
  14
  15 M: gesture-logger handle-gesture*
  16     drop
  17     dup T{ button-down } = [ over request-focus ] when
  18     swap gesture-logger-stream [ . ] with-stream*
  19     t ;
  20
  21 M: gesture-logger user-input*
  22     gesture-logger-stream [
  23         "User input: " write print
  24     ] with-stream* t ;
  25
  26 : gesture-logger ( -- )
  27     [
  28         <scrolling-pane> dup <scroller>
  29         "Gesture log" open-window
  30         <pane-stream> <gesture-logger>
  31         "Gesture input" open-window
  32     ] with-ui ;
  33
  34 MAIN: gesture-logger