Active Document Class not PIO Class

[twk]

Hi Everyone

I'm trying to call the current active class of the document and display it as text in my PIO,

unfortunately using

Procedure Main;

VAR

{VAR's for CustomPIO handling, etc}

Procedure ActClTest;

Begin;

MoveTo(0,0);

BeginText;

ActClasSt

EndText;

End;

Begin;

IF GetCustomObjectInfo(PIONameh, hParm, hParmRecord, hWall) & (hParm <> Nil)

THEN BEGIN

ActClasSt := ActiveClass;

ActClTest;

END;

is showing the current class of the PIO object, not the document.

How can I show the active 'documents' class not the PIO's class.

Thanks in advance