TweetFollow Us on Twitter

MacApp and C++
Volume Number:6
Issue Number:8
Column Tag:Jörg's Folder

Using MacApp With C++

By Jörg Langowski, MacTutor Editorial Board

“C++ and MacApp”

Without Eric Carrasco this column couldn’t have been written. Eric is the president of MADA (MacApp Developer’s Association) Europe, and helped me at a crucial point (see below) when I was completely stuck with my example and very close to the “dead-dead-dead”line for this column. So first of all, I’d like to thank you, Eric, for your quick and efficient help.

It seems like using MacApp from C++ is not as trivial as it might have seemed at first sight. Although it has been several months since I got the first - very simple - MacApp ‘nothing’ example to run under C++, our introductions to C++ here have been based on a simpler application model, so that one could understand all the code from beginning to end, something that’s not so easy with MacApp.

So far, there have not been very many C++ examples using MacApp. nothing.cp, which came with the C++ header files, wasn’t too useful an example. Many of the things where object-oriented programming really shines, such as applying methods to lists of objects of unknown type, were just not included. The final version of MacApp 2.0 contains some non-trivial C++ examples, but as I write this, MacApp 2.0 has just been out for some weeks and hasn’t made its way to this side of the Atlantic yet.

Thus I thought it would be a good idea to construct a somewhat more interesting example of a MacApp program in C++. Browsing through examples from Apple’s MacApp developer class, I found one program that contains support for a TextEdit record, a simple drawing tool, a palette, and some color support. I translated the program - originally written in Object Pascal - into C++, with some modifications on the way. The complete program is printed in listings 1-4: 1 is the header file with the class definitions, 2 contains the implementation, 3 the resources and 4 is the MAMake file for building the application.

Since the example is quite long, I won’t explain it in all its details this month, but only point out some specifics that are important for going from Object Pascal to C++. A more detailed explanation of the MacApp part of the story will follow next month.

Translating Object Pascal to C++

At first, everything looks simple: just replace PROCEDURE by pascal void, and the dot by two colons, as in

{1}

PROCEDURE TApplication.MainEventLoop;

which becomes

/* 2 */

virtual pascal void TApplication::MainEventLoop(void);

replace FUNCTION (...):INTEGER; by pascal int (); etc furthermore, replace := by =, similarly for the other operators, and change the syntax of for loops, if and case statements.

From the Object Pascal interface file, create a C++ header file this way, and from the Pascal implementation, create the main program (extension .cp). Use an #include directive at the beginning of the program to include the header file. Compile and go.

Some lines from the ‘nothing’ example in Pascal and C++ illustrate this:

{3}

Pascal:

TYPE
 TNothingApplication = OBJECT (TApplication)
 PROCEDURE
 TNothingApplication.INothingApplication
 (itsMainFileType: OSType);
 { Initializes the application and globals. }
 END;
 TDefaultView    = OBJECT (TView)
 PROCEDURE 
 TDefaultView.Draw(area: Rect); OVERRIDE;
 { Draws the view seen in the window. Every
  nonblank view MUST override this method. }
 END;

// 4

C++:

class TNothingApplication : public TApplication {
public: virtual pascal void 
 INothingApplication(OSType itsMainFileType);  };
class TDefaultView : public TView {
public: virtual pascal void Draw(Rect *area);  };

Unfortunately, life is not that simple, as I could soon find out. Some problems occurred during the translation: a minor one was that C++ arrays (like in C) are always indexed starting at zero. You can’t declare, as in Pascal,

{5}

VAR gColorArray: ARRAY[cBlack..cWhite] OF INTEGER;

but have to write (see listing 2)

//6

intgColorArray[cWhite-cBlack+1];

and later on do appropriate index calculation to access the array at the correct address.

Also, one thing to keep in mind is that a C++ int has no defined size; depending on the system, it can be either 16 or 32 bits long. On the Macintosh, it is 32 bits long, which doesn’t really matter if you are consistent within your own code, but matters a lot when you call Pascal procedures that expect a 16-bit integer. This, of course, is a C++ short. The nice thing about C++ is that the compiler will flag you errors about such type mismatches, and often when a program compiles, it will also execute at least in a semi-reasonable way.

The big problem was a true deficiency of C++: you cannot define procedures inside other procedures. A construction like

{7}

procedure a;
 var i,j,k: integer;
 procedure b;
 var a,b,c: real;
 begin
 i = k+j;
 end;
 begin
   
 end;

where b has access to the local variables of a without having passed them explicitly as parameters, is completely illegal in C++.

Second, although it is possible to pass procedure pointers as parameters to a C++ routine, and then execute them from within the routine, one can only pass the pointer, not any parameters with the procedure. That means while you can define in Pascal

{8}

procedure p(procedure q(x:real, var y:real));

and later call p(myproc(a,b)), thus defining the parameters that are passed with the procedure used in calling p, in C (or C++) you can only define e.g.

// 9

pascal void p(pascal void (*q)(float x, float *y));

and the type of the procedure pointer passed will be checked on the call; but there is no direct way to pass its parameters.

This means you cannot pass any information to a procedure that is passed as a variable to another procedure; you cannot define it inside another function and use that function’s local variables for parameter passing, neither can you pass parameters directly on the call. The only way would be to go through a global variable; which is very inconvenient.

MacApp makes extensive use of procedure parameters; one example is the method Each(), which applies a procedure to a list of objects of unspecified type. If that procedure expects parameters on its call, we run into the problem described.

This was the point where I was stuck and had to give Eric Carrasco a call. He explained to me that there was a standard way around the problem and that it was described in the MacApp 2.0 final documentation. Which I didn’t have yet, of course. But through network mail, the problem was solved quickly.

The method Each() expects one parameter in its Pascal interface:

{10}

procedure TList.Each
 (procedure DoToItem(item: TObject));

which is a procedure that takes any TObject as its parameter. The C++ interface expects two parameters:

//11

virtual pascal void 
 Each(pascal void (*DoToItem) 
 (TObject *item, void *DoToItem_StaticLink), void *DoToItem_StaticLink);

The first parameter is a procedure that now also takes two parameters, one is the pointer to a TObject, and the other a void*, i.e., a generic pointer. The second parameter passed to Each is another void*. This second pointer - in the Each method and in the procedure passed to it as a parameter - is used to pass actual parameters to the procedure.

To illustrate this, look at listing 2 where the DoNeedDiskSpace method of class TTEDocument is implemented. Outside the method, we define a procedure CalcDiskSpace which takes two parameters:

//12

