pref-dim* ( gadget -- dim )
Factor handbook » UI framework » Building user interfaces » Gadget hierarchy and layouts » Layout basics

Prev:

relayout-1 ( gadget -- )

Vocabulary
ui.gadgets

Inputs

gadget

a gadget

Outputs

dim	a pair of integers

Generic word contract
Outputs the preferred dimensions of the gadget, possibly computing them from the preferred dimensions of the gadget's children.

Notes
User code should not call this word directly, instead call pref-dim.

See also
pref-dim, layout, layout*

Definition

IN: ui.gadgets

GENERIC: pref-dim* ( gadget -- dim )

Methods

USING: L-system ui.gadgets ;

M:: L-system pref-dim* ( L-SYSTEM -- dim ) { 400 400 } ;


USING: accessors images.viewer.scaling
images.viewer.scaling.private kernel math.vectors models
ui.gadgets ;

M: autoscaling-image-gadget pref-dim*
    dup pref-dim>>
    [ nip ] [
        [ parent-fill-dims v>integer dup ]
        [ model>> ?set-model ] bi
    ] if* ;


USING: game.input.demos.joysticks kernel ui.gadgets ;

M: axis-gadget pref-dim* drop SIZE ;


USING: kernel ui.gadgets ui.gadgets.debug ;

M: bad-gadget pref-dim* drop { 100 100 } ;


USING: accessors gamelib.ui ui.gadgets ;

M: board-gadget pref-dim* dimension>> ;


USING: accessors ui.gadgets ui.gadgets.books ;

M: book pref-dim* children>> pref-dims max-dims ;


USING: kernel ui.gadgets ui.gadgets.borders ;

M: border pref-dim* dup gadget-child pref-dim border-pref-dim ;


USING: accessors bubble-chamber ui.gadgets ;

M: bubble-chamber pref-dim* size>> ;


USING: cairo-demo kernel ui.gadgets ;

M: cairo-demo-gadget pref-dim* drop { 384 256 } ;


USING: kernel ui.gadgets ui.gadgets.charts ;

M: chart pref-dim* drop { 300 300 } ;


USING: accessors arrays kernel sequences ui.gadgets
ui.gadgets.tables.private ui.text ;

M: column-headers pref-dim*
    table>> [ pref-dim first ] [ font>> "" text-height ] bi
    2array ;


USING: kernel opengl.demo-support ui.gadgets ;

M: demo-world pref-dim* drop { 640 480 } ;


USING: accessors generic kernel math.vectors ui.gadgets
ui.gadgets.editors ui.gadgets.editors.private ui.text ;

M: editor pref-dim*
    [ M\ editor pref-dim* (call-next-method) ] keep
    [ font>> ] keep dup draw-default-text?
    [ default-text>> ] [ control-value ] if text-dim { 1 0 } v+
    vmax ;


USING: accessors arrays kernel sequences ui.gadgets
ui.gadgets.borders ui.gadgets.editors ui.gadgets.line-support ;

M: field pref-dim*
    [ ] [ editor>> pref-dim ]
    [ [ line-gadget-width ] [ drop second ] 2bi 2array ] tri
    border-pref-dim ;


USING: accessors ui.gadgets ;

M: gadget pref-dim* dim>> ;


USING: kernel ui.gadgets ui.gadgets.frames.private ;

M: glue pref-dim* drop { 0 0 } ;


USING: accessors arrays game-of-life kernel math ui.gadgets ;

M: grid-gadget pref-dim*
    [ grid>> grid-dim swap ]
    [ size>> [ * ] curry bi@ 1 + 2array ] bi ;


USING: accessors arrays kernel math minesweeper ui.gadgets ;

M: grid-gadget pref-dim*
    cells>> cells-dim [ 32 * ] bi@ swap 58 + 2array ;


USING: ui.gadgets ui.gadgets.grids ui.gadgets.grids.private ;

M: grid pref-dim* <grid-layout> grid-pref-dim ;


USING: accessors kernel ui.gadgets ui.gadgets.icons ui.pens ;

M: icon pref-dim* dup image>> pen-pref-dim ;


USING: accessors images images.viewer kernel ui.gadgets ;

M: image-gadget pref-dim*
    image>> [ image-dim ] [ { 640 480 } ] if* ;


USING: accessors generic kernel ui.gadgets
ui.gadgets.incremental ;

