From bb2453de0d705e96e4964797cd7bcf62998a6642 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 12 Apr 2008 18:06:01 -0500
Subject: [PATCH] Document multi-touch gestures

---
 extra/ui/gestures/gestures.factor | 12 ++++++++++++
 extra/ui/tools/tools-docs.factor  |  8 ++++++--
 2 files changed, 18 insertions(+), 2 deletions(-)

diff --git a/extra/ui/gestures/gestures.factor b/extra/ui/gestures/gestures.factor
index 195bf42f6e..2eb165c186 100755
--- a/extra/ui/gestures/gestures.factor
+++ b/extra/ui/gestures/gestures.factor
@@ -281,4 +281,16 @@ M: button-down gesture>string
         button-down-# [ " " % # ] when*
     ] "" make ;
 
+M: left-action gesture>string drop "Swipe left" ;
+
+M: right-action gesture>string drop "Swipe right" ;
+
+M: up-action gesture>string drop "Swipe up" ;
+
+M: down-action gesture>string drop "Swipe down" ;
+
+M: zoom-in-action gesture>string drop "Zoom in" ;
+
+M: zoom-out-action gesture>string drop "Zoom out (pinch)" ;
+
 M: object gesture>string drop f ;
diff --git a/extra/ui/tools/tools-docs.factor b/extra/ui/tools/tools-docs.factor
index 57ad16bf70..4a8e1ddf4a 100755
--- a/extra/ui/tools/tools-docs.factor
+++ b/extra/ui/tools/tools-docs.factor
@@ -2,8 +2,9 @@ USING: editors help.markup help.syntax inspector io listener
 parser prettyprint tools.profiler tools.walker ui.commands
 ui.gadgets.editors ui.gadgets.panes ui.gadgets.presentations
 ui.gadgets.slots ui.operations ui.tools.browser
-ui.tools.interactor ui.tools.listener ui.tools.operations
-ui.tools.profiler ui.tools.walker ui.tools.workspace vocabs ;
+ui.tools.interactor ui.tools.inspector ui.tools.listener
+ui.tools.operations ui.tools.profiler ui.tools.walker
+ui.tools.workspace vocabs ;
 IN: ui.tools
 
 ARTICLE: "ui-presentations" "Presentations in the UI"
@@ -46,12 +47,14 @@ $nl
 $nl
 "The slot editor has a toolbar containing various commands."
 { $command-map slot-editor "toolbar" }
+{ $command-map inspector-gadget "multi-touch" }
 "The following commands are also available."
 { $command-map source-editor "word" } ;
 
 ARTICLE: "ui-browser" "UI browser"
 "The browser is used to display Factor code, documentation, and vocabularies."
 { $command-map browser-gadget "toolbar" }
+{ $command-map browser-gadget "multi-touch" }
 "Browsers are instances of " { $link browser-gadget } "." ;
 
 ARTICLE: "ui-profiler" "UI profiler" 
@@ -110,6 +113,7 @@ ARTICLE: "ui-workspace-keys" "UI keyboard shortcuts"
 { $command-map workspace "tool-switching" }
 { $command-map workspace "scrolling" }
 { $command-map workspace "workflow" }
+{ $command-map workspace "multi-touch" }
 { $heading "Implementation" }
 "Workspaces are instances of " { $link workspace } "." ;