pascal void CalcDiskSpace(TBox *aBox, 
 CalcDiskSpaceStruct *aCalcDiskSpaceStruct)
{aBox->NeedDiskSpace
 (&(aCalcDiskSpaceStruct->myDataForkBytes)); }

where CalcDiskSpaceStruct has been defined in the header file:

//13

struct CalcDiskSpaceStruct {  long myDataForkBytes; };

Now, inside the method, we define

//14

 CalcDiskSpaceStruct aCalcDiskSpaceStruct;

and later use this structure to pass the actual parameter:

//15

 aCalcDiskSpaceStruct.myDataForkBytes = 
 *dataForkBytes;
 ForEachShapeDo((DoToObject)CalcDiskSpace,
 &aCalcDiskSpaceStruct);

CalcDiskSpace must be typecast to the DoToObject type, defined as

//16

typedef pascal void (*DoToObject) 
 (TObject *aObject, void *DoToObject_staticlink);

since otherwise the compiler would give a type mismatch error. ForEachShapeDo just calls the method Each for the object list associated with the document.

This is the way procedure parameters can be passed in C++; slightly more complicated than in Pascal, and I hope this has not confused you too much.

The last thing I’d like to note is that there are lots of debugging utilities built into MacApp; with Object Pascal, you can use writeln to write into the debugger window. I have not found an analogous procedure in C++, printf certainly didn’t work, but all this may be resolved when I receive the final docs. For the moment, the procedure I use is ProgramReport, which writes a string into the debugger window.

Objects should also be able to identify themselves and their instance variables; for this purpose, the methods Fields has been provided. For easy debugging, you should define this method for each class.

I’ll stop here, since this column with the example is getting very long; next month, we’ll look at some of the MacApp-specific details of the program, and also some OOPS Forth again. Till then.

Listing 1: TEDemo.h (header file)

class TTEApplication : public TApplication {
public:
 virtual pascal void 
 ITEApplication(OSType itsMainFileType);
 virtual pascal struct TDocument 
 *DoMakeDocument(CmdNumber itsCmdNumber);
 virtual pascal struct TCommand 
 *DoMenuCommand(CmdNumber aCmdNumber);
 virtual pascal void PoseModalDialog();
#ifdef qDebug
 virtual pascal void IdentifySoftware();
#endif
};

class TTEDocument;

