From ab2a61bfa419859f52fa366d65db6b8d3efafd82 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 16 Jan 2010 12:00:00 -0800
Subject: [PATCH] use MAIN-WINDOW: for key-caps

---
 extra/key-caps/key-caps.factor | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor
index da901ed61e..585ca2d16f 100644
--- 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 ;