From f3608deb6301df512e0aab8d6c0ab0ec1b803f8d Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 16 Aug 2015 12:58:38 -0700 Subject: [PATCH] ui.tools.browser: better to remove page-color than change it. --- basis/ui/tools/browser/browser.factor | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor index 13cdd8e61f..c86c97eb86 100644 --- a/basis/ui/tools/browser/browser.factor +++ b/basis/ui/tools/browser/browser.factor @@ -1,16 +1,16 @@ ! Copyright (C) 2006, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors arrays assocs classes combinators -combinators.short-circuit compiler.units debugger fry hashtables -help help.apropos help.crossref help.home help.markup -help.stylesheet help.topics io.styles kernel locals make models -namespaces sequences sets ui ui.commands ui.gadgets -ui.gadgets.borders ui.gadgets.editors ui.gadgets.glass -ui.gadgets.labels ui.gadgets.panes ui.gadgets.scrollers -ui.gadgets.status-bar ui.gadgets.theme ui.gadgets.toolbar -ui.gadgets.tracks ui.gadgets.viewports ui.gadgets.worlds -ui.gestures ui.pens.solid ui.tools.browser.history -ui.tools.browser.popups ui.tools.common vocabs ; +combinators.short-circuit compiler.units debugger fry help +help.apropos help.crossref help.home help.markup help.stylesheet +help.topics io.styles kernel locals make models namespaces +sequences sets ui ui.commands ui.gadgets ui.gadgets.borders +ui.gadgets.editors ui.gadgets.glass ui.gadgets.labels +ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar +ui.gadgets.theme ui.gadgets.toolbar ui.gadgets.tracks +ui.gadgets.viewports ui.gadgets.worlds ui.gestures ui.pens.solid +ui.tools.browser.history ui.tools.browser.popups ui.tools.common +vocabs ; IN: ui.tools.browser TUPLE: browser-gadget < tool history scroller search-field popup ; @@ -58,9 +58,7 @@ CONSTANT: next 1 ] with-style ; : $title ( topic -- ) - title-style get - help-header-background page-color associate - assoc-union dup + title-style get clone page-color over delete-at dup [ [ [ ($title) ]