mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-22 08:34:35 +00:00
111 lines
3.7 KiB
C
111 lines
3.7 KiB
C
#include <Quickdraw.h>
|
|
#include <Windows.h>
|
|
#include <Fonts.h>
|
|
|
|
#ifdef COMPILING_AS_CODE_RESOURCE
|
|
#ifndef __PPC__
|
|
#include <Retro68Runtime.h>
|
|
#endif
|
|
#include <LowMem.h>
|
|
#endif
|
|
|
|
pascal long MyWindowDefProc(short varCode, WindowRef window, short message, long param)
|
|
{
|
|
#ifdef COMPILING_AS_CODE_RESOURCE
|
|
// If we are inside a code resource, we have two problems.
|
|
// First, our machine code doesn't yet know where in RAM it is located, so things
|
|
// will crash as soon as we call a function or access a global variable.
|
|
// The following call, part of libretro, fixes that:
|
|
#ifndef __PPC__
|
|
RETRO68_RELOCATE();
|
|
#endif
|
|
|
|
// Next, Quickdraw's global variables are stored as part of the application's
|
|
// global variables. If we acces "qd.", we'll get our own copy, which QuickDraw knows
|
|
// nothing about. So, let's get a pointer to the real thing:
|
|
QDGlobalsPtr qdPtr = (QDGlobalsPtr)( (*(Ptr*)LMGetCurrentA5()) + 4 - sizeof(QDGlobals) );
|
|
|
|
// alternatively, we could just avoid accessing QuickDraw globals. In our case, that would mean
|
|
// using GetPort instead of qdPtr->thePort, and not using qdPtr->white and qdPtr->ltGray.
|
|
#else
|
|
// We're part of the real application, we could be using `qd' in the first place:
|
|
QDGlobalsPtr qdPtr = &qd;
|
|
#endif
|
|
|
|
WindowPeek peek = (WindowPeek) window;
|
|
switch(message)
|
|
{
|
|
case kWindowMsgDraw:
|
|
{
|
|
RgnHandle rgn = NewRgn();
|
|
DiffRgn(peek->strucRgn, peek->contRgn, rgn);
|
|
FillRgn(rgn, peek->hilited ? &qdPtr->white : &qdPtr->ltGray);
|
|
Point savePen = qdPtr->thePort->pnSize;
|
|
if(peek->hilited)
|
|
PenSize(3,3);
|
|
FrameRgn(rgn);
|
|
PenSize(savePen.h, savePen.v);
|
|
DisposeRgn(rgn);
|
|
|
|
short saveFace = qdPtr->thePort->txFace;
|
|
|
|
Rect r = (*peek->contRgn)->rgnBBox;
|
|
|
|
MoveTo(r.left, r.top - 10);
|
|
HLock((Handle) peek->titleHandle);
|
|
//TextMode(srcOr);
|
|
DrawString(*peek->titleHandle);
|
|
HUnlock((Handle) peek->titleHandle);
|
|
}
|
|
break;
|
|
case kWindowMsgHitTest:
|
|
{
|
|
Point p;
|
|
p.v = param >> 16;
|
|
p.h = param & 0xFFFF;
|
|
if(PtInRgn(p, peek->strucRgn))
|
|
{
|
|
if(PtInRgn(p, peek->contRgn))
|
|
return wInContent;
|
|
else
|
|
return wInDrag;
|
|
}
|
|
else
|
|
return wNoHit;
|
|
}
|
|
break;
|
|
case kWindowMsgCalculateShape:
|
|
{
|
|
Rect r = window->portRect;
|
|
OffsetRect(&r, -window->portBits.bounds.left,
|
|
-window->portBits.bounds.top);
|
|
RectRgn(peek->contRgn, &r);
|
|
InsetRect(&r, -10, -10);
|
|
RectRgn(peek->strucRgn, &r);
|
|
|
|
HLock((Handle) peek->titleHandle);
|
|
short width = StringWidth(*peek->titleHandle);
|
|
HUnlock((Handle) peek->titleHandle);
|
|
width += 20;
|
|
if(width > r.right - r.left - 10)
|
|
width = r.right - r.left - 10;
|
|
|
|
RgnHandle rgn = NewRgn();
|
|
SetRectRgn(rgn, r.left, r.top-20, r.left + width, r.top);
|
|
UnionRgn(rgn, peek->strucRgn, peek->strucRgn);
|
|
DisposeRgn(rgn);
|
|
}
|
|
|
|
break;
|
|
case kWindowMsgInitialize:
|
|
break;
|
|
case kWindowMsgCleanUp:
|
|
break;
|
|
case kWindowMsgDrawGrowOutline:
|
|
break;
|
|
case kWindowMsgDrawGrowBox:
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|