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

ui: cleanup some using lists.

db4
John Benediktsson 2015-01-29 11:41:18 -08:00
parent f5dc4afb2e
commit 14b3261bef
29 changed files with 108 additions and 125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/ui/baseline-alignment/baseline-alignment.factor
View File

@ -1,12 +1,11 @@
! 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: arrays kernel locals math math.functions math.order math.vectors USING: accessors combinators kernel locals math math.functions
sequences ui.gadgets accessors combinators ; math.order sequences ui.gadgets ;
IN: ui.baseline-alignment IN: ui.baseline-alignment
SYMBOL: +baseline+ SYMBOL: +baseline+
TUPLE: aligned-gadget < gadget baseline cap-height ; TUPLE: aligned-gadget < gadget baseline cap-height ;
GENERIC: baseline* ( gadget -- y ) GENERIC: baseline* ( gadget -- y )

4
basis/ui/gadgets/borders/borders.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays ui.gadgets ui.baseline-alignment kernel math fry USING: accessors fry kernel math math.rectangles math.vectors
namespaces vectors sequences math.vectors math.rectangles ; sequences ui.baseline-alignment ui.gadgets ;
IN: ui.gadgets.borders IN: ui.gadgets.borders
TUPLE: border < aligned-gadget TUPLE: border < aligned-gadget

14
basis/ui/gadgets/buttons/buttons.factor
View File

@ -1,13 +1,11 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs classes classes.tuple colors USING: accessors assocs classes colors.constants combinators
colors.constants combinators combinators.short-circuit combinators.short-circuit combinators.smart fry kernel locals
combinators.smart fry kernel locals math math.rectangles math.vectors models namespaces sequences ui.commands ui.gadgets
math.vectors models namespaces opengl opengl.gl quotations ui.gadgets.borders ui.gadgets.labels ui.gadgets.packs
sequences strings ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.theme ui.gadgets.tracks ui.gadgets.worlds ui.gestures
ui.gadgets.labels ui.gadgets.packs ui.gadgets.theme ui.pens ui.pens.image ui.pens.solid ui.pens.tile ;
ui.gadgets.tracks ui.gadgets.worlds ui.gestures ui.pens
ui.pens.image ui.pens.solid ui.pens.tile ;
FROM: models => change-model ; FROM: models => change-model ;
IN: ui.gadgets.buttons IN: ui.gadgets.buttons

4
basis/ui/gadgets/corners/corners.factor
View File

@ -1,7 +1,7 @@
! 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 kernel sequences namespaces ui.gadgets.frames USING: accessors kernel namespaces sequences ui.gadgets.frames
ui.pens.image ui.gadgets.icons ui.gadgets.grids ui.gadgets.theme ; ui.gadgets.grids ui.gadgets.icons ui.gadgets.theme ;
IN: ui.gadgets.corners IN: ui.gadgets.corners
CONSTANT: @center { 1 1 } CONSTANT: @center { 1 1 }

8
basis/ui/gadgets/debug/debug.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays colors.constants combinators kernel USING: accessors arrays colors.constants dlists io
opengl sequences ui ui.baseline-alignment ui.gadgets io.streams.string kernel namespaces opengl sequences ui
ui.gadgets.buttons ui.gadgets.labels ui.pens ui.render ui.text ui.baseline-alignment ui.gadgets ui.gadgets.buttons
ui.gadgets.private dlists namespaces io.streams.string io ; ui.gadgets.labels ui.gadgets.private ui.pens ui.render ui.text ;
IN: ui.gadgets.debug IN: ui.gadgets.debug
! We can't print to output-stream here because that might be a pane ! We can't print to output-stream here because that might be a pane

4
basis/ui/gadgets/editors/editors.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2006, 2011 Slava Pestov ! Copyright (C) 2006, 2011 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! 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 combinators combinators.short-circuit documents
documents.elements fry grouping kernel locals make math documents.elements fry grouping kernel locals make math
math.functions math.order math.ranges math.rectangles math.functions math.order math.ranges math.rectangles
math.vectors models models.arrow namespaces opengl sequences 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.commands ui.gadgets ui.gadgets.borders
ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers ui.gadgets.line-support ui.gadgets.menus ui.gadgets.scrollers
ui.gestures ui.pens.solid ui.render ui.text unicode.categories ; ui.gestures ui.pens.solid ui.render ui.text unicode.categories ;

