use MAIN-WINDOW: for key-caps

diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor
index da901ed61e52c50bb51d58ef13e1363e2e087c78..585ca2d16fa4b573646649f15c98bd9142128397 100644 (file)
--- a/extra/key-caps/key-caps.factor
+++ b/extra/key-caps/key-caps.factor
@@ -173,9 +173,5 @@ M: key-caps-gadget ungraft*
 M: key-caps-gadget handle-gesture
     drop [ key-down? ] [ key-up? ] bi or not ;
 
-: key-caps ( -- )
-    [
-        <key-caps-gadget> { 5 5 } <border> "Key Caps" open-window
-    ] with-ui ;
-
-MAIN: key-caps
+MAIN-WINDOW: key-caps { { title "Key Caps" } }
+    <key-caps-gadget> { 5 5 } <border> >>gadgets ;