factor/library/test/gadgets/frames.factor

IN: temporary
USING: gadgets gadgets-labels gadgets-layouts kernel namespaces
test ;

[ "Hello world" ]
[
    <frame> "frame" set
    "Hello world" <label> "frame" get 1 2 frame-add
    "frame" get 1 2 frame-child label-text
] unit-test

[ @{ @{ 2 2 2 }@ @{ 3 3 3 }@ @{ 4 4 4 }@ }@ ] [
    @{
        @{ @{ 0 0 0 }@ @{ 1 1 1 }@ @{ 2 2 2 }@ }@
        @{ @{ 0 0 0 }@ @{ 3 3 3 }@ @{ 0 0 0 }@ }@
        @{ @{ 0 0 0 }@ @{ 0 0 0 }@ @{ 4 4 4 }@ }@
    }@ reduce-grid
] unit-test

[ @{ 9 9 9 }@ ] [
    @{
        @{ @{ 0 0 0 }@ @{ 1 1 1 }@ @{ 2 2 2 }@ }@
        @{ @{ 0 0 0 }@ @{ 3 3 3 }@ @{ 0 0 0 }@ }@
        @{ @{ 0 0 0 }@ @{ 0 0 0 }@ @{ 4 4 4 }@ }@
    }@ frame-pref-dim
] unit-test

[
    @{
        @{ @{ 1 2 0 }@ @{ 2 2 0 }@ @{ 3 2 0 }@ }@
        @{ @{ 1 4 0 }@ @{ 2 4 0 }@ @{ 3 4 0 }@ }@
    }@
] [
    @{ 1 2 3 }@ @{ 2 4 }@ frame-layout
] unit-test

: sized-gadget ( dim -- gadget )
    <gadget> [ set-rect-dim ] keep ;

[ @{ 90 120 0 }@ ]
[
    <frame> "frame" set
    @{ 10 20 0 }@ sized-gadget "frame" get 1 2 frame-add
    @{ 30 40 0 }@ sized-gadget "frame" get 2 0 frame-add
    @{ 50 60 0 }@ sized-gadget "frame" get 0 1 frame-add
    "frame" get pref-dim
] unit-test

[ @{ 180 210 0 }@ ]
[
    <frame> "frame" set
    @{ 10 20 0 }@ sized-gadget "frame" get @bottom frame-add
    @{ 30 40 0 }@ sized-gadget "frame" get @top-right frame-add
    @{ 50 60 0 }@ sized-gadget "frame" get @left frame-add
    @{ 100 150 0 }@ sized-gadget "frame" get @center frame-add
    "frame" get pref-dim
] unit-test

[ @{ 30 60 0 }@ ]
[
    <frame> "frame" set
    @{ 10 20 0 }@ sized-gadget "frame" get @top frame-add
    @{ 30 40 0 }@ sized-gadget "frame" get @center frame-add
    "frame" get pref-dim
] unit-test