Update gesture-logger for new_ui

diff --git a/extra/gesture-logger/gesture-logger.factor b/extra/gesture-logger/gesture-logger.factor
index faf7056d0270d3a16acfd8e95c222134aec792ce..e03204dc356f0cae5143f97e2b376b6ed0eb92e3 100644 (file)
--- a/extra/gesture-logger/gesture-logger.factor
+++ b/extra/gesture-logger/gesture-logger.factor
@@ -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.
-USING: accessors io kernel prettyprint ui ui.gadgets
-ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.theme
-ui.gestures colors ;
+USING: accessors io kernel prettyprint colors.constants ui ui.gadgets
+ui.gadgets.panes ui.gadgets.scrollers ui.gestures ui.pens.solid ;
 IN: gesture-logger
 
 TUPLE: gesture-logger < gadget stream ;
 
 : <gesture-logger> ( stream -- gadget )
-    \ gesture-logger new-gadget
+    \ gesture-logger new
     swap >>stream
     { 100 100 } >>dim
-    black solid-interior ;
+    COLOR: black <solid> >>interior ;
 
 M: gesture-logger handle-gesture
     over T{ button-down } = [ dup request-focus ] when