From acf515d6c69970efdd742c8f98b123f46ff1a848 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Sat, 26 Jul 2008 22:49:57 -0700
Subject: [PATCH] joystick-demo: controllers are not always immediately
available after open-game-input
---
extra/joystick-demo/joystick-demo.factor | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/extra/joystick-demo/joystick-demo.factor b/extra/joystick-demo/joystick-demo.factor
index 828038e5eb..d44bc4dd38 100755
--- a/extra/joystick-demo/joystick-demo.factor
+++ b/extra/joystick-demo/joystick-demo.factor
@@ -2,7 +2,7 @@ USING: ui ui.gadgets sequences kernel arrays math colors
ui.render math.vectors accessors fry ui.gadgets.packs game-input
game-input.backend ui.gadgets.labels ui.gadgets.borders alarms
calendar locals combinators.lib strings ui.gadgets.buttons
-combinators math.parser assocs ;
+combinators math.parser assocs threads ;
IN: joystick-demo
: SIZE { 151 151 } ;
@@ -138,6 +138,7 @@ M: joystick-demo-gadget ungraft*
: joystick-demo ( -- )
[
open-game-input
+ 0.1 seconds sleep ! It might take a moment to find devices...
get-controllers [ joystick-window ] each
] with-ui ;