浏览代码

* fixed compilation on non-Linux

git-svn-id: trunk@3393 -
Jonas Maebe 19 年之前
父节点
当前提交
a6863b49e1
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      rtl/unix/keyboard.pp

+ 2 - 1
rtl/unix/keyboard.pp

@@ -81,6 +81,8 @@ const KbShiftUp    = $f0;
       KbShiftHome  = $f4;
       KbShiftHome  = $f4;
       KbShiftEnd   = $f5;
       KbShiftEnd   = $f5;
 
 
+      double_esc_hack_enabled : boolean = false;
+
 {$ifdef Unused}
 {$ifdef Unused}
 type
 type
    TKeyState = Record
    TKeyState = Record
@@ -196,7 +198,6 @@ const
 const
 const
   oldmeta : longint = 0;
   oldmeta : longint = 0;
   meta : longint = 0;
   meta : longint = 0;
-  double_esc_hack_enabled : boolean = false;
 
 
 var oldesc0,oldesc1,oldesc2,oldesc4,oldesc8:word;
 var oldesc0,oldesc1,oldesc2,oldesc4,oldesc8:word;