new accessors

diff --git a/extra/processing/gadget/gadget.factor b/extra/processing/gadget/gadget.factor
index c1a4c77703d2932fed81b88d2e28aa888dde7f0b..0b3bb6dc01f9c7783124a1e703da688233c28e0a 100644 (file)
--- 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 ;