Priest of the Order of the Butterfly
Posts: 790 from 2007/10/23
From: Gelsenkirchen,...
Pascal's standard identifier "Text" cannot be a function, this is a bug.
Code:
--- packages/morphunits/src/agraphics.pas.bak 2015-06-17 09:45:51 +0100
+++ packages/morphunits/src/agraphics.pas 2015-12-12 14:26:33 +0100
@@ -2211,7 +2211,7 @@
function TextLength(rp : pRastPort location 'a1'; string1 : pSHORTINT location 'a0'; count : CARDINAL location 'd0') : INTEGER;
SysCall GfxBase 054;
-function Text(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; count : CARDINAL location 'd0') : LongInt;
+function GfxText(rp : pRastPort location 'a1'; string1: pSHORTINT location 'a0'; count : CARDINAL location 'd0') : LongInt;
SysCall GfxBase 060;
function SetFont(rp : pRastPort location 'a1'; textFont : pTextFont location 'a0') : LongInt;
Pegasos II G4: MorphOS 3.9, Zalman M220W · iMac G5 12,1 17", MorphOS 3.18
Power Mac G3: OSX 10.3 · PowerBook 5,8: OSX 10.5, MorphOS 3.18