From b21f9ed3eb27abe57d730bd214871dfcbbd20db9 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 11 Jul 2018 21:52:17 -0500
Subject: [PATCH] editors.ui: Make the editors ui its own thing.

---
 basis/editors/ui/ui.factor | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 basis/editors/ui/ui.factor

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
+
+: <reload-editor-button> ( editor -- button )
+    dup '[ drop [ _ reload ] \ run call-listener ] <border-button> ;
+
+: <editor-reloader> ( -- gadget )
+    <filled-pile> { 2 2 } >>gap available-editors
+    [ <reload-editor-button> add-gadget ] each ;
+
+MAIN-WINDOW: editor-window { { title "Editors" } }
+    <editor-reloader> { 2 2 } <border> <scroller> >>gadgets ;