TweetFollow Us on Twitter

Configure Window
Volume Number:7
Issue Number:1
Column Tag:Pascal Procedures

Related Info: Window Manager

Project X: Configurable Window

By Rod Magnuson, Lincoln, NE

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

[Rod Magnuson: Has been programming the Macintosh for 2 1/2 years. Founded MindVision software with Steve Kiene in early 1988. Co-author of Elaborate!, a HyperCard XCMD that adds extensive reporting abilities to HyperCard. Worked on the development team of Chroma-32, a scanning application that allows color scans to be scanned on a grey-scale scanner. Currently working with Steve Kiene on Power Pack Vol. #1, a forth coming INIT package.]

WHAT IS IT?

Project X is a small, quick and dirty application that illustrates an idea for Macintosh windows. The window in the application is user configurable; that is: the user can move the go-away box, title bar, zoom box, content area, scrollbars, and grow box by holding down the command key and dragging it where the user wants. The window part will then move when the window is dragged in the same corresponding position to the rest of the window parts. The idea belongs to Scott Boyd; I am not sure that he imagined what I have come up with, but he did originally think of a customizable window definition. Sorry Scott, it is not a WDEF, but it does illustrate the idea.

The code is not important and most-likely has bugs, it was written as quickly as my mind could think and my fingers could type; it was one of those applications that you really could not justify spending large amounts of time on because you couldn’t get anything out of it, and, therefore, you wrote it as quickly as possible. What is important about this application is the idea!

Original window

Customized window

UTOPIA?

I will not say that this idea is perfect. It is not. It needs to be worked on and possibly trashed altogether. It is, however, a new idea that could make the Macintosh user interface more customizable.

MindVision Software

1721 Benton Street.

Lincoln, NE 68512

(402)477-3269

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

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;
 
 projXwindowKind = 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;
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=projXwindowKind 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);
 HLock(handle(titleHandle));
 DrawString(titleHandle^^);
 HunLock(handle(titleHandle));
 end;
 end
 else if (dataHandle=handle(VScrollWindowType)) OR (dataHandle=handle(HScrollWindowType)) 
then
 DrawControls(tempWindow);
 end;
 EndUpdate(tempWindow);
 SetPort(savePort);
end;
{--------------------------------------------------------------}
Procedure DoAbout;
var
 SavePort : GrafPtr;
 Dialog : DialogPtr;
begin
 GetPort(SavePort);
 
 Dialog:=GetNewDialog(1,Nil,Pointer(-1));
 DrawDialog(Dialog);
 
 Repeat Until MyGetNextEvent(mDownMask+keyDownMask+autoKeyMask);
 
 SetPort(SavePort);
 DisposDialog(Dialog);
end;
{--------------------------------------------------------------}
procedure SizeTheWindow;
begin
 MainWindowRect:=windowPeek(theMainWindow)^.strucRgn^^.RgnBBox;
 
 with MainWindowRect do
 begin
 MoveWindow(theGoAwayWindow,left+1,top-TitleBarHeight+2,false);
 MoveWindow(theTitleWindow,left+GoAwayBoxWidth+1,top-TitleBarHeight+2,false);
 MoveWindow(theZoomWindow,right+ScrollBarWidth-2-ZoomBoxWidth,top-TitleBarHeight+2,false);
 MoveWindow(theVScrollWindow,right,top+1,false);
 MoveWindow(theGrowWindow,right,bottom,false);
 MoveWindow(theHScrollWindow,left+1,bottom,false);
 end;
end;
{--------------------------------------------------------------}
procedure CreateNewWindow;
var
 savePort : GrafPtr;
 thePict: PicHandle;
 bounds : Rect;
 theCTRL: ControlHandle;
