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

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

@ -1,20 +1,15 @@
! 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 assocs classes classes.mixin kernel namespaces USING: accessors classes combinators.short-circuit kernel ui.gadgets
parser ui.gadgets ui.gadgets.borders ui.gadgets.borders ui.gadgets.scrollers ui.gadgets.tracks
ui.pens.solid ui.gadgets.scrollers ui.gadgets.tracks ui.theme ui.pens.solid ui.theme words ;
combinators.short-circuit ;
IN: ui.tools.common IN: ui.tools.common
SYMBOL: tool-dims : set-tool-dim ( class dim -- )
"tool-dim" set-word-prop ;
tool-dims [ H{ } clone ] initialize
: set-tool-dim ( dim class -- )
tool-dims get-global set-at ;
: get-tool-dim ( class -- dim ) : get-tool-dim ( class -- dim )
tool-dims get-global at ; "tool-dim" word-prop ;
TUPLE: tool < track ; TUPLE: tool < track ;
@ -23,7 +18,7 @@ M: tool pref-dim*
M: tool layout* M: tool layout*
[ call-next-method ] [ call-next-method ]
[ [ dim>> ] [ class-of ] bi set-tool-dim ] [ [ class-of ] [ dim>> ] bi set-tool-dim ]
bi ; bi ;
SLOT: scroller SLOT: scroller