* ClearViewPort fixed

rtl/inc/graph/graph.inc

@@ -1152,10 +1152,10 @@ Begin
   GetLineSettings(LineSets);
   { reset to normal line style...}
   SetLineStyle(SolidLn, 0, NormWidth);
-
   { routines are relative here...}
-  for J:=0 to ViewHeight - 1 do
-       HLine(0, ViewWidth - 1, J);
+  { ViewHeight is Height-1 !     }
+  for J:=0 to ViewHeight do
+       HLine(0, ViewWidth , J);
 
   { restore old settings...}
   SetLineStyle(LineSets.LineStyle, LineSets.Pattern, LineSets.Thickness);
@@ -2314,7 +2314,10 @@ begin
 end;
 {
   $Log$
-  Revision 1.28  2000-03-19 11:20:13  peter
+  Revision 1.29  2000-03-24 13:01:15  florian
+    * ClearViewPort fixed
+
+  Revision 1.28  2000/03/19 11:20:13  peter
     * graph unit include is now independent and the dependent part
       is now in graph.pp
     * ggigraph unit for linux added
@@ -2526,4 +2529,4 @@ end;
   Revision 1.16  1999/07/14 18:18:04  florian
     * cosmetic changes
 
-}
+}

rtl/inc/graph/modes.inc

@@ -362,7 +362,10 @@
 
 {
 $Log$
-Revision 1.19  2000-01-07 16:41:39  daniel
+Revision 1.20  2000-03-24 13:01:15  florian
+  * ClearViewPort fixed
+
+Revision 1.19  2000/01/07 16:41:39  daniel
   * copyright 2000
 
 Revision 1.18  2000/01/07 16:32:26  daniel
@@ -436,4 +439,4 @@ Revision 1.7  1999/07/12 13:27:14  jonas
     real mode (but unexplainable "data segnment too large" errors prevent
     it from working under real mode anyway)
 
-}
+}