From c26bf504ca8e7ff8b3f00c7b545991faea60f0e0 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 2 Sep 2008 12:35:24 -0500
Subject: [PATCH] new accessors

---
 extra/processing/gadget/gadget.factor | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/processing/gadget/gadget.factor b/extra/processing/gadget/gadget.factor
index c1a4c77703..0b3bb6dc01 100644
--- a/extra/processing/gadget/gadget.factor
+++ b/extra/processing/gadget/gadget.factor
@@ -32,7 +32,7 @@ M: processing-gadget handle-gesture ( gesture gadget -- ? )
      {
        [ dup key-down? ]
        [
-         key-down-sym key-value set
+         sym>> key-value set
          key-pressed-value on
          key-down>> dup [ call ] [ drop ] if
          t
@@ -49,7 +49,7 @@ M: processing-gadget handle-gesture ( gesture gadget -- ? )
      {
        [ dup button-down? ]
        [
-         button-down-# button-value set
+         #>> button-value set
          mouse-pressed-value on
          button-down>> dup [ call ] [ drop ] if
          t
@@ -66,4 +66,4 @@ M: processing-gadget handle-gesture ( gesture gadget -- ? )
      }
      { [ t ] [ 2drop t ] }
    }
-   cond ;
\ No newline at end of file
+   cond ;