GliderPRO/Sources/About.c

//============================================================================
//----------------------------------------------------------------------------
//									About.c
//----------------------------------------------------------------------------
//============================================================================


#include <NumberFormatting.h>
#include <Resources.h>
#include <Sound.h>
#include "About.h"
#include "DialogUtils.h"
#include "Environ.h"
#include "Externs.h"


static void HiLiteOkayButton (void);
static void UnHiLiteOkayButton (void);
static void UpdateMainPict (DialogPtr);
static pascal Boolean AboutFilter (DialogPtr, EventRecord *theEvent, short *hit);


static RgnHandle		okayButtRgn;
static Rect				okayButtonBounds, mainPICTBounds;
static Boolean			okayButtIsHiLit, clickedDownInOkay;


//==============================================================  Functions
//--------------------------------------------------------------  DoAbout
// Brings up the About dialog box.

void DoAbout (void)
{
	#define			kAboutDialogID			150		// res ID of About dialog
	#define			kTextItemVers			2		// item number of version text
	#define			kPictItemMain			4		// item number of main PICT
	
	DialogPtr		aboutDialog;
	Str255			longVersion;
	StringPtr		messagePtr;
	VersRecHndl		version;
	Handle			itemHandle;
	short			itemType, hit, wasResFile;
	ModalFilterUPP	aboutFilterUPP;
	
	aboutFilterUPP = NewModalFilterUPP(AboutFilter);
	
	wasResFile = CurResFile();
	UseResFile(thisMac.thisResFile);
	
	aboutDialog = GetNewDialog(kAboutDialogID, nil, (WindowRef)-1L);
//	if (aboutDialog == nil)
//		RedAlert(kErrDialogDidntLoad);
	
	version = (VersRecHndl)GetResource('vers', 1);
	if (version != nil)
	{
		messagePtr = (StringPtr)(((UInt32)&(**version).shortVersion[1]) 
				+ ((**version).shortVersion[0]));
		BlockMove((Ptr)messagePtr, &longVersion, ((UInt8)*messagePtr) + 1);
		SetDialogString(aboutDialog, kTextItemVers, longVersion);
	}
	
	GetDialogItem(aboutDialog, kOkayButton, &itemType, &itemHandle, &okayButtonBounds);
	okayButtRgn = NewRgn();					// Create diagonal button region
	OpenRgn();
	MoveTo(okayButtonBounds.left + 1, okayButtonBounds.top + 45);
	Line(44, -44);							// These lines define the region
	Line(16, 16);
	Line(-44, 44);
	Line(-16, -16);
	CloseRgn(okayButtRgn);
	okayButtIsHiLit = false;				// Initially, button is not hilit
	clickedDownInOkay = false;				// Initially, didn't click in okay button
	GetDialogItem(aboutDialog, kPictItemMain, &itemType, &itemHandle, &mainPICTBounds);
	
	do										// Loop until user wants to exit
	{
		ModalDialog(aboutFilterUPP, &hit);
	}
	while ((hit != kOkayButton) && (okayButtRgn != nil));
	
	if (okayButtRgn != nil)
		DisposeRgn(okayButtRgn);			// Clean up!
	DisposeDialog(aboutDialog);
	DisposeModalFilterUPP(aboutFilterUPP);
	
	UseResFile(wasResFile);
}

//==============================================================  Static Functions
//--------------------------------------------------------------  HiLiteOkayButton
// Draws my pseudo-button to appear as though it is clicked on.

static void HiLiteOkayButton (void)
{
	#define		kOkayButtPICTHiLit		151		// res ID of unhilit button PICT
	PicHandle	thePict;
	
	if (!okayButtIsHiLit)
	{
		thePict = GetPicture(kOkayButtPICTHiLit);
		if (thePict != nil)
		{
			DrawPicture(thePict, &okayButtonBounds);
			ReleaseResource((Handle)thePict);
			
			okayButtIsHiLit = true;
		}
	}
}

//--------------------------------------------------------------  UnHiLiteOkayButton

// Draws my pseudo-button normal (not clicked on).

static void UnHiLiteOkayButton (void)
{
	#define		kOkayButtPICTNotHiLit	150		// res ID of hilit button PICT
	PicHandle	thePict;
	
	if (okayButtIsHiLit)
	{
		thePict = GetPicture(kOkayButtPICTNotHiLit);
		if (thePict != nil)
		{
			DrawPicture(thePict, &okayButtonBounds);
			ReleaseResource((Handle)thePict);
			
			okayButtIsHiLit = false;
		}
	}
}

//--------------------------------------------------------------  UpdateMainPict
// Redraws the main graphic in the dialog (in response to an update event).

static void UpdateMain