瀏覽代碼

* uses now CFMakeRaw

florian 20 年之前
父節點
當前提交
49c3697fbf
共有 1 個文件被更改,包括 5 次插入4 次删除
  1. 5 4
      rtl/unix/keyboard.pp

+ 5 - 4
rtl/unix/keyboard.pp

@@ -75,9 +75,7 @@ Begin
   if b then
   if b then
    begin
    begin
      OldIO:=Tio;
      OldIO:=Tio;
-     Tio.c_iflag:=Tio.c_iflag and (not (IGNBRK or BRKINT or PARMRK or ISTRIP or
-                                INLCR or IGNCR or ICRNL or IXON));
-     Tio.c_lflag:=Tio.c_lflag and (not (ECHO or ECHONL or ICANON or ISIG or IEXTEN));
+     CFMakeRaw(Tio);
    end
    end
   else
   else
     Tio := OldIO;
     Tio := OldIO;
@@ -1532,7 +1530,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.19  2004-07-09 19:03:35  peter
+  Revision 1.20  2004-12-28 12:46:11  florian
+    * uses now CFMakeRaw
+
+  Revision 1.19  2004/07/09 19:03:35  peter
     * isatty return cint again
     * isatty return cint again
 
 
   Revision 1.17  2003/11/19 17:11:40  marco
   Revision 1.17  2003/11/19 17:11:40  marco