<window-pile> ( dim -- pile )

Vocabulary

ui-demo

Inputs

dim

an object

Outputs

pile

an object

Definition

USING: accessors kernel ui.gadgets ;

IN: ui-demo

:: <window-pile> ( dim -- pile )
    window-pile new vertical >>orientation 1 >>fill
    dim >>window-dim ;