6
basis/ui/gadgets/frames/frames.factor
View File

@ -1,9 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays generic kernel math namespaces sequences USING: accessors fry kernel math math.order sequences ui.gadgets
words splitting grouping math.vectors ui.gadgets.grids ui.gadgets.grids ui.gadgets.grids.private ;
ui.gadgets.grids.private ui.gadgets math.order math.rectangles
fry ;
IN: ui.gadgets.frames IN: ui.gadgets.frames
TUPLE: frame < grid filled-cell ; TUPLE: frame < grid filled-cell ;

6
basis/ui/gadgets/glass/glass.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel namespaces ui.gadgets ui.gadgets.worlds USING: accessors kernel math.rectangles
ui.gadgets.wrappers ui.gestures math.rectangles math.rectangles.positioning namespaces ui.gadgets
math.rectangles.positioning combinators vectors ; ui.gadgets.worlds ui.gadgets.wrappers ui.gestures vectors ;
FROM: ui.gadgets.wrappers => wrapper ; FROM: ui.gadgets.wrappers => wrapper ;
IN: ui.gadgets.glass IN: ui.gadgets.glass

6
basis/ui/gadgets/grid-lines/grid-lines.factor
View File

@ -1,9 +1,7 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel accessors math namespaces opengl opengl.gl USING: accessors assocs fry kernel locals math math.vectors
sequences math.vectors ui.pens ui.gadgets ui.gadgets.grids opengl sequences ui.gadgets ui.gadgets.grids.private ui.pens ;
ui.gadgets.grids.private ui.render math.rectangles
fry locals arrays assocs ;
IN: ui.gadgets.grid-lines IN: ui.gadgets.grid-lines
TUPLE: grid-lines color ; TUPLE: grid-lines color ;

6
basis/ui/gadgets/grids/grids.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2006, 2010 Slava Pestov. ! Copyright (C) 2006, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel math math.order namespaces make sequences USING: accessors arrays fry kernel make math math.order
words io math.vectors ui.gadgets ui.baseline-alignment columns math.rectangles math.vectors sequences strings.tables
accessors strings.tables math.rectangles fry ; ui.baseline-alignment ui.gadgets ;
IN: ui.gadgets.grids IN: ui.gadgets.grids
TUPLE: grid < gadget TUPLE: grid < gadget

4
basis/ui/gadgets/icons/icons.factor
View File

@ -1,7 +1,7 @@
! 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: kernel accessors ui.images ui.pens USING: accessors kernel ui.gadgets ui.gadgets.labels ui.images
ui.pens.image ui.gadgets ui.gadgets.labels ; ui.pens ui.pens.image ;
IN: ui.gadgets.icons IN: ui.gadgets.icons
TUPLE: icon < gadget ; TUPLE: icon < gadget ;

5
basis/ui/gadgets/incremental/incremental.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: io kernel math namespaces math.vectors ui.gadgets USING: accessors combinators kernel math.vectors namespaces
ui.gadgets.private ui.gadgets.packs accessors ui.gadgets ui.gadgets.packs ui.gadgets.private ;
math.rectangles combinators ;
IN: ui.gadgets.incremental IN: ui.gadgets.incremental
TUPLE: incremental < pack cursor ; TUPLE: incremental < pack cursor ;

6
basis/ui/gadgets/labeled/labeled.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel sequences colors fonts ui.gadgets USING: accessors fonts kernel ui.gadgets ui.gadgets.borders
ui.gadgets.frames ui.gadgets.grids ui.gadgets.icons ui.gadgets.labels ui.gadgets.corners ui.gadgets.frames ui.gadgets.grids
ui.gadgets.borders ui.pens.image ui.gadgets.corners ui.render ; ui.gadgets.labels ui.pens.image ui.render ;
IN: ui.gadgets.labeled IN: ui.gadgets.labeled
TUPLE: labeled-gadget < frame content ; TUPLE: labeled-gadget < frame content ;

9
basis/ui/gadgets/labels/labels.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays hashtables io kernel math math.functions USING: accessors arrays colors.constants combinators fonts
namespaces make opengl sequences strings splitting ui.gadgets kernel make math.functions models namespaces sequences splitting
ui.gadgets.tracks ui.gadgets.packs fonts ui.render ui.pens.solid strings ui.baseline-alignment ui.gadgets ui.gadgets.tracks
ui.baseline-alignment ui.text colors colors.constants models ui.pens.solid ui.render ui.text ;
combinators opengl.gl ;
IN: ui.gadgets.labels IN: ui.gadgets.labels
! A label gadget draws a string. ! A label gadget draws a string.

