From 43b931922b88b8d611cde2ff3184a62813156e27 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 20 Oct 1999 20:24:21 +0000
Subject: [PATCH]   + sc* constants added as suggested by Shane Miller

---
 fcl/inc/classesh.inc | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/fcl/inc/classesh.inc b/fcl/inc/classesh.inc
index 2892f09ffa..555c580e64 100644
--- a/fcl/inc/classesh.inc
+++ b/fcl/inc/classesh.inc
@@ -44,6 +44,13 @@ const
 
   MaxListSize = Maxint div 16;
 
+{ values for TShortCut }
+
+  scShift = $2000;
+  scCtrl = $4000;
+  scAlt = $8000;
+  scNone = 0;
+
 { TStream seek origins }
 
   soFromBeginning = 0;
@@ -1071,7 +1078,10 @@ function LineStart(Buffer, BufPos: PChar): PChar;
 
 {
   $Log$
-  Revision 1.16  1999-09-13 08:35:16  fcl
+  Revision 1.17  1999-10-20 20:24:21  florian
+    + sc* constants added as suggested by Shane Miller
+
+  Revision 1.16  1999/09/13 08:35:16  fcl
   * Changed some argument names (Root->ARoot etc.) because the new compiler
     now performs more ambiguity checks  (sg)