home *** CD-ROM | disk | FTP | other *** search
- { Turbo Graphix Toolbox emulation routines. }
- { definetextwindow and initgraphic are defined if you are NOT using the
- Turbo Graphix Toolbox, to avoid undefined function call errors on routines
- that aren't used by non-Toolbox versions. Likewise for the constants
- Xscreenmaxglb and Ymaxglb. }
- const Xscreenmaxglb = 0;
- Ymaxglb = 0;
- procedure definetextwindow (win, xmin, ymin, xmax, ymax, color: integer);
- begin
- end;
-
- procedure initgraphic;
- begin
- end;
- { A dummy routine so the Turbo Graphix Toolbox versions can use DOS windowing. }
- procedure T_WINDOW (X1, Y1, X2, Y2: integer);
- begin
- window (X1, Y1, X2, Y2);
- end;
-