IN: gadgets-launchpad
USING: gadgets gadgets-buttons gadgets-labels gadgets-layouts
gadgets-listener help inspector io kernel memory namespaces
sequences ;

: <launchpad> ( menu -- )
    [ first2 >r <label> r> <bevel-button> ] map make-pile
    1 over set-pack-fill ;

: default-launchpad
    {
        { "Listener" [ listener-window ] }
        { "Documentation" [ [ handbook ] in-browser ] }
        { "Tutorial" [ [ tutorial ] in-browser ] }
        { "Vocabularies" [ [ vocabs. ] in-browser ] }
        { "Save image" [ save ] }
        { "Exit" [ 0 exit ] }
    } <launchpad> ;

: launchpad-window ( -- )
    default-launchpad "Factor" simple-window ;