pry off some ui app boilerplate with a MAIN-WINDOW: syntax

[factor.git] / extra / lcd / lcd.factor

diff --git a/extra/lcd/lcd.factor b/extra/lcd/lcd.factor
index 56aa3373e5caee610e50705199b9de8805086a34..0056df046c8e223961c95cd73d601ba1b3fb19e1 100644 (file)
--- a/extra/lcd/lcd.factor
+++ b/extra/lcd/lcd.factor
@@ -24,7 +24,5 @@ IN: lcd
     "99:99:99" lcd >>string
     monospace-font >>font ;
 
-: time-window ( -- )
-    [ time get <time-display> "Time" open-window ] with-ui ;
-
-MAIN: time-window
+MAIN-WINDOW: time-window { { title "Time" } }
+    time get <time-display> >>gadgets ;