+ tview.draw clears the back ground

fv/views.pas

@@ -1275,7 +1275,10 @@ END;
 {  Draw -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 17Sep97 LdB              }
 {---------------------------------------------------------------------------}
 PROCEDURE TView.Draw;
-BEGIN                                                 { Abstract method }
+VAR B : TDrawBuffer;
+BEGIN
+  MoveChar(B, ' ', GetColor(1), Size.X);
+  WriteLine(0, 0, Size.X, Size.Y, B);
 END;
 
 
@@ -4647,7 +4650,10 @@ END.
 
 {
  $Log$
- Revision 1.55  2004-12-26 16:14:08  peter
+ Revision 1.56  2005-01-07 22:29:48  florian
+   + tview.draw clears the back ground
+
+ Revision 1.55  2004/12/26 16:14:08  peter
    * force redraw tgroup after changebounds
 
  Revision 1.54  2004/12/22 15:28:22  peter