7
basis/ui/gadgets/line-support/line-support.factor
View File

@ -1,8 +1,9 @@
! 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 arrays combinators fry kernel math math.functions math.order USING: accessors arrays combinators fry kernel math
math.ranges math.vectors namespaces opengl sequences ui.gadgets math.functions math.order math.ranges math.vectors namespaces
ui.render ui.text ui.gadgets.scrollers ui.gadgets.viewports ; opengl sequences ui.gadgets ui.gadgets.scrollers
ui.gadgets.viewports ui.render ui.text ;
IN: ui.gadgets.line-support IN: ui.gadgets.line-support
! Some code shared by table and editor gadgets ! Some code shared by table and editor gadgets

12
basis/ui/gadgets/menus/menus.factor
View File

@ -1,11 +1,11 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: colors.constants kernel locals math.rectangles namespaces USING: accessors colors.constants kernel locals math.rectangles
sequences ui.commands ui.gadgets ui.gadgets.borders ui.gadgets.buttons math.vectors namespaces opengl sequences sorting ui.commands
ui.gadgets.glass ui.gadgets.packs ui.gadgets.frames ui.gadgets.worlds ui.gadgets ui.gadgets.buttons ui.gadgets.corners
ui.gadgets.corners ui.gestures ui.operations ui.gadgets.frames ui.gadgets.glass ui.gadgets.packs
ui.render ui.pens ui.pens.solid opengl math.vectors words accessors ui.gadgets.worlds ui.gestures ui.operations ui.pens
math math.order sorting ; ui.pens.solid ui.render ;
IN: ui.gadgets.menus IN: ui.gadgets.menus
: show-menu ( owner menu -- ) : show-menu ( owner menu -- )

6
basis/ui/gadgets/packs/packs.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: sequences ui.gadgets ui.baseline-alignment USING: accessors arrays combinators fry kernel math math.order
ui.baseline-alignment.private kernel math math.functions math.vectors math.vectors sequences ui.baseline-alignment
math.order math.rectangles namespaces accessors fry combinators arrays ; ui.baseline-alignment.private ui.gadgets ;
IN: ui.gadgets.packs IN: ui.gadgets.packs
TUPLE: pack < aligned-gadget TUPLE: pack < aligned-gadget

21
basis/ui/gadgets/panes/panes.factor
View File

@ -1,16 +1,15 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays hashtables io kernel namespaces sequences USING: accessors assocs classes combinators destructors fonts
strings quotations math opengl combinators memoize math.vectors fry io io.styles kernel math.rectangles math.vectors memoize
sorting splitting assocs classes.tuple models continuations models namespaces sequences sorting splitting strings
destructors accessors math.rectangles fry fonts ui.pens.solid ui.baseline-alignment ui.clipboards ui.gadgets
ui.images ui.gadgets ui.gadgets.private ui.gadgets.borders ui.gadgets.borders ui.gadgets.grid-lines ui.gadgets.grids
ui.gadgets.buttons ui.gadgets.labels ui.gadgets.scrollers ui.gadgets.icons ui.gadgets.incremental ui.gadgets.labels
ui.gadgets.paragraphs ui.gadgets.incremental ui.gadgets.packs ui.gadgets.menus ui.gadgets.packs ui.gadgets.paragraphs
ui.gadgets.menus ui.clipboards ui.gestures ui.traverse ui.render ui.gadgets.presentations ui.gadgets.private ui.gadgets.scrollers
ui.text ui.gadgets.presentations ui.gadgets.grids ui.gadgets.tracks ui.gadgets.tracks ui.gestures ui.images ui.pens.solid ui.render
ui.gadgets.icons ui.gadgets.grid-lines ui.baseline-alignment ui.traverse ;
colors io.styles classes ;
FROM: io.styles => foreground background ; FROM: io.styles => foreground background ;
FROM: ui.gadgets.wrappers => <wrapper> ; FROM: ui.gadgets.wrappers => <wrapper> ;
IN: ui.gadgets.panes IN: ui.gadgets.panes

