From c6f8a84ee47585b932ce8d27053cf33cd3a1a086 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 28 Apr 2014 13:01:18 -0700 Subject: [PATCH] ui.tools.common: reuse code. --- basis/ui/tools/common/common.factor | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/basis/ui/tools/common/common.factor b/basis/ui/tools/common/common.factor index bdf81fd9c9..03b1eeb783 100644 --- a/basis/ui/tools/common/common.factor +++ b/basis/ui/tools/common/common.factor @@ -9,18 +9,22 @@ SYMBOL: tool-dims tool-dims [ H{ } clone ] initialize +: set-tool-dim ( dim class -- ) + tool-dims get-global set-at ; + +: get-tool-dim ( class -- dim ) + tool-dims get-global at ; + TUPLE: tool < track ; M: tool pref-dim* - { [ class-of tool-dims get-global at ] [ call-next-method ] } 1|| ; + { [ class-of get-tool-dim ] [ call-next-method ] } 1|| ; M: tool layout* [ call-next-method ] - [ [ dim>> ] [ class-of ] bi tool-dims get-global set-at ] + [ [ dim>> ] [ class-of ] bi set-tool-dim ] bi ; -: set-tool-dim ( dim class -- ) tool-dims get-global set-at ; - SLOT: scroller : com-page-up ( tool -- )