USING: kernel accessors namespaces models ui ui.gadgets models.arrow ui.gadgets.packs ui.gadgets.buttons ; FROM: system => exit ; IN: gui { 10 10 } >>gap t [ "Enable QUIT" add-gadget ] [ "Quit" swap [ value>> [ 0 exit ] when drop ] curry add-gadget ] bi "" open-window