editors: allow them to be loaded in the load-all image

[factor.git] / basis / editors / ui / ui.factor

diff --git a/basis/editors/ui/ui.factor b/basis/editors/ui/ui.factor
index 81747033368f59ae7d3b2ec810ccc25256c02679..631c2f68b1c5c58c41af8feb5decf4e27338105f 100644 (file)
--- a/basis/editors/ui/ui.factor
+++ b/basis/editors/ui/ui.factor
@@ -1,12 +1,17 @@
 ! Copyright (C) 2018 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors editors kernel sequences ui ui.gadgets
-ui.gadgets.borders ui.gadgets.buttons ui.gadgets.packs
-ui.gadgets.scrollers ui.tools.listener vocabs.loader ;
+USING: accessors editors kernel namespaces 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> ;
+    dup '[
+        drop
+        [ f editor-class set-global _ reload ]
+        \ run call-listener
+    ] <border-button> ;
 
 : <editor-reloader> ( -- gadget )
     <filled-pile> { 2 2 } >>gap available-editors