class TPaletteView : public TView {

public:
 int    fIconSelected;
 virtual pascal void 
 IPaletteView(TTEDocument *itsTEDocument);
 virtual pascal struct TCommand 
 *DoMouseCommand(Point *theMouse,
 EventInfo *info, Point *hysteresis);
 pascal void DoHighlightSelection
 (HLState fromHL, HLState toHL);
 pascal void Draw(Rect *area);
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

class TBox : public TObject {
public:
 Rect fLocation;
 pascal void IBox(Rect *itsLocation);
 pascal void DrawShape();
 pascal void NeedDiskSpace(long *data);
 pascal void Read(short aRefNum);
 pascal void Write(short aRefNum);
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

class TTextView : public TTEView {

public:
 TTEDocument*fTEDocument;
 TPaletteView  *fPaletteView;
 BooleanfUpdated;
 pascal void 
 ITextView(TTEDocument *itsTEDocument);
 pascal Boolean DoIdle(IdlePhase phase);
 pascal struct TCommand  *DoKeyCommand(short ch, 
 short aKeyCode, EventInfo *info);
 pascal struct TCommand 
 *DoMenuCommand(CmdNumber aCmdNumber);
 pascal void DoSetupMenus ();
 pascal struct TCommand 
 *DoMouseCommand(Point *theMouse, 
 EventInfo *info, Point *hysteresis);
 pascal Boolean DoSetCursor
 (Point localPoint, RgnHandle cursorRgn);
 pascal void Draw(Rect *area);
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

class TColorCmd : public TCommand {

public:
 TTEDocument*fTEDocument;
 TTextView*fTextView;
 int  fOldColorCmd, fNewColorCmd;
 pascal void IColorCmd (int aCmdNumber, 
 TTEDocument *itsDocument,TTextView *itsView);
 pascal void DoIt();
 pascal void RedoIt();
 pascal void UndoIt();
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

class TSketcher : public TCommand {

public:
 TTEDocument   *fTEDocument;
 TTextView*fTextView;
 TBox *fBox;// the object being sketched
 Rect fBoxLocation; // size of the Box being sketched
 pascal void ISketcher
 (TTEDocument *itsDocument, TTextView *itsView);
 pascal struct TCommand *TrackMouse
 (TrackPhase aTrackPhase, VPoint *anchorPoint, 
 VPoint *previousPoint, VPoint *nextPoint, 
 Boolean mouseDidMove);
 pascal void DoIt();
 pascal void RedoIt();
 pascal void UndoIt();
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

class TTEDocument : public TDocument {
public:
 TPaletteView  *fPaletteView;
 TTextView*fTextView;
 Handle fTextHdl;// text typed by user
 int  fTextColorCmd; // menu command number
 TList *fShapeList;// list of Shapes to be drawn
 pascal void ITEDocument();
 pascal void AddShape(TBox *aBox); 
 pascal void DeleteShape();
 pascal void DoMakeWindows();
 pascal void DoMakeViews(Boolean forPrinting);
 pascal void DoNeedDiskSpace
 (long *dataForkBytes, long *rsrcForkBytes);
 pascal void DoRead(short aRefNum, 
 Boolean rsrcExists, Boolean forPrinting);
 pascal void DoWrite(short aRefNum, 
 Boolean makingCopy);
 pascal void ForEachShapeDo
 (pascal void (*DoToItem) (TObject *item, void 
 *DoToItem_Staticlink),void *DoToItem_Staticlink);
 pascal void Free();
 pascal void SetTextColorCmd(int theColorCmd);
 pascal int  TextColorCmd();
#ifdef qDebug
 virtual pascal void Fields(pascal void (*DoToField)
  (StringPtr fieldName, Ptr fieldAddr, 
 short fieldType, void *link), void *link);
#endif
};

// -- global definitions --

typedef pascal void (*DoToObject) 
 (TObject *aObject, void *DoToObject_staticlink);
struct CalcDiskSpaceStruct {  long myDataForkBytes; };
struct DoToRectStruct {  int myRefNum; };

//
// -- end of declarations --
//
Listing 2: TEDemo.cp (implementation)

#include <UMacApp.h>
#include <UPrinting.h>
#include <UTEView.h>
#include <Fonts.h>
#include <ToolUtils.h>

#include “TEDemo.h”

const OSType kSignature   = ‘JLMT’;
const OSType kFileType  = ‘JL01’;
const int kWindID= 1001;  
const int kHelpID  = 1001;// Help DLOG ID 
const int kPaletteWidth = 640;
const int kPaletteHeight  = 32;
const int kIconWidth =  32;
const int kBoxIconID =  256;
const int kTextIconID=  257;
const int kBox   = 1;
const int kText  = 2;
const int kPaletteColor   = greenColor;
const int kBoxColor= redColor;

// commands
const int cHelp  = 1001;  // for color menu items
const int cDrawBox = 2001;
 // command number for Box sketcher object

const int cBlack = 5001;  // for TextColor menu
const int cBlue  = 5002;
const int cGreen = 5003;
const int cRed   = 5004;
const int cWhite = 5005;
    
intgColorArray[cWhite-cBlack+1];
Rect  gIconRect[kText-kBox+1];

pascal void TTEApplication::ITEApplication
 (OSType itsMainFileType)
{  gColorArray[cBlack-cBlack] = blackColor; 
 gColorArray[cBlue-cBlack]  = blueColor;
 gColorArray[cGreen-cBlack] = greenColor;
 gColorArray[cRed-cBlack] = redColor;
 gColorArray[cWhite-cBlack] = whiteColor;
 SetRect(&gIconRect[kBox-kBox], 
 0, 0, kIconWidth, kIconWidth);
 SetRect(&gIconRect[kText-kBox], kIconWidth, 
 0, 2 * kIconWidth, kIconWidth);
 IApplication(itsMainFileType);
 RegisterStdType(“\pTTextView”, ‘text’);
 if (gDeadStripSuppression)
 { TTextView *aTextView;
 aTextView = new TTextView; }
 InitPrinting();
}

pascal struct TDocument 
 *TTEApplication::DoMakeDocument
 (CmdNumber itsCmdNumber)
{TTEDocument* aTEDocument;
 aTEDocument = new TTEDocument;
 FailNIL(aTEDocument);
 aTEDocument->ITEDocument();
 return aTEDocument; }

pascal void TTEApplication::PoseModalDialog()
{DialogPtr dPtr;
 short  dItem;
 dPtr = GetNewDialog(kHelpID, nil, (WindowPtr) -1);
 ModalDialog(nil, &dItem);
 DisposDialog(dPtr); }


pascal struct TCommand 
 *TTEApplication::DoMenuCommand
 (CmdNumber aCmdNumber)
{switch (aCmdNumber) {
 case cHelp: 
 PoseModalDialog(); 
 return gNoChanges;
 default: 
 return inherited::DoMenuCommand(aCmdNumber); }
}

#ifdef qDebug
pascal void TTEApplication::IdentifySoftware()
{ProgramReport
(“\pTEDemo ©J.Langowski/MacTutor June 1990”,false);
 inherited::IdentifySoftware();  }
#endif

// ---- Document ----

pascal void TTEDocument::ITEDocument()
{TList  *aList;
 IDocument(kFileType, kSignature, kUsesDataFork,
 !kUsesRsrcFork, !kDataOpen, !kRsrcOpen);
 fSavePrintInfo = true; // save print info in data fork
 fTextHdl = NewPermHandle(0); // heap block for text
 FailNIL(fTextHdl);
 fTextColorCmd = cBlack;
 aList = NewList();// make empty list of Boxs
 fShapeList = aList; }

pascal void TTEDocument::AddShape(TBox *aBox)
{fShapeList->InsertFirst(aBox);    }

pascal void TTEDocument::DeleteShape()
{fShapeList->Delete(fShapeList->First());  }

pascal void TTEDocument::DoMakeViews
 (Boolean forPrinting)
{const Boolean kSquareDots = true;
 const Boolean kFixedSize = true;
 TPaletteView    *aPaletteView;
 TTextView*aTextView;
 TStdPrintHandler*aStdHandler;
 aPaletteView = new TPaletteView;
 FailNIL(aPaletteView);
 aPaletteView->IPaletteView(this);
 fPaletteView = aPaletteView; 
 // save reference to palette in document
 aTextView = new TTextView;
 FailNIL(aTextView);
 aTextView->ITextView(this);
 fTextView = aTextView; 
 // save reference to text view in document
 fTextView->StuffText(fTextHdl);
 // so view uses the same characters
 aStdHandler = new TStdPrintHandler;
 // make text view printable
 FailNIL(aStdHandler);
 aStdHandler->IStdPrintHandler (this, aTextView,
  !kSquareDots, kFixedSize, !kFixedSize); }

pascal void TTEDocument::DoMakeWindows()
{TWindow*aWindow;
 aWindow = NewPaletteWindow(kWindID, 
 kWantHScrollBar, kWantVScrollBar,  this, 
 fTextView, fPaletteView, kPaletteHeight, 
 kTopPalette);
 aWindow->AdaptToScreen();
 
 // adjust for various size monitors
 aWindow->SimpleStagger(kStdStaggerAmount, 
 kStdStaggerAmount, &gStdStaggerCount); }

pascal void CalcDiskSpace(TBox *aBox, 
 CalcDiskSpaceStruct *aCalcDiskSpaceStruct)
{aBox->NeedDiskSpace
 (&(aCalcDiskSpaceStruct->myDataForkBytes)); }

pascal void TTEDocument::DoNeedDiskSpace
 (long *dataForkBytes, long *rsrcForkBytes)
{long textBytes, numberOfShapesBytes, 
 cmdNumberBytes;
 CalcDiskSpaceStruct aCalcDiskSpaceStruct;
/* file format:
 TextCmd Number (integer)
 # shapes (integer)
 data for shape #1
 data for shape #2
 etc.
 text   */
 inherited::DoNeedDiskSpace (dataForkBytes, 
 rsrcForkBytes);
 aCalcDiskSpaceStruct.myDataForkBytes = 
 *dataForkBytes;
 cmdNumberBytes = sizeof(int);
 numberOfShapesBytes = sizeof(fTextColorCmd);
 ForEachShapeDo((DoToObject)CalcDiskSpace,
 &aCalcDiskSpaceStruct);
 textBytes = GetHandleSize(fTextHdl);
 *dataForkBytes = cmdNumberBytes + 
 numberOfShapesBytes +  
 aCalcDiskSpaceStruct.myDataForkBytes + 
 textBytes;  }

pascal void TTEDocument::DoRead(short aRefNum,
 Boolean rsrcExists, Boolean forPrinting) 
{long   textColorCmdNumberBytes;
 int    textColorCmdNumber; 
 long   numberOfShapesBytes;
 int    numberOfShapes; 
 TBox *aBox;
 long eof, fPos, textBytes;
 
/* file format see above  */
 inherited::DoRead(aRefNum, rsrcExists, forPrinting);
 // print info from disk
 textColorCmdNumberBytes = 
 sizeof(textColorCmdNumber); // read text color
 FailOSErr(
 FSRead(aRefNum, &textColorCmdNumberBytes, 
 (Ptr) &textColorCmdNumber));
 fTextColorCmd = textColorCmdNumber;
 numberOfShapesBytes = sizeof(numberOfShapes);
 // read # items
 FailOSErr(
 FSRead(aRefNum, &numberOfShapesBytes, 
 (Ptr) &numberOfShapes));
 for (int i = 1; i <= numberOfShapes; i++)
 { aBox = new TBox; FailNIL(aBox); // make new Box
 aBox->Read(aRefNum); // read & initialize object
 AddShape(aBox); };  // add to list in doc
 
 FailOSErr(GetFPos(aRefNum, &fPos)); 
 // get size of text in file
 FailOSErr(GetEOF(aRefNum, &eof));
 // get size of data in file
 textBytes = eof - fPos;
 SetHandleSize(fTextHdl, textBytes);
 HLock (fTextHdl);
 FailOSErr(FSRead(aRefNum, &textBytes, *fTextHdl));
 HUnlock (fTextHdl); }

pascal void DoToRect
 (TBox *aBox, DoToRectStruct*aDoToRectStruct)
{aBox->Write(aDoToRectStruct->myRefNum);  }
 
pascal void TTEDocument::DoWrite
 (short aRefNum, Boolean makingCopy)
{long textColorCmdNumberBytes;
 int    textColorCmdNumber; 
 long numberOfShapesBytes;
 int    numberOfShapes;
 long textBytes;
 DoToRectStruct  aDoToRectStruct;
 
/* file format see above  */
 
 inherited::DoWrite(aRefNum, makingCopy);
 // print info to disk
 textColorCmdNumber = fTextColorCmd;
 // write text color to disk
 textColorCmdNumberBytes = 
 sizeof(textColorCmdNumber);
 FailOSErr(
 FSWrite(aRefNum, &textColorCmdNumberBytes, 
 (Ptr) &textColorCmdNumber));
 
 numberOfShapes = fShapeList->fSize;
 // write # items to disk
 numberOfShapesBytes = sizeof(numberOfShapes);
 FailOSErr(
 FSWrite(aRefNum, &numberOfShapesBytes, 
 (Ptr) &numberOfShapes));
 aDoToRectStruct.myRefNum = aRefNum;
 ForEachShapeDo((DoToObject)DoToRect,
 &aDoToRectStruct);// write each rect to disk
 textBytes = GetHandleSize(fTextHdl);
 HLock (fTextHdl);
 FailOSErr(FSWrite(aRefNum, &textBytes, *fTextHdl));
 // write the text
 HUnlock (fTextHdl); }

pascal void TTEDocument::ForEachShapeDo
 (pascal void (*DoToItem)(TObject *item,
  void *DoToItem_Staticlink),void *DoToItem_Staticlink)
{  fShapeList->Each(DoToItem,DoToItem_Staticlink); }

pascal void DisposeRect(TBox *aBox, void *link)
{aBox->Free(); }

pascal void TTEDocument::Free()
{void *link;
 if (fTextHdl != nil) DisposHandle(fTextHdl);
 // dispose of ASCII characters
 ForEachShapeDo((DoToObject)DisposeRect,link);
 // dispose of Box objects
 fShapeList->Free(); // dispose of List object
 inherited::Free();} // dispose of document object

#ifdef qDebug
pascal void TTEDocument::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
  Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTTEDocument”, nil, bClass, link);
 DoToField(“\pfPaletteView”, (Ptr) &fPaletteView, 
 bObject, link);
  DoToField(“\pfTextView”, (Ptr) &fTextView, bObject, link);
  DoToField(“\pfTextHdl”, (Ptr) &fTextHdl, bHandle, link);
 DoToField(“\pfTextColorCmd”, (Ptr) &fTextColorCmd, 
 bInteger, link);
 DoToField(“\pfShapeList”, (Ptr) &fShapeList, 
 bObject, link);
 inherited::Fields(DoToField, link); }
#endif

pascal void 
 TTEDocument::SetTextColorCmd(int theColorCmd)
{fTextColorCmd = theColorCmd; }

pascal int  TTEDocument::TextColorCmd()
{return fTextColorCmd;    }

//
// ---- TPaletteView ----
//

pascal void TPaletteView::IPaletteView
 (TTEDocument *itsTEDocument)
{VPoint itsSize;
 SetVPt(&itsSize, kPaletteWidth, kPaletteHeight);
 IView(itsTEDocument, nil, &gZeroVPt, &itsSize,
  sizeFixed, sizeFixed);
 fIconSelected = kText-kBox;  }

pascal void TPaletteView::Draw(Rect *area)
{Rect aFrame;  Point aPenSize;
 Handle aHandle;
 ForeColor(kPaletteColor);
 aHandle = GetIcon(kBoxIconID);
 FailNILResource(aHandle);
 PlotIcon(&gIconRect[kBox-kBox], aHandle);
 aHandle = GetIcon(kTextIconID);
 FailNILResource(aHandle);
 PlotIcon(&gIconRect[kText-kBox], aHandle);
 ForeColor(blackColor);
 GetQDExtent(&aFrame);
 SetPt(&aPenSize, 1, 1);
 Adorn(&aFrame, aPenSize, adnLineBottom); }

pascal void TPaletteView::DoHighlightSelection
 (HLState fromHL, HLState toHL)
{Rect aRect;
 aRect = gIconRect[fIconSelected];
 InsetRect(&aRect, 1, 1);
 SetHLPenState(fromHL, toHL);
 PaintRect(&aRect);}

pascal struct TCommand 
 *TPaletteView::DoMouseCommand(Point *theMouse,
 EventInfo *info, Point *hysteresis)
{int  index;
 index = int(theMouse->h / kIconWidth);

 if ((index < 2) && (index != fIconSelected)) 
 { if (Focus()) { DoHighlightSelection(hlOn, hlOff); };
 fIconSelected = index;
 if (Focus()) { DoHighlightSelection(hlOff, hlOn); };
 };
 return gNoChanges; }

#ifdef qDebug
pascal void TPaletteView::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
 Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTPaletteView”, nil, bClass, link);
 DoToField(“\pfIconSelected”, (Ptr) &fIconSelected, 
 bInteger, link);
 inherited::Fields(DoToField, link); }
#endif

pascal void 
TTextView::ITextView(TTEDocument *itsTEDocument)
{VPoint itsSize; Rect   itsInset;
 TextStyleaStyle;
 SetVPt(&itsSize, 100, 100);
 SetRect(&itsInset, 10, 8, 10, 0);
 SetTextStyle
 (&aStyle, applFont, bold, 12, &gRGBBlack);
 ITEView(itsTEDocument, nil, &gZeroVPt, &itsSize, 
 sizePage, sizeFillPages, &itsInset, &aStyle, 
 teJustLeft, !kWithStyle, true); 
 fTEDocument = itsTEDocument;
 fPaletteView = itsTEDocument->fPaletteView;
 fUpdated = true; }

pascal Boolean TTextView::DoIdle(IdlePhase phase)
{if (!fUpdated)
 { if (Focus()) { DrawContents(); fUpdated = true; };
 return inherited::DoIdle(phase); }
}

pascal struct TCommand *TTextView::DoKeyCommand
 (short ch, short aKeyCode, EventInfo *info)
{int aQDColor;
 aQDColor = 
 gColorArray[fTEDocument->TextColorCmd()-cBlack];
 ForeColor(aQDColor);
 fUpdated = false;
 ForeColor(blackColor);
 return 
 inherited::DoKeyCommand(ch, aKeyCode, info); }

pascal void TTextView::DoSetupMenus()
{  int colorIndex, aColorCmd;
 inherited::DoSetupMenus();
 aColorCmd = fTEDocument->TextColorCmd();
 for (colorIndex = cBlack; 
 colorIndex <= cWhite; colorIndex++)
 EnableCheck(colorIndex, TRUE, 
 (colorIndex == aColorCmd));  }

pascal struct TCommand *TTextView::DoMenuCommand
 (CmdNumber aCmdNumber)
{TColorCmd *aColorCmd;
 switch (aCmdNumber)
 { case cBlack:  case cBlue:  case cGreen: 
 case cRed: case cWhite: 
 aColorCmd = new TColorCmd;
 FailNIL(aColorCmd);
 aColorCmd->IColorCmd
 (aCmdNumber, fTEDocument, this);
 return aColorCmd;
 default: return inherited::DoMenuCommand
 (aCmdNumber); }
}

pascal struct TCommand *TTextView::DoMouseCommand
 (Point *theMouse,  EventInfo *info, Point *hysteresis)
{  TSketcher *aSketcher;
 if (fPaletteView->fIconSelected == kBox-kBox) 
 { aSketcher = new TSketcher;
 FailNIL(aSketcher);
 aSketcher->ISketcher(fTEDocument, this);
 return aSketcher; }
 else   return inherited::DoMouseCommand
 (theMouse,info,hysteresis); }

pascal Boolean TTextView::DoSetCursor
 (Point localPoint, RgnHandle cursorRgn)
{Rect qdExtent;
 GetQDExtent(&qdExtent);
 RectRgn(cursorRgn, &qdExtent);
 if (fPaletteView->fIconSelected == kText-kBox)
 return inherited::DoSetCursor(localPoint, cursorRgn);
 else   SetCursor(*GetCursor(crossCursor));  return true;      }

pascal void DrawYourself(TBox *aBox, void *link)
{aBox->DrawShape();}

pascal void TTextView::Draw(Rect *area)
{int aQDColor; void *link;
 aQDColor = 
 gColorArray[fTEDocument->TextColorCmd()-cBlack];
 ForeColor(aQDColor);// set text color
 inherited::Draw(area); // let TTEView draw the text
 PenNormal();
 ForeColor(kBoxColor);  // set box color
 fTEDocument->ForEachShapeDo
 ((DoToObject)DrawYourself,link);
 ForeColor(blackColor); }

#ifdef qDebug
pascal void TTextView::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
  Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTTextView”, nil, bClass, link);
 DoToField(“\pfTEDocument”, (Ptr) &fTEDocument, 
 bObject, link);
 DoToField(“\pfPaletteView”, (Ptr) &fPaletteView, 
 bObject, link);
  DoToField(“\pfUpdated”, (Ptr) &fUpdated, bBoolean, link);
 inherited::Fields(DoToField, link); }