M: incremental pref-dim*
    dup layout-state>>
    [ dup M\ incremental pref-dim* (call-next-method) >>cursor ]
    when cursor>> ;


USING: kernel roms.space-invaders ui.gadgets ;

M: invaders-gadget pref-dim* drop { 224 256 } ;


USING: arrays jamshred kernel ui.gadgets ;

M: jamshred-gadget pref-dim*
    drop default-width default-height 2array ;


USING: game.input.demos.key-caps kernel ui.gadgets ;

M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;


USING: arrays math.functions sequences ui.gadgets
ui.gadgets.labels ui.text ;

M: label pref-dim* >label< text-dim first2 ceiling 2array ;


USING: kernel ui.gadgets ui.gadgets.line-support ;

M: line-gadget pref-dim* { 0 0 } swap line-gadget-dim ;


USING: kernel maze ui.gadgets ;

M: maze pref-dim* drop { 400 400 } ;


USING: accessors kernel ui.gadgets ui.gadgets.packs
ui.gadgets.packs.private ;

M: pack pref-dim* dup children>> pref-dims pack-pref-dim ;


USING: arrays kernel sequences ui.gadgets ui.gadgets.paragraphs
ui.gadgets.paragraphs.private ;

M: paragraph pref-dim*
    cached-wrapped
    [ { 0 0 } ]
    [ [ max-line-width ] [ sum-line-heights ] bi 2array ]
    if-empty ;


USING: kernel pong ui.gadgets ;

M: pong-gadget pref-dim* drop { 400 400 } ;


USING: accessors images.viewer.scaling kernel math.vectors
ui.gadgets ;

M: scaling-image-gadget pref-dim*
    dup pref-dim>>
    [ nip ] [ [ image>> dim>> ] [ scale>> ] bi v*n v>integer ]
    if* ;


USING: accessors ui.gadgets ui.gadgets.slate ;

M: slate pref-dim* pdim>> ;


USING: accessors kernel math.vectors ui.gadgets
ui.gadgets.sliders ui.gadgets.sliders.private ;

M: slider pref-dim*
    [
        dup slider-enabled?
        [ t >>visible? slider-required-width ]
        [ f >>visible? drop { 0 0 } ] if
    ] [ drop { 100 100 } ] [ orientation>> ] tri set-axis ;


USING: generic math.vectors ui.gadgets ui.tools.inspector.slots
;

M: slot-editor pref-dim*
    M\ slot-editor pref-dim* (call-next-method) { 600 200 } vmin
    ;


USING: kernel math sequences snake-game.game snake-game.ui
ui.gadgets ;

M: snake-gadget pref-dim*
    drop snake-game-dim [ snake-game-cell-size * 20 + ] map ;


USING: accessors math.splines.viewer ui.gadgets ;

M: spline-gadget pref-dim* spline-dim>> ;


USING: arrays kernel math sequences ui.gadgets
ui.gadgets.line-support ui.gadgets.tables
ui.gadgets.tables.private ;

M: table pref-dim*
    [ compute-column-widths drop ] keep
    [ line-height ] [ control-value length ] bi * 2array ;


USING: kernel tetris ui.gadgets ;

M: tetris-gadget pref-dim* drop { 200 400 } ;


USING: classes combinators.short-circuit generic ui.gadgets
ui.tools.common ;

M: tool pref-dim*
    {
        [ class-of get-tool-dim ]
        [ M\ tool pref-dim* (call-next-method) ]
    } 1|| ;


USING: accessors kernel math.vectors ui.gadgets
ui.gadgets.tracks ui.gadgets.tracks.private ;

M: track pref-dim*
    [ track-pref-dims-1 ]
    [ [ alloted-dim ] [ track-pref-dims-2 ] bi v+ ]
    [ orientation>> ] tri set-axis ;


USING: kernel trails ui.gadgets ;

M: trails-gadget pref-dim* drop { 500 500 } ;


USING: ui.gadgets ui.gadgets.scrollers ui.gadgets.viewports ;

M: viewport pref-dim* gadget-child pref-viewport-dim ;


USING: kernel ui.gadgets window-controls-demo ;

M: window-controls-demo-world pref-dim* drop { 400 400 } ;


USING: ui.gadgets ui.gadgets.wrappers ;

M: wrapper pref-dim* gadget-child pref-dim ;