{the following PIO global variables --must be in main VAR block
PioName: STRING;
PH,PRH,PWH: HANDLE;
NewPIO: BOOLEAN;}

Function cVerPIO(EnableFontSettings, EnableDoubleClick: BOOLEAN): INTEGER;
	{returns: 0=PIO does not verify, 1=Normal redraw, 2=Double-Click detected}
	VAR n,i: LONGINT;
BEGIN
PName := 'BAD'; PH := nil; PRH:= nil; PWH := nil; NewPio:=FALSE;
IF GetCustomObjectInfo(PName, PH, PRH, PWH) & (PH<> NIL) & (PRH<> NIL) THEN BEGIN
 	cVerPIO:=1;
	NewPIO:= IsNewCustomObject(PName);
	IF EnableDoubleClick & SetObjPropCharVs(3,CHR(1)) THEN BEGIN
		VsoGetEventInfo(n,i);
		IF (n=7) THEN cVerPIO:=2;
		END;
	SetObjectVariableBoolean (PH,800,EnableFontSettings);  
	END
	ELSE cVerPIO:=0;
END;


BEGIN  {<--Script Main Begin}
PushAttrs;
CASE cVerPIO(TRUE,TRUE) OF
	1: BEGIN 
		{*Draw Pio Code}
		END;
	2: BEGIN
		{*DoubleClick Code}
		END;
	END;
PopAttrs;
END;