hedgewars/uKeys.pas
branch0.9.15
changeset 4746 3ae448aebe7e
parent 4744 ecc2c757d0df
child 4751 849740a91d36
--- a/hedgewars/uKeys.pas	Fri Jan 14 00:31:21 2011 +0100
+++ b/hedgewars/uKeys.pas	Sat Jan 15 16:44:32 2011 +0100
@@ -136,8 +136,8 @@
     if ((tkbdn[KeyNameToCode('left_ctrl')] = 1) or (tkbdn[KeyNameToCode('right_ctrl')] = 1)) then
 {$ENDIF}
     begin
-        if tkbdn[KeyNameToCode('q')] = 1 then writelntoconsole ('cmd+q pressed')
-        else if tkbdn[KeyNameToCode('w')] = 1 then writelntoconsole ('cmd+w pressed')
+        if tkbdn[KeyNameToCode('q')] = 1 then ParseCommand ('shutdown', true)
+        else if tkbdn[KeyNameToCode('w')] = 1 then ParseCommand ('forcequit', true);
     end;
 
 // now process strokes