paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 17:11:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* finalization added with setrawmode(false)

Browse Source
This commit is contained in:
peter 2000-07-08 21:22:16 +00:00
parent 2034ce428b
commit 64a3b5313d
2 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/linux/ggigraph.pp
View File

@ -90,6 +90,23 @@ implementation
uses
linux;
var
OldIO : TermIos;
Procedure SetRawMode(b:boolean);
Var
Tio : Termios;
Begin
if b then
begin
TCGetAttr(1,Tio);
OldIO:=Tio;
CFMakeRaw(Tio);
end
else
Tio:=OldIO;
TCSetAttr(1,TCSANOW,Tio);
End;
const
InternalDriverName = 'LinuxGGI';
@ -509,12 +526,18 @@ begin
end;
end;
begin
initialization
InitializeGraph;
SetRawMode(True);
finalization
SetRawMode(False);
end.
{
$Log$
Revision 1.2 2000-05-26 18:21:04 peter
Revision 1.3 2000-07-08 21:22:16 peter
* finalization added with setrawmode(false)
Revision 1.2 2000/05/26 18:21:04 peter
* fixed @ with var parameters
Revision 1.1 2000/03/19 11:20:14 peter

9
rtl/linux/graph.pp
View File

@ -589,13 +589,18 @@ end;
end;
end;
begin
initialization
InitializeGraph;
SetRawMode(True);
finalization
SetRawMode(False);
end.
{
$Log$
Revision 1.17 2000-06-30 22:14:44 peter
Revision 1.18 2000-07-08 21:22:16 peter
* finalization added with setrawmode(false)
Revision 1.17 2000/06/30 22:14:44 peter
* removed unused var
Revision 1.16 2000/06/25 13:38:30 jonas