begin
 GetPort(savePort);
 
 { * Set up main window * }
 with theScreen do
 SetRect(bounds,left+40,top+50,right-40,bottom-40);
 theMainWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 with windowPeek(theMainWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(MainWindowType);
 end;
 
 { * Make global copy * }
 MainWindowRect:=windowPeek(theMainWindow)^.strucRgn^^.RgnBBox;
 
 { * Set up go away box * }
 thePict:=PicHandle(GetResource(‘PICT’,1002));
 with thePict^^.picFrame do
 SetRect(bounds,0,0,right-left,bottom-top);
 theGoAwayWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 SetWindowPic(theGoAwayWindow,thePict);
 with windowPeek(theGoAwayWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(GoAwayWindowType);
 end;
 with theGoAwayWindow^.portRect do
 GoAwayBoxWidth:=(right-left);
 
 { * Set up zoom box * }
 thePict:=PicHandle(GetResource(‘PICT’,1000));
 with thePict^^.picFrame do
 SetRect(bounds,0,0,right-left,bottom-top);
 theZoomWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 SetWindowPic(theZoomWindow,thePict);
 with windowPeek(theZoomWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(ZoomBoxWindowType);
 end;
 with theZoomWindow^.portRect do
 ZoomBoxWidth:=(right-left);
 
 { * Set up the title window * }
 with MainWindowRect do
 SetRect(bounds,left+GoAwayBoxWidth+1,top-TitleBarHeight+1,right-ZoomBoxWidth+ScrollBarWidth-1,top-1);
 theTitleWindow:=NewWindow(Nil,bounds,’Untitled’,true,plainDBox,pointer(-1),false,0);
 with windowPeek(theTitleWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(TitleWindowType);
 end;
 SetPort(theTitleWindow);
 TextFont(SystemFont);
 
 { * Set up grow box * }
 thePict:=PicHandle(GetResource(‘PICT’,1001));
 with thePict^^.picFrame do
 SetRect(bounds,0,0,right-left,bottom-top);
 theGrowWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 SetWindowPic(theGrowWindow,thePict);
 with windowPeek(theGrowWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(GrowBoxWindowType);
 end;
 
 { * Set up the vertical scrollbar window * }
 with MainWindowRect do
 SetRect(bounds,right,top+1,right+ScrollBarWidth-2,bottom-1);
 theVScrollWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 with windowPeek(theVScrollWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(VScrollWindowType);
 end;
 SetPort(theVScrollWindow);
 ValidRect(theVScrollWindow^.portRect);
 
 bounds:=theVScrollWindow^.portRect;
 InsetRect(bounds,-1,-1);
 theCTRL:=NewControl(theVScrollWindow,bounds,’’,true,1,1,255,scrollBarProc,0);
 
 { * Set up the horizontal scrollbar window * }
 with MainWindowRect do
 SetRect(bounds,left+1,bottom,right-1,bottom+ScrollBarWidth-2);
 theHScrollWindow:=NewWindow(Nil,bounds,’’,true,plainDBox,pointer(-1),false,0);
 with windowPeek(theHScrollWindow)^ do
 begin
 windowKind:=projXwindowKind;
 dataHandle:=handle(HScrollWindowType);
 end;
 SetPort(theHScrollWindow);
 ValidRect(theHScrollWindow^.portRect);
 
 bounds:=theHScrollWindow^.portRect;
 InsetRect(bounds,-1,-1);
 theCTRL:=NewControl(theHScrollWindow,bounds,’’,true,1,1,255,scrollBarProc,0);
 
 { * Hilite the title window * }
 HiliteWindow(theTitleWindow,true);
 
 SizeTheWindow;
 
 SetPort(savePort);
end;
{--------------------------------------------------------------}
Procedure DoCommand(mResult:longint);
var
 DArefNum : Integer;
 DAname : Str255;
begin
 theMenu:=HiWrd(mResult);
 theItem:=LoWrd(mResult);
 
 case theMenu of
 appleMenu:
 If theItem=AboutItem then
 DoAbout
 else
 begin
 GetItem(myMenus[appleMenu],theItem,DAname);
 DArefNum:=OpenDeskAcc(DAname);
 end;
 fileMenu:
 If theItem=QuitItem then
 DoneFlag:=true;
 windowMenu:
 Case theItem of
 ReAdjustItem:
 SizeTheWindow;
 end;
 end;{case}
 
 HiliteMenu(0);
end;
{--------------------------------------------------------------}
procedure DragMyWindow(startingPt:Point);
var
 AllWindowsRgn : RgnHandle;
 moveMent : Longint;
 dx,dy  : Integer;
begin
 AllWindowsRgn:=NewRgn;
 
 OpenRgn;
 
 FrameRgn(windowPeek(theMainWindow)^.strucRGN);
 FrameRgn(windowPeek(theTitleWindow)^.strucRGN);
 FrameRgn(windowPeek(theGoAwayWindow)^.strucRGN);
 FrameRgn(windowPeek(theZoomWindow)^.strucRGN);
 FrameRgn(windowPeek(theGrowWindow)^.strucRGN);
 FrameRgn(windowPeek(theVScrollWindow)^.strucRGN);
 FrameRgn(windowPeek(theHScrollWindow)^.strucRGN);
 
 CloseRgn(AllWindowsRgn);
 
 moveMent:=DragGrayRgn(AllWindowsRgn,startingPt,theScreen,theScreen,noConstraint,NIL);
 
 If Point(moveMent).h=$8000 then
 dx:=0
 else
 dx:=Point(moveMent).h;
 
 If Point(moveMent).v=$8000 then
 dy:=0
 else
 dy:=Point(moveMent).v;
 
 If (dx<>0) OR (dy<>0) then
 begin
 with windowPeek(theMainWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theMainWindow,left+dx,top+dy,false);
 
 with windowPeek(theGoAwayWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theGoAwayWindow,left+dx,top+dy,false);
 
 with windowPeek(theTitleWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theTitleWindow,left+dx,top+dy,false);
 
 with windowPeek(theZoomWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theZoomWindow,left+dx,top+dy,false);
 
 with windowPeek(theVScrollWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theVScrollWindow,left+dx,top+dy,false);
 
 with windowPeek(theGrowWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theGrowWindow,left+dx,top+dy,false);
 
 with windowPeek(theHScrollWindow)^.strucRGN^^.RgnBBox do
 MoveWindow(theHScrollWindow,left+dx,top+dy,false);
 end;
 
 DisposeRgn(AllWindowsRgn);
end;
{--------------------------------------------------------------}
function CurrentWindowHit(theWindow:WindowPtr):Boolean;
begin
 CurrentWindowHit:=((theWindow<>theMainWindow) | (theWindow<>theTitleWindow)
 | (theWindow<>theGoAwayWindow) | (theWindow<>theZoomWindow)
 | (theWindow<>theGrowWindow) | (theWindow<>theVScrollWindow)
 | (theWindow<>theHScrollWindow));
end;
{--------------------------------------------------------------}
Procedure InitGlob;
const
 UnImplTrapNum   = $9F;   { * Unimplemented trap * }
 WaitNextEventTrapWord    = $60;
var
 theWorld : SysEnvRec;
begin
 { * Get the world, so to speak * }
 If SysEnvirons(1,theWorld)<>envNotPresent then
 WNEExists:=(theWorld.machineType>=0) & (NGetTrapAddress( WaitNextEventTrapWord,ToolTrap)<>NGetTrapAddress(UnImplTrapNum,ToolTrap))
 else
 WNEExists:=false;
 
 theScreen:=GetScreenBits;
 
 CreateNewWindow;
end;
{--------------------------------------------------------------}
function MyGetNextEvent(evtMask:Integer):Boolean;
begin
 If WNEExists then
 MyGetNextEvent:=WaitNextEvent(evtMask,theEvent,6,Nil)
 else
 begin
 SystemTask;
 MyGetNextEvent:=GetNextEvent(evtMask,theEvent);
 end;
end;
{--------------------------------------------------------------}
procedure _DataInit;EXTERNAL;
begin
 { * Get rid of MPW’s init code * }
 UnloadSeg(@_DataInit);
 
 FlushEvents(EveryEvent,0);
 InitGraf(@thePort);
 InitFonts;
 TEInit;
 InitWindows;
 InitDialogs(Nil);
 SetUpMenus;
 InitGlob;
 
 Repeat
 InitCursor;
 If MyGetNextEvent(everyEvent) then
 with theEvent do
 case what of
 mouseDown:
 case FindWindow(where,tempWindow) of
 inMenuBar:
 DoCommand(MenuSelect(where));
 InSysWindow:
 SystemClick(theEvent,tempWindow);
 inContent:
 If NOT CurrentWindowHit(tempWindow) then
 SelectWindow(tempWindow)
 else if BAnd(modifiers,cmdKey)<>0 then
 DragWindow(tempWindow,where,GetGrayRGN^^.RGNBBox)
 else if tempWindow=theTitleWindow then
 DragMyWindow(where)
 else if tempWindow=theGrowWindow then
 begin
 GrowReturn:=GrowWindow(theMainWindow,where,GetGrayRGN^^.RGNBBox);
 SizeWindow(theMainWindow,LoWrd(GrowReturn),HiWrd(GrowReturn),true);
 end
 else if tempWindow=theGoAwayWindow then
 begin
 
 end
 else if tempWindow=theZoomWindow then
 begin
 
 end;
 inDrag:
 If NOT CurrentWindowHit(tempWindow) then
 SelectWindow(tempWindow)
 else If BAnd(modifiers,cmdKey)<>0 then
 DragWindow(tempWindow,where,GetGrayRGN^^.RGNBBox);
 end;{case}
 keyDown,autoKey:
 begin
 theChar:=chr(BitAnd(message,255));
 If BitAnd(modifiers,CmdKey)<>0 then
 DoCommand(MenuKey(theChar))
 end;
 updateEvt:
 DoMyUpdate;
 end;
 Until Doneflag;
 
 SetCursor(GetCursor(WatchCursor)^^);
end.
{--------------------------------------------------------------}

resource ‘MENU’ (1, preload) {
 1,
 textMenuProc,
 0x7FFFFFFD,
 enabled,
 apple,
 { /* array: 2 elements */
 /* [1] */
 “About projectX ”, noIcon, noKey, noMark, plain,
 /* [2] */
 “-”, noIcon, noKey, noMark, plain
 }
};

resource ‘MENU’ (2, preload) {
 2,
 textMenuProc,
 0x7FFFFFFB,
 enabled,
 “File”,
 { /* array: 1 elements */
 /* [1] */
 “Quit”, noIcon, “Q”, noMark, plain
 }
};

resource ‘MENU’ (3, preload) {
 3,
 textMenuProc,
 0x7FFFFFBC,
 enabled,
 “Edit”,
 { /* array: 8 elements */
 /* [1] */
 “Undo”, noIcon, “Z”, noMark, plain,
 /* [2] */
 “-”, noIcon, noKey, noMark, plain,
 /* [3] */
 “Cut”, noIcon, “X”, noMark, plain,
 /* [4] */
 “Copy”, noIcon, “C”, noMark, plain,
 /* [5] */
 “Paste”, noIcon, “V”, noMark, plain,
 /* [6] */
 “Clear”, noIcon, noKey, noMark, plain,
 /* [7] */
 “-”, noIcon, noKey, noMark, plain,
 /* [8] */
 “Select All”, noIcon, “A”, noMark, plain
 }
};

resource ‘MENU’ (4, preload) {
 4,
 textMenuProc,
 allEnabled,
 enabled,
 “Window”,
 { /* array: 1 elements */
 /* [1] */
 “ReAdjust Window”, noIcon, “1”, noMark, plain
 }
};

resource ‘SIZE’ (-1) {
 dontSaveScreen,
 acceptSuspendResumeEvents,
 enableOptionSwitch,
 cannotBackground,
 multiFinderAware,
 backgroundAndForeground,
 dontGetFrontClicks,
 ignoreChildDiedEvents,
 not32BitCompatible,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 307200,
 307200
};

resource ‘SIZE’ (0) {
 dontSaveScreen,
 acceptSuspendResumeEvents,
 enableOptionSwitch,
 cannotBackground,
 multiFinderAware,
 backgroundAndForeground,
 dontGetFrontClicks,
 ignoreChildDiedEvents,
 not32BitCompatible,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 reserved,
 307200,
 307200
};

resource ‘vers’ (1, purgeable) {
 0x1,
 0x3,
 release,
 0x0,
 verUs,
 “projectX”,
 “projectX”
};

resource ‘vers’ (2, purgeable) {
 0x1,
 0x3,
 release,
 0x0,
 verUs,
 “projectX”,
 “projectX”
};

resource ‘PICT’ (1001) {
 {0, 0, 14, 14},
 VersionOne {
 { /* array OpCodes: 6 elements */
 /* [1] */
 shortComment {
 130
 },
 /* [2] */
 shortComment {
 142
 },
 /* [3] */
 clipRgn {
 {0, 0, 752, 576},
 $””
 },
 /* [4] */
 bitsRect {
 2,
 {0, 0, 14, 16},
 {0, 0, 14, 14},
 {0, 0, 14, 14},
 srcOr,
 $”00 00 00 00 3F 80 20 80 20 F8 20 88 20 88 20 88"
 $”3F 88 08 08 08 08 08 08 0F F8 00 00"
 },
 /* [5] */
 shortComment {
 143
 },
 /* [6] */
 shortComment {
 131
 }
 }
 }
};

resource ‘PICT’ (1000) {
 {0, 0, 17, 29},
 VersionOne {
 { /* array OpCodes: 6 elements */
 /* [1] */
 shortComment {
 130
 },
 /* [2] */
 shortComment {
 142
 },
 /* [3] */
 clipRgn {
 {0, 0, 752, 576},
 $””
 },
 /* [4] */
 bitsRect {
 4,
 {0, 0, 17, 32},
 {0, 0, 17, 29},
 {0, 0, 17, 29},
 srcOr,
 $”00 00 00 00 00 00 00 00 00 00 00 00 FF BF FB F0"
 $”00 20 88 00 FF A0 8B F0 00 20 88 00 FF A0 8B F0"
 $”00 20 88 00 FF BF 8B F0 00 20 08 00 FF A0 0B F0"
 $”00 20 08 00 FF BF FB F0 00 00 00 00 00 00 00 00"
 $”00 00 00 00"
 },
 /* [5] */
 shortComment {
 143
 },
 /* [6] */
 shortComment {
 131
 }
 }
 }
};

resource ‘PICT’ (1002) {
 {0, 0, 17, 31},
 VersionOne {
 { /* array OpCodes: 6 elements */
 /* [1] */
 shortComment {
 130
 },
 /* [2] */
 shortComment {
 142
 },
 /* [3] */
 clipRgn {
 {0, 0, 752, 576},
 $””
 },
 /* [4] */
 bitsRect {
 4,
 {0, 0, 17, 32},
 {0, 0, 17, 31},
 {0, 0, 17, 31},
 srcOr,
 $”00 00 00 00 00 00 00 00 00 00 00 00 7E FF EF FE”
 $”00 80 20 00 7E 80 2F FE 00 80 20 00 7E 80 2F FE”
 $”00 80 20 00 7E 80 2F FE 00 80 20 00 7E 80 2F FE”
 $”00 80 20 00 7E FF EF FE 00 00 00 00 00 00 00 00"
 $”00 00 00 00"
 },
 /* [5] */
 shortComment {
 143
 },
 /* [6] */
 shortComment {
 131
 }
 }
 }
};

resource ‘PICT’ (100) {
 {0, 4, 52, 209},
 VersionOne {
 { /* array OpCodes: 7 elements */
 /* [1] */
 shortComment {
 130
 },
 /* [2] */
 shortComment {
 12345
 },
 /* [3] */
 shortComment {
 142
 },
 /* [4] */
 clipRgn {
 {0, 0, 752, 576},
 $””
 },
 /* [5] */
 packBitsRect {
 28,
 {0, 0, 52, 216},
 {0, 4, 52, 209},
 {0, 4, 52, 209},
 srcOr,
 $”0B ED 00 01 3F C0 FE 00 02 FF 00 00 0B ED 00 07"
 $”1F E0 00 00 01 FE 00 00 0B ED 00 07 0F F0 00 00"
 $”03 FC 00 00 0B ED 00 07 07 F0 00 00 03 F8 00 00"
 $”0B ED 00 07 07 F8 00 00 07 F8 00 00 0B ED 00 07"
 $”03 FC 00 00 0F F0 00 00 0B ED 00 07 01 FE 00 00"
 $”1F E0 00 00 0A EC 00 06 FE 00 00 1F C0 00 00 0A”
 $”EC 00 06 FF 00 00 3F C0 00 00 0A EC 00 06 7F 80"
 $”00 7F 80 00 00 09 EC 00 03 3F C0 00 FF FE 00 09"
 $”EC 00 03 1F C0 00 FE FE 00 09 EC 00 03 1F E0 01"
 $”FE FE 00 09 EC 00 03 0F F0 03 FC FE 00 09 EC 00"
 $”03 07 F8 07 F8 FE 00 1C 18 0F FF C0 1F FF E0 00"
 $”1F E0 00 00 70 3F FF F0 00 FF 80 FF FF F8 03 F8"
 $”07 F0 FE 00 1C 18 0F FF F0 1F FF F8 00 7F F8 00"
 $”00 70 3F FF F0 03 FF E0 FF FF F8 03 FC 0F F0 FE”
 $”00 1C 18 0F FF F8 1F FF FC 01 FF FE 00 00 70 3F”
 $”FF F0 0F FF F0 FF FF F8 01 FE 1F E0 FE 00 1C 18"
 $”0E 00 7C 1C 00 7C 03 F0 3F 00 00 70 38 00 00 1F”
 $”80 F8 00 70 00 00 FF 3F C0 FE 00 1C 18 0E 00 1C”
 $”1C 00 1E 07 C0 0F 80 00 70 38 00 00 3E 00 3C 00"
 $”70 00 00 7F 3F 80 FE 00 1C 18 0E 00 1E 1C 00 1E”
 $”07 80 07 80 00 70 38 00 00 3C 00 1C 00 70 00 00"
 $”7F FF 80 FE 00 1B 17 0E 00 0E 1C 00 0E 0F 00 03"
 $”C0 00 70 38 00 00 78 00 1E 00 70 00 00 3F FF FD”
 $”00 1B 17 0E 00 0E 1C 00 0E 0E 00 01 C0 00 70 38"
 $”00 00 70 00 0E 00 70 00 00 1F FE FD 00 1B 17 0E”
 $”00 0E 1C 00 0E 0E 00 01 C0 00 70 38 00 00 70 00"
 $”0E 00 70 00 00 0F FC FD 00 1B 0F 0E 00 1E 1C 00"
 $”1E 1E 00 01 E0 00 70 38 00 00 F0 FE 00 04 70 00"
 $”00 07 F8 FD 00 1B 0F 0E 00 1C 1C 00 1C 1C 00 00"
 $”E0 00 70 38 00 00 E0 FE 00 04 70 00 00 07 F8 FD”
 $”00 1B 0F 0E 00 7C 1C 00 7C 1C 00 00 E0 00 70 3F”
 $”FF C0 E0 FE 00 04 70 00 00 0F FC FD 00 1B 0F 0F”
 $”FF F8 1F FF F8 1C 00 00 E0 00 70 3F FF C0 E0 FE”
 $”00 04 70 00 00 1F FE FD 00 1B 0F 0F FF F0 1F FF”
 $”E0 1C 00 00 E0 00 70 3F FF C0 E0 FE 00 04 70 00"
 $”00 1F FE FD 00 1B 0F 0F FF C0 1F FF F8 1C 00 00"
 $”E0 00 70 38 00 00 E0 FE 00 04 70 00 00 3F FF FD”
 $”00 1C 0F 0E 00 00 1C 00 3C 1C 00 00 E0 00 70 38"
 $”00 00 E0 FE 00 05 70 00 00 7F FF 80 FE 00 1C 0F”
 $”0E 00 00 1C 00 1C 1E 00 01 E0 00 70 38 00 00 F0"
 $”FE 00 05 70 00 00 FF 3F C0 FE 00 1C 18 0E 00 00"
 $”1C 00 1E 0E 00 01 C0 00 70 38 00 00 70 00 0E 00"
 $”70 00 00 FF 3F C0 FE 00 1C 18 0E 00 00 1C 00 0E”
 $”0E 00 01 C3 80 70 38 00 00 70 00 0E 00 70 00 01"
 $”FE 1F E0 FE 00 1C 18 0E 00 00 1C 00 0E 0F 00 03"
 $”C3 80 70 38 00 00 78 00 1E 00 70 00 03 FC 0F F0"
 $”FE 00 1C 18 0E 00 00 1C 00 0E 07 80 07 83 80 F0"
 $”38 00 00 3C 00 1C 00 70 00 07 F8 07 F8 FE 00 1C”
 $”18 0E 00 00 1C 00 0E 07 C0 0F 83 C0 F0 38 00 00"
 $”3E 00 7C 00 70 00 07 F8 07 F8 FE 00 1C 18 0E 00"
 $”00 1C 00 0E 03 F0 3F 01 E1 E0 38 00 00 1F 81 F8"
 $”00 70 00 0F F0 03 FC FE 00 1C 18 0E 00 00 1C 00"
 $”0E 01 FF FE 01 FF E0 3F FF F0 0F FF F0 00 70 00"
 $”1F E0 01 FE FE 00 1C 18 0E 00 00 1C 00 0F 00 7F”
 $”F8 00 FF C0 3F FF F0 03 FF C0 00 70 00 3F C0 00"
 $”FF FE 00 1C 18 0E 00 00 1C 00 07 00 1F E0 00 3F”
 $”00 3F FF F0 00 FF 00 00 70 00 3F C0 00 FF FE 00"
 $”0A EC 00 06 7F 80 00 7F 80 00 00 0A EC 00 04 FF”
 $”00 00 3F C0 FF 00 0B ED 00 05 01 FE 00 00 1F E0"
 $”FF 00 0B ED 00 05 01 FE 00 00 1F E0 FF 00 0B ED”
 $”00 07 03 FC 00 00 0F F0 00 00 0B ED 00 07 07 F8"
 $”00 00 07 F8 00 00 0B ED 00 07 0F F0 00 00 03 FC”
 $”00 00 0B ED 00 07 0F F0 00 00 03 FC 00 00 0B ED”
 $”00 07 1F E0 00 00 01 FE 00 00 0B ED 00 01 3F C0"
 $”FE 00 00 FF FF 00 0B ED 00 01 7F 80 FE 00 02 7F”
 $”80 00"
 },
 /* [6] */
 shortComment {
 143
 },
 /* [7] */
 shortComment {
 131
 }
 }
 }
};

resource ‘DLOG’ (1) {
 {104, 166, 228, 392},
 dBoxProc,
 visible,
 noGoAway,
 0x0,
 1,
 “”
};

resource ‘DITL’ (1) {
 { /* array DITLarray: 2 elements */
 /* [1] */
 {6, 9, 58, 214},
 Picture {
 enabled,
 100
 },
 /* [2] */
 {63, 26, 116, 217},
 StaticText {
 disabled,
 “By Rod Magnuson\nFor MacTutor Magazine\nBa”
 “sed on idea of Scott Boyd”
 }
 }
};

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Combo Quest (Games)
Combo Quest 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Combo Quest is an epic, time tap role-playing adventure. In this unique masterpiece, you are a knight on a heroic quest to retrieve... | Read more »
Hero Emblems (Games)
Hero Emblems 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ** 25% OFF for a limited time to celebrate the release ** ** Note for iPhone 6 user: If it doesn't run fullscreen on your device... | Read more »
Puzzle Blitz (Games)
Puzzle Blitz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Puzzle Blitz is a frantic puzzle solving race against the clock! Solve as many puzzles as you can, before time runs out! You have... | Read more »
Sky Patrol (Games)
Sky Patrol 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: 'Strategic Twist On The Classic Shooter Genre' - Indie Game Mag... | Read more »
The Princess Bride - The Official Game...
The Princess Bride - The Official Game 1.1 Device: iOS Universal Category: Games Price: $3.99, Version: 1.1 (iTunes) Description: An epic game based on the beloved classic movie? Inconceivable! Play the world of The Princess Bride... | Read more »
Frozen Synapse (Games)
Frozen Synapse 1.0 Device: iOS iPhone Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Frozen Synapse is a multi-award-winning tactical game. (Full cross-play with desktop and tablet versions) 9/10 Edge 9/10 Eurogamer... | Read more »
Space Marshals (Games)
Space Marshals 1.0.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.1 (iTunes) Description: ### IMPORTANT ### Please note that iPhone 4 is not supported. Space Marshals is a Sci-fi Wild West adventure taking place... | Read more »
Battle Slimes (Games)
Battle Slimes 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: BATTLE SLIMES is a fun local multiplayer game. Control speedy & bouncy slime blobs as you compete with friends and family.... | Read more »
Spectrum - 3D Avenue (Games)
Spectrum - 3D Avenue 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: "Spectrum is a pretty cool take on twitchy/reaction-based gameplay with enough complexity and style to stand out from the... | Read more »
Drop Wizard (Games)
Drop Wizard 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Bring back the joy of arcade games! Drop Wizard is an action arcade game where you play as Teo, a wizard on a quest to save his... | Read more »

Price Scanner via MacPrices.net

14-inch M4 Pro/M4 Max MacBook Pros on sale th...
Don’t pay full price! Get a new 14″ MacBook Pro with an M4 Pro or M4 Max CPU for up to $320 off Apple’s MSRP this weekend at these retailers…they are the lowest prices available for these MacBook... Read more
Get a 15-inch M4 MacBook Air for $150 off App...
A couple of Apple retailers are offering $150 discounts on new 15″ M4 MacBook Airs this weekend. Prices at these retailers start at $1049: (1): Amazon has new 15″ M4 MacBook Airs on sale for $150 off... Read more
Unreal Mobile is offering a $100 discount on...
Unreal Mobile, an MVNO using AT&T and T-Mobile’s networks, is offering a $100 discount on any new iPhone with service. This includes new iPhone 16 models as well as iPhone 15, 13, and SE phones... Read more
16-inch M4 Pro MacBook Pros on sale for $250-...
Don’t pay full price! Amazon has 16-inch M4 Pro MacBook Pros (Silver or Black colors) on sale right now for up to $300 off Apple’s MSRP. Shipping is free. These are the lowest prices currently... Read more
Get a 14-inch M4 MacBook Pro for up to $240 o...
Amazon is offering a $150-$250 discount on Apple’s 14-inch M4 MacBook Pros right now. Shipping is free. Be sure to select Amazon as the seller, rather than a third-party seller: – 14″ M4 MacBook Pro... Read more
Clearance 14-inch M3 Pro MacBook Pros availab...
B&H Photo has clearance 14″ M3 Pro MacBook Pros (in Black or Silver) on sale for $500 off original MSRP, only $1499. B&H offers free 1-2 day delivery to most US addresses: – 14″ 11-Core M3... Read more
Sams Club is offering a $50 discount on Titan...
Sams Club has Titanium Apple Watch Series 10 models on sale for $50 off Apple’s MSRP. Sams Club Membership required. Note that sale prices are for online orders only, in-store prices may vary. Choose... Read more
Sunday Sale: Apple’s latest 13-inch M4 MacBoo...
Amazon has new 13″ M4 MacBook Airs on sale for $150 off MSRP right now, starting at $849. Sale prices apply to most colors and configurations. Be sure to select Amazon as the seller, rather than a... Read more
Apple’s M4 Mac minis on sale for record-low p...
B&H Photo has M4 and M4 Pro Mac minis in stock and on sale right now for up to $150 off Apple’s MSRP, each including free 1-2 day shipping to most US addresses. Prices start at only $469: – M4... Read more
Week’s Best Deals: 14-inch M4 MacBook Pros fo...
Don’t pay full price! These retailers are offering $200-$250 discounts on new 14-inch M4 MacBook Pros this week…they are the lowest sale prices available for new MacBook Pros: (1): Amazon is offering... Read more

Jobs Board

All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.