Macintosh-SW/supermario
1
0
Fork 0
mirror of https://github.com/elliotnunn/supermario.git synced 2024-12-01 18:50:30 +00:00
Code Issues Projects Releases Wiki Activity
7627be1e6d
supermario/base/SuperMarioProj.1994-02-09/Toolbox/NotificationMgr/NotificationMgr.c
Elliot Nunn 2e16381318 Bring in sources, and document
2019-06-29 23:17:50 +08:00

932 lines
27 KiB
C
Raw Blame History

/*
File: NotificationMgr.c
Contains: Notification Manager
Written by: Ed Tecot
Copyright: © 1987-1994 by Apple Computer, Inc., all rights reserved.
Change History (most recent first):
<SM6> 1/8/94 kc Initialize SndChannelPtr before calling SndNewChannel in
DoSound. This fixes bug found in MacWorld Compatability Lab.
<SM5> 12/21/93 SAM Changed DoSound to manually get a new sound channel and set its
volume to the "alert" volume level before calling SndPlay.
<SM4> 5/18/93 RC perfomance/bug fix (seed up WaitNextEvent by 20%)
<SM3> 12/3/92 RB Renamed Call to avoid a conflict.
<14> 5/29/92 DCL Included TextUtils.p. EqualString was moved for the New Inside
Mac.
<13> 10/28/91 SAM/KSM Rolled in Regatta changes.
Regatta Change History:
<3> 6/14/91 SAM (HJR) Added a call to IdleUpdate() on _NMInstall calls to wake
the the system up when NM procs want to run.
<1> 5/22/91 SAM Split off from 7.0 GM sources.
7.0 Change History:
<12> 4/3/91 dba kill all the fun
<11> 3/4/91 dba dty: get rid of SysVers conditional
<10> 1/21/91 DFH (KSM) Process Menu is now called Application Menu.
<9> 10/10/90 JL Add Errors.h to Include List for nmTypErr
<8> 9/21/90 VL Juggled the fields in QHdr because we are patching some routines
in ci and portable ROMs. Preserving the order of the fields in
the original record allows us not to patch all of the routines.
<7> 8/18/90 dba get rid of code that does dialog centering for 7.0, since the
Window Mgr. will do it for us
<6> 7/17/90 dba use Memory.h all the time (MemUtils.h is obsolete); get rid of C
warning from unused parameter
<5> 7/16/90 VL See "Changes for 7.0".
<4> 7/10/90 dba add prototypes to avoid warnings
<3> 7/7/90 dba use standard Memory.h and OSUtils.h for system disk version
<2> 3/20/90 EMT Rewrote HaveCQD() macro to generate less code. Removed
RealMBarHeight stuff - MBarHeight is sufficient.
<1.2> 11/17/89 dba got rid of check for 64K ROMs
<1.1> 11/9/88 CCH Fixed file header.
<1.0> 11/9/88 CCH Adding to EASE.
<1.7> 11/1/88 GGD Added even more type coercions so that it compiles under MPW
3.0b1.
<1.6> 10/10/88 MSH Added type coercions so that it compiles under MPW 3.0b1.
<1.5> 9/16/88 cv Added type coersion so that it compiles with MPW3.0a2
<1.4> 8/4/88 BBM Changed FLUSHAPPLNM to uppercase for numac build
<1.3> 7/13/88 EMT Rolled in S474: Fixed bug so response procedure gets called.
<1.2> 5/23/88 BBM Changed NMInit to uppercase.
<1.1> 5/19/88 BBM Converted to MPW C 3.0.
<1.0> 3/22/88 EMT First time adding Notification Manager sources
*/
/*********************************************************************************************
*
* Changes for 7.0
*
* User-interface changes:
* 1) If a notification is coming from a process which is listed under the Application Menu,
* the blinking icon is put above the Application Menu. Otherwise, the blinking icon will be
* put above the Apple Menu. The latter case applies to DAs and system-level tasks.
* 2) The marks (or the diamonds) are put on the left of the menu items under the Application Menu.
* No mark will be put in the Apple Menu.
* 3) The NM can now blink color icon. The handle to the color icon suite is passed in the
* nmIcon field (previously nmSIcon field). The NM distinguishes the 2 kinds of icons by
* the size of the handle in nmIcon.
*
* Engineering changes:
* 1) In order to deal with blinking icons on both the Apple Menu and the Application Menu, an
* extra queue is added to NMHdr. amIcons and pmIcons will contain IconRec's for the Apple
* Menu and the Application Menu respectively. curAMIconRec and curPMIconRec contain the current
* icons for the Apple Menu and Application Menu.
* 2) An extra boolean is added to NMHdr. It shows whether NM should put up a new icon on the
* Apple Menu or the Application Menu. The icons above the 2 menus blink alternately.
* 3) In order to deal with color icon, a new Boolean iconSuite is added to IconRec so that
* the NM will know which kind of icon to plot.
* 4) GetApplicationMenu now gets the Application Menu for the 7.0 system while it gets the
* Apple menu in the 6.0 system.
* 5) New MBDF messages are added to deal with drawing above the Application Menu and color icon
* suites.
* 6) WaitSThresh is no longer a constant. It becomes a macro and returns the long or short
* wait time according to the state of the icon queues. The long wait time is used when
* icons are only blinking on one side while the short wait time is used when icons are
* blinking on both sides.
*
********************************************************************************************/
#include <Types.h>
#include <Errors.h>
#include <Memory.h>
#include <OSUtils.h>
#include <TextUtils.h>
#include <Devices.h>
#include <Events.h>
#include <Resources.h>
#include <Controls.h>
#include <Dialogs.h>
#include <Menus.h>
#include <Sound.h>
#include <IconUtilsPriv.h>
#include <MenuMgrPriv.h>
#include <MFPrivate.h>
#include <Power.h>
#include "kernel.h"
#include "task.h"
#include "Notification.h"
int disable();
void spl(int level);
#define MoveSDist 0 /* Argument to CallMBarProc message */
#define MoveSThresh 1 /* Number of ticks between moves */
#define AlarmSICN 0xBFFF /* ID of the alarm clock SICN */
#define AppleMark 0x0114 /* Pascal string containing apple character */
#define SICNsize 32 /* Size of (single) SICN */
typedef struct {
MenuHandle menuOH;
short menuLeft;
} MenuRec;
typedef struct {
short lastMenu, lastRight, mbResID;
MenuRec menu[0];
} MenuL, *MenuLPtr, **MenuLHdl;
#define MapTRUE -1
#define BufPtr (*(Ptr *) 0x10C)
#define UnitTable (*(DCtlHandle **) 0x11C)
#define Ticks (*(long *) 0x16A)
#define AlarmState (*(char *) 0x21F)
#define ROM85 (*(unsigned short *) 0x28E)
#define SysZone (*(THz *) 0x2A6)
#define ApplZone (*(THz *) 0x2AA)
#define WMgrPort (*(GrafPtr *) 0x9DE)
#define MenuList (*(MenuLHdl *) 0xA1C)
#define ROMMapInsert (*(short *) 0xB9E)
#define MBarHeight (*(short *) 0xBAA)
#define WMgrCPort (*(GrafPtr *) 0xD2C)
#define HaveCQD() (ROM85 <= 0x3FFF)
/* True iff alarm has gone off */
#define Alarm() (!(AlarmState & 0x3))
/* MBDF Messages */
#define MoveICSToPM 16
#define MoveICSToAM 17
#define MoveSICNToPM 18
#define MoveSICNToAM 13
/* Private NMRec nmFlags */
#define fItemMarked 0x0001
#define fIconinRot 0x0002
#define fSndPlayed 0x0008
#define fDlogDisp 0x0010
#define fDlogCompl 0x0020
#define fRespCompl 0x0040
#define fReqLocked 0x0080
#define fReqDone 0x8000
/* All auxiliary records start with this */
typedef struct AuxRec {
QElemPtr qLink;
short qType;
short aRefCount;
struct AuxRec *aLink;
} AuxRec, *AuxRecPtr;
#define nmMarkChar 0x13
/* Auxiliary record for menu item marks */
typedef struct MarkRec {
AuxRec hdr;
short mPID;
short mMarkID;
} MarkRec, *MarkRecPtr;
/* Auxiliary record for icons */
typedef struct IconRec {
AuxRec hdr;
Handle iSIcon;
Boolean iconSuite;
} IconRec, *IconRecPtr;
/* Notification Manager's globals */
typedef struct NMHdr {
QHdr requests, marks, amIcons; /* amIcons was icons */
NMRecPtr alarmRec;
MenuHandle lastMenuUsed; /* was lastAppleMenu */
IconRecPtr curAMIconRec; /* was curIconRec */
Handle copyIcon;
long lastMoveTime;
Boolean useNewIcon;
/* the following fields were added after the Portable and IIci ROMs */
IconRecPtr curPMIconRec;
QHdr pmIcons;
Boolean appleMenu;
} NMHdr, *NMHdrPtr;
#define NMQHdr (*(NMHdrPtr *) 0xB60)
/* Private NMHdr qFlags */
#define fInDoDlog 0x0001
#define fDlogInval 0x0002
#define NMDialog 1
#define buttonItem 1
#define defButItem 2
#define textItem 3
#define iconItem 4
#define EmptyIconQueue(iconQueue) (((IconRecPtr) iconQueue.qHead)->hdr.qLink == nil)
#define WaitSThresh(amIconQueue, pmIconQueue) ((!EmptyIconQueue(amIconQueue) && !EmptyIconQueue(pmIconQueue)) ? 30 : 60)
/* The MPW GetDCtlEntry has a bug. This is my substitute. It returns a handle
* to the DCE of the driver having the given refnum.
*/
#define MyGetDCtlEntry(refNum) UnitTable[~refNum]
/* Returns true iff theAddr is in the range specified by low & high. Uses StripAddress. */
Boolean
AddrInRange(Ptr theAddr, Ptr low, Ptr high)
{
theAddr = StripAddress(theAddr);
return (StripAddress(low) <= theAddr) && (theAddr <= StripAddress(high));
}
#define InSysZone(theAddr) AddrInRange(theAddr, (Ptr) SysZone, SysZone->bkLim)
#define InApplZone(theAddr) AddrInRange(theAddr, (Ptr) ApplZone, BufPtr)
/* Gets a process ID, or returns -1 if none is available (MultiFinder not active) */
short
GetPID(void)
{
if (NGetTrapAddress(0x8F, ToolTrap) != NGetTrapAddress(0x9F, ToolTrap)) {
/* MultiFinder active */
return TWGetPID();
}
else return -1;
}
/* Given a menu handle and a string, finds the item number, if any. Returns
* zero if it is not in the menu.
*/
short
FindItem(MenuHandle theMenu, StringPtr itemString)
{
register short i = CountMItems(theMenu);
Str255 menuString;
while (i > 0) {
GetItem(theMenu, i, menuString);
if (EqualString(itemString, menuString, false, true)) return i;
i--;
}
return 0;
}
MenuHandle
GetApplicationMenu(void)
{
return ((MenuHandle) GetResource('MENU',kApplicationMenuID));
}
short InApplicationMenu(short thePID, short theMarkID)
{
register MenuHandle theApplicationMenu = GetApplicationMenu();
register DCtlHandle hDCE = (theMarkID < 0) ? MyGetDCtlEntry(theMarkID) : nil;
short theItem = 0;
if (theApplicationMenu) {
if (thePID != -1) {
/* MultiFinder is here */
if (hDCE && !InSysZone((*hDCE)->dCtlDriver) && (thePID != GetPID())) {
/* The driver is not in the system heap and the PID is not mine.
* Therefore, the driver is not to be found, flag the app instead.
*/
hDCE = nil;
}
if (!hDCE) {
/* Mark the application */
struct procinfo procInfoRec;
TWGetProcInfo(thePID, &procInfoRec);
theItem = FindItem(theApplicationMenu, procInfoRec.p_name);
}
}
if (hDCE) {
/* It's a driver */
short dID;
ResType dType;
Str255 dName;
ROMMapInsert = MapTRUE;
GetResInfo(GetResource('DRVR', ~theMarkID), &dID, &dType, dName);
theItem = FindItem(theApplicationMenu, dName);
}
}
return theItem;
}
/* Gets the free auxiliary record, if available */
AuxRecPtr
GetFreeAux(QHdrPtr theQueue)
{
register AuxRecPtr theAuxRec = theQueue->qTail;
if (theAuxRec && !theAuxRec->qType) return theAuxRec;
else return nil;
}
/* Ensures that a free auxiliary record is available */
void
AddAuxRec(Size theSize, QHdrPtr theQueue)
{
if (!GetFreeAux(theQueue)) {
register AuxRecPtr theAuxRec = NewPtrSysClear(theSize);
Enqueue((QElemPtr)theAuxRec, theQueue);
}
}
#define AddMarkRec() AddAuxRec(sizeof(MarkRec), &NMQHdr->marks)
void
AddIconRec(void)
{
AddAuxRec(sizeof(IconRec), &NMQHdr->amIcons);
AddAuxRec(sizeof(IconRec), &NMQHdr->pmIcons);
}
/* Links the auxiliary record to theNMRec */
void
LinkAuxRec(NMRecPtr theNMRec, AuxRecPtr theAuxRec)
{
theAuxRec->qType = -1;
theAuxRec->aRefCount++;
theAuxRec->aLink = (AuxRecPtr) theNMRec->nmPrivate;
(AuxRecPtr) theNMRec->nmPrivate = theAuxRec;
}
/* Removes the auxiliary record links from theNMRec */
void
UnLinkAuxRecs(NMRecPtr theNMRec)
{
register AuxRecPtr theAuxRec = (AuxRecPtr) theNMRec->nmPrivate;
(AuxRecPtr) theNMRec->nmPrivate = nil;
while (theAuxRec) {
theAuxRec->aRefCount--;
theAuxRec = theAuxRec->aLink;
}
}
/* Inserts the MarkRec associated with theNMRec in the queue.
* Note that since MarkRecs have multiple references, it is important that
* these be the first auxiliary records in. (aLink should always be nil)
*/
MarkRecPtr
InsertMarkRec(NMRecPtr theNMRec)
{
register MarkRecPtr theMarkRec = NMQHdr->marks.qHead;
register short thePID = theNMRec->nmReserved;
register short theMarkID = theNMRec->nmMark;
while (theMarkRec &&
((theMarkID != theMarkRec->mMarkID) || (thePID != theMarkRec->mPID)) &&
theMarkRec->hdr.qType) theMarkRec = (MarkRec *) theMarkRec->hdr.qLink; /* 1.5 type coersion */
if (!theMarkRec) theMarkRec = (MarkRec *) GetFreeAux(&NMQHdr->marks); /* 1.5 type coersion */
if (theMarkRec) {
theMarkRec->mPID = thePID;
theMarkRec->mMarkID = theMarkID;
LinkAuxRec(theNMRec, (AuxRecPtr) theMarkRec);
}
return theMarkRec;
}
/* Inserts the IconRec associated with theNMRec in the queue. */
IconRecPtr
InsertIconRec(NMRecPtr theNMRec)
{
register IconRecPtr theIconRec = nil;
if ((GetHandleSize(theNMRec->nmIcon) == sizeof(IconSuite)) ||
(GetHandleSize(theNMRec->nmIcon) == SICNsize)) {
theIconRec = (IconRecPtr) GetFreeAux((InApplicationMenu(theNMRec->nmReserved, theNMRec->nmMark) && (theNMRec->nmMark)) ? &NMQHdr->pmIcons : &NMQHdr->amIcons);
if (theIconRec) {
theIconRec->iSIcon = theNMRec->nmIcon;
theIconRec->iconSuite = (GetHandleSize(theNMRec->nmIcon) == sizeof(IconSuite));
LinkAuxRec(theNMRec, (AuxRecPtr) theIconRec);
}
}
return theIconRec;
}
/* Finds the next valid IconRec in the queue, deleting all unused entries along
* the way, starting with theIconRec.
*/
IconRecPtr
ValidIconRec(IconRecPtr theIconRec, QHdrPtr queue)
{
if (theIconRec)
theIconRec = (IconRecPtr) theIconRec->hdr.qLink;
else
theIconRec = (IconRecPtr) queue->qHead;
while (theIconRec && !theIconRec->hdr.aRefCount) {
register IconRecPtr tempIconRec = theIconRec->hdr.qLink;
if (theIconRec->hdr.qType) {
Dequeue((QElemPtr)theIconRec, queue);
DisposPtr((Ptr)theIconRec);
}
theIconRec = tempIconRec;
}
return theIconRec;
}
/* This is run immediately after the code is installed in the system heap. */
void
NMINIT(void)
{
NMQHdr = (NMHdrPtr) NewPtrSysClear(sizeof(NMHdr));
NMQHdr->useNewIcon = true;
NMQHdr->appleMenu = true;
NMQHdr->copyIcon = NewHandleSys(sizeof(IconSuite));
}
/* This is the NMInstall trap, $A05E. The underscore is because NMInstall() calls
* the trap. This routine installs the request into the queue. It is guaranteed
* to succeed if theNMRec is valid.
*/
OSErr
_NMInstall(NMRecPtr theNMRec)
{
if (theNMRec->qType != nmType) return nmTypErr;
if (NGetTrapAddress(0xA085,OSTrap) != NGetTrapAddress(0xA89F,ToolTrap))
IdleUpdate();
theNMRec->nmFlags = 0;
theNMRec->nmPrivate = 0;
theNMRec->nmReserved = GetPID();
Enqueue((QElemPtr)theNMRec, &NMQHdr->requests);
return noErr;
}
/* This is the NMRemove trap, $A05F. The underscore is because NMRemove() calls
* the trap. This routine removes the request from the queue. It will remove
* the dialog if one is up, and will abort any icon rotation that is in progress.
* It is guaranteed to succeed if theNMRec is valid and in the queue.
*/
OSErr
_NMRemove(NMRecPtr theNMRec)
{
register OSErr rValue;
if (theNMRec->qType != nmType) return nmTypErr;
if ((rValue = Dequeue((QElemPtr)theNMRec, &NMQHdr->requests)) == noErr) {
/* See if we have a dialog up */
if ((theNMRec->nmFlags & (fDlogDisp | fDlogCompl)) == fDlogDisp) NMQHdr->requests.qFlags |= fDlogInval;
UnLinkAuxRecs(theNMRec);
}
return rValue;
}
/* Copies Pascal style strings. */
pascal void
CopyString(StringPtr srcString, StringPtr dstString)
{
BlockMove(srcString, dstString, *srcString + 1);
}
/* Called by InitApplZone via the IAZNotify vector. Removes all requests that
* are in the application zone.
*/
void
FLUSHAPPLNM(void)
{
if (SysZone != ApplZone) {
register int procLevel;
register NMRecPtr theNMRec;
procLevel = disable();
theNMRec = (NMRecPtr) NMQHdr->requests.qHead; /* 1.5 type coersion */
while (theNMRec != nil) {
register NMRecPtr nextNMRec = theNMRec->qLink;
if (InApplZone((Ptr) theNMRec)) NMRemove(theNMRec);
theNMRec = nextNMRec;
}
spl(procLevel);
}
}
/* This dialog filter proc is almost identical to the default, except that it will
* also return if aborted by NMRemove.
*/
pascal Boolean
NMFilter(DialogPtr theDialog, EventRecord *theEvent, short *itemHit)
{
if (theEvent->what == keyDown) {
register unsigned char theChar = theEvent->message & 0xFF;
if ((theChar == 3) || (theChar == 0xD)) {
/* It's a return or enter. */
short itemType;
ControlHandle item;
Rect junk;
GetDItem(theDialog, buttonItem, &itemType, (Handle*)&item, &junk);
if (itemType == (ctrlItem+btnCtrl)) {
/* It's an enabled button - highlight it */
HiliteControl(item, inButton);
Delay(8, (long*)&junk);
HiliteControl(item, 0);
}
*itemHit = buttonItem;
return true;
}
}
if (NMQHdr->requests.qFlags & fDlogInval) {
/* The request was removed - punt the dialog */
return true;
}
return false;
}
/* This is the user item procedure which displays the default button roundRect. */
pascal void
DefButProc(DialogPtr theDialog, short itemNo)
{
PenState savePen;
short itemType;
Handle item;
Rect box;
GetPenState(&savePen);
PenSize(3,3);
GetDItem(theDialog, itemNo, &itemType, &item, &box);
FrameRoundRect(&box, 16, 16);
SetPenState(&savePen);
}
typedef pascal long (**MBarProcHandle)(short, short, short, long);
/* This routine calls the Menu Bar Proc. May be replaced by a trap at a later date.
*/
long
NMCallMBarProc(short message, short param1, long param2)
{
register MenuL **menuLHdl, *menuLPtr;
register short mbResID;
register MBarProcHandle MBDFHndl;
/* This mess just forces code optimization */
if ((menuLHdl = MenuList) && (menuLPtr = *menuLHdl)) {
mbResID = menuLPtr->mbResID;
}
else return 0;
ROMMapInsert = MapTRUE;
if (MBDFHndl = (MBarProcHandle) GetResource('MBDF', mbResID)) {
register short flags = HGetState((Handle)MBDFHndl);
register long result;
HLock((Handle)MBDFHndl);
result = (**MBDFHndl)(mbResID & 7, message, param1, param2);
HSetState((Handle)MBDFHndl, flags);
return result;
}
else return 0;
}
/* theItem of theMenu is marked with newMarkChar iff it was previously marked with
* oldMarkChar.
*/
pascal void /* Declared pascal for efficiency */
SwapItemMarks(MenuHandle theMenu, short theItem, short oldMarkChar, short newMarkChar)
{
short theMarkChar;
GetItemMark(theMenu, theItem, &theMarkChar);
if (theMarkChar == oldMarkChar) SetItemMark(theMenu, theItem, newMarkChar);
}
/* Clears out all the Notification Manager marks from theMenu */
void
ClearMarks(MenuHandle theMenu)
{
register short i = CountMItems(theMenu);
while (i > 0) SwapItemMarks(theMenu, i--, nmMarkChar, noMark);
}
/* Exchanges oldMarkChar for newMarkChar in the menu item referred to by
* theMarkRec. If the current mark is not oldMarkChar, nothing happens.
*/
pascal void /* Declared pascal for efficiency */
SwapAppMark(MarkRecPtr theMarkRec, short oldMarkChar, short newMarkChar)
{
register MenuHandle theApplicationMenu = GetApplicationMenu();
if (theApplicationMenu) {
register short thePID = theMarkRec->mPID;
register short theMarkID = theMarkRec->mMarkID;
register short theItem = 0;
theItem = InApplicationMenu(thePID, theMarkID);
if (theItem) SwapItemMarks(theApplicationMenu, theItem, oldMarkChar, newMarkChar);
}
}
#define MarkApp(theMarkRec) SwapAppMark(theMarkRec, noMark, nmMarkChar)
#define UnMarkApp(theMarkRec) SwapAppMark(theMarkRec, nmMarkChar, noMark)
/* Mark an item in the apple or Application Menu */
void
MarkItem(NMRecPtr theNMRec, int procLevel)
{
if (theNMRec->nmMark != 0) {
register MarkRecPtr theMarkRec = InsertMarkRec(theNMRec);
if (theMarkRec) {
theNMRec->nmFlags |= fItemMarked;
spl(procLevel);
MarkApp(theMarkRec);
}
}
else theNMRec->nmFlags |= fItemMarked;
}
/* Start an icon rotating */
void
RotateIcon(NMRecPtr theNMRec, int /*procLevel*/)
{
if (theNMRec->nmIcon != 0) {
if (InsertIconRec(theNMRec)) theNMRec->nmFlags |= fIconinRot;
}
else theNMRec->nmFlags |= fIconinRot;
}
/* Play a sound */
void
DoSound(NMRecPtr theNMRec, int procLevel)
{
register Handle theSound = theNMRec->nmSound;
SndChannelPtr chan = nil; // <SM6>
long sysBeepVolume = 0;
SndCommand cmd;
theNMRec->nmFlags |= fSndPlayed;
if (theSound)
{
spl(procLevel);
if (theSound == (Handle) -1)
SysBeep(3);
else
{
if ( SndNewChannel(&chan, 0, 0, nil) == noErr )
{
GetSysBeepVolume(&sysBeepVolume);
cmd.cmd = volumeCmd;
cmd.param2 = sysBeepVolume;
SndDoImmediate(chan, &cmd);
SndPlay(chan, theSound, false);
SndDisposeChannel(chan, true);
}
}
}
}
/* Put up a dialog. Currently, this procedure waits for the user to respond, or
* the request to be removed. This should be fixed in the future.
*/
void
DoDialog(NMRecPtr theNMRec, int procLevel)
{
if (theNMRec->nmStr == nil) theNMRec->nmFlags |= fDlogDisp | fDlogCompl;
/* DoDialog not reentrant, temporarily lock out this request */
else if (NMQHdr->requests.qFlags & fInDoDlog) theNMRec->nmFlags |= fReqLocked;
else {
register DialogPtr theDialog;
register short saveResFile;
GrafPtr savePort;
Str255 alertStr;
short itemType, itemHit;
Handle item;
Rect box;
/* Mark that we're in here for reentrancy test */
NMQHdr->requests.qFlags |= fInDoDlog;
/* Flag that we are going to bring up a dialog */
/* Also lock it until the user responds */
theNMRec->nmFlags |= fDlogDisp | fReqLocked;
/* Copy the string */
CopyString(theNMRec->nmStr, alertStr);
spl(procLevel);
InitCursor();
GetPort(&savePort);
saveResFile = CurResFile();
UseResFile(0);
theDialog = GetNewDialog(NMDialog, nil, (WindowPtr) -1);
UseResFile(saveResFile);
GetDItem(theDialog, defButItem, &itemType, &item, &box);
SetDItem(theDialog, defButItem, itemType, (Handle) DefButProc, &box); /* 1.5 type coersion */
GetDItem(theDialog, textItem, &itemType, &item, &box);
SetIText(item, alertStr);
ShowWindow(theDialog);
ModalDialog((ModalFilterProcPtr) NMFilter, &itemHit); /* 1.5, 1.7 type coersion */
/* If the queue entry is intact, mark the dialog as displayed and unlock the request.
* Disable queue access during this time to prevent removal underneath.
*/
procLevel = disable();
if (!(NMQHdr->requests.qFlags & fDlogInval)) {
/* Queue entry is intact */
theNMRec->nmFlags |= fDlogCompl;
theNMRec->nmFlags &= ~fReqLocked;
}
else NMQHdr->requests.qFlags &= ~fDlogInval;
/* Also unlock the next pending dialog. */
theNMRec = (NMRecPtr) NMQHdr->requests.qHead; /* 1.5 type coersion */
while (theNMRec != nil) {
if ((theNMRec->nmFlags & (fDlogDisp | fReqLocked)) == fReqLocked) {
theNMRec->nmFlags &= ~fReqLocked;
break;
}
theNMRec = (NMRecPtr) theNMRec->qLink; /* 1.5 type coersion */
}
spl(procLevel);
DisposDialog(theDialog);
SetPort(savePort);
NMQHdr->requests.qFlags &= ~fInDoDlog;
}
}
/* Call the response procedure */
void
DoRespProc(NMRecPtr theNMRec, int procLevel)
{
register NMProcPtr respProc = theNMRec->nmResp;
theNMRec->nmFlags |= fRespCompl;
if (respProc) {
if (respProc == (NMProcPtr) -1) NMRemove(theNMRec);
else {
spl(procLevel);
(*respProc)(theNMRec);
}
}
}
/* Called by GetNextEvent. Checks to see if the alarm has gone off. */
pascal void
NMGNEFilter(void)
{
register NMRecPtr theAlarmRec = NMQHdr->alarmRec;
if (Alarm()) {
/* Alarm should be on */
if (!theAlarmRec) {
/* It's not, turn it on */
register Handle theSIcon;
ROMMapInsert = MapTRUE;
if (theSIcon = GetResource('SICN', AlarmSICN)) {
/* Build theAlarmRec and copy the alarm icon into the sys heap */
register Size iconSize = GetHandleSize(theSIcon);
if ((theAlarmRec = (NMRec *) NewPtrSysClear(sizeof(NMRec))) &&
(theAlarmRec->nmIcon = NewHandleSys(iconSize))) {
BlockMove(*theSIcon, *(theAlarmRec->nmIcon), iconSize);
theAlarmRec->qType = nmType;
theAlarmRec->nmSound = (Handle) -1; /* Use SysBeep */
NMInstall(theAlarmRec);
NMQHdr->alarmRec = theAlarmRec;
}
ReleaseResource(theSIcon);
}
}
}
else {
/* Alarm should be off */
if (theAlarmRec) {
/* It's not, turn it off */
NMRemove(theAlarmRec);
DisposHandle(theAlarmRec->nmIcon);
NMQHdr->alarmRec = nil;
}
}
}
/* Called by SystemTask in the topmost layer */
pascal void
NMTask(void)
{
register int procLevel;
short selector[4];
/* NOTE: If this code seems buggy, take this 'if' statement and move it below after the call to AddIconRec() */
if (NMQHdr->requests.qHead == nil)
return;
selector[0] = MoveSICNToPM;
selector[1] = MoveICSToPM;
selector[2] = MoveSICNToAM;
selector[3] = MoveICSToAM;
procLevel = disable();
{
/* Find the first queue element that needs attention.
* Note that the response proc is the last thing done.
*/
register NMRecPtr theNMRec = NMQHdr->requests.qHead;
while ((theNMRec != nil) && (theNMRec->nmFlags & fReqLocked)) theNMRec = (NMRecPtr) theNMRec->qLink; /* 1.5 type coersion */
/* Determine the next thing to be done and call the procedure to do it */
if (theNMRec != nil) {
register short nmFlags = theNMRec->nmFlags;
if (!(nmFlags & fItemMarked)) MarkItem(theNMRec, procLevel);
else if (!(nmFlags & fIconinRot)) RotateIcon(theNMRec, procLevel);
else if (!(nmFlags & fSndPlayed)) DoSound(theNMRec, procLevel);
else if (!(nmFlags & fDlogDisp)) DoDialog(theNMRec, procLevel);
else if (!(nmFlags & fRespCompl)) DoRespProc(theNMRec, procLevel);
else theNMRec->nmFlags |= fReqLocked | fReqDone;
}
}
spl(procLevel);
AddMarkRec();
AddIconRec();
/* Now go through the marks queue, deleting entries and updating menu marks
* as needed.
*/
{
register MenuHandle theApplicationMenu = GetApplicationMenu();
register MarkRecPtr theMarkRec = NMQHdr->marks.qHead;
if (theApplicationMenu && (NMQHdr->lastMenuUsed != theApplicationMenu)) ClearMarks(theApplicationMenu);
while (theMarkRec != nil) {
register MarkRecPtr nextMarkRec = theMarkRec->hdr.qLink;
if (theMarkRec->hdr.qType) {
if (!theMarkRec->hdr.aRefCount) {
/* Remove the mark and delete this record */
UnMarkApp(theMarkRec);
Dequeue((QElemPtr)theMarkRec, &NMQHdr->marks);
DisposPtr((Ptr)theMarkRec);
}
else if (theApplicationMenu && NMQHdr->lastMenuUsed != theApplicationMenu) MarkApp(theMarkRec);
}
theMarkRec = nextMarkRec;
}
NMQHdr->lastMenuUsed = theApplicationMenu;
}
{
/* Get the icon to be displayed for the menu bar defproc */
register long curTime = Ticks, timeSince = curTime - NMQHdr->lastMoveTime;
register IconRecPtr *curIconRec;
curIconRec = (NMQHdr->appleMenu ? &NMQHdr->curAMIconRec : &NMQHdr->curPMIconRec);
if (timeSince >= MoveSThresh) {
register IconRecPtr theIconRec = *curIconRec;
if (NMQHdr->useNewIcon) {
/* Get the next icon from the queue. If not enough time has elapsed,
* or the new icon is the same as the old, get out.
*/
if (timeSince >= WaitSThresh(NMQHdr->amIcons, NMQHdr->pmIcons)) {
register IconRecPtr newIconRec = ValidIconRec(theIconRec, (NMQHdr->appleMenu ? &NMQHdr->amIcons : &NMQHdr->pmIcons));
if (newIconRec == theIconRec) {
NMQHdr->appleMenu = !(NMQHdr->appleMenu);
return;
}
else {
*curIconRec = theIconRec = newIconRec;
if (theIconRec)
BlockMove(*(theIconRec->iSIcon), *(NMQHdr->copyIcon), (theIconRec->iconSuite ? sizeof(IconSuite) : SICNsize));
}
}
else return;
}
NMQHdr->lastMoveTime = curTime;
NMQHdr->useNewIcon = NMCallMBarProc(selector[(NMQHdr->appleMenu << 1) + (theIconRec ? theIconRec->iconSuite : 0)],
MoveSDist,
(long) (theIconRec ? NMQHdr->copyIcon: nil));
NMQHdr->appleMenu = !(NMQHdr->appleMenu);
}
}
}
Reference in New Issue View Git Blame Copy Permalink