#endif

pascal void TColorCmd::IColorCmd (int aCmdNumber, 
 TTEDocument *itsDocument, TTextView *itsView)
{TScroller *aScroller;  int oldColorCmd;
 fTextView = itsView;
 fTEDocument = itsDocument;
 aScroller = itsView->GetScroller(true);
 ICommand
 (aCmdNumber, itsDocument, itsView, aScroller);
 oldColorCmd = itsDocument->TextColorCmd(); 
 fOldColorCmd = oldColorCmd;
 fNewColorCmd = aCmdNumber;  }

pascal void TColorCmd::DoIt()
{fTEDocument->SetTextColorCmd(fNewColorCmd);
 fTextView->ForceRedraw();}

pascal void TColorCmd::RedoIt()  { UndoIt();  }

pascal void TColorCmd::UndoIt()
{fNewColorCmd = fOldColorCmd;
 fOldColorCmd = fTEDocument->TextColorCmd();
 DoIt();}

#ifdef qDebug
pascal void TColorCmd::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
  Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTColorCmd”, nil, bClass, link);
 DoToField(“\pfTEDocument”, (Ptr) &fTEDocument, 
 bObject, link);
  DoToField(“\pfTextView”, (Ptr) &fTextView, bObject, link);
 DoToField(“\pfOldColorCmd”, (Ptr) &fOldColorCmd, 
 bInteger, link);
 DoToField(“\pfNewColorCmd”, (Ptr) &fNewColorCmd, 
 bInteger, link);
 inherited::Fields(DoToField, link);  }
