]> gitweb.factorcode.org Git - factor.git/commitdiff
ui: cleanup some using lists.
authorJohn Benediktsson <mrjbq7@gmail.com>
Thu, 29 Jan 2015 19:41:18 +0000 (11:41 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Thu, 29 Jan 2015 19:41:18 +0000 (11:41 -0800)
29 files changed:
basis/ui/baseline-alignment/baseline-alignment.factor
basis/ui/gadgets/borders/borders.factor
basis/ui/gadgets/buttons/buttons.factor
basis/ui/gadgets/corners/corners.factor
basis/ui/gadgets/debug/debug.factor
basis/ui/gadgets/editors/editors.factor
basis/ui/gadgets/frames/frames.factor
basis/ui/gadgets/glass/glass.factor
basis/ui/gadgets/grid-lines/grid-lines.factor
basis/ui/gadgets/grids/grids.factor
basis/ui/gadgets/icons/icons.factor
basis/ui/gadgets/incremental/incremental.factor
basis/ui/gadgets/labeled/labeled.factor
basis/ui/gadgets/labels/labels.factor
basis/ui/gadgets/line-support/line-support.factor
basis/ui/gadgets/menus/menus.factor
basis/ui/gadgets/packs/packs.factor
basis/ui/gadgets/panes/panes.factor
basis/ui/gadgets/paragraphs/paragraphs.factor
basis/ui/gadgets/presentations/presentations.factor
basis/ui/gadgets/scrollers/scrollers.factor
basis/ui/gadgets/search-tables/search-tables.factor
basis/ui/gadgets/sliders/sliders.factor
basis/ui/gadgets/slots/slots.factor
basis/ui/gadgets/status-bar/status-bar.factor
basis/ui/gadgets/tabbed/tabbed.factor
basis/ui/gadgets/tables/tables.factor
basis/ui/gadgets/tracks/tracks.factor
basis/ui/gadgets/viewports/viewports.factor

index 9ed56a003a611b6d7fda88452a78bcf7759bc6c1..3678f9bbd17dfa149772f0e720d251ee514a255e 100644 (file)
@@ -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 )
index 18465aa6d59d175811e9b4d0e5a56c97262a88f1..10f3b71411497fa0165b7fc93a6b8d7bf01ce3dd 100644 (file)
@@ -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
index 1b596fe72ef382c143183eb270bb5fb9102609e4..163b456d641c1dc1a1a236b1aef59ce72ddcf8f5 100644 (file)
@@ -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
 
index 31b7d5db2ee999caf540ed99ecfaff9d5536703a..a37a6959da71802fabe552e45ac4bcb3bf734d3c 100644 (file)
@@ -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 }
index 786a97f6890bc4684f71966bba6cdde68cc6ab2a..8aba04b50f7f7e099cd8c4968917d8cd0e1b4be6 100644 (file)
@@ -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 ;
 
 : <metrics-gadget> ( text font -- gadget )
-    [ <label> ] dip >>font metrics-paint >>boundary ;
\ No newline at end of file
+    [ <label> ] dip >>font metrics-paint >>boundary ;
index a321640107a9e53d4a462a2b48add2eb0f8e63ce..f3e109f16ba24df4df6296236f4076f02a6a4e14 100644 (file)
@@ -1,11 +1,11 @@
 ! Copyright (C) 2006, 2011 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors timers arrays assocs calendar colors.constants
+USING: accessors arrays assocs calendar colors.constants
 combinators combinators.short-circuit documents
 documents.elements fry grouping kernel locals make math
 math.functions math.order math.ranges math.rectangles
 math.vectors models models.arrow namespaces opengl sequences
-sorting splitting ui.baseline-alignment ui.clipboards
+sorting splitting timers ui.baseline-alignment ui.clipboards
 ui.commands ui.gadgets ui.gadgets.borders
 ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers
 ui.gestures ui.pens.solid ui.render ui.text unicode.categories ;
