From 77d16a7ad9e1d3499302cd8456d86546074b30f8 Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 14 May 2005 15:01:49 +0000
Subject: [PATCH] * TextMode parameter type changed to word for TP/BP
compatibility
---
rtl/emx/crt.pas | 7 +++++--
rtl/go32v2/crt.pp | 7 +++++--
rtl/inc/crt.inc | 9 ++++++---
rtl/netware/crt.pp | 2 +-
rtl/netwlibc/crt.pp | 2 +-
rtl/unix/crt.pp | 7 +++++--
rtl/watcom/crt.pp | 7 +++++--
rtl/win32/crt.pp | 9 ++++++---
8 files changed, 34 insertions(+), 16 deletions(-)
diff --git a/rtl/emx/crt.pas b/rtl/emx/crt.pas
index 9da5aeb0bd..dbbdc7ec46 100644
--- a/rtl/emx/crt.pas
+++ b/rtl/emx/crt.pas
@@ -453,7 +453,7 @@ begin
scroll_dn(row,left,bot,right,1,fil);
end;
-procedure textmode(mode:integer);
+procedure TextMode (Mode: word);
{ Use this procedure to set-up a specific text-mode.}
@@ -960,7 +960,10 @@ end.
{
$Log$
- Revision 1.6 2005-03-30 23:11:35 hajny
+ Revision 1.7 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.6 2005/03/30 23:11:35 hajny
* OS/2 fixes merged to EMX
Revision 1.5 2005/02/14 17:13:22 peter
diff --git a/rtl/go32v2/crt.pp b/rtl/go32v2/crt.pp
index ae090ddd92..f564d08833 100644
--- a/rtl/go32v2/crt.pp
+++ b/rtl/go32v2/crt.pp
@@ -144,7 +144,7 @@ end;
****************************************************************************}
-procedure textmode(mode : integer);
+procedure textmode (Mode: word);
var
regs : trealregs;
@@ -770,7 +770,10 @@ end.
{
$Log$
- Revision 1.12 2005-02-14 17:13:22 peter
+ Revision 1.13 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.12 2005/02/14 17:13:22 peter
* truncate log
}
diff --git a/rtl/inc/crt.inc b/rtl/inc/crt.inc
index ed89520780..1889205377 100644
--- a/rtl/inc/crt.inc
+++ b/rtl/inc/crt.inc
@@ -108,12 +108,12 @@ begin
end;
-procedure TextMode (Mode: integer);
+procedure TextMode (Mode: word);
{ Use this procedure to set-up a specific text-mode.}
begin
TextAttr := $07;
LastMode := Mode;
- SetScreenMode (word (Mode));
+ SetScreenMode (Mode);
WindMin := 0;
WindMaxX := Pred (ScreenWidth);
WindMaxY := Pred (ScreenHeight);
@@ -410,7 +410,10 @@ end;
{
$Log$
- Revision 1.2 2005-05-14 14:58:41 hajny
+ Revision 1.3 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.2 2005/05/14 14:58:41 hajny
* TextMode parameter type changed temporarily not to break other platforms
Revision 1.1 2005/05/14 14:32:55 hajny
diff --git a/rtl/netware/crt.pp b/rtl/netware/crt.pp
index 8e6ac833bf..480bf3fa91 100644
--- a/rtl/netware/crt.pp
+++ b/rtl/netware/crt.pp
@@ -141,7 +141,7 @@ end;
****************************************************************************}
-procedure textmode(mode : integer);
+procedure textmode (mode: word);
begin
Window (1,1,byte(ScreenWidth),byte(ScreenHeight));
ClrScr;
diff --git a/rtl/netwlibc/crt.pp b/rtl/netwlibc/crt.pp
index 7edeeb0ce4..5dd43b7711 100644
--- a/rtl/netwlibc/crt.pp
+++ b/rtl/netwlibc/crt.pp
@@ -128,7 +128,7 @@ end;
****************************************************************************}
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
begin
Window (1,1,byte(ScreenWidth),byte(ScreenHeight));
ClrScr;
diff --git a/rtl/unix/crt.pp b/rtl/unix/crt.pp
index 341a787c01..1b12df98a6 100644
--- a/rtl/unix/crt.pp
+++ b/rtl/unix/crt.pp
@@ -1416,7 +1416,7 @@ end;
-Procedure TextMode(Mode: Integer);
+Procedure TextMode (Mode: word);
{
Only Clears Screen under linux}
begin
@@ -1626,7 +1626,10 @@ Finalization
End.
{
$Log$
- Revision 1.24 2005-03-16 18:17:23 jonas
+ Revision 1.25 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.24 2005/03/16 18:17:23 jonas
* fix from mischi to fix extra spaces under some terminals
Revision 1.23 2005/03/15 09:20:11 jonas
diff --git a/rtl/watcom/crt.pp b/rtl/watcom/crt.pp
index 39038b60b6..bf3c350e2a 100644
--- a/rtl/watcom/crt.pp
+++ b/rtl/watcom/crt.pp
@@ -133,7 +133,7 @@ end;
****************************************************************************}
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
var
regs : trealregs;
@@ -756,7 +756,10 @@ end.
{
$Log$
- Revision 1.5 2005-02-14 17:13:32 peter
+ Revision 1.6 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.5 2005/02/14 17:13:32 peter
* truncate log
}
diff --git a/rtl/win32/crt.pp b/rtl/win32/crt.pp
index fd1523e1b3..f7c0e9e308 100644
--- a/rtl/win32/crt.pp
+++ b/rtl/win32/crt.pp
@@ -109,9 +109,9 @@ end;
****************************************************************************}
-procedure textmode(mode : integer);
+procedure TextMode (Mode: word);
begin
- {!!! Not done yet !!! }
+ {$WARNING TextMode not implemented yet!!}
end;
Procedure TextColor(Color: Byte);
@@ -831,7 +831,10 @@ end. { unit Crt }
{
$Log$
- Revision 1.24 2005-02-14 17:13:32 peter
+ Revision 1.25 2005-05-14 15:01:49 hajny
+ * TextMode parameter type changed to word for TP/BP compatibility
+
+ Revision 1.24 2005/02/14 17:13:32 peter
* truncate log
Revision 1.23 2005/01/03 18:16:12 peter