#endif

pascal void TSketcher::ISketcher
 (TTEDocument *itsDocument, TTextView *itsView)
{TScroller *aScroller;
 aScroller = itsView->GetScroller(true);
 ICommand
 (cDrawBox, itsDocument, itsView, aScroller);
 fTEDocument = itsDocument; fTextView = itsView;  }

pascal struct TCommand  *TSketcher::TrackMouse
 (TrackPhase aTrackPhase, VPoint *anchorPoint, 
 VPoint *previousPoint,  VPoint *nextPoint, 
 Boolean mouseDidMove)
{Rect newRect; TBox*aBox;
 if (aTrackPhase == trackRelease)
 { Pt2Rect(fTextView->ViewToQDPt(anchorPoint), 
 fTextView->ViewToQDPt(nextPoint), &newRect);
 aBox = new TBox; FailNIL(aBox);
 aBox->IBox(&newRect); fBox = aBox;
 fBoxLocation = newRect;  }
 return this;  }

pascal void TSketcher::DoIt()
{fTEDocument->AddShape(fBox);
 fTextView->InvalidRect(&fBoxLocation);  }

pascal void TSketcher::RedoIt()  {  DoIt();  }

pascal void TSketcher::UndoIt()
{fTEDocument->DeleteShape();
 fTextView->InvalidRect(&fBoxLocation);  }