index 884813916f10daffd04677059b889a1378b88ddd..63f91fed8ead06e5baf652a6861e710f49d23a31 100644 (file)
@@ -1,9 +1,7 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays generic kernel math namespaces sequences
-words splitting grouping math.vectors ui.gadgets.grids
-ui.gadgets.grids.private ui.gadgets math.order math.rectangles
-fry ;
+USING: accessors fry kernel math math.order sequences ui.gadgets
+ui.gadgets.grids ui.gadgets.grids.private ;
 IN: ui.gadgets.frames
 
 TUPLE: frame < grid filled-cell ;
index 34c641040e70cb701fcb83ad0372026a9b3bd51e..ba47f55e38d762e10cf43445d3fa35da9eaba5ac 100644 (file)
@@ -1,8 +1,8 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel namespaces ui.gadgets ui.gadgets.worlds
-ui.gadgets.wrappers ui.gestures math.rectangles
-math.rectangles.positioning combinators vectors ;
+USING: accessors kernel math.rectangles
+math.rectangles.positioning namespaces ui.gadgets
+ui.gadgets.worlds ui.gadgets.wrappers ui.gestures vectors ;
 FROM: ui.gadgets.wrappers => wrapper ;
 IN: ui.gadgets.glass
 
@@ -19,7 +19,7 @@ TUPLE: glass < gadget visible-rect owner ;
         swap >>visible-rect
         swap add-gadget
         swap >>owner ;
-    
+
 : visible-rect ( glass -- rect )
     [ visible-rect>> ] [ owner>> ] bi screen-loc offset-rect ;
 
