diff --git a/basis/ui/baseline-alignment/baseline-alignment.factor b/basis/ui/baseline-alignment/baseline-alignment.factor index 9ed56a003a..3678f9bbd1 100644 --- a/basis/ui/baseline-alignment/baseline-alignment.factor +++ b/basis/ui/baseline-alignment/baseline-alignment.factor @@ -1,12 +1,11 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: arrays kernel locals math math.functions math.order math.vectors -sequences ui.gadgets accessors combinators ; +USING: accessors combinators kernel locals math math.functions +math.order sequences ui.gadgets ; IN: ui.baseline-alignment SYMBOL: +baseline+ - TUPLE: aligned-gadget < gadget baseline cap-height ; GENERIC: baseline* ( gadget -- y ) diff --git a/basis/ui/gadgets/borders/borders.factor b/basis/ui/gadgets/borders/borders.factor index 18465aa6d5..10f3b71411 100644 --- a/basis/ui/gadgets/borders/borders.factor +++ b/basis/ui/gadgets/borders/borders.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2005, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors arrays ui.gadgets ui.baseline-alignment kernel math fry -namespaces vectors sequences math.vectors math.rectangles ; +USING: accessors fry kernel math math.rectangles math.vectors +sequences ui.baseline-alignment ui.gadgets ; IN: ui.gadgets.borders TUPLE: border < aligned-gadget diff --git a/basis/ui/gadgets/buttons/buttons.factor b/basis/ui/gadgets/buttons/buttons.factor index 1b596fe72e..163b456d64 100644 --- a/basis/ui/gadgets/buttons/buttons.factor +++ b/basis/ui/gadgets/buttons/buttons.factor @@ -1,13 +1,11 @@ ! Copyright (C) 2005, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors arrays assocs classes classes.tuple colors -colors.constants combinators combinators.short-circuit -combinators.smart fry kernel locals math math.rectangles -math.vectors models namespaces opengl opengl.gl quotations -sequences strings ui.commands ui.gadgets ui.gadgets.borders -ui.gadgets.labels ui.gadgets.packs ui.gadgets.theme -ui.gadgets.tracks ui.gadgets.worlds ui.gestures ui.pens -ui.pens.image ui.pens.solid ui.pens.tile ; +USING: accessors assocs classes colors.constants combinators +combinators.short-circuit combinators.smart fry kernel locals +math.vectors models namespaces sequences ui.commands ui.gadgets +ui.gadgets.borders ui.gadgets.labels ui.gadgets.packs +ui.gadgets.theme ui.gadgets.tracks ui.gadgets.worlds ui.gestures +ui.pens ui.pens.image ui.pens.solid ui.pens.tile ; FROM: models => change-model ; IN: ui.gadgets.buttons diff --git a/basis/ui/gadgets/corners/corners.factor b/basis/ui/gadgets/corners/corners.factor index 31b7d5db2e..a37a6959da 100644 --- a/basis/ui/gadgets/corners/corners.factor +++ b/basis/ui/gadgets/corners/corners.factor @@ -1,7 +1,7 @@ ! Copyright (C) 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors kernel sequences namespaces ui.gadgets.frames -ui.pens.image ui.gadgets.icons ui.gadgets.grids ui.gadgets.theme ; +USING: accessors kernel namespaces sequences ui.gadgets.frames +ui.gadgets.grids ui.gadgets.icons ui.gadgets.theme ; IN: ui.gadgets.corners CONSTANT: @center { 1 1 } diff --git a/basis/ui/gadgets/debug/debug.factor b/basis/ui/gadgets/debug/debug.factor index 786a97f689..8aba04b50f 100644 --- a/basis/ui/gadgets/debug/debug.factor +++ b/basis/ui/gadgets/debug/debug.factor @@ -1,9 +1,9 @@ ! Copyright (C) 2008, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: accessors arrays colors.constants combinators kernel -opengl sequences ui ui.baseline-alignment ui.gadgets -ui.gadgets.buttons ui.gadgets.labels ui.pens ui.render ui.text -ui.gadgets.private dlists namespaces io.streams.string io ; +USING: accessors arrays colors.constants dlists io +io.streams.string kernel namespaces opengl sequences ui +ui.baseline-alignment ui.gadgets ui.gadgets.buttons +ui.gadgets.labels ui.gadgets.private ui.pens ui.render ui.text ; IN: ui.gadgets.debug ! We can't print to output-stream here because that might be a pane @@ -62,4 +62,4 @@ M: metrics-paint draw-boundary 2bi ; : ( text font -- gadget ) - [