#ifdef qDebug
pascal void TSketcher::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
  Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTSketcher”, nil, bClass, link);
 DoToField(“\pfTEDocument”, (Ptr) &fTEDocument, 
 bObject, link);
  DoToField(“\pfTextView”, (Ptr) &fTextView, bObject, link);
 DoToField(“\pfBox”, (Ptr) &fBox, bObject, link);
 DoToField(“\pfBoxLocation”, (Ptr) &fBoxLocation, 
 bRect, link);
 inherited::Fields(DoToField, link);  }
#endif

pascal void TBox::IBox(Rect *itsLocation)
 {  fLocation = *itsLocation;  }

pascal void TBox::DrawShape()
{PenSize(4,4);
 FrameRoundRect(&fLocation, 20,20); }

pascal void TBox::NeedDiskSpace(long *data)
{data = data + sizeof(fLocation);  }

pascal void TBox::Read(short aRefNum)
{long bytes;
 bytes = sizeof(fLocation);
 FailOSErr(
 FSRead(aRefNum, &bytes, (Ptr) &fLocation));  }

pascal void TBox::Write(short aRefNum)
{long bytes;
 bytes = sizeof(fLocation);
 FailOSErr(
 FSWrite(aRefNum, &bytes, (Ptr) &fLocation));}

#ifdef qDebug
pascal void TBox::Fields
 (pascal void (*DoToField) (StringPtr fieldName,
  Ptr fieldAddr, short fieldType, void *link), void *link)
{DoToField(“\pTBox”, nil, bClass, link);
 DoToField(“\pfLocation”, (Ptr) &fLocation, bRect, link);
 inherited::Fields(DoToField, link); }
#endif

TTEApplication *gTEApplication;
int main()
{InitToolBox();
 if (ValidateConfiguration(&gConfiguration))
 { InitUMacApp(8); InitUPrinting(); InitUTEView();
 gTEApplication = new TTEApplication;
 FailNIL(gTEApplication);
 gTEApplication->ITEApplication(kFileType);
 gTEApplication->Run();  }
 else StdAlert(phUnsupportedConfiguration);
 return 0;  }
Listing 3: TEDemo.r (Resource definitions)

#ifndef __TYPES.R__
#include “Types.r”
#endif

#ifndef __SYSTYPES.R__
#include “SysTypes.r”
#endif

#ifndef __MacAppTypes__
#include “MacAppTypes.r”
#endif

#ifndef __ViewTypes__
#include “ViewTypes.r”
#endif

#if qDebug
include “Debug.rsrc”;
#endif

include “MacApp.rsrc”;
include “Printing.rsrc”;
include “TEOther.rsrc”; 
 /* DLOG & DITL 1001; ICON 256,257; ICN# 128,129 */
include “TEDemo” ‘CODE’;

#define cHelp    1001
#define cDrawBox 2001
#define cBlack   5001
#define cBlue    5002
#define cGreen   5003
#define cRed     5004
#define cWhite   5005

#define kSignature ‘JLMT’
#define kDocFileType ‘JL01’
#define getInfoString
“©1990 J.Langowski/MacTutor. Translated from MacApp® Pascal.”

resource ‘WIND’ (1001, purgeable) {
 {50, 20, 250, 450}, zoomDocProc, invisible, goAway,
 0x0, “<<<>>>”  };

resource ‘DITL’ (201, purgeable) {
 /* About box */
  {   /* [1] */
 {130, 182, 150, 262},
 Button { enabled, “OK” };
 /* [2] */
 {10, 80, 110, 270},
 StaticText { disabled,
 “Displays text and boxes”
 “\n\nThis program was written “
 “with MacApp® © 1985-1989 Apple Computer, Inc.” };
 /* [3] */
 {10, 20, 42, 52},
 Icon { disabled, 1 }}  };

resource ‘ALRT’ (201, purgeable) {
 {90, 100, 250, 412},
 201,
 { OK, visible, silent; OK, visible, silent;
 OK, visible, silent;OK, visible, silent  }   };

resource ‘cmnu’ (1) {
 1, textMenuProc, 0x7FFFFFFB, enabled, apple,
  {   “About TEDemo ”, 
 noIcon, noKey, noMark, plain, cAboutApp;
 “Help ”, noIcon, “H”, noMark, plain, cHelp;
 “-”, noIcon, noKey, noMark, plain, nocommand } };

resource ‘cmnu’ (2) {
 2, textMenuProc, allEnabled, enabled, “File”,
  {   “New”, noIcon, “N”, noMark, plain, 10;
 “Open ”, noIcon, “O”, noMark, plain, 20;
 “-”, noIcon, noKey, noMark, plain, nocommand;
 “Close”, noIcon, noKey, noMark, plain, 31;
 “Save”, noIcon, “S”, noMark, plain, 30;
 “Save As ”, noIcon, noKey, noMark, plain, 32;
 “Save a Copy In ”, 
 noIcon, noKey, noMark, plain, 33;
 “-”, noIcon, noKey, noMark, plain, nocommand;
 “Page Setup ”, 
 noIcon, noKey, noMark, plain, 176;
 “Print One”, noIcon, “P”, noMark, plain, 177;
 “Print ”, noIcon, noKey, noMark, plain, 178;
 “-”, noIcon, noKey, noMark, plain, nocommand;
 “Quit”, noIcon, “Q”, noMark, plain, 36  }   };

resource ‘cmnu’ (3) {
 3, textMenuProc, allEnabled, enabled, “Edit”,
  {   “Undo”, noIcon, “Z”, noMark, plain, 101;
 “-”, noIcon, noKey, noMark, plain, nocommand;
 “Cut”, noIcon, “X”, noMark, plain, 103;
 “Copy”, noIcon, “C”, noMark, plain, 104;
 “Paste”, noIcon, “V”, noMark, plain, 105;
 “Clear”, noIcon, noKey, noMark, plain, 106;
 “-”, noIcon, noKey, noMark, plain, nocommand;
 “Show Clipboard”, 
 noIcon, noKey, noMark, plain, 35  }  };

