← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/rtl/os2/video.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/rtl/os2/video.pp
22
22
implementation
23
23
 
24
24
uses
25
 
  DosCalls, VioCalls;
 
25
  DosCalls, VioCalls, Mouse;
26
26
 
27
27
{$i video.inc}
28
28
 
352
352
procedure SysUpdateScreen (Force: boolean);
353
353
 
354
354
var SOfs, CLen: cardinal;
 
355
    Mouse_Visible: boolean;
355
356
 
356
357
begin
357
358
  if not (Force) then
407
408
  Move(VideoBuf^,SysVideoBuf^,VideoBufSize);
408
409
  if Force then
409
410
    begin
410
 
    VioShowBuf (SOfs, CLen, 0);
411
 
    Move (VideoBuf^ [SOfs div SizeOf (TVideoCell)],
 
411
      Mouse_Visible := MouseIsVisible; {MouseIsVisible is from Mouse unit}
 
412
      if Mouse_Visible then
 
413
        HideMouse;
 
414
      VioShowBuf (SOfs, CLen, 0);
 
415
      Move (VideoBuf^ [SOfs div SizeOf (TVideoCell)],
412
416
          OldVideoBuf^ [SOfs div SizeOf (TVideoCell)], CLen);
 
417
      if Mouse_Visible then
 
418
        ShowMouse;
413
419
    end;
414
420
end;
415
421