steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update gesture-logger for new_ui

db4
Slava Pestov 2009-03-05 13:38:32 -06:00
parent 613a0b4f82
commit f50e6eef2a
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/gesture-logger/gesture-logger.factor
View File

@ -1,17 +1,16 @@
! Copyright (C) 2007, 2008 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel prettyprint ui ui.gadgets USING: accessors io kernel prettyprint colors.constants ui ui.gadgets
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.theme ui.gadgets.panes ui.gadgets.scrollers ui.gestures ui.pens.solid ;
ui.gestures colors ;
IN: gesture-logger IN: gesture-logger
TUPLE: gesture-logger < gadget stream ; TUPLE: gesture-logger < gadget stream ;
: <gesture-logger> ( stream -- gadget ) : <gesture-logger> ( stream -- gadget )
\ gesture-logger new-gadget \ gesture-logger new
swap >>stream swap >>stream
{ 100 100 } >>dim { 100 100 } >>dim
black solid-interior ; COLOR: black <solid> >>interior ;
M: gesture-logger handle-gesture M: gesture-logger handle-gesture
over T{ button-down } = [ dup request-focus ] when over T{ button-down } = [ dup request-focus ] when