ui.gestures: clean docs for $slots.

diff --git a/basis/ui/gestures/gestures-docs.factor b/basis/ui/gestures/gestures-docs.factor
index 803838468cffe2d11adb24bec73e21db6513d5d8..ed8ef8d3332d339bc47415bceb32785035deca60 100644 (file)
--- a/basis/ui/gestures/gestures-docs.factor
+++ b/basis/ui/gestures/gestures-docs.factor
@@ -41,18 +41,18 @@ HELP: drag
 
 HELP: button-up
 { $class-description "Mouse button up gesture. Instances have two slots:"
-    { $list
-        { { $snippet "mods" } " - a sequence of modifiers; see " { $link "keyboard-gestures" } }
-        { { $snippet "#" } " - a mouse button number, or " { $link f } " indicating no specific button is expected" }
+    { $slots
+        { "mods" { "a sequence of modifiers; see " { $link "keyboard-gestures" } } }
+        { "#" { "a mouse button number, or " { $link f } " indicating no specific button is expected" } }
     }
 }
 { $examples { $code "T{ button-up f f 1 }" "T{ button-up }" } } ;
 
 HELP: button-down
 { $class-description "Mouse button down gesture. Instances have two slots:"
-    { $list
-        { { $snippet "mods" } " - a sequence of modifiers; see " { $link "keyboard-gestures" } }
-        { { $snippet "#" } " - a mouse button number, or " { $link f } " indicating no specific button is expected" }
+    { $slots
+        { "mods" { "a sequence of modifiers; see " { $link "keyboard-gestures" } } }
+        { "#" { "a mouse button number, or " { $link f } " indicating no specific button is expected" } }
     }
 }
 { $examples { $code "T{ button-down f f 1 }" "T{ button-down }" } } ;
@@ -135,18 +135,18 @@ HELP: S+
 
 HELP: key-down
 { $class-description "Key down gesture. Instances have two slots:"
-    { $list
-        { { $snippet "mods" } " - a sequence of modifiers; see " { $link "keyboard-gestures" } }
-    { { $snippet "sym" } " - a string denoting the key pressed; see " { $link "keyboard-gestures" } }
+    { $slots
+        { "mods" { "a sequence of modifiers; see " { $link "keyboard-gestures" } } }
+        { "sym" { "a string denoting the key pressed; see " { $link "keyboard-gestures" } } }
     }
 }
 { $examples { $code "T{ key-down f { C+ } \"a\" }" "T{ key-down f f \"TAB\" }" } } ;
 
 HELP: key-up
 { $class-description "Key up gesture. Instances have two slots:"
-    { $list
-        { { $snippet "mods" } " - a sequence of modifiers; see " { $link "keyboard-gestures" } }
-    { { $snippet "sym" } " - a string denoting the key pressed; see " { $link "keyboard-gestures" } }
+    { $slots
+        { "mods" { "a sequence of modifiers; see " { $link "keyboard-gestures" } } }
+    { "sym" { "a string denoting the key pressed; see " { $link "keyboard-gestures" } } }
     }
 }
 { $examples { $code "T{ key-up f { C+ } \"a\" }" "T{ key-up f f \"TAB\" }" } } ;