]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/game/input/gtk/gtk.factor
core, basis, extra: Remove DOS line endings from files.
[factor.git] / basis / game / input / gtk / gtk.factor
index 57db116c977821d4606e5427cdf176fb8f19d754..da11a72437a3a1cf9daf030c332b645c05d0a3c7 100644 (file)
@@ -49,45 +49,45 @@ HOOK: x>hid-bit-order os ( -- x )
 
 M: linux x>hid-bit-order
     {
-        0 0 0 0 0 0 0 0 
-        0 41 30 31 32 33 34 35 
-        36 37 38 39 45 46 42 43 
-        20 26 8 21 23 28 24 12 
-        18 19 47 48 40 224 4 22 
-        7 9 10 11 13 14 15 51 
-        52 53 225 49 29 27 6 25 
-        5 17 16 54 55 56 229 85 
-        226 44 57 58 59 60 61 62 
-        63 64 65 66 67 83 71 95 
-        96 97 86 92 93 94 87 91 
-        90 89 98 99 0 0 0 68 
-        69 0 0 0 0 0 0 0 
-        88 228 84 70 0 0 74 82 
-        75 80 79 77 81 78 73 76 
-        127 129 128 102 103 0 72 0 
-        0 0 0 227 231 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
-        0 0 0 0 0 0 0 0 
+        0 0 0 0 0 0 0 0
+        0 41 30 31 32 33 34 35
+        36 37 38 39 45 46 42 43
+        20 26 8 21 23 28 24 12
+        18 19 47 48 40 224 4 22
+        7 9 10 11 13 14 15 51
+        52 53 225 49 29 27 6 25
+        5 17 16 54 55 56 229 85
+        226 44 57 58 59 60 61 62
+        63 64 65 66 67 83 71 95
+        96 97 86 92 93 94 87 91
+        90 89 98 99 0 0 0 68
+        69 0 0 0 0 0 0 0
+        88 228 84 70 0 0 74 82
+        75 80 79 77 81 78 73 76
+        127 129 128 102 103 0 72 0
+        0 0 0 227 231 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
+        0 0 0 0 0 0 0 0
     } ; inline
-     
+
 : x-bits>hid-bits ( bit-array -- bit-array )
     256 iota zip [ first ] filter values
     x>hid-bit-order [ nth ] curry map
     256 <bit-array> swap [ t swap pick set-nth ] each ;
-        
+
 M: gtk-game-input-backend read-keyboard
     get-dpy 256 <bit-array> [ XQueryKeymap drop ] keep
     x-bits>hid-bits keyboard-state boa ;
@@ -105,7 +105,7 @@ M: gtk-game-input-backend read-mouse
     swap 400 - >>dy
     swap 400 - >>dx
     0 >>scroll-dy 0 >>scroll-dx ;
-     
+
 M: gtk-game-input-backend reset-mouse
     get-dpy dup XDefaultRootWindow dup
     0 0 0 0 400 400 XWarpPointer drop ;