hedgewars/uKeys.pas
changeset 2805 36a8cebb91e8
parent 2786 85f6425a4d74
child 2905 f3c79f7193a9
--- a/hedgewars/uKeys.pas	Sat Feb 13 12:40:40 2010 +0000
+++ b/hedgewars/uKeys.pas	Sat Feb 13 16:04:04 2010 +0000
@@ -76,6 +76,7 @@
 	tabKey: boolean;
 	
 	chatAction: boolean;
+	pauseAction: boolean;
 	switchAction: boolean;
 
 	theJoystick: PSDL_Joystick;
@@ -336,6 +337,7 @@
 DefaultBinds[25]:= '+left';
 DefaultBinds[26]:= '+right';
 DefaultBinds[44]:= 'chat';
+DefaultBinds[55]:= 'pause';
 {$ELSE}
 DefaultBinds[KeyNameToCode('up')]:= '+up';
 DefaultBinds[KeyNameToCode('down')]:= '+down';
@@ -376,6 +378,7 @@
 	tkbdn[32]:= ord(spaceKey);
 
 	tkbdn[44]:= ord(chatAction);
+	tkbdn[55]:= ord(pauseAction);
 	//tkbdn[100]:= ord(switchAction);
 	
 	leftClick:= false;
@@ -387,6 +390,7 @@
 	backspaceKey:= false;
 	
 	chatAction:= false;
+	pauseAction:= false;
 	//switchAction:= false;
 end;
 {$ENDIF}
@@ -505,6 +509,7 @@
 	tabKey:= false;
 	
 	chatAction:= false;
+	pauseAction:= false;
 	switchAction:= false;
 {$ENDIF}
 end;