home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 28
/
amigaformatcd28.iso
/
-seriously_amiga-
/
archivers
/
mpackppc
/
src
/
macnapp.c
< prev
next >
Wrap
C/C++ Source or Header
|
1998-04-27
|
39KB
|
1,372 lines
/* macnapp.c -- macintosh nifty application library
*/
/* (C) Copyright 1995 by Carnegie Mellon University
* All Rights Reserved.
*
* Permission to use, copy, modify, distribute, and sell this software
* and its documentation for any purpose is hereby granted without
* fee, provided that the above copyright notice appear in all copies
* and that both that copyright notice and this permission notice
* appear in supporting documentation, and that the name of Carnegie
* Mellon University not be used in advertising or publicity
* pertaining to distribution of the software without specific,
* written prior permission. Carnegie Mellon University makes no
* representations about the suitability of this software for any
* purpose. It is provided "as is" without express or implied
* warranty.
*
* CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
* THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
* AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
* FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
* AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
* OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
* SOFTWARE.
*/
/* (C) Copyright 1990-1995 by Christopher J. Newman
* All Rights Reserved.
*
* Permission to use, copy, modify, distribute, and sell this software and its
* documentation for any purpose is hereby granted without fee, provided that
* the above copyright notice appear in all copies and that both that
* copyright notice and this permission notice appear in supporting
* documentation, and that the name of Christopher J. Newman not be used in
* advertising or publicity pertaining to distribution of the software without
* specific, written prior permission. Christopher J. Newman makes no
* representations about the suitability of this software for any purpose. It
* is provided "as is" without express or implied warranty.
*
* CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
* INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
* SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
* CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
* DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
* TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
* OF THIS SOFTWARE.
*
* Author: Christopher J. Newman
* Message: This is a nifty program.
*/
#ifndef THINK_C
#include <Resources.h>
#include <Dialogs.h>
#include <Desk.h>
#include <SegLoad.h>
#include <OSEvents.h>
#include <DiskInit.h>
#include <Traps.h>
#include <ToolUtils.h>
#endif
#include <AppleEvents.h>
#include "macnapp.h"
/* export globals */
na_win **NAhead = (na_win**) NULL; /* head of the window tree */
na_win **NAtask = (na_win**) NULL; /* head of the task list */
na_win **NActask = (na_win**) NULL; /* next task to be called */
na_win *NAwin = (na_win*) NULL; /* the current window */
na_menup NAmenup = (na_menup) NULL; /* application menu procedure */
MenuHandle **NAmenus; /* list of menu handles */
short NAnewitem = 0; /* the new item number */
short NAcloseitem = 0; /* the close item number */
short NAappleitems = 0; /* number of user apple menu items */
short NAhelpitems = 0; /* number of user help menu items */
short NAhelpcount = 0; /* number of system help menu items */
Boolean NAhasedit = false; /* true if application supports edit menu */
long NAdelay = 30; /* delay (1/60th of a second) between null events */
SysEnvRec NAsysenv; /* set up by Initialize */
Boolean NAinBack = false; /* true when app is in the background */
short NAlastmouse = NA_RELEASE; /* the last mouse event type */
long NAmousetime = 0; /* the time of the last mouse up */
Point NAmousept; /* the point (local) of last mouse down */
THz NAappzone; /* the application heap zone */
RgnHandle NAfullRgn; /* a region containing everything */
RgnHandle NAnullRgn; /* a region containing nothing */
Cursor NAibeam; /* the Ibeam cursor */
long NAgestaltBits; /* flags for gestalt options */
/* private globals */
static Point mselpoint; /* the menu selection point */
static short aestatus; /* if set, close everything */
/* constants for DoDraw procedure */
#define DO_UPDATE 0x0
#define DO_RESIZE 0x1
#define DO_ACTIVATE 0x2
#define DO_DEACTIVATE 0x4
/* private routines */
static na_win **GetWinH(WindowPtr);
static void DoDraw(na_win*, short);
static short DoActivate(WindowPtr, na_win*, Boolean, Point p);
static short DoMenu(na_win*, BYTE);
static void AdjustCursor(na_win*, Point, Boolean);
static short aboutmouse(na_win*, Point, short, short);
/* get the handle to a window
*/
static na_win **GetWinH(WindowPtr window)
{
na_win **winh;
/* make positively sure that we have a valid handle */
if (window != (WindowPtr) NULL && !NAisDAWindow(window)) {
#ifdef DEBUG
if (PtrZone((Ptr) window) == NAappzone && MemError() == noErr) {
#endif
if ((winh = (na_win **) GetWRefCon(window)) != (na_win**) NULL) {
#ifdef DEBUG
if (HandleZone((Handle) winh) == NAappzone && MemError() == noErr) {
if ((*winh)->pwin == window) {
#endif
return (winh);
#ifdef DEBUG
} else {
NAdebug("Corrupted window structure found.\015");
NAdebug("handle: %lx, pwin: %lx, window: %lx\015",
(long) winh, (long) (*winh)->pwin, (long) window);
Debugger();
}
} else {
NAdebug("Corrupted Handle Zone Found.\015");
NAdebug("handle: %lx, error: %ld\015", (long) winh,
(long) MemError());
Debugger();
}
#endif
}
#ifdef DEBUG
} else {
NAdebug("Corrupted Window Pointer Found.\n");
NAdebug("Pointer: %lx, error: %ld\n", (long) window, (long) MemError());
Debugger();
}
#endif
}
return ((na_win**) NULL);
}
/* handle drawing controls & growbox for update/activate events
*/
static void DoDraw(na_win *winp, short how)
{
WindowPtr window = winp->pwin;
long flags = winp->flags;
ControlHandle ctrl;
Rect tmpRect;
RgnHandle tmpRgn;
/* hilite or draw controls as appropriate */
if (flags & NA_HASCONTROLS) {
if (how & (DO_ACTIVATE | DO_DEACTIVATE)) {
if (flags & NA_HILITECTRLS) {
for (ctrl = ((WindowPeek) window)->controlList; ctrl;
ctrl = (*ctrl)->nextControl) {
HiliteControl(ctrl, (how & DO_ACTIVATE) ? 0 : 255);
}
}
} else {
DrawControls(window);
}
}
/* draw the grow box properly -- mask out scroll bar outlines */
if (flags & NA_GROWBOX) {
tmpRgn = window->clipRgn;
tmpRect.left = (tmpRect.right = window->portRect.right) - 15;
tmpRect.top = (tmpRect.bottom = window->portRect.bottom) - 15;
RectRgn(window->clipRgn = NewRgn(), &tmpRect);
DrawGrowIcon(window);
DisposeRgn(window->clipRgn);
window->clipRgn = tmpRgn;
}
/* draw the default button on a dialog */
if (flags & NA_DEFBUTTON) NAdefaultButton(window);
/* calculate the un-cursor region if the window size changed */
if (how & DO_RESIZE) NAcalcCursor(winp);
}
/* handle activate event (either activate or MultiFinder suspend/resume)
*/
static short DoActivate(WindowPtr window, na_win *winp, Boolean activate, Point p)
{
na_win **winh;
short status = NA_NOTPROCESSED;
GrafPtr tmpPort;
/* unlock current front window */
if (winp != (na_win*) NULL) {
NAunlockWindow(winp);
NAwin = (na_win*) NULL;
}
/* check if there is a new window, and lock it */
if (window == (WindowPtr) NULL) return (NA_PROCESSED);
/* for app windows, update the cursor, call the activate proc, and DoDraw */
if ((NAwin = winp = NAlockWindow(winh = GetWinH(window))) != (na_win*) NULL) {
GetPort(&tmpPort);
SetPort(window);
if (winp->cursorRgn != (RgnHandle) NULL && ((activate && !NAinBack)
|| winp->flags & NA_CURSORON)) {
LocalToGlobal(&p);
AdjustCursor(winp, p, activate);
}
if (winp->activep == (na_activep) NULL
|| (status = (*winp->activep)(winp, activate)) == NA_NOTPROCESSED) {
DoDraw(winp, activate ? DO_ACTIVATE : DO_DEACTIVATE);
}
if (!activate || winp->pwin != FrontWindow()) {
SetPort(tmpPort);
NAunlockWindowh(winh, winp);
NAwin = (na_win*) NULL;
}
}
return (status);
}
/* handle menu selection -- either menu click or menu shortcut
*/
static short DoMenu(na_win *winp, BYTE key)
{
WindowPtr window = FrontWindow();
short status = NA_NOTPROCESSED;
WORD menuid, itemno;
MenuHandle mnu;
long menusel;
PCstr mItem[256];
/* enable/disable edit menu as appropriate */
if (NAhasedit) {
mnu = NAmenuh(mEdit);
if (NAisDAWindow(window)) {
EnableItem(mnu, iUndo);
for (itemno = iCut; itemno <= iClear; itemno++) {
EnableItem(mnu, itemno);
}
} else {
DisableItem(mnu, iUndo);
for (itemno = iCut; itemno <= iClear; itemno++) {
DisableItem(mnu, itemno);
}
}
}
/* enable/disable the close menu as appropriate */
if (NAcloseitem) {
mnu = NAmenuh(mFile);
if (window != (WindowPtr) NULL && (winp == (na_win*) NULL
|| winp->pwin != window || winp->flags & NA_CLOSEBOX)) {
EnableItem(mnu, NAcloseitem);
} else {
DisableItem(mnu, NAcloseitem);
}
}
/* call menu proc to enable/disable items as appropriate */
if (winp != (na_win*) NULL && winp->menup != (na_menup) NULL) {
status = (*winp->menup)(winp, (WORD) 0, (WORD) key);
}
if (status == NA_NOTPROCESSED && NAmenup != (na_menup) NULL
&& (winp == (na_win *) NULL || !(winp->flags & NA_MODAL))) {
status = (*NAmenup)(winp, (WORD) 0, (WORD) key);
}
if (status != NA_NOTPROCESSED) return (status);
/* get menu selection */
menusel = (key == 0) ? MenuSelect(mselpoint) : MenuKey(key);
itemno = LOWORD(menusel);
if ((menuid = HIWORD(menusel)) == 0) menuid = 1;
/* check for DA menu items */
switch (menuid) {
case mApple: /* check for a desk accessary selection */
if (itemno > NAappleitems) {
if (itemno - NAappleitems <= NAhelpitems) {
itemno -= NAappleitems;
menuid = mHelp;
} else {
GetItem(NAmenuh(mApple), itemno, mItem);
OpenDeskAcc(mItem);
menuid = 1;
}
}
break;
case mFile: /* check for the close menu item for DAs */
if (itemno == NAcloseitem && NAisDAWindow(window)) {
CloseDeskAcc(((WindowPeek) window)->windowKind);
menuid = 1;
}
break;
case mEdit: /* check for the edit menu for DAs */
if (NAhasedit && itemno <= iClear && SystemEdit(itemno - iUndo)) {
menuid = 1;
}
break;
case mHelp:
itemno -= NAhelpcount;
break;
}
/* call menu proc to handle/disable items */
if (winp != (na_win*) NULL && winp->menup != (na_menup) NULL) {
status = (*winp->menup)(winp, menuid, itemno);
}
if (status != NA_PROCESSED && NAmenup != (na_menup) NULL) {
status = (*NAmenup)(winp, menuid, itemno);
}
/* if close/about item wasn't processed, process it */
if (status == NA_NOTPROCESSED) {
if (menuid == mFile && itemno == NAcloseitem) {
status = NA_REQCLOSE;
} else if (menuid == mApple && itemno == iAbout) {
NAwindow(0, NA_DIALOGWINDOW | NA_USERESOURCE | NA_MODAL,
NULL, NA_ABOUTDLOG, (long *) NULL, 0, NAabout);
}
}
/* turn off the menu */
HiliteMenu(0);
return (status);
}
/* set the cursor icon appropriately
*/
static void AdjustCursor(na_win *winp, Point gmouse, Boolean active)
{
short status = NA_NOTPROCESSED;
/* don't change the cursor when in wrong window */
if (active && FrontWindow() != winp->pwin) return;
/* if the cursor is on */
if (winp->flags & NA_CURSORON) {
/* and the point moves outside the cursor region or window is deactivated
* turn cursor off */
if (!active || PtInRgn(gmouse, winp->uncrsrRgn)) {
winp->flags &= ~NA_CURSORON;
if (winp->cursorp == (na_cursorp*) NULL) {
SetCursor(&QD(arrow));
} else {
goto DOCURSORP;
}
}
/* if the cursor is off and the point moves into the window, turn cursor on */
} else if (PtInRgn(gmouse, winp->cursorRgn)) {
winp->flags |= NA_CURSORON;
if (winp->cursorp == (na_cursorp) NULL) {
SetCursor(&NAibeam);
} else {
DOCURSORP:
GlobalToLocal(&gmouse);
status = (*winp->cursorp)(winp, gmouse);
}
}
/* if cursor event was processed, reset the un-cursor region */
if (status == NA_PROCESSED) NAcalcCursor(winp);
}
/* export routines */
/* save the current window position in a resource file
*/
void NAsaveWin(na_win *winp)
{
Rect *rptr;
WindowPtr window = winp->pwin;
Handle wind = GetResource('WIND', winp->resid);
HLock(wind);
rptr = (Rect *) *wind;
rptr->right = (rptr->left = -window->portBits.bounds.left)
+ window->portRect.right;
rptr->bottom = (rptr->top = -window->portBits.bounds.top)
+ window->portRect.bottom;
ChangedResource(wind);
HUnlock(wind);
}
/* calculate the cursor regions for Multi-Finder
*/
void NAcalcCursor(na_win *winp)
{
if (winp->cursorRgn != (RgnHandle) NULL) {
if (winp->uncrsrRgn == (RgnHandle) NULL) winp->uncrsrRgn = NewRgn();
DiffRgn(NAfullRgn, winp->cursorRgn, winp->uncrsrRgn);
}
}
/* lock a window context
*/
na_win *NAlockWindow(na_win **winh)
{
if (winh == (na_win**) NULL) return ((na_win*) NULL);
if (!(*winh)->locks++) {
MoveHHi((Handle) winh);
HLock((Handle) winh);
}
return (*winh);
}
/* request or force a window to close
*/
short NAcloseWindow(na_win *winp, short status)
{
na_win **winh, ***whp;
short childstatus;
if (winp == (na_win*) NULL) return (NA_NOTPROCESSED);
switch (status) {
case NA_REQCLOSE:
/* check if window ready to close */
status = NA_CLOSED;
if (winp->closep != (na_closep) NULL) status = (*winp->closep)(winp);
if (status > NA_CLOSED) break;
case NA_CLOSED:
/* close children */
childstatus = NAcloseWindows(winp->child, NA_REQCLOSEALL);
/* clear current window */
if (winp == NAwin) NAwin = (na_win*) NULL;
/* reset the cursor */
if (winp->flags & NA_CURSORON) SetCursor(&QD(arrow));
/* dispose of any cursor regions */
if (winp->cursorRgn != (RgnHandle) NULL) DisposeRgn(winp->cursorRgn);
if (winp->uncrsrRgn != (RgnHandle) NULL) DisposeRgn(winp->uncrsrRgn);
/* close the window */
if (winp->pwin != (WindowPtr) NULL) {
if (winp->flags & NA_DIALOGWINDOW) {
DisposDialog((DialogPtr) winp->pwin);
} else {
DisposeWindow(winp->pwin);
}
}
/* remove from window list */
winh = (na_win**) RecoverHandle((Ptr) winp);
whp = &NAhead;
if (winp->parent != (na_win**) NULL) whp = &(*winp->parent)->child;
while (*whp != (na_win**) NULL) {
if (*whp == winh) {
*whp = winp->next;
} else {
whp = &(**whp)->next;
}
}
/* relink children in list */
if (childstatus > NA_ALLCLOSED) {
*whp = winp->child;
do {
(**whp)->parent = winp->parent;
whp = &(**whp)->next;
} while (*whp != (na_win**) NULL);
*whp = winp->next;
}
/* remove from task list */
whp = &NAtask;
while (*whp != (na_win**) NULL && *whp != winh) {
whp = &(**whp)->task;
}
*whp = winp->task;
NActask = (na_win**) NULL;
/* after-close function */
if (winp->afterp != (na_afterp) NULL) (*winp->afterp)(winp);
/* destroy window structure */
DisposHandle((Handle) winh);
if (status < NA_CLOSED) {
if ((status = NAcloseWindows(NAhead, status)) > NA_CLOSED) {
status = NA_CLOSED;
}
}
break;
}
return (status);
}
short NAcloseWindows(na_win **winh, short status)
{
na_win *winp, **lasth;
short substatus;
while ((winp = NAlockWindow(winh)) != (na_win*) NULL) {
lasth = winh;
winh = winp->next;
substatus = NAcloseWindow(winp, status + 2);
if (substatus > NA_CLOSED) {
NAunlockWindowh(lasth, winp);
return (NA_NOTPROCESSED);
}
if (substatus < NA_CLOSED) return (substatus);
}
return (NA_ALLCLOSED);
}
/* remove the window on a mouse-up event
*/
static short aboutmouse(na_win *winp, Point mousep, short type, short mods)
#ifdef applec
#pragma unused (winp, mousep, mods)
#endif
{
return (type & 1 ? NA_REQCLOSE : NA_PROCESSED);
}
/* a standard about box init procedure
*/
short NAabout(na_win *winp, long *dptr)
#ifdef applec
#pragma unused (dptr)
#endif
{
winp->mousep = aboutmouse;
return (NA_PROCESSED);
}
/* flash a button in a dialog box for equivalent keypresses
*/
void NAflashButton(DialogPtr dialog, short item)
{
long scratch;
short type;
Handle ctrl;
Rect box;
GetDItem(dialog, item, &type, &ctrl, &box);
if (type == ctrlItem + btnCtrl) {
HiliteControl((ControlHandle) ctrl, 1);
Delay(5, &scratch);
HiliteControl((ControlHandle) ctrl, 0);
}
}
/* draw the default button
*/
void NAdefaultButton(DialogPtr dialog)
{
Rect tmpRect;
PenState pnState;
NAgetDRect(dialog, iOk, &tmpRect);
GetPenState(&pnState);
PenNormal();
PenSize(3, 3);
InsetRect(&tmpRect, -4, -4);
FrameRoundRect(&tmpRect, 16, 16);
SetPenState(&pnState);
}
/* a filter proc which handles Return, Enter, Esc, command-period properly
*/
pascal Boolean NAfilterProc(DialogPtr dialog, EventRecord *pevent, short *item)
{
if (pevent->what == autoKey || pevent->what == keyDown) {
switch (pevent->message & charCodeMask) {
case '\r':
case '\n':
case 0x03:
*item = 1;
goto HILITE;
case '.':
if (!(pevent->modifiers & cmdKey)) break;
case '\033':
*item = 2;
HILITE:
NAflashButton(dialog, *item);
return (true);
}
}
return (false);
}
/* send an event message to all windows
*/
short NAallWindows(na_win **winh, EventRecord *pevent)
{
na_win *winp, **oldwinh;
short status = NA_NOTPROCESSED;
while ((winp = NAlockWindow(winh)) != (na_win*) NULL) {
oldwinh = winh;
winh = winp->next;
if (winp->miscp != (na_miscp) NULL) {
GrafPtr tempPort;
GetPort(&tempPort);
SetPort(winp->pwin);
status = (*winp->miscp)(winp, pevent);
SetPort(tempPort);
}
if ((status == NA_CLOSED || status == NA_REQCLOSE)
&& NAcloseWindow(winp, status) == NA_CLOSED) {
continue;
}
NAunlockWindowh(oldwinh, winp);
if (status == NA_ALLCLOSED || status == NA_REQCLOSEALL) {
if (NAcloseWindows(NAhead, status) == NA_ALLCLOSED) {
return (NA_ALLCLOSED);
}
/* make sure our handle is still valid */
if (GetHandleSize((Handle) oldwinh) == 0) continue;
}
if ((*oldwinh)->child != (na_win**) NULL &&
NAallWindows((*oldwinh)->child, pevent) == NA_ALLCLOSED) {
return (NA_ALLCLOSED);
}
}
return (NA_PROCESSED);
}
/* apple event handler
*/
pascal OSErr NArequiredAE(AppleEvent *, AppleEvent *, long);
pascal OSErr NArequiredAE(AppleEvent *event, AppleEvent *reply, long ref)
{
na_openp openp = (na_openp) ref;
OSErr err;
DescType actualType, eventID;
Size actualSize;
AEDescList doclist;
long count, i;
short gotdoc;
FSSpec fspec;
AEKeyword keywd;
FInfo finfo;
err = AEGetAttributePtr(event, keyEventIDAttr, typeType, &actualType,
(Ptr) &eventID, sizeof (eventID), &actualSize);
if (err == noErr) {
gotdoc = 0;
if (eventID == kAEOpenDocuments || eventID == kAEPrintDocuments) {
err = AEGetParamDesc(event, keyDirectObject, typeAEList, &doclist);
if (err == noErr) gotdoc = 1;
}
if (err == noErr) {
err = AEGetAttributePtr(event, keyMissedKeywordAttr, typeWildCard,
&actualType, NULL, 0, &actualSize);
if (err == errAEDescNotFound) {
err = noErr;
} else if (err == noErr) {
err = errAEEventNotHandled;
}
}
if (err == noErr) switch (eventID) {
case kAEOpenApplication:
if (NAmenup && NAnewitem) {
aestatus = (*NAmenup)(NULL, mFile, NAnewitem);
}
break;
case kAEOpenDocuments:
case kAEPrintDocuments:
err = AECountItems(&doclist, &count);
if (err != noErr) break;
for (i = 1; i <= count; ++i) {
err = AEGetNthPtr(&doclist, i, typeFSS, &keywd, &actualType,
(Ptr) &fspec, sizeof (fspec), &actualSize);
if (err != noErr) break;
FSpGetFInfo(&fspec, &finfo);
if (!openp || (*openp)(eventID == kAEOpenDocuments
? appOpen : appPrint, &fspec, &finfo) <= 0) {
err = errAEEventNotHandled;
break;
}
}
break;
case kAEQuitApplication:
aestatus = NA_ALLCLOSED;
if (NAhead != NULL) {
aestatus = NAcloseWindows(NAhead, NA_REQCLOSEALL);
if (aestatus != NA_ALLCLOSED) err = userCanceledErr;
}
break;
}
if (gotdoc) {
AEDisposeDesc(&doclist);
}
}
return (err);
}
/* handle Dialog window events
*/
static Boolean DoDialog(na_win *winp, EventRecord *event, Point mouse,
short item, short *status)
{
DialogPtr dialog = NULL;
ControlHandle ctrlh;
Boolean result = false;
if (*status == NA_NOTPROCESSED && (item || ((result = IsDialogEvent(event))
&& DialogSelect(event, &dialog, &item))) && winp && winp->ctrlp) {
if (!dialog) dialog = winp->pwin;
NAgetDHandle(dialog, item, &ctrlh);
*status = (*winp->ctrlp)(winp, mouse, item, event->modifiers, ctrlh);
}
return (result);
}
/* call the main loop procedure
*/
void NAmainloop()
{
na_win *winp, *wp, **wh;
Boolean gotEvent;
EventRecord event;
Point mouse;
Point ptemp;
short status;
short citem, item;
short part;
short delay;
short mousepix;
short fastdelay = 0;
long growInfo;
long key;
WindowPtr window;
GrafPtr tempPort;
ControlHandle ctrl;
RgnHandle rgn;
Rect tmpRect, bRect;
short prioritycnt;
UnloadSeg((Ptr) NAinit); /* unload the initialize routine */
do {
/* check for a window in front */
if ((winp = NAwin) == (na_win*) NULL
&& (window = FrontWindow()) != (WindowPtr) NULL
&& (NAwin = winp = NAlockWindow(GetWinH(window))) != (na_win *) NULL) {
SetPort(window);
}
/* get an event */
rgn = NAfullRgn;
delay = NAdelay;
/* if there is an app window in front, use app delay & cursor region */
if (winp != (na_win*) NULL) {
delay = winp->delay;
if (winp->cursorRgn != (RgnHandle) NULL && !NAinBack) {
rgn = winp->cursorRgn;
if (!(winp->flags & NA_CURSORON)) rgn = winp->uncrsrRgn;
}
if (winp->mousepix && !(NAlastmouse & 1)) {
rgn = NAnullRgn;
delay = 0;
}
}
gotEvent = WaitNextEvent(everyEvent, &event, fastdelay ? 0 : delay, rgn);
fastdelay = 0;
status = NA_NOTPROCESSED;
/* get mouse position */
mouse = event.where;
GlobalToLocal(&mouse);
item = 0;
/* handle the event */
if (gotEvent) switch (event.what) {
case mouseUp:
/* deal with mouse up events to keep track of double/triple clicks */
if (NAlastmouse & 1) break;
++NAlastmouse;
NAmousetime = TickCount();
if (winp == (na_win*) NULL) break;
DOMOUSEP:
if (winp->mousep != (na_mousep) NULL) {
status = (*winp->mousep)(winp, mouse, NAlastmouse, event.modifiers);
}
break;
case mouseDown:
part = FindWindow(event.where, &window);
/* Rules for clicks when a modal dialog is in front:
* 1) let the user command-move other windows
* 2) don't let user do anything else with other app windows
* 3) if not movable, require click to be in window
*/
if (winp != (na_win*) NULL && winp->flags & NA_MODAL
&& !(part == inDrag && event.modifiers & cmdKey)
&& ((!(winp->flags & NA_TITLEBAR)
&& !PtInRect(mouse, &winp->pwin->portRect))
|| (window != NULL && window != winp->pwin))) {
SysBeep(10);
status = NA_PROCESSED;
break;
}
switch (part) {
case inMenuBar:
/* call an appropriate menu bar handler */
mselpoint = event.where;
status = DoMenu(winp, 0);
break;
case inSysWindow:
/* System Click in DA */
SystemClick(&event, window);
break;
case inContent:
/* click a window to front if not in front */
if (window != FrontWindow()) {
SelectWindow(window);
if (winp != (na_win*) NULL) NAunlockWindow(winp);
NAwin = (na_win*) NULL;
NAlastmouse = NA_RELEASE;
break;
}
/* don't bother processing further if no mouse proc */
if (winp == (na_win*) NULL) break;
/* check for control events */
if (winp->ctrlp != (na_ctrlp) NULL && winp->flags & NA_HASCONTROLS) {
if ((citem = FindControl(mouse, window, &ctrl)) != 0
&& (status = (*winp->ctrlp)(winp, mouse, citem,
event.modifiers, ctrl)) != NA_NOTPROCESSED) {
break;
}
}
/* deal with double clicks */
if ((NAlastmouse & 1) && NAlastmouse < NA_RELEASE
&& event.when - NAmousetime <= GetDblTime()) {
if (++NAlastmouse > NA_DOWNN) NAlastmouse = NA_DOWNN;
} else {
NAlastmouse = NA_DOWN1;
}
NAmousept = mouse;
/* call the mouse handler */
goto DOMOUSEP;
case inDrag:
/* drag the window */
tmpRect = QD(screenBits.bounds);
InsetRect(&tmpRect, 4, 4);
bRect = window->portBits.bounds;
DragWindow(window, event.where, &tmpRect);
if ((bRect.left != window->portBits.bounds.left
|| bRect.top != window->portBits.bounds.top) &&
(wp = NAlockWindow(wh = GetWinH(window))) != NULL) {
if (wp->flags & NA_SMARTSIZE) NAsaveWin(wp);
if (wp->cursorRgn != (RgnHandle) NULL) {
OffsetRgn(wp->cursorRgn,
bRect.left - window->portBits.bounds.left,
bRect.top - window->portBits.bounds.top);
NAcalcCursor(wp);
}
NAunlockWindowh(wh, wp);
}
break;
case inGoAway:
/* deal with the close window box */
if (TrackGoAway(window, event.where)) status = NA_REQCLOSE;
break;
case inGrow:
/* grow the window */
/* assume there is a valid app window in front */
/* calculate min & max grow dimensions */
tmpRect = QD(screenBits.bounds);
tmpRect.bottom -= tmpRect.top;
tmpRect.right -= tmpRect.left;
tmpRect.top = winp->minh;
tmpRect.left = winp->minw;
if (winp->maxh) tmpRect.bottom = winp->maxh;
if (winp->maxw) tmpRect.right = winp->maxw;
/* check for resize proc */
if (winp->resizep != (na_resizep) NULL) {
status = (*winp->resizep)(winp, event.where, &tmpRect);
if (status == NA_PROCESSED) break;
goto RESIZEWINDOW;
}
/* grow, resize, and update the window */
if ((growInfo = GrowWindow(window, event.where, &tmpRect))) {
SizeWindow(window, LOWORD(growInfo), HIWORD(growInfo),
false);
goto RESIZEWINDOW;
}
break;
case inZoomIn:
case inZoomOut:
/* assume there is a valid app window in front */
/* track, zoom, and update the window */
if (TrackBox(window, event.where, part)) {
SetPort(window);
EraseRect(&window->portRect);
ZoomWindow(window, part, true);
RESIZEWINDOW:
if (winp != (na_win*) NULL) {
if (winp->flags & NA_SMARTSIZE) NAsaveWin(winp);
if (winp->updatep == (na_updatep) NULL ||
(status = (*winp->updatep)(winp, (Boolean) true))
== NA_NOTPROCESSED) {
DoDraw(winp, DO_RESIZE);
}
}
ValidRect(&window->portRect);
}
break;
}
break;
case keyDown:
case autoKey:
/* deal with keyboard events */
key = event.message & charCodeMask;
/* call the window's key handling procedure */
if (winp != (na_win *) NULL && winp->keyp != (na_keyp) NULL) {
status = (*winp->keyp)(winp, winp->flags & NA_RAWKEY ? event.message : key,
event.modifiers);
}
/* translate command-foo to an appropriate menu operation */
if (status == NA_NOTPROCESSED &&
(event.modifiers & cmdKey) && event.what == keyDown &&
(status = DoMenu(winp, key)) != NA_NOTPROCESSED) {
break;
}
/* require an app window for further processing */
if (winp == (na_win*) NULL) break;
/* if it's an unprocessed event in a dialog window */
if (status == NA_NOTPROCESSED && (winp->flags & NA_DIALOGWINDOW)) {
if (!NAfilterProc(winp->pwin, &event, &item)
&& (event.modifiers & cmdKey)) {
status = NA_PROCESSED;
}
}
break;
case activateEvt:
/* deal with activate windows based on activeFlag */
status = DoActivate((WindowPtr) event.message, winp,
event.modifiers & activeFlag, mouse);
break;
case updateEvt:
/* deal with update events with proper port setting, etc. */
window = (WindowPtr) event.message;
BeginUpdate(window);
if ((wp = NAlockWindow(wh = GetWinH(window))) != (na_win*) NULL) {
GetPort(&tempPort);
SetPort(window);
if (wp->flags & NA_DIALOGWINDOW) {
UpdtDialog(window, window->visRgn);
}
if (wp->updatep == (na_updatep) NULL
|| (status = (*wp->updatep)(wp, (Boolean) false))
== NA_NOTPROCESSED) {
DoDraw(wp, DO_UPDATE);
}
DoDialog(winp, &event, mouse, 0, &status);
SetPort(tempPort);
NAunlockWindowh(wh, wp);
}
EndUpdate(window);
if (status == NA_NOTPROCESSED) status = NA_PROCESSED;
break;
case diskEvt:
/* let the user format bad disks */
if (HIWORD(event.message) != noErr) {
SetPt(&ptemp, 0x0070, 0x0050);
(void) DIBadMount(ptemp, event.message);
} else {
status = NAallWindows(NAhead, &event);
}
break;
case networkEvt:
case driverEvt:
case app1Evt:
case app2Evt:
case app3Evt:
/* send event to all windows */
status = NAallWindows(NAhead, &event);
break;
case osEvt:
switch ((event.message >> 24) & 0xff) {
case suspendResumeMessage:
status = DoActivate(FrontWindow(), winp,
!(NAinBack = !(event.message & resumeFlag)), mouse);
break;
case mouseMovedMessage:
/* only interesting if a window is in front */
if (NAinBack || winp == (na_win*) NULL) break;
mousepix = winp->mousepix;
/* deal with mouse dragging */
if (mousepix && !(NAlastmouse & 1)) {
if (NAlastmouse != NA_DRAG) {
InsetRect(&tmpRect, -mousepix, -mousepix);
if (PtInRect(mouse, &tmpRect)) break;
NAlastmouse = NA_DRAG;
}
goto DOMOUSEP;
/* deal with cursor moving in/out of window */
} else if (winp->cursorRgn != (RgnHandle) NULL) {
AdjustCursor(winp, event.where, true);
}
break;
}
break;
case kHighLevelEvent:
if (NAgestaltBits & NA_HASAEVENTS) {
aestatus = status;
(void) AEProcessAppleEvent(&event);
status = aestatus;
}
break;
}
/* handle dialog events */
DoDialog(winp, &event, mouse, item, &status);
/* call the idle procedure of the front window */
if (winp != (na_win*) NULL && !NAinBack
&& status >= NA_NOTPROCESSED && winp->idlep != (na_idlep) NULL) {
status = (*winp->idlep)(winp);
}
/* deal with window/app close requests and events */
switch (status) {
case NA_ALLCLOSED:
case NA_REQCLOSEALL:
status = NAcloseWindows(NAhead, status);
break;
case NA_CLOSED:
case NA_REQCLOSE:
status = NAcloseWindow(winp, status);
break;
default:
/* call the next task procedure */
if (NAtask != (na_win**) NULL) {
if (NActask == (na_win**) NULL) {
NActask = NAtask;
prioritycnt = (*NAtask)->priority;
}
for (wh = NAtask; wh; wh = (*wh)->task) {
if ((wh == NActask || (*wh)->priority == -1)
&& (wp = NAlockWindow(wh)) != (na_win*) NULL
&& wp->taskp != (na_taskp) NULL) {
GetPort(&tempPort);
if (wp->pwin != (WindowPtr) NULL) SetPort(wp->pwin);
status = (*wp->taskp)(wp);
SetPort(tempPort);
if (status == NA_REQCLOSE || status == NA_CLOSED) {
status = NAcloseWindow(wp, status);
break;
}
if (status == NA_REQCLOSEALL || status == NA_ALLCLOSED) {
status = NAcloseWindows(NAhead, status);
break;
}
if (status == NA_NOTPROCESSED) fastdelay = 1;
NAunlockWindowh(wh, wp);
}
}
if (NActask && prioritycnt-- <= 0
&& (NActask = (*NActask)->task) != (na_win **) NULL) {
prioritycnt = (*NActask)->priority;
}
}
case NA_USERINTERACT:
break;
}
} while (status != NA_ALLCLOSED);
while (NAtask != NULL) NAcloseWindow(NAlockWindow(NAtask), NA_REQCLOSE);
DisposeRgn(NAfullRgn);
DisposeRgn(NAnullRgn);
DisposHandle((Handle) NAmenus);
}
/* position a rectangle based on screen size
*/
Rect *NAscreenrect(short position)
{
static short stacktimes = 0;
static Rect sb;
short topoffset, leftoffset;
short width, height;
short bw;
/* calculate the position to open the window */
sb = QD(screenBits.bounds);
InsetRect(&sb, 4, 4);
sb.top += MBarHeight;
if (position & NA_TITLEOFFSET) {
sb.top += 18;
}
width = sb.right - sb.left;
height = sb.bottom - sb.top;
if (position & 0x03) {
width = (width * (position & 0x03)) >> 2;
}
if (position & 0x0c) {
height = (height * ((position & 0x0c) >> 2)) >> 2;
}
if (position & NA_TOPSCN) {
sb.bottom = sb.top + height;
} else if (position & NA_BOTTOMSCN) {
sb.top = sb.bottom - height;
} else {
short bw = (sb.bottom - sb.top - height) >> 1;
sb.top += bw;
sb.bottom -= bw;
}
if (position & NA_LEFTSCN) {
sb.right = sb.left + width;
} else if (position & NA_RIGHTSCN) {
sb.left = sb.right - width;
} else {
bw = (sb.right - sb.left - width) >> 1;
sb.left += bw;
sb.right -= bw;
}
return (&sb);
}
/* create a new window/dialog/task structure
*/
short NAwindow(Rect *rpos, long flags, char *title, short res, long *initdata,
long datasize, na_initp initp)
{
GrafPtr tmpPort;
short procID;
short status;
Boolean goAwayFlag, visible;
na_win **winh, *winp;
char *newdata, *dcopy;
WindowPtr behind, prev, window;
Rect wsize, sb;
PCstr wtitle[257];
Handle items;
/* save previous window */
prev = FrontWindow();
/* set up flags for the NewWindow call */
goAwayFlag = (flags & NA_CLOSEBOX);
visible = (flags & NA_NOTVISIBLE) ? false : true;
behind = (flags & NA_BEHIND && NAwin != (na_win*) NULL) ? NAwin->pwin : (WindowPtr) -1;
/* decide on the correct procID */
procID = rDocProc;
if ((flags & NA_ROUNDBORDER) != NA_ROUNDBORDER) {
procID = plainDBox;
if (flags & NA_SHADOWBORDER) procID = altDBoxProc;
if (flags & NA_DOUBLEBORDER) procID = dBoxProc;
if (flags & NA_TITLEBAR) {
procID = flags & NA_DOUBLEBORDER ? movableDBoxProc : documentProc;
}
if (!(flags & NA_GROWBOX)
&& procID == documentProc) procID |= noGrowDocProc;
if (flags & NA_ZOOMBOX) procID |= zoomDocProc;
}
/* get the window title to a pacsal string */
if (title) CtoPCstrcpy(wtitle, title);
/* allocate memory and copy the user data */
if (!datasize) datasize = sizeof (na_win);
winh = (na_win**) NewHandleClear((Size) datasize);
if (winh == (na_win**) NULL) return (NA_NOTPROCESSED);
MoveHHi((Handle) winh);
HLock((Handle) winh);
winp = *winh;
if (initdata != NULL && flags & NA_COPYDATA) {
dcopy = (char *) initdata;
datasize -= sizeof (na_win);
for (newdata = (char*) winp + sizeof (na_win); datasize > 0; datasize--) {
*newdata = *dcopy++;
newdata++;
}
}
/* initialize winp parameters */
winp->locks = 1;
winp->delay = NAdelay;
winp->flags = flags;
winp->minw = 128;
winp->minh = 64;
winp->resid = res;
/* install in window tree */
if (flags & NA_CHILDWINDOW && NAwin != (na_win*) NULL) {
winp->parent = (na_win**) RecoverHandle((Ptr)NAwin);
winp->next = NAwin->child;
NAwin->child = winh;
} else {
winp->next = NAhead;
NAhead = winh;
}
/* install in task list */
if (flags & NA_HASTASK) {
winp->task = NAtask;
NAtask = winh;
}
/* open the window appropriately */
switch (flags & (NA_COLORWINDOW | NA_DIALOGWINDOW)) {
case NA_DIALOGWINDOW:
case (NA_DIALOGWINDOW | NA_COLORWINDOW):
if (flags & NA_USERESOURCE) {
window = (WindowPtr) GetNewDialog(res, (Ptr) NULL, behind);
} else {
items = GetResource('DITL', res);
DetachResource(items);
if (flags & NA_COLORWINDOW) {
window = (WindowPtr) NewCDialog((Ptr) NULL, rpos, wtitle,
visible, procID, behind, goAwayFlag, (long) winh, items);
} else {
window = (WindowPtr) NewDialog((Ptr) NULL, rpos, wtitle,
visible, procID, behind, goAwayFlag, (long) winh, items);
}
}
break;
case NA_COLORWINDOW:
if (flags & NA_USERESOURCE) {
window = (WindowPtr) GetNewCWindow(res, (Ptr) NULL, behind);
} else {
window = (WindowPtr) NewCWindow((Ptr) NULL, rpos, wtitle,
visible, procID, behind, goAwayFlag, (long) winh);
}
break;
default:
if (flags & NA_USERESOURCE) {
window = GetNewWindow(res, (Ptr) NULL, behind);
} else {
window = NewWindow((Ptr) NULL, rpos, wtitle, visible, procID,
behind, goAwayFlag, (long) winh);
}
break;
}
if (title && (flags & NA_USERESOURCE)) SetWTitle(window, wtitle);
winp->pwin = window;
/* activate the window */
GetPort(&tmpPort);
SetPort(window);
/* additional options for windows from resources */
if (flags & NA_USERESOURCE) {
SetWRefCon(window, (long) winh);
/* force the size */
if (flags & NA_FORCESIZE) {
MoveWindow(window, rpos->left, rpos->top, false);
SizeWindow(window, rpos->right - rpos->left, rpos->bottom - rpos->top, false);
}
}
/* get the screen bounds */
sb = QD(screenBits.bounds);
InsetRect(&sb, 4, 4);
/* get window position */
wsize = window->portRect;
LocalToGlobal((Point *)&wsize.top);
/* make sure the window is on the screen */
if (wsize.top > sb.bottom || wsize.left > sb.right) {
MoveWindow(window, 60, 60, false);
}
/* call the init procedure */
if ((status = (*initp)(winp, initdata)) >= NA_NOTPROCESSED) {
/* draw the window immediately for better look & update has first newsize */
if (winp->updatep == (na_updatep) NULL
|| (status = (*winp->updatep)(winp, (Boolean) true))
== NA_NOTPROCESSED) {
DoDraw(winp, FrontWindow() != window ? DO_RESIZE | DO_DEACTIVATE :
DO_RESIZE);
}
if (flags & NA_DIALOGWINDOW) DrawDialog(window);
ValidRect(&window->portRect);
}
/* deal with close requests/events result codes */
switch (status) {
case NA_ALLCLOSED:
case NA_REQCLOSEALL:
status = NAcloseWindows(NAhead, status);
break;
case NA_CLOSED:
case NA_REQCLOSE:
status = NAcloseWindow(winp, status);
break;
default:
NAunlockWindowh(winh, winp);
break;
}
/* give a nice return value & clean up the port */
if (status == NA_NOTPROCESSED) status = NA_PROCESSED;
if (FrontWindow() != window || status != NA_PROCESSED) SetPort(tmpPort);
return (status);
}
/* create & add a new task to the task list
*/
na_win **NAaddtask(na_taskp taskp, long size)
{
na_win **task, *winp;
if (!size) size = sizeof (na_win);
task = (na_win **) NewHandleClear(size);
if (task) {
(*task)->taskp = taskp;
(*task)->task = NAtask;
NAtask = task;
}
return (task);
}