Fix documentation typos

diff --git a/apps/benchmarks/help.factor b/apps/benchmarks/help.factor
index 858b4976391df2c623bb84ab8a54b65d7af53173..1ed70b85d7cf89b6fe04e262dbfdead41f7bf80f 100644 (file)
--- a/apps/benchmarks/help.factor
+++ b/apps/benchmarks/help.factor
@@ -1,5 +1,5 @@
 USING: gadgets-panes hashtables help io kernel namespaces
-prettyprint sequences test threads words ;
+prettyprint sequences errors threads words test ;
 
 [
     all-articles [

diff --git a/core/handbook/load.factor b/core/handbook/load.factor
index 02542a44ea31e430cdf776e0b929afc8cc83d311..e8f5914c36602a0d4bda6b59d4a7eeaf6b226655 100644 (file)
--- a/core/handbook/load.factor
+++ b/core/handbook/load.factor
@@ -23,4 +23,5 @@ PROVIDE: core/handbook
     "tools.facts"
     "words.facts"
     "ui/tools.facts"
+    "ui/ui.facts"
 } } ;

diff --git a/core/handbook/ui/tools.facts b/core/handbook/ui/tools.facts
index e82113cb65e244ee9e7bc48a94503fd07305f03b..e21d81e161e00bd02a06daf46c3dde80052f7321 100644 (file)
--- a/core/handbook/ui/tools.facts
+++ b/core/handbook/ui/tools.facts
@@ -90,7 +90,7 @@ ARTICLE: "ui-completion-words" "Word completion popup"
 { $operations word compound } ;
 
 ARTICLE: "ui-completion-vocabs" "Vocabulary completion popup"
-"Clicking a vocabulary in the vocabulary completion popup displays a list of words in the vocabulary in another " { $link "ui-completion-word" } ". Pressing " { $snippet "RETURN" } " adds the vocabulary to the current search path, just as if you invoked " { $link POSTPONE: USE: } "."
+"Clicking a vocabulary in the vocabulary completion popup displays a list of words in the vocabulary in another " { $link "ui-completion-words" } ". Pressing " { $snippet "RETURN" } " adds the vocabulary to the current search path, just as if you invoked " { $link POSTPONE: USE: } "."
 { $operations vocab-link } ;
 
 ARTICLE: "ui-completion-modules" "Module completion popup"

diff --git a/core/handbook/ui/ui.facts b/core/handbook/ui/ui.facts
new file mode 100644 (file)
index 0000000..a7bb8ac
--- /dev/null
+++ b/core/handbook/ui/ui.facts
@@ -0,0 +1,7 @@
+ARTICLE: "models" "Models" ;
+
+ARTICLE: "clipboard-protocol" "Clipboard protocol" ;
+
+ARTICLE: "timers" "Timers" ;
+
+ARTICLE: "keyboard-gestures" "Keyboard gestures" ;

diff --git a/core/ui/gadgets/frames.facts b/core/ui/gadgets/frames.facts
index 38f39f443feef85bb595402b5be0be65bf4d6a9c..44a7b24f20ffb49af74c005b3769d99b6128e419 100644 (file)
--- a/core/ui/gadgets/frames.facts
+++ b/core/ui/gadgets/frames.facts
@@ -1,7 +1,8 @@
 IN: help
 USING: gadgets kernel arrays ;
 
-: $ui-frame-constant
+: $ui-frame-constant ( element -- )
+    drop
     { $description "Symbolic constant for a common input to " { $link grid-add } "." } print-element ;
 
 IN: gadgets

