]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/trails/trails.factor
use MAIN-WINDOW: in a few places.
[factor.git] / extra / trails / trails.factor
index b678899db153fafee5252d8cb911a508ade4300d..8c39597ee0d213e64d5c9f5e3195dbed4583d5f1 100644 (file)
@@ -92,8 +92,6 @@ M:: trails-gadget draw-gadget* ( GADGET -- )
 
   dup start-trails-thread ;
 
-: trails-window ( -- ) [ <trails-gadget> "Trails" open-window ] with-ui ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
-MAIN: trails-window
+MAIN-WINDOW: trails-window
+    { { title "Trails" } }
+    <trails-gadget> >>gadgets ;