Path: utzoo!attcan!uunet!munnari!otc!metro!basser!usage!elecvax!8325499 From: 8325499@elecvax.eecs.unsw.oz (Gilbert Taylor-Wood) Newsgroups: comp.sys.mac.programmer Subject: How do I get MPW diagnostic's GrafPort ? Message-ID: <4099@elecvax.eecs.unsw.oz> Date: 13 Jul 88 16:19:21 GMT Organization: EE and CS, Uni of NSW, Sydney, Australia Lines: 39 I am trying to get hold of the grafport associated with the MPW file diagnostic, ( I want to know the window width, font used etc.). I thought the following would work but it dosnt { of course :-( }. Result is set to -1. Any and all suggestions would be welcome, please reply by mail, I will summarize to the net if there is any interest. thanks Gilbert ------------------------------------------------------------------------------- program test; USES {$U PasLibIntf.p } PasLibIntf, {$U MemTypes.p } MemTypes, {$U QuickDraw.p } Quickdraw, {$U OSIntf.p } OSIntf, {$U ToolIntf.p } ToolIntf, {$U IntEnv.p } IntEnv; const Interactive = 0; type graf_port_handle_type = ^grafptr; var dummy : longint; graf_port_handle : graf_port_handle_type; result: longint; begin if ( IEIOCtl (diagnostic, FIOINTERACTIVE, dummy) = Interactive ) then begin writeln('Interactive'); plflush ( output); new ( graf_port_handle ); result := IEIOCtl ( diagnostic, TIOGPORT, graf_port_handle ); writeln ( 'graf port access result = ', result );plflush(output); end end. --- Gilbert Taylor-Wood P.O. Box 448 Kensington NSW ACSnet : 8325499@elecvax.eecs.unsw.oz AUSTRALIA 2033 Bitnet : 8325499@elecvax.eecs.unsw.oz@munnari.oz