Paste: simple gui

Author: Jon
Mode: factor
Date: Fri, 16 Sep 2011 13:53:16
Plain Text |
USING:  kernel accessors namespaces models ui ui.gadgets models.arrow
        ui.gadgets.packs ui.gadgets.buttons ;
FROM: system => exit ;

IN: gui

<pile> { 10 10 } >>gap

t <model>
    [ "Enable QUIT" <checkbox> add-gadget ]
    [ "Quit" swap [ value>> [ 0 exit ] when drop ] curry
<border-button> add-gadget ] bi

"" open-window

New Annotation

Summary:
Author:
Mode:
Body: