1 files changed, 123 insertions, 0 deletions
diff --git a/sys/mac/macaboutbox.c b/sys/mac/macaboutbox.c
new file mode 100644
index 0000000..8acdbf4
--- /dev/null
+++ b/sys/mac/macaboutbox.c
@@ -0,0 +1,123 @@
+/* macaboutbox.c - Display the "about box" of the application. */
+/* Written by Brian Kendig. */
+/* The functions here are only used by macint.c. */
+
+//#include <THINK.h>
+#include <Dialogs.h>
+#include <Fonts.h>
+#include <Menus.h>
+#include <Quickdraw.h>
+#include <Resources.h>
+#include <ToolUtils.h>
+#include <Traps.h>
+#include <Windows.h>
+#include "macint.h"
+#define NIL ((void *) 0)
+
+static DialogPtr aboutBox;
+extern Boolean hasColorQD;
+
+static enum {
+    theOKButton		= 1,
+    theOKOutline	= 2,
+    theIcon			= 3,
+    theName			= 4,
+    theAboutText	= 5,
+    theCopyright	= 6
+} ;
+
+pascal void DrawOKOutline (WindowPtr dialogWindow, short theItem) {
+    PenState	oldPen;
+    short		iType;
+    Handle		iHandle;
+    Rect		iRect;
+
+    GetPenState (&oldPen);
+    PenNormal ();
+    PenSize (3,3);
+
+    GetDialogItem (aboutBox, theOKButton, &iType, &iHandle, &iRect);
+    InsetRect (&iRect, -4, -4);
+    FrameRoundRect (&iRect, 16, 16);
+
+    SetPenState (&oldPen);
+}
+
+pascal void DrawIcon (WindowPtr dialogWindow, short theItem) {
+    short		iType;
+    Handle		iHandle;
+    Rect		iRect;
+
+    GetDialogItem (aboutBox, theIcon, &iType, &iHandle, &iRect);
+    PlotIcon (&iRect, GetResource ('ICN#', 128));
+}
+
+pascal void DrawName (WindowPtr dialogWindow, short theItem) {
+    short	iType;
+    Handle	iHandle;
+    Rect	iRect;
+    Str255	string;
+
+    TextFont (kFontIDHelvetica);
+    TextSize (24);
+    TextFace (0);
+    GetDialogItem (aboutBox, theName, &iType, &iHandle, &iRect);
+    GetIndString (string, STRINGS_RES, 1);
+    TETextBox (string+1, string[0], &iRect, teFlushLeft);
+}
+
+pascal void DrawAboutText (WindowPtr dialogWindow, short theItem) {
+    short		iType;
+    Handle		iHandle;
+    Rect		iRect;
+    Str255		string;
+
+    TextFont (kFontIDMonaco);
+    TextSize (9);
+    TextFace (0);
+    GetDialogItem (aboutBox, theAboutText, &iType, &iHandle, &iRect);
+    GetIndString (string, STRINGS_RES, 2);
+    TETextBox (string+1, string[0], &iRect, teFlushLeft);
+}
+
+pascal void DrawCopyright (WindowPtr dialogWindow, short theItem) {
+    short		iType;
+    Handle		iHandle;
+    Rect		iRect;
+    Str255		string;
+
+    TextFont (systemFont);
+    TextSize (12);
+    TextFace (0);
+    GetDialogItem (aboutBox, theCopyright, &iType, &iHandle, &iRect);
+    GetIndString (string, STRINGS_RES, 3);
+    TETextBox (string+1, string[0], &iRect, teFlushLeft);
+}
+
+void DoAboutBox (void) {
+    short itemType, itemHit = 0;
+    Handle itemHandle;
+    Rect aboutRect;
+    short width, hight;
+    PicHandle aboutPict;
+
+    aboutPict = GetPicture(ABOUT_PICT);
+    aboutRect = (*aboutPict)->picFrame;
+    width = aboutRect.right - aboutRect.left;
+    hight = aboutRect.bottom - aboutRect.top;
+    
+    aboutBox = GetNewDialog (ABOUT_BOX, NIL, (WindowPtr) -1);
+    SizeWindow(aboutBox, width, hight, false);
+    
+    ShowWindow (aboutBox);
+    SetPort(aboutBox);
+    DrawPicture(aboutPict, &(*aboutPict)->picFrame);
+    
+    //itemHit = 0;
+    //while (itemHit != ok) ModalDialog (NIL, &itemHit);
+    while (!Button());
+    
+    DisposeDialog (aboutBox);
+    
+    FlushEvents(everyEvent, 0); // dmazzoni
+}