6
basis/ui/gadgets/paragraphs/paragraphs.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2005, 2009 Slava Pestov ! Copyright (C) 2005, 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel math math.order sequences wrap wrap.words USING: accessors arrays fry kernel math math.order sequences
arrays fry ui.gadgets ui.gadgets.labels ui.gadgets.packs.private ui.baseline-alignment ui.gadgets ui.gadgets.labels
ui.render ui.baseline-alignment ; ui.gadgets.packs.private ui.render wrap.words ;
IN: ui.gadgets.paragraphs IN: ui.gadgets.paragraphs
MIXIN: word-break MIXIN: word-break

9
basis/ui/gadgets/presentations/presentations.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays accessors definitions hashtables io kernel sequences USING: accessors kernel namespaces ui.commands ui.gadgets
strings words math models namespaces quotations ui.gadgets ui.gadgets.buttons ui.gadgets.buttons.private ui.gadgets.menus
ui.gadgets.borders ui.gadgets.buttons ui.gadgets.buttons.private ui.gadgets.status-bar ui.gadgets.worlds ui.gestures
ui.gadgets.labels ui.gadgets.menus ui.gadgets.worlds ui.operations ;
ui.gadgets.status-bar ui.commands ui.operations ui.gestures ;
IN: ui.gadgets.presentations IN: ui.gadgets.presentations
TUPLE: presentation < button object hook ; TUPLE: presentation < button object hook ;

10
basis/ui/gadgets/scrollers/scrollers.factor
View File

@ -1,10 +1,10 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays ui.gadgets ui.gadgets.viewports USING: accessors arrays combinators combinators.short-circuit
ui.gadgets.frames ui.gadgets.grids ui.gadgets.sliders kernel math.rectangles math.vectors models models.product
ui.gestures kernel math namespaces sequences models models.range models.range namespaces sequences ui.gadgets ui.gadgets.frames
models.product combinators math.vectors classes.tuple ui.gadgets.grids ui.gadgets.sliders ui.gadgets.viewports
math.rectangles combinators.short-circuit ; ui.gestures ;
IN: ui.gadgets.scrollers IN: ui.gadgets.scrollers
TUPLE: scroller < frame column-header viewport x y follows ; TUPLE: scroller < frame column-header viewport x y follows ;

11
basis/ui/gadgets/search-tables/search-tables.factor
View File

@ -1,10 +1,11 @@
! Copyright (C) 2008, 2009 Slava Pestov ! Copyright (C) 2008, 2009 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel delegate fry sequences models USING: accessors calendar combinators.short-circuit delegate fry
combinators.short-circuit models.search models.delay calendar locals kernel locals models models.delay models.search
ui.gestures ui.pens ui.pens.image ui.gadgets.editors ui.gadgets.labels ui.baseline-alignment ui.gadgets ui.gadgets.borders
ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.theme ui.gadgets.tracks ui.gadgets.buttons ui.gadgets.editors ui.gadgets.labels
ui.gadgets.borders ui.gadgets.buttons ui.baseline-alignment ui.gadgets ; ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.theme
ui.gadgets.tracks ui.gestures ui.pens ui.pens.image ;
IN: ui.gadgets.search-tables IN: ui.gadgets.search-tables
TUPLE: search-table < track table field ; TUPLE: search-table < track table field ;

9
basis/ui/gadgets/sliders/sliders.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2005, 2010 Slava Pestov. ! Copyright (C) 2005, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs kernel math namespaces sequences USING: accessors assocs combinators fry kernel math math.order
vectors models models.range math.vectors math.functions quotations math.vectors models models.range ui.gadgets ui.gadgets.buttons
colors colors.constants math.rectangles fry combinators ui.gestures ui.gadgets.icons ui.gadgets.theme ui.gadgets.tracks ui.gestures
ui.pens ui.gadgets ui.gadgets.buttons ui.gadgets.tracks math.order ui.pens ui.pens.image ui.pens.tile ;
ui.gadgets.icons ui.gadgets.theme ui.pens.tile ui.pens.image ;
IN: ui.gadgets.sliders IN: ui.gadgets.sliders
TUPLE: slider < track elevator thumb saved line ; TUPLE: slider < track elevator thumb saved line ;