@@ -78,4 +78,4 @@ popup H{
 
 : show-popup ( owner popup visible-rect -- )
     [ [ dup dup popup>> [ hide-glass ] when* ] dip <popup> ] dip
-    [ drop >>popup drop ] [ show-glass ] 3bi ;
\ No newline at end of file
+    [ drop >>popup drop ] [ show-glass ] 3bi ;
index 4ba97e3e3ad792f1683e5467234c271e5e1a9f59..51d2e9bb9c08e659cba08da117c906e0a2ab6c1b 100644 (file)
@@ -1,9 +1,7 @@
 ! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel accessors math namespaces opengl opengl.gl
-sequences math.vectors ui.pens ui.gadgets ui.gadgets.grids
-ui.gadgets.grids.private ui.render math.rectangles
-fry locals arrays assocs ;
+USING: accessors assocs fry kernel locals math math.vectors
+opengl sequences ui.gadgets ui.gadgets.grids.private ui.pens ;
 IN: ui.gadgets.grid-lines
 
 TUPLE: grid-lines color ;
index d9812b5a11e243b8db9f091f88a3eccee0310748..93d8e8a867dd308b7909d6c315501ba1776b5eb3 100644 (file)
@@ -1,8 +1,8 @@
 ! Copyright (C) 2006, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays kernel math math.order namespaces make sequences
-words io math.vectors ui.gadgets ui.baseline-alignment columns
-accessors strings.tables math.rectangles fry ;
+USING: accessors arrays fry kernel make math math.order
+math.rectangles math.vectors sequences strings.tables
+ui.baseline-alignment ui.gadgets ;
 IN: ui.gadgets.grids
 
 TUPLE: grid < gadget
index 123f7a540dcc7253566dafb964902563ee57feb2..a7875c042bdc2528ad77ee13cf23d504d032d0ec 100644 (file)
@@ -1,7 +1,7 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel accessors ui.images ui.pens
-ui.pens.image ui.gadgets ui.gadgets.labels ;
+USING: accessors kernel ui.gadgets ui.gadgets.labels ui.images
+ui.pens ui.pens.image ;
 IN: ui.gadgets.icons
 
 TUPLE: icon < gadget ;
@@ -11,4 +11,4 @@ TUPLE: icon < gadget ;
 
 M: icon pref-dim* dup interior>> pen-pref-dim ;
 
-M: image-name >label <icon> ;
\ No newline at end of file
+M: image-name >label <icon> ;
index f46a4371d4ce6f2c98b1e4f2d03760e2b55971a8..952252a5cd1cd9711429ef1050a382ff4bc8e106 100644 (file)
@@ -1,8 +1,7 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: io kernel math namespaces math.vectors ui.gadgets
-ui.gadgets.private ui.gadgets.packs accessors
-math.rectangles combinators ;
+USING: accessors combinators kernel math.vectors namespaces
+ui.gadgets ui.gadgets.packs ui.gadgets.private ;
 IN: ui.gadgets.incremental
 
 TUPLE: incremental < pack cursor ;
index 97d029fe81023e382023f4d6ebee2e6b8b7a5526..21c0d3d02e12822fefb2753dbedb29ff32c2f1af 100644 (file)
@@ -1,8 +1,8 @@
 ! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel sequences colors fonts ui.gadgets
-ui.gadgets.frames ui.gadgets.grids ui.gadgets.icons ui.gadgets.labels
-ui.gadgets.borders ui.pens.image ui.gadgets.corners ui.render ;
+USING: accessors fonts kernel ui.gadgets ui.gadgets.borders
+ui.gadgets.corners ui.gadgets.frames ui.gadgets.grids
+ui.gadgets.labels ui.pens.image ui.render ;
 IN: ui.gadgets.labeled
 
 TUPLE: labeled-gadget < frame content ;
index ee792fd6ab95309049626fab35c2a0be68855f7a..3bbffde960909b2c6ad76d3d8cf62ab51453255e 100644 (file)
@@ -1,10 +1,9 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays hashtables io kernel math math.functions
-namespaces make opengl sequences strings splitting ui.gadgets
-ui.gadgets.tracks ui.gadgets.packs fonts ui.render ui.pens.solid
-ui.baseline-alignment ui.text colors colors.constants models
-combinators opengl.gl ;
+USING: accessors arrays colors.constants combinators fonts
+kernel make math.functions models namespaces sequences splitting
+strings ui.baseline-alignment ui.gadgets ui.gadgets.tracks
+ui.pens.solid ui.render ui.text ;
 IN: ui.gadgets.labels
 
 ! A label gadget draws a string.
index 737cfc27647670b5d23d956ec1b0a68ce1b6c379..4b2eb0f6993482488317dc792a6e7e00b5390589 100644 (file)
@@ -1,8 +1,9 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays combinators fry kernel math math.functions math.order
-math.ranges math.vectors namespaces opengl sequences ui.gadgets
-ui.render ui.text ui.gadgets.scrollers ui.gadgets.viewports ;
+USING: accessors arrays combinators fry kernel math
+math.functions math.order math.ranges math.vectors namespaces
+opengl sequences ui.gadgets ui.gadgets.scrollers
+ui.gadgets.viewports ui.render ui.text ;
 IN: ui.gadgets.line-support
 
 ! Some code shared by table and editor gadgets
index 9fe440fe5f078d428d7608799d17315af0926e0e..d7a63dd3c93d8786a29a735d51b499082d620d94 100644 (file)
@@ -1,11 +1,11 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: colors.constants kernel locals math.rectangles namespaces
-sequences ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons
-ui.gadgets.glass ui.gadgets.packs ui.gadgets.frames ui.gadgets.worlds
-ui.gadgets.corners ui.gestures ui.operations
-ui.render ui.pens ui.pens.solid opengl math.vectors words accessors
-math math.order sorting ;
+USING: accessors colors.constants kernel locals math.rectangles
+math.vectors namespaces opengl sequences sorting ui.commands
+ui.gadgets ui.gadgets.buttons ui.gadgets.corners
+ui.gadgets.frames ui.gadgets.glass ui.gadgets.packs
+ui.gadgets.worlds ui.gestures ui.operations ui.pens
+ui.pens.solid ui.render ;
 IN: ui.gadgets.menus
 
 : show-menu ( owner menu -- )
index 07df8bc8f2792405fa44192a5b6d5faec3486871..9932554046bae17a7c5c78357ab9f32d4ff3dc31 100644 (file)
@@ -1,8 +1,8 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: sequences ui.gadgets ui.baseline-alignment
-ui.baseline-alignment.private kernel math math.functions math.vectors
-math.order math.rectangles namespaces accessors fry combinators arrays ;
+USING: accessors arrays combinators fry kernel math math.order
+math.vectors sequences ui.baseline-alignment
+ui.baseline-alignment.private ui.gadgets ;
 IN: ui.gadgets.packs
 
 TUPLE: pack < aligned-gadget
index bc9461ef8736a3bc015d3358481ff53e0df05167..2f2929fa5c9bcc85c5d6cd39bcf5235c66777d58 100644 (file)
@@ -1,16 +1,15 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays hashtables io kernel namespaces sequences
-strings quotations math opengl combinators memoize math.vectors
-sorting splitting assocs classes.tuple models continuations
-destructors accessors math.rectangles fry fonts ui.pens.solid
-ui.images ui.gadgets ui.gadgets.private ui.gadgets.borders
-ui.gadgets.buttons ui.gadgets.labels ui.gadgets.scrollers
-ui.gadgets.paragraphs ui.gadgets.incremental ui.gadgets.packs
-ui.gadgets.menus ui.clipboards ui.gestures ui.traverse ui.render
-ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks
-ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment
-colors io.styles classes ;
+USING: accessors assocs classes combinators destructors fonts
+fry io io.styles kernel math.rectangles math.vectors memoize
+models namespaces sequences sorting splitting strings
+ui.baseline-alignment ui.clipboards ui.gadgets
+ui.gadgets.borders ui.gadgets.grid-lines ui.gadgets.grids
+ui.gadgets.icons ui.gadgets.incremental ui.gadgets.labels
+ui.gadgets.menus ui.gadgets.packs ui.gadgets.paragraphs
+ui.gadgets.presentations ui.gadgets.private ui.gadgets.scrollers
+ui.gadgets.tracks ui.gestures ui.images ui.pens.solid ui.render
+ui.traverse ;
 FROM: io.styles => foreground background ;
 FROM: ui.gadgets.wrappers => <wrapper> ;
 IN: ui.gadgets.panes
index bffe7fca945d9a5c1901ab95f16827f2e5bdab92..119a50f83cea5f4a888490c60af3d9b62aa5c8b4 100644 (file)
@@ -1,8 +1,8 @@
 ! Copyright (C) 2005, 2009 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel math math.order sequences wrap wrap.words
-arrays fry ui.gadgets ui.gadgets.labels ui.gadgets.packs.private
-ui.render ui.baseline-alignment ;
+USING: accessors arrays fry kernel math math.order sequences
+ui.baseline-alignment ui.gadgets ui.gadgets.labels
+ui.gadgets.packs.private ui.render wrap.words ;
 IN: ui.gadgets.paragraphs
 
 MIXIN: word-break
index 350b695e22ef6a9e26e225f565c32adc5a4349e8..7218fa52a23a6bf55a616ed3812aeca565843a39 100644 (file)
@@ -1,10 +1,9 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: arrays accessors definitions hashtables io kernel sequences
-strings words math models namespaces quotations ui.gadgets
-ui.gadgets.borders ui.gadgets.buttons ui.gadgets.buttons.private
-ui.gadgets.labels ui.gadgets.menus ui.gadgets.worlds
-ui.gadgets.status-bar ui.commands ui.operations ui.gestures ;
+USING: accessors kernel namespaces ui.commands ui.gadgets
+ui.gadgets.buttons ui.gadgets.buttons.private ui.gadgets.menus
+ui.gadgets.status-bar ui.gadgets.worlds ui.gestures
+ui.operations ;
 IN: ui.gadgets.presentations
 
 TUPLE: presentation < button object hook ;
index 8c73226639d8cb746225ba48fb2692bcecbdc12a..a02c6deb2acb61398e51c2212ce68e1dc7c43be7 100644 (file)
@@ -1,10 +1,10 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays ui.gadgets ui.gadgets.viewports
-ui.gadgets.frames ui.gadgets.grids ui.gadgets.sliders
-ui.gestures kernel math namespaces sequences models models.range
-models.product combinators math.vectors classes.tuple
-math.rectangles combinators.short-circuit ;
+USING: accessors arrays combinators combinators.short-circuit
+kernel math.rectangles math.vectors models models.product
+models.range namespaces sequences ui.gadgets ui.gadgets.frames
+ui.gadgets.grids ui.gadgets.sliders ui.gadgets.viewports
+ui.gestures ;
 IN: ui.gadgets.scrollers
 
 TUPLE: scroller < frame column-header viewport x y follows ;
index 1da137270aab7f0d4b6dc06b147d8c02cf10462c..62279abc8ee3ec6bfae4b477efae9393cbd3864f 100644 (file)
@@ -1,10 +1,11 @@
 ! Copyright (C) 2008, 2009 Slava Pestov
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel delegate fry sequences models
-combinators.short-circuit models.search models.delay calendar locals
-ui.gestures ui.pens ui.pens.image ui.gadgets.editors ui.gadgets.labels
-ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.theme ui.gadgets.tracks
-ui.gadgets.borders ui.gadgets.buttons ui.baseline-alignment ui.gadgets ;
+USING: accessors calendar combinators.short-circuit delegate fry
+kernel locals models models.delay models.search
+ui.baseline-alignment ui.gadgets ui.gadgets.borders
+ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
+ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.theme
+ui.gadgets.tracks ui.gestures ui.pens ui.pens.image ;
 IN: ui.gadgets.search-tables
 
 TUPLE: search-table < track table field ;
index d298c4750f7d06c592493d1e0b58fde4fb17d4a0..95e34cc0ff67d856a4c7baf2f976acca96be60ae 100644 (file)
@@ -1,10 +1,9 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs kernel math namespaces sequences
-vectors models models.range math.vectors math.functions quotations
-colors colors.constants math.rectangles fry combinators ui.gestures
-ui.pens ui.gadgets ui.gadgets.buttons ui.gadgets.tracks math.order
-ui.gadgets.icons ui.gadgets.theme ui.pens.tile ui.pens.image ;
+USING: accessors assocs combinators fry kernel math math.order
+math.vectors models models.range ui.gadgets ui.gadgets.buttons
+ui.gadgets.icons ui.gadgets.theme ui.gadgets.tracks ui.gestures
+ui.pens ui.pens.image ui.pens.tile ;
 IN: ui.gadgets.sliders
 
 TUPLE: slider < track elevator thumb saved line ;
index 39e42aa723d7ffc1d79ce8ea440d84aefca641ef..f09b2e53b3aae91d1d0e8c0f702dfc3fd3d6c596 100644 (file)
@@ -1,10 +1,9 @@
 ! Copyright (C) 2007, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors namespaces kernel parser prettyprint
-sequences arrays io math definitions math.vectors assocs refs
-ui.gadgets ui.gestures ui.commands ui.gadgets.scrollers
-ui.gadgets.buttons ui.gadgets.borders ui.gadgets.tracks
-ui.gadgets.editors eval continuations ;
+USING: accessors eval kernel math.vectors parser prettyprint
+refs sequences ui.commands ui.gadgets ui.gadgets.buttons
+ui.gadgets.editors ui.gadgets.scrollers ui.gadgets.tracks
+ui.gestures ;
 IN: ui.gadgets.slots
 
 TUPLE: update-object ;
index 199eb665f030f66a96f9e44b8a37d7981eaf6017..ad1d4e8560396ad9d79280eb43d5c5bd989ab292 100644 (file)
@@ -1,9 +1,8 @@
 ! Copyright (C) 2007, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors calendar colors colors.constants fonts kernel
-models models.arrow models.delay sequences summary ui
-ui.gadgets ui.gadgets.labels ui.gadgets.tracks
-ui.gadgets.worlds ui.pens.solid ui.private ;
+USING: accessors calendar colors.constants fonts kernel models
+models.arrow models.delay sequences summary ui ui.gadgets.labels
+ui.gadgets.tracks ui.gadgets.worlds ui.pens.solid ui.private ;
 IN: ui.gadgets.status-bar
 
 : status-bar-font ( -- font )
index 77ddb902702bbe42f43847418a8badaf62b5a08d..c76492308e1aeb812938d9af51526bca736aee61 100644 (file)
@@ -1,10 +1,9 @@
 ! Copyright (C) 2008, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: ui.pens ui.gadgets.tracks ui.gadgets.buttons
-ui.gadgets.buttons.private ui.gadgets.books ui.gadgets.packs
-ui.gadgets.borders ui.gadgets.icons ui.gadgets ui.gadgets.theme
-ui.pens.image sequences models accessors kernel colors
-colors.constants ;
+USING: accessors colors kernel models sequences ui.gadgets
+ui.gadgets.books ui.gadgets.borders ui.gadgets.buttons
+ui.gadgets.buttons.private ui.gadgets.icons ui.gadgets.packs
+ui.gadgets.theme ui.gadgets.tracks ui.pens ;
 IN: ui.gadgets.tabbed
 
 TUPLE: tabbed-gadget < track tabs book ;
index 498ab2fc8bdf82660575fa4ba5a4f51990e39bc4..774a68dd82b1d0f00722b09f98fd85fb82554cdc 100644 (file)
@@ -1,13 +1,12 @@
 ! Copyright (C) 2008, 2011 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs hashtables arrays colors colors.constants fry
-kernel math math.functions math.ranges math.rectangles math.order
-math.vectors namespaces opengl sequences ui.gadgets
+USING: accessors arrays colors colors.constants combinators
+combinators.short-circuit fonts fry kernel locals math
+math.functions math.order math.rectangles math.vectors models
+namespaces opengl sequences splitting strings ui.commands
+ui.gadgets ui.gadgets.line-support ui.gadgets.menus
 ui.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.worlds
-ui.gestures ui.render ui.pens.solid ui.text ui.commands ui.images
-ui.gadgets.menus ui.gadgets.line-support models combinators
-combinators.short-circuit fonts locals splitting strings sets
-sorting ;
+ui.gestures ui.images ui.pens.solid ui.render ui.text ;
 FROM: sequences => change-nth ;
 IN: ui.gadgets.tables
 
index 920b7976910e095c43a4fa3c29982caf4b6e61fa..b7b68fa62d62093524aa27ed873bbff01e4ad66c 100644 (file)
@@ -1,8 +1,7 @@
 ! Copyright (C) 2006, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors io kernel namespaces fry math math.vectors
-math.rectangles math.order sequences words ui.gadgets ui.gadgets.packs
-ui.gadgets.packs.private combinators ;
+USING: accessors combinators fry kernel math math.vectors
+sequences ui.gadgets ui.gadgets.packs ui.gadgets.packs.private ;
 IN: ui.gadgets.tracks
 
 TUPLE: track < pack sizes ;
index 907abfd6cc940115d914ae941b4d0f04fcd2c4f7..91ddc1d2b21ac77298f54d908e02113cd46b7534 100644 (file)
@@ -1,8 +1,6 @@
 ! Copyright (C) 2005, 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays ui.gadgets ui.gadgets.borders
-kernel math namespaces sequences models math.vectors
-math.rectangles ;
+USING: accessors kernel math.vectors models ui.gadgets ;
 IN: ui.gadgets.viewports
 
 TUPLE: viewport < gadget { constraint initial: { 1 1 } } ;