resource ‘cmnu’ (4) {
 4, textMenuProc, allEnabled, enabled, “TextColor”,
  {   “Black”, noIcon, noKey, noMark, plain, cBlack;
 “Blue”, noIcon, “B”, noMark, plain, cBlue;
 “Green”, noIcon, “G”, noMark, plain, cGreen;
 “Red”, noIcon, “R”, noMark, plain, cRed;
 “White”, noIcon, noKey, noMark, outline, cWhite }
};

resource ‘cmnu’ (128) {
 128,textMenuProc,allEnabled,enabled,”Buzzwords”,
  {“Page Setup Change”, 
 noIcon, noKey, noMark, plain, cChangePrinterStyle;
 “Typing”, noIcon, noKey, noMark, plain, cTyping;
 “Drawing”,  
 noIcon, noKey, noMark, plain, cDrawBox }  };

resource ‘MBAR’ (128) { {1; 2; 3; 4} };

resource ‘mctb’ (128) {
 { /* Blue */
 4, 2,
 { 0x0000, 0x0000, 0xFFFF;
 0x0000, 0x0000, 0xFFFF;
 0x0000, 0x0000, 0xFFFF;
 0xFFFF, 0xFFFF, 0xFFFF };
 /* Green */
 4, 3,
 { 0x0000, 0xDB00, 0x0000;0x0000, 0xDB00, 0x0000;              
 0x0000, 0xDB00, 0x0000;  0xFFFF, 0xFFFF, 0xFFFF   };
 /* Red */
 4, 4,
 { 0xDB00, 0x0000, 0x0000;0xDB00, 0x0000, 0x0000;              
 0xDB00, 0x0000, 0x0000;  0xFFFF, 0xFFFF, 0xFFFF   }   }   };

resource ‘SIZE’ (-1) {
 saveScreen, acceptSuspendResumeEvents,
 enableOptionSwitch, canBackground,
 MultiFinderAware, backgroundAndForeground,
 dontGetFrontClicks, ignoreChildDiedEvents,
 is32BitCompatible, reserved, reserved, reserved,
 reserved, reserved, reserved, reserved,
#if qDebug
 640 * 1024, 512 * 1024
#else
 240 * 1024, 220 * 1024
#endif 
};

resource ‘seg!’ (256, purgeable) {
 { “GClose”; “GDoCommand”; “GNonRes”;
 “GFile”; “GOpen”; “GSelCommand”; }  };

resource ‘mem!’ (256, purgeable) {
 30 * 1024, /* Add to temporary reserve */
 0,/* Add to permanent reserve */
 0 /* Add to stack space */
};

/* Bundle */

type kSignature as ‘STR ‘;

resource kSignature (0) { getInfoString; };
resource ‘FREF’ (128) { ‘APPL’, 0, “TEDemo };
resource ‘FREF’ (129) { kDocFileType, 1, “TEDemo” };
resource ‘BNDL’ (128) { kSignature, 0,
 { ‘ICN#’,{ 0, 128; 1, 129 };
 ‘FREF’,{ 0, 128; 1, 129 } }   };

RESOURCE ‘vers’ (2,
#if qNames
“Package Version”,
#endif
 purgeable) { 0x02, 0x00, beta, 0x06, verUs, “2.0ß9”,
 “MacApp® 2.0ß9, ©Apple Computer, Inc. 1989” };
RESOURCE ‘vers’ (1,
#if qNames
“File Version”,
#endif
 purgeable) { 0x01,0x00,beta,0x05,verUs,”TEDemo”,
 “v 0.0, ©JL/MacTutor 1990”  };

/* debug window */
resource ‘dbug’ (kDebugParamsID,
#if qNames
“Debug”,
#endif
 purgeable) {
 {350, 4, 474, 636}, /* Bounds rect */
 1,     /* font rsrc ID (normal = monaco) */
 9,/* font size (normal = 9) */
 100, /* Number of lines */
 100, /* Width of lines in characters */
 true,  /* open initially */
 “Jörg’s Debug Window”  /* Window title */   };
Listing 4: TEDemo.MAMake (MacApp Make file)

#----------------------------------------------------------------------------AppName 
= TEDemo
#----------------------------------------------------------------------------#
 List resource files that the Rez file includes
OtherRsrcFiles = 
 “{MAObj}Printing.rsrc” 
 “TEOther.rsrc”

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Audio Hijack 3.7.3 - Record and enhance...
Audio Hijack (was Audio Hijack Pro) drastically changes the way you use audio on your computer, giving you the freedom to listen to audio when you want and how you want. Record and enhance any audio... Read more
CleanMyMac X 4.6.15 - Delete files that...
CleanMyMac makes space for the things you love. Sporting a range of ingenious new features, CleanMyMac lets you safely and intelligently scan and clean your entire system, delete large, unused files... Read more
Suitcase Fusion 21.2.1 - Font management...
Suitcase Fusion is the creative professional's font manager. Every professional font manager should deliver the basics: spectacular previews, powerful search tools, and efficient font organization.... Read more
Civilization VI 1.3.6 - Next iteration o...
Civilization® VI is the award-winning experience. Expand your empire across the map, advance your culture, and compete against history’s greatest leaders to build a civilization that will stand the... Read more
Dashlane 6.2042.0 - Password manager and...
Dashlane is an award-winning service that revolutionizes the online experience by replacing the drudgery of everyday transactional processes with convenient, automated simplicity - in other words,... Read more
Airfoil 5.9.2 - Send audio from any app...
Airfoil allows you to send any audio to AirPort Express units, Apple TVs, and even other Macs and PCs, all in sync! It's your audio - everywhere. With Airfoil you can take audio from any... Read more
VirtualBox 6.1.16 - x86 virtualization s...
VirtualBox is a family of powerful x86 virtualization products for enterprise as well as home use. Not only is VirtualBox an extremely feature rich, high performance product for enterprise customers... Read more
Xcode 12.1 - Integrated development envi...
Xcode includes everything developers need to create great applications for Mac, iPhone, iPad, and Apple Watch. Xcode provides developers a unified workflow for user interface design, coding, testing... Read more
FileZilla 3.51.0 - Fast and reliable FTP...
FileZilla (ported from Windows) is a fast and reliable FTP client and server with lots of useful features and an intuitive interface. Version 3.51.0: Bugfixes and minor changes: Fixed import of... Read more
KeyCue 9.8 - Displays all menu shortcut...
KeyCue has always been a handy tool for learning and remembering keyboard shortcuts. With a simple keystroke or click, KeyCue displays a table with all available keyboard shortcuts, system-wide... Read more

Latest Forum Discussions

See All

PUBG Mobile has provided yet another upd...
PUBG Mobile has been making a point of publicly mentioning all of their ongoing efforts to vanquish cheating from the popular battle royale. Today two teams within the company have provided updates on their progress. [Read more] | Read more »
Zombieland: AFK Survival is celebrating...
Zombieland: AFK Survival is currently celebrating its one-year anniversary. If you don't quite recognise the name that's because it initially launched as Zombieland: Double Tapper. Anyway, the game is celebrating turning one with two Halloween-... | Read more »
Distract Yourself With These Great Mobil...
There’s a lot going on right now, and I don’t really feel like trying to write some kind of pithy intro for it. All I’ll say is lots of people have been coming together and helping each other in small ways, and I’m choosing to focus on that as I... | Read more »
Genshin Impact Guide - Gacha Strategy: W...
If you're playing Genshin Impact without spending money, you'll always need to be looking for ways to optimize your play to maximize rewards without getting stuck in a position where you're tempted to spend. The most obvious trap here is the game'... | Read more »
Genshin Impact Adventurer's Guide
Hello and well met, fellow adventurers of Teyvat! Check out our all-in-one resource for all things Genshin Impact. We'll be sure to add more as we keep playing the game, so be sure to come back here to check for updates! [Read more] | Read more »
Genshin Impact Currency Guide - What...
Genshin Impact is great fun, but make no mistake: this is a gacha game. It is designed specifically to suck away time and money from you, and one of the ways the game does this is by offering a drip-feed of currencies you will feel compelled to... | Read more »
XCOM 2 Collection on iOS now available f...
The XCOM 2 Collection, which was recently announced to be coming to iOS in November, is now available to pre-order on the App Store. [Read more] | Read more »
Presidents Run has returned for the 2020...
IKIN's popular endless runner Presidents Run has returned to iOS and Android just in time for the 2020 election season. It will see players choosing their favourite candidate and guiding them on a literal run for presidency to gather as many votes... | Read more »
New update for Cookies Must Die adds new...
A new update for Rebel Twins’ platformer shooter Cookies Must Die is coming out this week. The update adds quite a bit to the game, including new levels and characters to play around with. [Read more] | Read more »
Genshin Impact Guide - How to Beat Pyro...
The end game of Genshin Impact largely revolves around spending resin to take on world bosses and clear domain challenges. These fights grant amazing rewards like rare artifacts and ascension materials for weapons and adventurers, but obviously... | Read more »

Price Scanner via MacPrices.net

Use our exclusive iPhone Price Trackers to fi...
Looking for a new Apple iPhone 12 or 12 Pro? Perhaps a deal on last year’s iPhone 11? Check out our iPhone Price Tracker here at MacPrices.net. We track new and clearance iPhone prices from Apple as... Read more
Weekend deal: $100 off 13″ MacBook Airs at Am...
Amazon has new 2020 13″ MacBook Airs on sale for $100 off Apple’s MSRP, starting at only $899. Their prices are the lowest available for new MacBooks from any Apple resellers. These are the same 13″... Read more
New 10.9″ 64GB Apple iPad Air on sale for $55...
Amazon has Apple’s new 2020 10.9″ 64GB WiFi iPad Air on sale today for $549.99 shipped. That’s $40 off MSRP. Pre-orders are available today at this discounted price, and Amazon states that the iPad... Read more
Get a clearance 2019 27″ 5K iMac for up to $5...
Apple has Certified Refurbished 2019 27″ 5K iMacs available starting at $1439 and up to $520 off their original MSRP. Apple’s one-year warranty is standard and shipping is free. The following... Read more
AT&T offers the Apple iPhone 11 for $10/m...
AT&T is offering Apple’s 64GB iPhone 11 for $10 per month, for customers opening a new line of service, no trade-in required. Discount is applied via monthly bill credits over a 30 month period.... Read more
Apple’s 2020 11″ iPad Pros on sale today for...
Apple reseller Expercom has new 2020 11″ Apple iPad Pros on sale for $50-$75 off MSRP, with prices starting at $749. These are the same iPad Pros sold by Apple in their retail and online stores: – 11... Read more
Did Apple Drop The Ball By Not Branding Its C...
EDITORIAL: 10.21.20 – In the branding game, your marketing strategy can either be a hit or a miss and the latter is the case for Apple when it missed out on an opportunity to brand its “SE” series of... Read more
27″ 6-core and 8-core iMacs on sale for up to...
Adorama has Apple’s 2020 27″ 6-core and 8-core iMacs on sale today for $50-$100 off MSRP, with prices starting at $1749. Shipping is free: – 27″ 3.1GHz 6-core iMac: $1749, save $50 – 27″ 3.3GHz 6-... Read more
Apple’s 16″ MacBook Pros are on sale for $300...
B&H Photo has 16″ MacBook Pros on sale today for $300-$350 off Apple’s MSRP, starting at $2099. Expedited shipping is free to many addresses in the US. Their prices are among the lowest available... Read more
Apple has 2020 13″ MacBook Airs available sta...
Apple has a full line of Certified Refurbished 2020 13″ MacBook Airs available starting at only $849 and up to $200 off the cost of new Airs. Each MacBook features a new outer case, comes with a... Read more

Jobs Board

Dental Receptionist - *Apple* Valley Clinic...
Dental Receptionist - Apple Valley Clinic + Job ID: 57314 + Department: Apple Valley Dental + City: Apple Valley, MN + Location: HP - Apple Valley Clinic Read more
*Apple* Mobility Specialist - Best Buy (Unit...
**788165BR** **Job Title:** Apple Mobility Specialist **Job Category:** Store Associates **Store Number or Department:** 001013-Virginia Commons-Store **Job Read more
Cub Foods - *Apple* Valley - Now Hiring Par...
Cub Foods - Apple Valley - Now Hiring Part Time! United States of America, Minnesota, Apple Valley Retail Post Date Oct 08, 2020 Requisition # 124800 Sign Up for Read more
*Apple* Mobility Specialist - Best Buy (Unit...
**784631BR** **Job Title:** Apple Mobility Specialist **Job Category:** Store Associates **Store Number or Department:** 000522-Baxter-Store **Job Description:** The Read more
Senior Data Engineer - *Apple* - Theorem, L...
Job Summary Apple is seeking an experienced, detail-minded data engineeringconsultant to join our worldwide business development and strategy team. If you are Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.