# HG changeset patch # User koda # Date 1257879384 0 # Node ID e873f4bfed096b65f3241de190a81e73b1955d95 # Parent 60c7691c348f4a50dea708424dbd6d5365d530ac fix keybindings in PPC diff -r 60c7691c348f -r e873f4bfed09 hedgewars/uKeys.pas --- a/hedgewars/uKeys.pas Tue Nov 10 16:43:15 2009 +0000 +++ b/hedgewars/uKeys.pas Tue Nov 10 18:56:24 2009 +0000 @@ -309,16 +309,18 @@ KeyNames[5]:= 'wheeldown'; for i:= 6 to cKeyMaxIndex do - begin - s:= SDL_GetKeyName(i); -// addfilelog(inttostr(i) + ' ' + s); - if s = 'unknown key' then KeyNames[i]:= '' - else begin - for t:= 1 to Length(s) do - if s[t] = ' ' then s[t]:= '_'; - KeyNames[i]:= s - end; - end; + begin + s:= string(sdl_getkeyname(i)); + //writeln(stdout,inttostr(i) + ': ' + s); + if s = 'unknown key' then KeyNames[i]:= '' + else begin + for t:= 1 to Length(s) do + if s[t] = ' ' then s[t]:= '_'; + KeyNames[i]:= s + end; +end; + +//for i:= 0 to cKeyMaxIndex do writeln(stdout,inttostr(i) + ': ' + KeyNames[i]); {$IFDEF SDL13} PByteArray(SDL_GetKeyboardState(@i));