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

ui.tools: setting the initial tool dim as a multiple of the default font

modern-harvey2
Björn Lindqvist 2017-06-28 14:25:38 +02:00
parent 0100d22809
commit 522eb559e4
4 changed files with 29 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
basis/ui/tools/browser/browser.factor
View File

@ -1,22 +1,20 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 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 classes colors.constants USING: accessors arrays assocs classes combinators
combinators combinators.short-circuit compiler.units debugger combinators.short-circuit compiler.units debugger fonts fry help
documents fry help help.apropos help.crossref help.home help.apropos help.crossref help.home help.markup help.stylesheet
help.markup help.stylesheet help.topics io.styles kernel locals help.topics io.styles kernel locals make math.vectors models
make models namespaces sequences sets ui ui.commands ui.gadgets namespaces sequences sets ui ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.borders ui.gadgets.editors ui.gadgets.editors.private ui.gadgets.editors ui.gadgets.glass ui.gadgets.panes
ui.gadgets.glass ui.gadgets.labels ui.gadgets.labels.private ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.toolbar
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.tracks ui.gadgets.viewports ui.gadgets.worlds ui.gestures
ui.theme ui.gadgets.toolbar ui.gadgets.tracks ui.pens.solid ui.theme ui.tools.browser.history
ui.gadgets.viewports ui.gadgets.worlds ui.gestures ui.pens.solid ui.tools.browser.popups ui.tools.common unicode vocabs ;
ui.render ui.text ui.theme.images ui.tools.common
ui.tools.browser.history ui.tools.browser.popups unicode vocabs ;
IN: ui.tools.browser IN: ui.tools.browser
TUPLE: browser-gadget < tool history scroller search-field popup ; TUPLE: browser-gadget < tool history scroller search-field popup ;
browser-gadget { 650 700 } set-tool-dim browser-gadget default-font-size { 54 58 } n*v set-tool-dim
M: browser-gadget history-value M: browser-gadget history-value
[ control-value ] [ scroller>> scroll-position ] [ control-value ] [ scroller>> scroll-position ]

2
basis/ui/tools/inspector/inspector.factor
View File

@ -153,4 +153,4 @@ inspector-gadget "multi-touch" f {
: inspector ( obj -- ) : inspector ( obj -- )
<model> inspect-model ; <model> inspect-model ;
inspector-gadget { 550 400 } set-tool-dim inspector-gadget default-font-size { 46 33 } n*v set-tool-dim

23
basis/ui/tools/listener/listener.factor
View File

@ -1,17 +1,16 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs calendar combinators USING: accessors arrays assocs calendar combinators
combinators.short-circuit concurrency.flags combinators.short-circuit concurrency.flags concurrency.mailboxes
concurrency.mailboxes continuations destructors documents continuations destructors documents documents.elements fonts fry
documents.elements fonts fry hashtables help help.markup hashtables help help.markup help.tips io io.styles kernel lexer
help.tips io io.styles kernel lexer listener literals locals listener literals locals math math.vectors models models.arrow
math models models.arrow models.delay namespaces parser models.delay namespaces parser prettyprint sequences
prettyprint sequences source-files.errors strings system threads source-files.errors strings system threads tools.errors.model ui
tools.errors.model ui ui.commands ui.gadgets ui.gadgets.editors ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.glass
ui.gadgets.glass ui.gadgets.labeled ui.gadgets.panes ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.scrollers ui.gadgets.status-bar ui.theme ui.gadgets.status-bar ui.gadgets.toolbar ui.gadgets.tracks ui.gestures
ui.gadgets.toolbar ui.gadgets.tracks ui.gestures ui.operations ui.operations ui.pens.solid ui.theme ui.tools.browser ui.tools.common
ui.pens.solid ui.theme.images ui.tools.browser ui.tools.common
ui.tools.debugger ui.tools.error-list ui.tools.listener.completion ui.tools.debugger ui.tools.error-list ui.tools.listener.completion
ui.tools.listener.history ui.tools.listener.popups vocabs ui.tools.listener.history ui.tools.listener.popups vocabs
vocabs.loader vocabs.parser vocabs.refresh words ; vocabs.loader vocabs.parser vocabs.refresh words ;
@ -192,7 +191,7 @@ M: interactor dispose drop ;
TUPLE: listener-gadget < tool error-summary output scroller input ; TUPLE: listener-gadget < tool error-summary output scroller input ;
listener-gadget { 600 700 } set-tool-dim listener-gadget default-font-size { 50 58 } n*v set-tool-dim
: listener-streams ( listener -- input output ) : listener-streams ( listener -- input output )
[ input>> ] [ output>> <pane-stream> ] bi ; [ input>> ] [ output>> <pane-stream> ] bi ;

13
extra/gopher/ui/ui.factor
View File

@ -1,19 +1,18 @@
! Copyright (C) 2014 John Benediktsson ! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors arrays debugger fry gopher gopher.private USING: accessors arrays debugger fonts fry gopher gopher.private
kernel models present sequences ui ui.commands ui.gadgets kernel math.vectors models present sequences ui ui.commands ui.gadgets
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.editors ui.gadgets.editors ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.status-bar ui.gadgets.toolbar ui.gadgets.tracks
ui.gadgets.toolbar ui.gadgets.tracks ui.gadgets.viewports ui.gadgets.viewports ui.gestures ui.operations ui.tools.browser
ui.gestures ui.operations ui.tools.browser
ui.tools.browser.history ui.tools.common urls ; ui.tools.browser.history ui.tools.common urls ;
IN: gopher.ui IN: gopher.ui
TUPLE: gopher-gadget < tool history scroller url-field ; TUPLE: gopher-gadget < tool history scroller url-field ;
gopher-gadget { 600 600 } set-tool-dim gopher-gadget default-font-size { 50 50 } n*v set-tool-dim
M: gopher-gadget history-value M: gopher-gadget history-value
[ control-value ] [ scroller>> scroll-position ] [ control-value ] [ scroller>> scroll-position ]