Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!watmath!clyde!rutgers!im4u!ut-sally!seismo!rochester!pt.cs.cmu.edu!andrew.cmu.edu!postman#
From: postman#@andrew.cmu.edu.UUCP
Newsgroups: comp.sys.mac
Subject: Re: How to print things on menu bar
Message-ID: <MS.V3.18.jv0l.80020d01.media.ibm032.2915.0@andrew.cmu.edu>
Date: Mon, 26-Jan-87 16:07:53 EST
Article-I.D.: andrew.MS.V3.18.jv0l.80020d01.media.ibm032.2915.0
Posted: Mon Jan 26 16:07:53 1987
Date-Received: Tue, 27-Jan-87 06:03:27 EST
Organization: Carnegie-Mellon University
Lines: 25
ReSent-Date: Mon, 26 Jan 87 16:11:15 est
ReSent-From: postman#@andrew.cmu.edu

ReSent-To:nntp-xmit#@andrew.cmu.edu
Return-path: <jv0l#@andrew.cmu.edu>
X-Andrew-Authenticated-as: 1752
To: outnews#ext.nn.comp.sys.mac@andrew.cmu.edu
Newsgroup: comp.sys.mac

Probably the easiest way to go about doing this would be to call the
getWMgrPort procedure which gives you a grafPtr to the screen.  This grafPtr
can be used to draw on the menu bar or on the desktop.  I have used this port
to make balls bounce around the desktop behind the windows.

Code would look something like this:

----
procedure giveMessage(what:str255);

  var
    oldPort,
    mgrPort: grafPtr;

  begin
    getPort(oldPort);
    getWMgrPort(mgrPort); {See window manager for details}
    setPort(mgrPort);
    moveTo(400,20); {or wherever}
    drawString(what);
    setPort(oldPort);
  end;
----
Justin
arpa: jv0l@andrew.cmu.edu