diff --git a/core/ui/gadgets/grids.facts b/core/ui/gadgets/grids.facts
index 51cadaf33a33ab6431d3ed2001c8b4c2e31afc62..d465d89ac8df1af377b943e0162ae952ecddd8d8 100644 (file)
--- a/core/ui/gadgets/grids.facts
+++ b/core/ui/gadgets/grids.facts
@@ -33,7 +33,7 @@ HELP: build-grid
 { $description "Constructs gadgets and adds them to the grid by interpreting " { $snippet "spec" } ", which is an array of quadruples of the form " { $snippet "{ quot setter post loc }" } ". The quadruples break down as follows:"
     { $list
         { { $snippet "quot" } " - a quotation which pushes a new gadget on the stack. The quotation is permitted to consume values from the stack, and it is up to the caller of " { $link build-grid } " to prove the correct amount." }
-        { { $snippet "setter" } " - a word with stack effect " { $link "( gadget grid -- )" } ". If " { $snippet "grid" } " is a tuple delegating to a " { $link grid } ", this can be used to store the new gadget in a tuple slot." }
+        { { $snippet "setter" } " - a word with stack effect " { $snippet "( gadget grid -- )" } ". If " { $snippet "grid" } " is a tuple delegating to a " { $link grid } ", this can be used to store the new gadget in a tuple slot." }
         { { $snippet "post" } " - a quotation with stack effect " { $snippet "( gadget -- newgadget )" } ", applied to the gadget before it is added to the grid" }
         { { $snippet "loc" } " - a word with stack effect " { $snippet "( -- i j )" } " which pushes the grid location where to add the new gadget, for example " { $link @center } "." }
     }

diff --git a/core/ui/gadgets/tracks.facts b/core/ui/gadgets/tracks.facts
index 4e3d766b8ab16bd74db970ef5c5203dd121c853c..4b397f54cb7a7c439cb303c86d502b5767a873e2 100644 (file)
--- a/core/ui/gadgets/tracks.facts
+++ b/core/ui/gadgets/tracks.facts
@@ -1,5 +1,5 @@
 IN: gadgets-tracks
-USING: help gadgets ;
+USING: help gadgets arrays kernel ;
 
 HELP: track
 { $class-description "A track is like a " { $link pack } " except each child is resized to a fixed multiple of the track's dimension in the direction of " { $link gadget-orientation } ". Tracks are created by calling " { $link <track> } "." }
@@ -10,7 +10,7 @@ HELP: build-track
 { $description "Constructs gadgets and adds them to the track by interpreting " { $snippet "spec" } ", which is an array of quadruples of the form " { $snippet "{ quot setter post ratio }" } ". The quadruples break down as follows:"
     { $list
         { { $snippet "quot" } " - a quotation which pushes a new gadget on the stack. The quotation is permitted to consume values from the stack, and it is up to the caller of " { $link build-grid } " to prove the correct amount." }
-        { { $snippet "setter" } " - a word with stack effect " { $link "( gadget grid -- )" } ". If " { $snippet "track" } " is a tuple delegating to a " { $link track } ", this can be used to store the new gadget in a tuple slot." }
+        { { $snippet "setter" } " - a word with stack effect " { $snippet "( gadget grid -- )" } ". If " { $snippet "track" } " is a tuple delegating to a " { $link track } ", this can be used to store the new gadget in a tuple slot." }
         { { $snippet "post" } " - a quotation with stack effect " { $snippet "( gadget -- newgadget )" } ", applied to the gadget before it is added to the grid" }
         { { $snippet "ratio" } " - a rational number between 0 and 1 which determines the space allocation received by the child." }
     }

diff --git a/core/ui/gadgets/viewports.facts b/core/ui/gadgets/viewports.facts
index 8748e4d0322e480bee5105e29fed84b2c00a185c..20ccca7ea806b3c20d236531946d6746a8cb91d6 100644 (file)
--- a/core/ui/gadgets/viewports.facts
+++ b/core/ui/gadgets/viewports.facts
@@ -1,5 +1,5 @@
 IN: gadgets-viewports
-USING: help gadgets ;
+USING: help gadgets gadgets-scrolling models ;
 
 HELP: viewport
 { $class-description "A viewport is a " { $link control } " which positions a child gadget translated by the " { $link control-value } " vector. Viewports are used in the implementation of " { $link scroller } " gadgets and can be created directly by calling " { $link <viewport> } "." } ;