From 51cb1f0b2d2bcdefa0802d28776d0d22aa9c48c1 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 22 Sep 2018 20:28:54 +0000
Subject: [PATCH] * Better shortcut key for non-mac

git-svn-id: trunk@59137 -
---
 components/idespotter/regidespotter.pas | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/components/idespotter/regidespotter.pas b/components/idespotter/regidespotter.pas
index 37955bf6f5..4c08ee17e6 100644
--- a/components/idespotter/regidespotter.pas
+++ b/components/idespotter/regidespotter.pas
@@ -29,12 +29,21 @@ begin
 end;
 
 Procedure Register;
+
+Const
+{$IFDEF DARWIN}
+  ShiftKeys = [ssMeta,ssShift];
+{$ELSE}
+  ShiftKeys = [ssAlt,ssShift];
+{$ENDIF}
+
+
 var
   IDEShortCutX: TIDEShortCut;
   IDECommandCategory: TIDECommandCategory;
   IDECommand: TIDECommand;
 begin
-  IDEShortCutX := IDEShortCut(VK_P, [ssMeta,ssShift], VK_UNKNOWN, []);
+  IDEShortCutX := IDEShortCut(VK_P, ShiftKeys, VK_UNKNOWN, []);
   IDECommandCategory := IDECommandList.FindCategoryByName(CommandCategoryViewName);
   if IDECommandCategory <> nil then
   begin