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

ui.tools.common: it's nicer to store the tool dims as word properties

char-rename
Björn Lindqvist 2016-07-30 00:41:30 +02:00
parent 83a7592a86
commit e73337fe55
1 changed files with 8 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
basis/ui/tools/common/common.factor
View File

@ -1,20 +1,15 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes classes.mixin kernel namespaces
parser ui.gadgets ui.gadgets.borders
ui.pens.solid ui.gadgets.scrollers ui.gadgets.tracks ui.theme
combinators.short-circuit ;
USING: accessors classes combinators.short-circuit kernel ui.gadgets
ui.gadgets.borders ui.gadgets.scrollers ui.gadgets.tracks
ui.pens.solid ui.theme words ;
IN: ui.tools.common
SYMBOL: tool-dims
tool-dims [ H{ } clone ] initialize
: set-tool-dim ( dim class -- )
tool-dims get-global set-at ;
: set-tool-dim ( class dim -- )
"tool-dim" set-word-prop ;
: get-tool-dim ( class -- dim )
tool-dims get-global at ;
"tool-dim" word-prop ;
TUPLE: tool < track ;
@ -23,7 +18,7 @@ M: tool pref-dim*
M: tool layout*
[ call-next-method ]
[ [ dim>> ] [ class-of ] bi set-tool-dim ]
[ [ class-of ] [ dim>> ] bi set-tool-dim ]
bi ;
SLOT: scroller
@ -40,7 +35,7 @@ SLOT: scroller
: com-scroll-down ( tool -- )
scroller>> scroll-down-line ;
: margins ( child -- border )
: margins ( child -- border )
{ 9 9 } <filled-border> ;
: with-lines ( track -- track )