improved fix for right click on mac
authorkoda
Wed, 19 Aug 2009 18:55:40 +0000
changeset 2328 e74f2db28b21
parent 2327 4832b77ec958
child 2329 1cfb7d184ee1
improved fix for right click on mac
hedgewars/uKeys.pas
hedgewars/uSound.pas
--- a/hedgewars/uKeys.pas	Wed Aug 19 15:17:21 2009 +0000
+++ b/hedgewars/uKeys.pas	Wed Aug 19 18:55:40 2009 +0000
@@ -64,21 +64,22 @@
 
 {$IFDEF SDL13}
 pkbd := SDL_GetKeyboardState(nil);
-i	 := SDL_GetMouseState(0, nil, nil);
+i    := SDL_GetMouseState(0, nil, nil);
 {$ELSE}
 pkbd := SDL_GetKeyState(nil);
-i	 := SDL_GetMouseState(nil, nil);
+i    := SDL_GetMouseState(nil, nil);
 {$ENDIF}
 
-pkbd^[1]:= (i and 1);
-pkbd^[2]:= ((i shr 1) and 1);
 
 {$IFDEF DARWIN}
-//    normal right click     ||      ctrl (left/right) + left click	  
-pkbd^[3]:= ((i shr 2) and 1) or ((i and 1) and (pkbd^[306] or pkbd^[305]));
+pkbd^[1]:= ((i and 1) and not (pkbd^[306] or pkbd^[305]));
+pkbd^[3]:= ((i and 1) and (pkbd^[306] or pkbd^[305])) or (i and 4);
 {$ELSE}
+pkbd^[1]:= (i and 1);
 pkbd^[3]:= ((i shr 2) and 1);
 {$ENDIF}
+pkbd^[2]:= ((i shr 1) and 1);
+
 
 for i:= 1 to cKeyMaxIndex do
 if CurrentBinds[i][0] <> #0 then
@@ -131,18 +132,17 @@
        end;
     end;
 
-DefaultBinds[ 27]:= 'quit';
-DefaultBinds[ 48]:= '+volup';
-DefaultBinds[ 57]:= '+voldown';
-DefaultBinds[ 44]:= 'history';	// , instead of `
-DefaultBinds[ 96]:= 'history';
-DefaultBinds[ 99]:= 'capture';
-DefaultBinds[104]:= 'findhh';
-DefaultBinds[112]:= 'pause';
-DefaultBinds[115]:= '+speedup';
-DefaultBinds[116]:= 'chat';
-DefaultBinds[121]:= 'confirm';
-DefaultBinds[127]:= 'rotmask';
+DefaultBinds[ 27]:= 'quit';		// esc
+DefaultBinds[ 48]:= '+volup';		// 0
+DefaultBinds[ 57]:= '+voldown';		// 9
+DefaultBinds[ 96]:= 'history';		// `
+DefaultBinds[ 99]:= 'capture';		// c
+DefaultBinds[104]:= 'findhh';		// h
+DefaultBinds[112]:= 'pause';		// p
+DefaultBinds[115]:= '+speedup';		// s
+DefaultBinds[116]:= 'chat';		// t
+DefaultBinds[121]:= 'confirm';		// y
+DefaultBinds[127]:= 'rotmask';		// canc
 
 DefaultBinds[KeyNameToCode('f12')]:= 'fullscr';
 
--- a/hedgewars/uSound.pas	Wed Aug 19 15:17:21 2009 +0000
+++ b/hedgewars/uSound.pas	Wed Aug 19 18:55:40 2009 +0000
@@ -203,7 +203,6 @@
 TryDo(Mus >= 0, msgFailed, false);
 WriteLnToConsole(msgOK);
 
-//openal_setvolume(Mus, cInitVolume-40);
 openal_fadein(Mus, 20);
 openal_toggleloop(Mus);
 end;