Path: utzoo!attcan!uunet!lll-winken!lll-tis!helios.ee.lbl.gov!pasteur!ucbvax!LUCID.COM!lnz
From: lnz@LUCID.COM (Leonard N. Zubkoff)
Newsgroups: comp.sys.apollo
Subject: Display Configurations
Message-ID: <8811012315.AA00861@atlantis>
Date: 1 Nov 88 23:15:20 GMT
References: <8811012110.AA00454@umix.cc.umich.edu>
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 17

Try GPR_$Inq_Disp_Characteristics, as in:

	GPR_$Inq_Disp_Characteristics(GPR_$Borrow,IOS_$StdOut,
				      sizeof(DisplayCharacteristics),
				      DisplayCharacteristics,
				      DisplayCharacteristicsLength,Status);
	LastStatus := Status;
	if Status.All <> Status_$OK then return;
	DisplayInfo[0] := DisplayCharacteristics.X_Window_Size;
	DisplayInfo[1] := DisplayCharacteristics.Y_Window_Size;
	DisplayInfo[2] := DisplayCharacteristics.N_Planes;
	{ Planes may not be the same in borrow mode as in direct. }
	GPR_$Inq_Disp_Characteristics(GPR_$Direct,IOS_$StdOut,
				      sizeof(DisplayCharacteristics),
				      DisplayCharacteristics,
				      DisplayCharacteristicsLength,Status);
	if Status.All = Status_$OK then
	    DisplayInfo[2] := DisplayCharacteristics.N_Planes;