[net.micro.mac] modified sleep desk accessory

edmoy@ucbopal.CC.Berkeley.ARPA (01/16/85)

I've submitted a modified version of the sleep desk accessory to net.sources
(and also to info-mac).  Many thanks to Walter Smith, who submitted it
first (Walter, if you're out there, I've held off submitting the source
code until I OK it with you).

For those who missed it the first time, sleep is a desk accessory that blacks
out the screen, so that you can leave it on all the time and instantly start
where you left off.  Unlike turning down the brightness control, an apple is
constantly moved around the screen to remind you that it is still on.

The major change is that the desk accessory has been restructured so that
clicking the mouse button causes SystemClick to call CloseDeskAcc so that
memory for it is no longer locked.  Also, it uses my dynamic relocation
scheme (another letter from me to info-mac talked about this), so that it
doesn't cause the Mac to bomb when it is restarted after another desk
accessory has been opened.

An added feature (actual hiding a bug) is that if you hold the mouse button
down and release it in the area where the menu bar is normally, sleep
continues.  Unfortunately, if the cursor is already in the menu bar area
and you click the mouse, nothing happens (you just have to move the mouse
down).

I change the cursor to be a hilited close box with an arrow in it when you
hold the mouse button down.  Moving it into the menu bar area will cause the
cursor to disappear.

Like the note from Lonnie R. Abelbeck, I prefer a smoothly moving apple to
the jumping apple, so this version has that implemented.

The file is in binhex format and uses the standard "desk" application to
preview and install it.  Again, many thanks to Walter.

Edward Moy
Computing Services
University of California
Berkeley, CA  94720

edmoy@ucbopal
ucbvax!ucbopal!edmoy