9
basis/ui/gadgets/slots/slots.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors namespaces kernel parser prettyprint USING: accessors eval kernel math.vectors parser prettyprint
sequences arrays io math definitions math.vectors assocs refs refs sequences ui.commands ui.gadgets ui.gadgets.buttons
ui.gadgets ui.gestures ui.commands ui.gadgets.scrollers ui.gadgets.editors ui.gadgets.scrollers ui.gadgets.tracks
ui.gadgets.buttons ui.gadgets.borders ui.gadgets.tracks ui.gestures ;
ui.gadgets.editors eval continuations ;
IN: ui.gadgets.slots IN: ui.gadgets.slots
TUPLE: update-object ; TUPLE: update-object ;

7
basis/ui/gadgets/status-bar/status-bar.factor
View File

@ -1,9 +1,8 @@
! Copyright (C) 2007, 2008 Slava Pestov. ! Copyright (C) 2007, 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar colors colors.constants fonts kernel USING: accessors calendar colors.constants fonts kernel models
models models.arrow models.delay sequences summary ui models.arrow models.delay sequences summary ui ui.gadgets.labels
ui.gadgets ui.gadgets.labels ui.gadgets.tracks ui.gadgets.tracks ui.gadgets.worlds ui.pens.solid ui.private ;
ui.gadgets.worlds ui.pens.solid ui.private ;
IN: ui.gadgets.status-bar IN: ui.gadgets.status-bar
: status-bar-font ( -- font ) : status-bar-font ( -- font )

9
basis/ui/gadgets/tabbed/tabbed.factor
View File

@ -1,10 +1,9 @@
! Copyright (C) 2008, 2009 Slava Pestov. ! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: ui.pens ui.gadgets.tracks ui.gadgets.buttons USING: accessors colors kernel models sequences ui.gadgets
ui.gadgets.buttons.private ui.gadgets.books ui.gadgets.packs ui.gadgets.books ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.borders ui.gadgets.icons ui.gadgets ui.gadgets.theme ui.gadgets.buttons.private ui.gadgets.icons ui.gadgets.packs
ui.pens.image sequences models accessors kernel colors ui.gadgets.theme ui.gadgets.tracks ui.pens ;
colors.constants ;
IN: ui.gadgets.tabbed IN: ui.gadgets.tabbed
TUPLE: tabbed-gadget < track tabs book ; TUPLE: tabbed-gadget < track tabs book ;

13
basis/ui/gadgets/tables/tables.factor
View File

@ -1,13 +1,12 @@
! Copyright (C) 2008, 2011 Slava Pestov. ! Copyright (C) 2008, 2011 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs hashtables arrays colors colors.constants fry USING: accessors arrays colors colors.constants combinators
kernel math math.functions math.ranges math.rectangles math.order combinators.short-circuit fonts fry kernel locals math
math.vectors namespaces opengl sequences ui.gadgets 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.gadgets.scrollers ui.gadgets.status-bar ui.gadgets.worlds
ui.gestures ui.render ui.pens.solid ui.text ui.commands ui.images ui.gestures ui.images ui.pens.solid ui.render ui.text ;
ui.gadgets.menus ui.gadgets.line-support models combinators
combinators.short-circuit fonts locals splitting strings sets
sorting ;
FROM: sequences => change-nth ; FROM: sequences => change-nth ;
IN: ui.gadgets.tables IN: ui.gadgets.tables

5
basis/ui/gadgets/tracks/tracks.factor
View File

@ -1,8 +1,7 @@
! Copyright (C) 2006, 2009 Slava Pestov. ! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors io kernel namespaces fry math math.vectors USING: accessors combinators fry kernel math math.vectors
math.rectangles math.order sequences words ui.gadgets ui.gadgets.packs sequences ui.gadgets ui.gadgets.packs ui.gadgets.packs.private ;
ui.gadgets.packs.private combinators ;
IN: ui.gadgets.tracks IN: ui.gadgets.tracks
TUPLE: track < pack sizes ; TUPLE: track < pack sizes ;

4
basis/ui/gadgets/viewports/viewports.factor
View File

@ -1,8 +1,6 @@
! Copyright (C) 2005, 2009 Slava Pestov. ! Copyright (C) 2005, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays ui.gadgets ui.gadgets.borders USING: accessors kernel math.vectors models ui.gadgets ;
kernel math namespaces sequences models math.vectors
math.rectangles ;
IN: ui.gadgets.viewports IN: ui.gadgets.viewports
TUPLE: viewport < gadget { constraint initial: { 1 1 } } ; TUPLE: viewport < gadget { constraint initial: { 1 1 } } ;