: com-show-incoming-links ( browser-gadget -- )
[ usage ] "Incoming links" show-links-popup ;
-
HELP: show-active-buttons-popup
{ $description "Displays a popup window for fuzzy selection of any labeled button in any window of the session." } ;
-HELP: com-show-active-buttons
-{ $description "Mapped to a keyboard gesture to execute " { $link show-active-buttons-popup } "." } ;
TUPLE: button-list-popup < wrapper ;
MIXIN: clickable
+INSTANCE: button clickable
SYMBOL: active-buttons
active-buttons [ H{ } ] initialize
M: clickable graft* [ store-labelled-button drop ] [ call-next-method ] bi ;
M: button ungraft* [ remove-labelled-button drop ] [ call-next-method ] bi ;
-INSTANCE: button clickable
-
: <active-buttons-table> ( model -- table )
[ keys [ ">" swap 2array ] map ] <arrow> trivial-renderer [ second ] <search-table>
dup table>>
-USING: classes help.markup help.syntax sequences ui.gadgets ;
+USING: classes help.markup help.syntax sequences ui.gadgets ui.tools.button-list ;
IN: ui.tools.common
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 } "." } ;
! Copyright (C) 2006, 2009 Slava Pestov.
! 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
+tools.test ui ui.backend ui.commands ui.gestures ui.tools.browser
ui.tools.common ui.tools.error-list ui.tools.listener
vocabs.refresh ;
IN: ui.tools