pingus-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Pingus-CVS] r2738 - branches/pingus_sdl/data/controller


From: jsalmon3
Subject: [Pingus-CVS] r2738 - branches/pingus_sdl/data/controller
Date: Sun, 15 Jul 2007 08:06:19 +0200

Author: jsalmon3
Date: 2007-07-15 08:06:16 +0200 (Sun, 15 Jul 2007)
New Revision: 2738

Added:
   branches/pingus_sdl/data/controller/default.scm
Log:
Added default.scm

Added: branches/pingus_sdl/data/controller/default.scm
===================================================================
--- branches/pingus_sdl/data/controller/default.scm     2007-07-15 05:15:21 UTC 
(rev 2737)
+++ branches/pingus_sdl/data/controller/default.scm     2007-07-15 06:06:16 UTC 
(rev 2738)
@@ -0,0 +1,72 @@
+(pingus-controller
+  (standard-pointer
+    (mouse-pointer ))
+
+  (primary-button
+    (mouse-button
+      (button 0)))
+
+  (secondary-button
+    (mouse-button
+      (button 2)))
+
+  (pause-button
+    (key-button
+      (key "p")))
+
+  (fast-forward-button
+    (multiple-button
+      (key-button
+        (key "f"))
+      (key-button
+        (key "space"))))
+
+  (armageddon-button
+    (key-button
+      (key "a")))
+
+  (escape-button
+    (key-button
+      (key "escape")))
+
+  (scroller
+    (axis-scroller
+      (speed 1000)
+      (button-axis
+        (angle 90)
+        (key-button
+          (key "down"))
+        (key-button
+          (key "up")))
+      (button-axis
+        (angle 0)
+        (key-button
+          (key "right"))
+        (key-button
+          (key "left")))))
+
+  (action-buttons
+    (action-button (key-button (key 1)))
+    (action-button (key-button (key 2)))
+    (action-button (key-button (key 3)))
+    (action-button (key-button (key 4)))
+    (action-button (key-button (key 5)))
+    (action-button (key-button (key 6)))
+    (action-button (key-button (key 7)))
+    (action-button (key-button (key 8)))
+    (action-button (key-button (key 9)))
+    (action-button (key-button (key 0))))
+
+  (action-up
+    (multiple-button
+      (key-button
+        (key "prior"))
+      (mouse-button
+        (button 5))))
+
+  (action-down
+    (multiple-button
+      (key-button
+        (key "next"))
+      (mouse-button
+        (button 4)))))





reply via email to

[Prev in Thread] Current Thread [Next in Thread]