Fixing conflicts from stack checker changes

[factor.git] / extra / key-caps / key-caps.factor

diff --git a/extra/key-caps/key-caps.factor b/extra/key-caps/key-caps.factor
index acf20f90ab1f3866556e1be2b5e3168cc1dd7f24..8b97fc54b5d98ca93af35fe4909fc9bb75b41b40 100755 (executable)
--- a/extra/key-caps/key-caps.factor
+++ b/extra/key-caps/key-caps.factor
@@ -151,7 +151,7 @@ TUPLE: key-caps-gadget < gadget keys alarm ;
     [ >>keys ] tri ;
 
 : <key-caps-gadget> ( -- gadget )
-    key-caps-gadget new-gadget
+    key-caps-gadget new
     add-keys-gadgets ;
 
 M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;
@@ -174,7 +174,7 @@ M: key-caps-gadget handle-gesture
 : key-caps ( -- )
     [
         open-game-input
-        <key-caps-gadget> 5 <border> "Key Caps" open-window
+        <key-caps-gadget> { 5 5 } <border> "Key Caps" open-window
     ] with-ui ;
 
 MAIN: key-caps