ui: fix bootstrap for show-active-buttons-popup

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index 461ee21b5c7feb8bf8955aef960e0bb4977138cc..65d567afeef7ddbc9316a4d2c65cdb7eb24d7c1e 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -217,7 +217,6 @@ browser-gadget "navigation" "Commands for navigating in the article hierarchy" {
     { T{ key-down f ${ os macosx? M+ A+ ? } "k" } com-show-outgoing-links }
     { T{ key-down f ${ os macosx? M+ A+ ? } "K" } com-show-incoming-links }
     { T{ key-down f ${ os macosx? M+ A+ ? } "f" } browser-focus-search }
-    { T{ key-down f ${ os macosx? C+ A+ ? } "t" } com-show-active-buttons }
 } os macosx? [ {
     { T{ key-down f { M+ } "[" } com-back }
     { T{ key-down f { M+ } "]" } com-forward }

diff --git a/basis/ui/tools/button-list/button-list.factor b/basis/ui/tools/button-list/button-list.factor
index bbf68cb274f64a1fa477af62300b7a8d09351003..b0029e5b749ab2fb76d09cb1ffb4937f2a9a49c1 100644 (file)
--- a/basis/ui/tools/button-list/button-list.factor
+++ b/basis/ui/tools/button-list/button-list.factor
@@ -53,4 +53,3 @@ button-list-popup H{
 : show-active-buttons-popup ( tool -- )
     active-buttons get <model> "Active Buttons" <active-buttons-popup>
     [ hand-loc get-global point>rect show-glass ] [ request-focus ] bi ; inline
-

diff --git a/basis/ui/tools/common/common-docs.factor b/basis/ui/tools/common/common-docs.factor
index 9bd62e028118f28846d2e4183b052aedf9be17dc..3128e81de7ac771b8d1a26dae59503824aa947ac 100644 (file)
--- a/basis/ui/tools/common/common-docs.factor
+++ b/basis/ui/tools/common/common-docs.factor
@@ -8,6 +8,3 @@ HELP: set-tool-dim
 HELP: with-lines
 { $values { "track" gadget } }
 { $description "Lines are added to the track gadget to visually demarcate its children." } ;
-
-HELP: com-show-active-buttons
-{ $description "Mapped to a keyboard gesture to execute " { $link show-active-buttons-popup } "." } ;

diff --git a/basis/ui/tools/common/common.factor b/basis/ui/tools/common/common.factor
index 398e154f03c11a848c98f03c515c6698234b3d9d..50f147889cfcd7aee256e645159679399de8f588 100644 (file)
--- a/basis/ui/tools/common/common.factor
+++ b/basis/ui/tools/common/common.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors classes combinators.short-circuit kernel ui
 ui.gadgets ui.gadgets.borders ui.gadgets.scrollers
-ui.gadgets.tracks ui.pens.solid ui.theme ui.tools.button-list words ;
+ui.gadgets.tracks ui.pens.solid ui.theme words ;
 
 IN: ui.tools.common
 
@@ -48,6 +48,3 @@ SLOT: scroller
 
 : white-interior ( track -- track )
     content-background <solid> >>interior ;
-
-: com-show-active-buttons ( tool -- )
-    show-active-buttons-popup ;

diff --git a/basis/ui/tools/tools.factor b/basis/ui/tools/tools.factor
index 8a69436074eb6b2fc7e392d0b432415a3f811bd5..b4c21800d56007d92f9c3306151a96c85ae92a3a 100644 (file)
--- a/basis/ui/tools/tools.factor
+++ b/basis/ui/tools/tools.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel literals memory namespaces sequences system
 tools.test ui ui.backend ui.commands ui.gestures ui.tools.browser
-ui.tools.common ui.tools.error-list ui.tools.listener
-vocabs.refresh ;
+ui.tools.button-list ui.tools.common ui.tools.error-list
+ui.tools.listener vocabs.refresh ;
 IN: ui.tools
 
 \ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command
@@ -23,7 +23,7 @@ tool "tool-switching" f {
 } define-command-map
 
 tool "common" f {
-    { T{ key-down f ${ os macosx? M+ A+ ? } "t" } com-show-active-buttons }
+    { T{ key-down f ${ os macosx? M+ A+ ? } "t" } show-active-buttons-popup }
     { T{ key-down f ${ os macosx? M+ C+ ? } "w" } close-window }
     { T{ key-down f ${ os macosx? M+ C+ ? } "q" } com-exit }
     { T{ key-down f f "F2" } refresh-all }