steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui: use (poorly named) white-interior theme word in a few places.

factor-shell
John Benediktsson 2017-10-25 13:57:35 -07:00
parent 10d5d471fe
commit 5b4339e429
3 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/labeled/labeled.factor
View File

@ -60,7 +60,7 @@ PRIVATE>
vertical <track> vertical <track>
add-content add-content
{ 5 5 } <border> { 5 5 } <border>
content-background <solid> >>interior white-interior
1 track-add 1 track-add
labeled-border-color <solid> >>boundary labeled-border-color <solid> >>boundary
{ 3 3 } <border> ; { 3 3 } <border> ;

14
basis/ui/tools/browser/popups/popups.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs colors.constants USING: accessors arrays assocs definitions.icons fry help
definitions.icons fry help help.topics kernel math.rectangles help.topics kernel math.rectangles models.arrow namespaces
models.arrow namespaces sequences tools.crossref ui.gadgets sequences tools.crossref ui.gadgets ui.gadgets.glass
ui.gadgets.glass ui.gadgets.labeled ui.gadgets.search-tables ui.gadgets.labeled ui.gadgets.search-tables ui.gadgets.tables
ui.gadgets.tables ui.gadgets.wrappers ui.gestures ui.images ui.gadgets.wrappers ui.gestures ui.images ui.operations ui.theme
ui.operations ui.pens.solid ui.theme ui.theme.images ; ui.tools.common ;
FROM: ui.gadgets.wrappers => wrapper ; FROM: ui.gadgets.wrappers => wrapper ;
IN: ui.tools.browser.popups IN: ui.tools.browser.popups
@ -32,7 +32,7 @@ TUPLE: links-popup < wrapper ;
30 >>max-cols ; 30 >>max-cols ;
: <links-popup> ( model quot title -- gadget ) : <links-popup> ( model quot title -- gadget )
[ <links-table> content-background <solid> >>interior ] dip [ <links-table> white-interior ] dip
popup-color <labeled> links-popup new-wrapper ; popup-color <labeled> links-popup new-wrapper ;
links-popup H{ links-popup H{

2
basis/ui/tools/listener/completion/completion.factor
View File

@ -150,7 +150,7 @@ GENERIC#: accept-completion-hook 1 ( item popup -- )
dup '[ _ accept-completion ] >>action ; dup '[ _ accept-completion ] >>action ;
: <completion-scroller> ( completion-popup -- scroller ) : <completion-scroller> ( completion-popup -- scroller )
table>> <scroller> content-background <solid> >>interior ; table>> <scroller> white-interior ;
: <completion-popup> ( interactor completion-mode -- popup ) : <completion-popup> ( interactor completion-mode -- popup )
[ vertical completion-popup new-track ] 2dip [ vertical completion-popup new-track ] 2dip