core, basis, extra: Remove DOS line endings from files.

[factor.git] / extra / game / input / demos / key-caps / key-caps.factor

diff --git a/extra/game/input/demos/key-caps/key-caps.factor b/extra/game/input/demos/key-caps/key-caps.factor
index c8d8e0bc53d397c181f2201a341a5717ff906046..1788ad132034947684da37af2b203bc21a98213c 100644 (file)
--- a/extra/game/input/demos/key-caps/key-caps.factor
+++ b/extra/game/input/demos/key-caps/key-caps.factor
@@ -93,7 +93,7 @@ CONSTANT: key-locations H{
     { key-print-screen  { { 155   0 } {  10  10 } } }
     { key-scroll-lock   { { 165   0 } {  10  10 } } }
     { key-pause         { { 175   0 } {  10  10 } } }
-    
+
     { key-insert        { { 155  15 } {  10  10 } } }
     { key-home          { { 165  15 } {  10  10 } } }
     { key-page-up       { { 175  15 } {  10  10 } } }
@@ -137,8 +137,8 @@ CONSTANT: FREQUENCY $[ 1/30 seconds ]
 TUPLE: key-caps-gadget < gadget keys timer ;
 
 : make-key-gadget ( scancode dim array -- )
-    [ 
-        swap [ 
+    [
+        swap [
             " " [ drop ] <border-button>
             swap [ first >>loc ] [ second >>dim ] bi
         ] [ execute( -- value ) ] bi*
@@ -147,7 +147,7 @@ TUPLE: key-caps-gadget < gadget keys timer ;
 : add-keys-gadgets ( gadget -- gadget )
     key-locations 256 f <array>
     [ [ make-key-gadget ] curry assoc-each ]
-    [ [ [ add-gadget ] when* ] each ] 
+    [ [ [ add-gadget ] when* ] each ]
     [ >>keys ] tri ;
 
 : <key-caps-gadget> ( -- gadget )
@@ -157,8 +157,8 @@ TUPLE: key-caps-gadget < gadget keys timer ;
 M: key-caps-gadget pref-dim* drop KEYBOARD-SIZE ;
 
 : update-key-caps-state ( gadget -- )
-    read-keyboard keys>> over keys>> 
-    [ [ selected?<< ] [ drop ] if* ] 2each 
+    read-keyboard keys>> over keys>>
+    [ [ selected?<< ] [ drop ] if* ] 2each
     relayout-1 ;
 
 M: key-caps-gadget graft*