ui.tools.browser: adding +/- font size commands.

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index 69526cdbfa932da5c048028340d711f9b3abc801..446180cb26699e638c594d2cb9a388c4c1b7840a 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -2,8 +2,8 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors arrays assocs classes combinators
 combinators.short-circuit compiler.units debugger fry help
-help.apropos help.crossref help.home help.topics kernel models
-sequences ui ui.commands ui.gadgets ui.gadgets.borders
+help.apropos help.crossref help.home help.topics help.stylesheet
+kernel models sequences ui ui.commands ui.gadgets ui.gadgets.borders
 ui.gadgets.buttons ui.gadgets.editors ui.gadgets.glass
 ui.gadgets.labels ui.gadgets.panes ui.gadgets.scrollers
 ui.gadgets.status-bar ui.gadgets.tracks ui.gadgets.viewports
@@ -168,4 +168,15 @@ browser-gadget "scrolling"
     { T{ key-down f f "PAGE_DOWN" } com-page-down }
 } define-command-map
 
+: com-font-size-plus ( browser -- )
+    2 adjust-help-font-size model>> notify-connections ;
+
+: com-font-size-minus ( listener -- )
+    -2 adjust-help-font-size model>> notify-connections ;
+
+browser-gadget "fonts" f {
+    { T{ key-down f { A+ } "=" } com-font-size-plus }
+    { T{ key-down f { A+ } "-" } com-font-size-minus }
+} define-command-map
+
 MAIN: browser-window