diff --git a/basis/editors/ui/ui.factor b/basis/editors/ui/ui.factor new file mode 100644 index 0000000000..b69a17991b --- /dev/null +++ b/basis/editors/ui/ui.factor @@ -0,0 +1,16 @@ +! Copyright (C) 2018 Doug Coleman. +! See http://factorcode.org/license.txt for BSD license. +USING: accessors editors fry kernel sequences ui ui.gadgets +ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs +ui.gadgets.scrollers ui.tools.listener vocabs.loader ; +IN: editors.ui + +: ( editor -- button ) + dup '[ drop [ _ reload ] \ run call-listener ] ; + +: ( -- gadget ) + { 2 2 } >>gap available-editors + [ add-gadget ] each ; + +MAIN-WINDOW: editor-window { { title "Editors" } } + { 2 2 } >>gadgets ;