interface ( -- book )

Vocabulary

recipes

Inputs

None

Outputs

book

an object

Definition

USING: accessors assocs colors kernel namespaces
ui.gadgets.labels ui.gadgets.layout ui.pens.solid ;

IN: recipes

: interface ( -- book )
    [
        [
            [
                \ TOOLBAR <placeholder>
                [ swap templates get set-at ] keep ,
            ] <hbox> COLOR: AliceBlue <solid> >>interior , [
                "Genres:" <label> , <spacer> \ ALL <placeholder>
                [ swap templates get set-at ] keep ,
                \ GENRES <placeholder>
                [ swap templates get set-at ] keep ,
            ] <hbox> { 5 0 } >>gap
            COLOR: gray <solid> >>interior ,
            \ RECIPES <placeholder>
            [ swap templates get set-at ] keep ,
        ] <vbox> , [
            [
                "Title:" <label> , \ TITLE <placeholder>
                [ swap templates get set-at ] keep ,
                "Genre:" <label> , \ GENRE <placeholder>
                [ swap templates get set-at ] keep ,
            ] <hbox> , \ BODY <placeholder>
            [ swap templates get set-at ] keep ,
            \ BUTTON <placeholder>
            [ swap templates get set-at ] keep ,
        ] <vbox> ,
    ] <book*> { 350 245 } >>pref-dim ;