{--------------------------------------------------------------}

Program ProjectX;

USES

Types, { Nothing }

Errors, { Nothing }

Memory, { Types }

OSUtils, { Types }

QuickDraw, { Types }

Resources, { Types }

SegLoad, { Types }

Controls, { QuickDraw }

Events, { QuickDraw }

Fonts, { QuickDraw }

Menus, { QuickDraw }

TextEdit, { QuickDraw }

ToolUtils, { QuickDraw }

OSEvents, { Types, Events, OSUtils }

Desk, { Types, QuickDraw, Events }

Windows, { Events, Controls }

Dialogs, { Windows, TextEdit }

Devices, { OSUtils, Files, QuickDraw }

Lists, { Controls }

Packages, { Dialogs, Files }

Script; { Packages }

The following lines will rez, compile, link, and execute ProjectX

Rez Types.r SysTypes.r Pict.r ProjectX.rsrc -rd -a -o ProjectX

Pascal ProjectX.p

Link ProjectX.p.o {PLibraries}PasLib.o {Libraries}Interface.o

{Libraries}Runtime.o -o ProjectX

ProjectX

CONST

TitleBarHeight = 19;

ScrollBarWidth = 16;

Lastmenu = 4;

appleMenu = 1;

AboutItem = 1;

fileMenu = 2;

QuitItem = 1;

editMenu = 3;

windowMenu = 4;

ReAdjustItem = 1;

projX windowKind = 2000;

MainWindowType = 10;

TitleWindowType = 11;

GoAwayWindowType = 12;

ZoomBoxWindowType = 13;

GrowBoxWindowType = 14;

VScrollWindowType = 15;

HScrollWindowType = 16;

VAR

theEvent : EventRecord;

theChar : Char;

tempWindow : WindowPtr;

Doneflag : Boolean;

theScreen : Rect;

theItem : Integer;

theMenu : Integer;

ItemHit : Integer;

myMenus : Array[1..Lastmenu] of MenuHandle;

itype : Integer;

item : Handle;

box : Rect;

GrowReturn : Longint;

WNEExists : Boolean;

{ * Window vars * }

theMainWindow : WindowPtr;

theTitleWindow : WindowPtr;

theGoAwayWindow : WindowPtr;

theZoomWindow : WindowPtr;

theGrowWindow : WindowPtr;

theVScrollWindow : WindowPtr;

theHScrollWindow : WindowPtr;

MainWindowRect : Rect;

GoAwayBoxWidth : Integer;

ZoomBoxWidth : Integer;

function MyGetNextEvent(evtMask:Integer):Boolean; forward;

{--------------------------------------------------------------}

Function Str(i:longInt):str255;

var

myStr : Str255;

begin

NumToString(i,myStr);

Str:=myStr;

end;

{--------------------------------------------------------------}

Function Val(s:str255):Longint;

var

myVal : Longint;

begin

StringToNum(s,myVal);

Val:=myVal;

end;

{--------------------------------------------------------------}

function GetScreenBits:Rect;

type

IntPtr = ^Integer;

var

WMGRPort : GrafPtr;

begin

If IntPtr($28E)^=$3FFF then

GetScreenBits:=GetGDevice^^.gdRect

else

begin

GetWMGRPort(WMGRPort);

GetScreenBits:=WMGRPort^.portRect;

end;

{--------------------------------------------------------------}

Procedure SetUpMenus;

var

i : Integer;

begin

InitMenus;

{ * Get and insert menus * }

for i:=1 to Lastmenu do

begin

MyMenus[i]:=GetMenu(i);

InsertMenu(myMenus[i],0);

end;

AddResMenu(MyMenus[ appleMenu],'DRVR');

DrawMenuBar;

end;

{--------------------------------------------------------------}

Procedure DoMyUpdate;

var

TitleOffSet : Integer;

savePort : GrafPtr;

thePICT : PicHandle;

eRect : Rect;

begin

tempWindow:=WindowPtr(theEvent.message);

GetPort(savePort);

SetPort(tempWindow);

BeginUpdate(tempWindow);

with windowPeek(tempWindow)^ do

If windowKind=projX windowKind then

begin

EraseRect(port.portRect);

If dataHandle= handle(TitleWindowType) then

begin

with port.portRect do

begin

MoveTo(left,top+3);

LineTo(right,top+3);

MoveTo(left,top+5);

LineTo(right,top+5);

MoveTo(left,top+7);

LineTo(right,top+7);

MoveTo(left,top+9);

LineTo(right,top+9);

MoveTo(left,top+11);

LineTo(right,top+11);

MoveTo(left,top+13);

LineTo(right,top+13);

TitleOffSet:=Right Div 2-TitleWidth Div 2;

SetRect(eRect,left+TitleOffSet-3,top,left+TitleOffSet+titleWidth+3,

bottom);

EraseRect(eRect);

MoveTo(left+TitleOffSet,13);