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.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes colors.constants
combinators combinators.short-circuit compiler.units debugger
documents 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.editors.private
ui.gadgets.glass ui.gadgets.labels ui.gadgets.labels.private
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar
ui.theme ui.gadgets.toolbar ui.gadgets.tracks
ui.gadgets.viewports ui.gadgets.worlds ui.gestures ui.pens.solid
ui.render ui.text ui.theme.images ui.tools.common
ui.tools.browser.history ui.tools.browser.popups unicode vocabs ;
USING: accessors arrays assocs classes combinators
combinators.short-circuit compiler.units debugger fonts fry help
help.apropos help.crossref help.home help.markup help.stylesheet
help.topics io.styles kernel locals make math.vectors models
namespaces sequences sets ui ui.commands ui.gadgets ui.gadgets.borders
ui.gadgets.editors ui.gadgets.glass ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.toolbar
ui.gadgets.tracks ui.gadgets.viewports ui.gadgets.worlds ui.gestures
ui.pens.solid ui.theme ui.tools.browser.history
ui.tools.browser.popups ui.tools.common unicode vocabs ;
IN: ui.tools.browser
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
[ 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 -- )
<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.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs calendar combinators
combinators.short-circuit concurrency.flags
concurrency.mailboxes continuations destructors documents
documents.elements fonts fry hashtables help help.markup
help.tips io io.styles kernel lexer listener literals locals
math models models.arrow models.delay namespaces parser
prettyprint sequences source-files.errors strings system threads
tools.errors.model ui ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.glass ui.gadgets.labeled ui.gadgets.panes
ui.gadgets.scrollers ui.gadgets.status-bar ui.theme
ui.gadgets.toolbar ui.gadgets.tracks ui.gestures ui.operations
ui.pens.solid ui.theme.images ui.tools.browser ui.tools.common
combinators.short-circuit concurrency.flags concurrency.mailboxes
continuations destructors documents documents.elements fonts fry
hashtables help help.markup help.tips io io.styles kernel lexer
listener literals locals math math.vectors models models.arrow
models.delay namespaces parser prettyprint sequences
source-files.errors strings system threads tools.errors.model ui
ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.glass
ui.gadgets.labeled ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.status-bar ui.gadgets.toolbar ui.gadgets.tracks ui.gestures
ui.operations ui.pens.solid ui.theme ui.tools.browser ui.tools.common
ui.tools.debugger ui.tools.error-list ui.tools.listener.completion
ui.tools.listener.history ui.tools.listener.popups vocabs
vocabs.loader vocabs.parser vocabs.refresh words ;
@ -192,7 +191,7 @@ M: interactor dispose drop ;
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 )
[ input>> ] [ output>> <pane-stream> ] bi ;

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

@ -1,19 +1,18 @@
! Copyright (C) 2014 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: accessors arrays debugger fry gopher gopher.private
kernel models present sequences ui ui.commands ui.gadgets
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.editors
ui.gadgets.panes ui.gadgets.scrollers ui.gadgets.status-bar
ui.gadgets.toolbar ui.gadgets.tracks ui.gadgets.viewports
ui.gestures ui.operations ui.tools.browser
USING: accessors arrays debugger fonts fry gopher gopher.private
kernel math.vectors models present sequences ui ui.commands ui.gadgets
ui.gadgets.editors ui.gadgets.panes ui.gadgets.scrollers
ui.gadgets.status-bar ui.gadgets.toolbar ui.gadgets.tracks
ui.gadgets.viewports ui.gestures ui.operations ui.tools.browser
ui.tools.browser.history ui.tools.common urls ;
IN: gopher.ui
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
[ control-value ] [ scroller>> scroll-position ]