TweetFollow Us on Twitter

AutoSave
Volume Number:6
Issue Number:5
Column Tag:MacOOPs!

USavedMe Auto-Save Class

By Fred Condo Jr., Covina, CA

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

An Auto-Saving Document Class

[Fred Condo Jr. is a doctoral student of information science at the Claremont Graduate School.]

This article presents a new abstract document class for MacApp, TAutoSaveDocument, which allows the user to specify an interval after which the document automatically saves itself. Such a feature is useful in applications, such as word processing, in which a user is likely to make extensive changes to a document and lose track of time; this feature is definitely not good in applications where the user is likely to want to back out of changes with a Revert command.

TAutoSaveDocument is a subclass of TDocument, which MacApp defines. To use TAutoSaveDocument, you simply make your document class a subclass of it; even a completed MacApp application can be converted to use auto-saving documents in a matter of minutes. This speedy conversion is one of the benefits of object-oriented programming and MacApp.

Design considerations

I designed USavedMe, the Pascal unit that embodies TAutoSaveDocument, with the following results (some interrelated) in mind:

• Auto-saving should impose a minimal encumbrance on the end user.

• The interface to auto-saving should be through a modeless dialog.

• The dialog should be visually distinct from the document.

• The unit should be easy for programmers to use.

• It should take very little time to convert existing code.

• Complex search-and-replace operations on the source code of existing programs should not be needed.

• Program performance should not be degraded.

I used a modeless dialog in order to allow the user to summon the dialog and then decide to forget about it without dismissing it. This style of interface lets the user bring back the document or another window with a single click of the mouse; modal dialogs require the user first to find the Cancel button, then to click it, and finally to shift his or her attention to whatever it was that the dialog intruded upon. MacApp makes it so simple to invoke, use, and program modeless dialogs that there is no excuse for using a modal dialog unnecessarily. In the standard Macintosh Toolbox environment, modal dialogs are seductive, since they are significantly easier to code than are modeless dialogs. This factor is quite abolished under MacApp.

I chose rDocProc as the dialog window. Many designers of commercial applications have taken to using documentProc, the standard document window, for dialogs. Some people have been using documentProc for modal dialogs, which are supposed to be in dBoxProc windows. This is bad interface design. Users should be able to tell at a glance, without having to read a title or scan the contents of a window, what kind of window it is. Using the document window style indiscriminately puts an unnecessary cognitive burden on the user.

The round-cornered, inverse-titled window is fairly uncommon. Among Apple’s standard desk accessories, only the Calculator and the Puzzle use it. Its appearance is strikingly different from a document window’s. Inasmuch as DAs are essentially modeless dialogs, I would like to propose that such windows be used for modeless dialogs, instead of the document-style window. I believe that Apple should incorporate this recommendation into their human interface guidelines. Figure 1 shows a screen dump of Apple’s DrawShapes program as modified to use USavedMe.

Figure 1: Modeless dialogs and document windows

New document behavior

The unit USavedMe defines two classes: TAutoSaveDocument and TAutoSaveDialogView. The latter is the view class that implements the modeless dialog.

Besides its initialization routine, TAutoSaveDocument overrides four methods and implements one new method. The four overridden methods are Free, DoIdle, DoSetUpMenus, and DoMenuCommand. The new method is PoseAutoSaveDialog. In addition, the Fields method is overridden for debugging and inspector use.

The Free method simply checks to see if an associated dialog is open, which it tracks through the new fAutoSaveWindow field. If one exists, the document sends it a Close message, and calls INHERITED Free. Sending Close makes sure no dialogs are left floating around, which can happen with modeless, but not modal, dialogs.

MacApp calls DoIdle for any event handler in the command chain. For objects not installed as cohandlers, this means that the front-most, active document gets called at idle time to get some idle processing done. TAutoSaveDocument.DoIdle contains the code that determines whether the user-specified time has elapsed, and, if so, issues a Save message to itself. If anything were to degrade program performance, it would be this method. However, since it is called at intervals no smaller than 30 seconds, and since it is really a tiny bit of code, no perceptible degradation occurs. If your application’s documents are complex and large, of course, saving takes a while. In such cases, users should be advised not to set auto-saving to unnecessarily short intervals. Usually, 10 to 15 minutes make an adequate interval, balancing the desire to avoid re-doing work against the long time it takes to save.

When you make your application’s document class a descendent of TAutoSaveDocument, you will call INHERITED DoSetUpMenus, calling TAutoSaveDocument’s code (you do this in the normal course of MacApp programming). This allows the auto-save document to set up the two menu commands that it defines--“Auto-saving,” which is a check-mark item determining whether auto-saving is on, and “Set auto-save time,” which invokes the dialog. If you have been looking at the code listings (Listings 6 and 7), you may be wondering what the field fHasEverBeenSet is for. This field causes the “Auto-saving” menu item to be disabled until after the user has invoked and dismissed the dialog at least once. This prevents the user from turning on auto-saving without at least having seen what the default interval is. You may have a different design philosophy, and may want to alter this to allow auto-saving to be turned on regardless of whether the user has looked at the dialog.

You may also be wondering why “Set auto-save time” is disabled for untitled (actually, never-saved) documents. The reason is that, if you allow auto-saving to be invoked for a document that has no disk file, the user is presented with the SFPutFile dialog. If the user presses the Cancel button, the dialog is simply put back up, forcing the user to save the file, which is a rather ugly situation. The solution to this is to simply prevent auto-saving from being turned on before the file has first been saved “manually.” You may want to add a check box to SFPutFile that would allow the user to save and set auto-saving at the same time, or, alternatively, trap SFPutFile’s Cancel button to turn auto-saving off.

TAutoSaveDocument.DoMenuCommand accomplishes two things: first, it handles the two commands that USavedMe defines; second, it intercepts “Save” and “Save as ” commands. The reason for this is that the modeless dialog displays the name of the document to which it applies. Intercepting these commands allows the document to send any associated dialog a message telling it to update its document name.

PoseAutoSaveDialog reads the dialog from a view resource, sets the editable text item to the correct number, and adjusts a static text item so that, if the interval specified is 1 minute, the word “minute” is displayed instead of “minutes.” It then opens the modeless dialog window, which is then on its own.

Modeless dialog action

The other class defined in USavedMe is TAutoSaveDialogView, which has one field (fAutoSaveDocument) to hold a reference to its associated document. It overrides the following methods of TDialogView: Free, Close, DismissDialog, and, of course, Fields. It defines one new method, UpdateDocumentName, which was alluded to above.

Free sets the fAutoSaveWindow reference of TAutoSaveDocument to NIL, so that, when the dialog is freed, the document knows that it is gone. It then calls INHERITED Free.

There are two cases where the modeless dialog may be closed without being dismissed. One is when the user clicks the go-away box; the other is when the dialog’s document is closed. The purpose of overriding Close is to make these situations have the same result as dismissing the dialog by clicking the Cancel button. If this is not done, MacApp crashes when it tries to access the dialog view after it has been freed. The critical thing here is to set the dialog view’s fDismissed field to TRUE.

By the way, you may not agree that clicking the go-away box should be tantamount to pressing Cancel. One alternative to this might be to treat this form of dismissal like pressing the OK button only if the user has typed characters into the editable text item, and treating it like Cancel otherwise. Another alternative is simply to do away with the go-away box, making Cancel and OK the only ways to get rid of the dialog window besides closing the associated document.

DismissDialog is where the dialog gets to take its intended action. If Cancel is pressed, the dialog simply goes away. If OK is pressed, it validates the editable text, sets the appropriate fields of TAutoSaveDocument, and turns auto-saving on. Since the dialog view is enabled (in ViewEdit or in the Rez code), MacApp handles the Return, Enter, -., and Escape keys.

Using USavedMe in your code

As an example of converting an existing MacApp application to use auto-save documents, I chose Apple’s DrawShapes sample program. For the conversion, I had to make minor changes in MDrawShapes.p, UDrawShapes.p, UDrawShapes.inc1.p, and DrawShapes.r. Listings 1-4 show the changes made. Additions are shown in underline type; deletions are shown in strikeout type. DrawShapes doesn’t have a .MAMake (dependency) file, so I had to provide one to show the dependency of DrawShapes on USavedMe and of USavedMe on MacApp. The DrawShapes.MAMake file is shown in Listing 5.

In Listing 1 (changes to MDrawShapes.p), I have added USES specifications for USavedMe and the MacApp building blocks that USavedMe itself uses (UTEView and UDialog). Also, the initialization code now calls the initialization routines for these building blocks. (InitUSavedMe simply prevents the Linker from stripping out the code of TAutoSaveDialogView, which is to be instantiated from templates.)

Listing 3 shows that the only changes to UDrawShapes.p are a repetition of the above-mentioned USES declarations, and the substitution of TAutoSaveDocument for TDocument in the definition of the application’s document object class.

The changes to the implementation section, UDrawShapes.inc1.p, are even smaller, as shown in Listing 4. There, the only change is in the name of the initialization routine called from the IShapeDocument method. In the new case, rather than calling MacApp’s standard document initialization code (IDocument), you call IAutoSaveDocument instead. IAutoSaveDocument calls IDocument for you.

Listing 2 shows the Rez source changes for DrawShapes. Your program probably already uses template views, so you probably don’t have to add the lines to use them. The critical item is the line that includes the resource code for USavedMe. Also, note that the new definition for the File menu is simply MacApp’s default File menu, with USavedMe’s two commands inserted into it. In your code, you will want to simply add the two commands to your existing File menu. The Rez code for UsavedMe, which defines its view resource, is shown in Listing 8.

Idle Conflicts

What if your application wants its documents to get idle time, and your document type already implements DoIdle? In such a case, you would add one statement at the beginning of your DoIdle routine: DoIdle := INHERITED DoIdle(idlePhase);. In addition, IYourDocument, immediately after calling IAutoSaveDocument, should set the field fRespectIdleTime to TRUE. When this field is set, TAutoSaveDocument will not increase the value of fIdleFreq. This is particularly important if your documents are installed as MacApp cohandlers that require frequent idle processing. In the default case, fRespectIdleTime is FALSE, and toggling auto-saving off sets fIdleFreq to MAXLONGINT.

Conclusion

MacApp and object-oriented programming make small, incremental enhancements to existing functions exceedingly simple. This code only took a while to create because I was constantly running into problems with MacApp 2.0b5; under 2.0b9, I was able to finish this project in about a day. And, of course, using the finished code is a snap. What’s more, if you wanted to modify the behavior of auto-saving documents, you could do that extremely fast, too.

As Macintosh applications become more complex to perform more sophisticated tasks, a strict adherence to the philosophy behind the Macintosh user interface becomes ever more critical. The goal is to make using the computer as light a cognitive load on the user as possible. Using one kind of window for a wide variety of interactions can only cause the user to do more cognitive work, and is therefore inexcusable. By sticking to a clear visual expression of the different functions of document windows and dialogs, application designers will ease the load on the users, and automatically make their products more attractive. Visually distinctive, modeless dialogs are one way of accomplishing a good user interface. MacApp makes the production of such an interface very simple.

Listing 1: Changes to MDrawShapes.p
 
USES 
{ • MacApp } 
UMacApp, 
 
{ • Building Blocks } 
UPrinting, UTEView, UDialog, USavedMe, 
 
{ • Implementation Use } 
UDrawShapes; 
 

IF ValidateConfiguration(gConfiguration) THEN       { Make sure we can 
run } 
BEGIN 
{ Continue with remainder of initialization } 
InitUMacApp(10); { Init MacApp; 10 calls to MoreMasters } 
InitUTEView; 
InitUDialog; 
InitUSavedMe; 
InitUPrinting;  { Initialize the printing unit} 
 
Listing 2: Changes to DrawShapes.r
 
#if qDebug 
include “Debug.rsrc”; 
#endif 
include “MacApp.rsrc”; 
include “Printing.rsrc”; 
 
#if qTemplateViews 
#ifndef __ViewTypes__ 
#include “ViewTypes.r” 
#endif 
#endif 
 
#include “USavedMe.r” 
 
include $$Shell(“ObjApp”)”DrawShapes” ‘CODE’; 
 
 
include “Defaults.rsrc” ‘cmnu’ (mApple);      // Grab the default Apple/File 
menus Apple menu 
 
include “Defaults.rsrc” ‘cmnu’ (mFile); 
 
resource ‘cmnu’ (mFile, 
#if qNames 
“mFile”, 
#endif 
nonpurgeable) { 
mFile, 
textMenuProc, 
0x7FFFFFFD, 
enabled, 
“File”, 
{ 
“New”, noIcon, “N”,    noMark, plain, cNew; 
“Open ”, noIcon, “O”,    noMark, plain, cOpen; 
“-”, noIcon, noKey,  noMark, plain, nocommand; 
“Close”, noIcon, “W”,    noMark, plain, cClose; 
“Save”, noIcon, “S”,    noMark, plain, cSave; 
“Save As ”, noIcon, noKey, noMark, plain, cSaveAs; 
“Save a Copy In ”, noIcon, noKey, noMark, plain, cSaveCopy; 
“Revert”, noIcon, noKey,  noMark, plain, cRevert; 
“-”, noIcon, noKey,  noMark, plain, nocommand; 
“Auto-saving”, noIcon, noKey, noMark, plain, cToggleAutoSave; 
“Set auto-save time”, noIcon, noKey, noMark, plain, cSetAutoSave; 
“-”, noIcon, noKey,  noMark, plain, nocommand; 
“Page Setup ”, noIcon, noKey,  noMark, plain, cPageSetup; 
“Print One”, noIcon, noKey,  noMark, plain, cPrintOne; 
“Print ”, noIcon, “P”,    noMark, plain, cPrint; 
“-”, noIcon, noKey,  noMark, plain, nocommand; 
“Quit”, noIcon, “Q”,    noMark, plain, cQuit 
} 
}; 
 
Listing 3: Changes to UDrawShapes.p
 
UNIT UDrawShapes; 
 
INTERFACE 
 
USES 
{ • MacApp } 
UMacApp, 
 
{ • Building Blocks } 
UPrinting, 
 
UTEView, UDialog, USavedMe, 
{ • Implementation Use } 
Picker, ToolUtils, Resources, Fonts; 
 
TYPE 
 
TShapeDocument      = OBJECT (TDocument) (TAutoSaveDocument) 
 
fShapeView:         TShapeView; 
 
Listing 4: Changes to UDrawShapes.inc1.p
PROCEDURE TShapeDocument.IShapeDocument(fileType: OSType); 
 
IDocument IAutoSaveDocument(fileType, kDocType, kUsesDataFork, kUsesRsrcFork, 
NOT kDataOpen, NOT kRsrcOpen); 
 
Listing 5: DrawShapes.MAMake
 

#------------------------------------------------
#    List here the Application’s Name
AppName = DrawShapes

#------------------------------------------------
#    List any additional interfaces that your application is dependent 
on
OtherInterfaces =  
    “{SrcApp}USavedMe.p”

#------------------------------------------------
#    Name any other object files to link in
OtherLinkFiles = 
    “{ObjApp}USavedMe.p.o”

#------------------------------------------------
#    Express any additional dependencies for separate compilations.
#    Include dependencies for the MacApp and Building block interfaces
#    if you are dependent on them
“{ObjApp}USavedMe.p.o”    ƒ 
               “{SrcApp}USavedMe.inc1.p” 
               “{SrcApp}USavedMe.p” 
               {MacAppIntf} 
               {BuildingBlocksIntf}

#------------------------------------------------
Listing 6: USavedMe.p
{ Copyright © 1989 Fred J. Condo Jr. All rights reserved. }

UNIT USavedMe;
 {[f-]}
{ This unit defines the object type
TAutoSaveDocument, a MacApp® abstract type from
which you should descend your application’s
actual document object class(es).

 When a TAutoSaveDocument is in the command
chain, MacApp calls its DoIdle method, which
determines whether auto-saving is on, and, if
so, whether the user-requested interval since the
last auto-save has elapsed. If that is so, the
document is saved by sending itself a
Save message.

 When a TAutoSaveDocument is not in the command
chain, DoIdle is not called. A future version of
this unit may implement auto-saving in the
background. That would install the document as a
cohandler, which would remain installed until
such time as it saved itself, and then de-
install itself as a cohandler. Of course, if
fChangeCount =0, or if auto-saving is off, then
it would not install itself as a cohandler in
the first place, since auto-saving would never be
called for. A de-installed auto-saver would re-
install itself when brought to the front.

 The user interface to this unit is by means of a
modeless dialog.

 If you are already working on your MacApp
application, you need simply change the ancestor
of your document classes from (TDocument) to
(TAutoSaveDocument).

 Be sure to call InitUTEView, InitUDialog, and
InitUSavedMe in your main program.

 Call IAutoSaveDocument in IYourDocument.

 If your document has a DoIdle method, be sure to
call INHERITED DoIdle. Also, to keep your idle
frequency from getting clobbered, set
fRespectsIdleTime to TRUE immediately after
calling IAutoSaveDocument. If you don’t care about
your idle frequency, you can accept the default
(FALSE).

 In the USES clause of your main program, insert
“UTEView, UDialog, USavedMe,” and make the same
insertion in the USES clause of UYourProgram.p.

 The name of this unit is a pun. Sorry. I
couldn’t help it. }
{[f+]}

 INTERFACE

  USES UMacApp,UTEView,UDialog,SANE,Script,
       ToolUtils;

  CONST
   cToggleAutoSave = 5000; { Change these here and
                            in USavedMe.r }
   cSetAutoSave = 5001; { if they conflict with
                         your application. }
   kAutoSaveDialogID = 5000;
   kMinutesID = 18950; { Resource ID of STR# containing
  singular and plural of ‘minute’. }

  TYPE
   TAutoSaveDocument = OBJECT (TDocument)
    fSaving: Boolean; { Whether autosaving is on. }
    fHasEverBeenSet: Boolean; { Whether the dialog
                               has ever been summoned. }
    fRespectIdleTime: Boolean; { Default FALSE. If
        TRUE, TAutoSaveDocument won’t stomp on your idle
        frequency. This is useful if your document is a
  cohandler or otherwise needs idle processing. }
    fLastSave: Longint; { Time that doc was last autosaved. }
    fDesiredInterval: Longint; { Time in ticks set by user. }
    fAutoSaveWindow: TWindow; { AutoSave dialog window. }

                    { Init & Free }

    PROCEDURE TAutoSaveDocument.IAutoSaveDocument(
                  itsFileType, itsCreator: OSType;
              usesDataFork, usesRsrcFork: Boolean;
           keepsDataOpen, keepsRsrcOpen: Boolean);
           
    PROCEDURE TAutoSaveDocument.Free; OVERRIDE;

    { Meat & Potatoes }
    FUNCTION TAutoSaveDocument.DoIdle
    (phase: IdlePhase): Boolean; OVERRIDE;
    
    PROCEDURE TAutoSaveDocument.DoSetupMenus;
     OVERRIDE;
     
    FUNCTION TAutoSaveDocument.DoMenuCommand(
     aCmdNumber: CmdNumber): TCommand; OVERRIDE;
     
    PROCEDURE
     TAutoSaveDocument.PoseAutoSaveDialog;

    { Debugging }
    PROCEDURE TAutoSaveDocument.Fields
    (PROCEDURE DoToField(fieldName: Str255;
      fieldAddr: Ptr; fieldType: Integer));
      OVERRIDE;
    END;

   TAutoSaveDialogView = OBJECT (TDialogView)
    fAutoSaveDocument: TAutoSaveDocument; { The
     autosaver this dialog will modify. }

    { Init & Free }

    PROCEDURE TAutoSaveDialogView.Free;
    OVERRIDE;
    PROCEDURE TAutoSaveDialogView.Close;
    OVERRIDE;

    { A nice fish dinner }
    PROCEDURE TAutoSaveDialogView.DismissDialog
     (dismisser: IDType;
      flashDismisser: Boolean);
     OVERRIDE;
     
    PROCEDURE 
     TAutoSaveDialogView.UpdateDocumentName;

    PROCEDURE TAutoSaveDialogView.Fields
     (PROCEDURE DoToField(fieldName: Str255;
      fieldAddr: Ptr; fieldType: Integer));
      OVERRIDE;
    END;

   { GLOBAL PROCEDURE }

  PROCEDURE InitUSavedMe;

 IMPLEMENTATION

  {$I USavedMe.inc1.p}

END.
Listing 7: USavedMe.inc1.p
{ USavedMe.inc1.p
    Copyright © 1989 Fred J. Condo Jr.
    All rights reserved. }

CONST
 autoSaving = TRUE;

 {$S AOpen}

PROCEDURE TAutoSaveDocument.IAutoSaveDocument(
                  itsFileType, itsCreator: OSType;
              usesDataFork, usesRsrcFork: BOOLEAN;
           keepsDataOpen, keepsRsrcOpen: BOOLEAN);

 BEGIN
  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDocument.IAutoSaveDocument’);
  {$ENDC}
  IDocument(itsFileType,itsCreator,usesDataFork,
            usesRsrcFork,keepsDataOpen,
            keepsRsrcOpen);
  { Initial conditions are... }
  fSaving:=NOT autoSaving;
  fRespectIdleTime:=FALSE;
  fHasEverBeenSet:=FALSE; fLastSave:=0; { never
   saved }
  fDesiredInterval:=MAXLONGINT; { never want it saved. (This
  is 1 yr., 1 mo., 19 days) }
  fAutoSaveWindow:=NIL { no dialog exists }
 END;

{$S AClose}

PROCEDURE TAutoSaveDocument.Free; OVERRIDE;

 BEGIN
{ If this object is being freed and its dialog is
  still open (which can happen because it is a
  modeless dialog), then close the dialog. }

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDocument.Free’);
  {$ENDC}

  IF fAutoSaveWindow<>NIL THEN
   fAutoSaveWindow.Close;
  INHERITED Free
 END;

{$S ARes}

FUNCTION TAutoSaveDocument.DoIdle(Phase: IdlePhase
                                  ): BOOLEAN;
 OVERRIDE;

 VAR
  dontCare: TCommand;
  currentTicks: LongInt;

 BEGIN
  DoIdle:=FALSE; { I don’t free myself }
  currentTicks:=TickCount;

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(fTitle^^,’ has idled’);
  IF fSaving&(currentTicks-fLastSave>=
     fDesiredInterval) THEN
   WriteLn(‘Enough time has elapsed to save.’);
  {$ENDC}

  IF fSaving&(fChangeCount>0)&(currentTicks-
     fLastSave>=fDesiredInterval) THEN BEGIN
        Save(cSave, FALSE, FALSE);
        fLastSave := currentTicks
  END
 END;

{$S ARes}

PROCEDURE TAutoSaveDocument.DoSetupMenus; OVERRIDE
 ;

 BEGIN
  {$IFC qDebug}
  WriteLn(‘AutoSaveDocument.DoSetupMenus:’);
  {$ENDC}

  INHERITED DoSetupMenus;
  EnableCheck(cToggleAutoSave,fHasEverBeenSet, fSaving);
  Enable(cSetAutoSave,fSaveExists) { Allow auto-saving
            only after the file has a name }
 END;

{$S ARes}

FUNCTION TAutoSaveDocument.DoMenuCommand(
       aCmdNumber: CmdNumber): TCommand; OVERRIDE;

 VAR
  anAutoSaveDialogView: TAutoSaveDialogView;

 BEGIN

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDocument.DoMenuCommand:’, aCmdNumber);
  {$ENDC}

  DoMenuCommand:=gNoChanges;
  CASE aCmdNumber OF
   cToggleAutoSave: BEGIN
    fSaving:=NOT fSaving;
    IF NOT fSaving&NOT fRespectIdleTime THEN
     fIdleFreq:=MAXLONGINT
   END;

   cSetAutoSave:
    IF fAutoSaveWindow=NIL { Open a dialog only if
                            one is not already open }
       THEN
     PoseAutoSaveDialog
    ELSE fAutoSaveWindow.Select;

   cSave,cSaveAs: BEGIN
 { Intercept cSave and cSaveAs commands to make
   sure that the document name given in the 
   AutoSave Dialog is still correct. If there is
   no dialog open, skip it. }
    Save(aCmdNumber,((aCmdNumber=cSaveAs)|
         (NOT fSaveExists)) { Put up SFPutFile if
                             Save As  } ,FALSE);
    IF (fAutoSaveWindow<>NIL) THEN BEGIN
     anAutoSaveDialogView:=TAutoSaveDialogView(
                            fAutoSaveWindow.FindSubView(‘DLOG’));
     FailNIL(anAutoSaveDialogView);
     anAutoSaveDialogView.UpdateDocumentName
    END
   END; { cSave }
   OTHERWISE
    DoMenuCommand:=INHERITED DoMenuCommand(aCmdNumber)
  END { Case }
 END; { DoMenuCommand }

{$S ANonRes}

PROCEDURE TAutoSaveDocument.PoseAutoSaveDialog;
{ This method creates and opens a modeless dialog }

 VAR
  theDialog: TAutoSaveDialogView;
  theTimeText: TNumberText;
  theWordMinutes: TStaticText;
  minutesStr: Str255;
  whichStr: 1..2;

 BEGIN

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDocument.PoseAutoSaveDialog’)
           ;
  {$ENDC}

  fAutoSaveWindow { This field will allow the
   auto-save object to keep track of its dialog }
   :=NewTemplateWindow(kAutoSaveDialogID,NIL);
  FailNIL(fAutoSaveWindow);
  theDialog:=TAutoSaveDialogView(fAutoSaveWindow.
                                 FindSubView(‘DLOG’));
  FailNIL(theDialog);

        { Now give the TAutoSaveDialogView a
          reference to the auto-save object so
          that it can update the appropriate
          fields when it is dismissed. }
  theDialog.fAutoSaveDocument:=SELF;
  theDialog.UpdateDocumentName;

    { Now display the proper desired interval, if
      one’s been previously set, or the default;
      and determine whether to use the singular or
      plural of “minute.” }
  theTimeText:=TNumberText(theDialog.FindSubView(‘time’));
  FailNIL(theTimeText);
  IF fHasEverBeenSet THEN
   theTimeText.SetValue(fDesiredInterval DIV 3600,
                        FALSE {no redraw; not open yet} );
  IF theTimeText.GetValue=1 THEN whichStr:=1
  ELSE whichStr:=2;
  theWordMinutes:=TStaticText(theDialog.FindSubView(‘mnut’))
                   ; FailNIL(theWordMinutes);
  GetIndString(minutesStr,kMinutesID,whichStr);
  theWordMinutes.SetText(minutesStr,FALSE);
  fAutoSaveWindow.Open
 END;

{$S AFields}

PROCEDURE TAutoSaveDocument.Fields
 (PROCEDURE DoToField(fieldName: Str255;
 fieldAddr: Ptr; fieldType: Integer));
 OVERRIDE;

 BEGIN
  DoToField(‘TAutoSaveDocument’,NIL,bClass);
  DoToField(‘fSaving’,@fSaving,bBoolean);
  DoToField(‘fHasEverBeenSet’,@fHasEverBeenSet, bBoolean);
  DoToField(‘fRespectIdleTime’,@fRespectIdleTime, bBoolean);
  DoToField(‘fLastSave’,@fLastSave,bLongInt);
  DoToField(‘fDesiredInterval’,@fDesiredInterval, bLongInt);
  DoToField(‘fAutoSaveWindow’,@fAutoSaveWindow, bObject);
  INHERITED Fields(DoToField)
 END;

{$S ANonRes}

PROCEDURE TAutoSaveDialogView.DismissDialog
 (dismisser: IDType;
  flashDismisser: Boolean);
 OVERRIDE;

 BEGIN

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDialogView.DismissDialog’);
  {$ENDC}

  IF NOT fDismissed AND
     DeselectCurrentEditText THEN BEGIN
   INHERITED DismissDialog(dismisser, flashDismisser);
   IF dismisser=’ok  ‘ THEN BEGIN
    fAutoSaveDocument.fSaving:=autoSaving;
    fAutoSaveDocument.fHasEverBeenSet:=TRUE;
    fAutoSaveDocument.fDesiredInterval:=60*60* {
      The interval is specified in minutes by the
      user. We want ticks. }
     TNumberText(FindSubView(‘time’)).GetValue;
    IF fAutoSaveDocument.fRespectIdleTime THEN
     BEGIN
     IF fAutoSaveDocument.fDesiredInterval<
        fAutoSaveDocument.fIdleFreq THEN
      fAutoSaveDocument.fIdleFreq:=MAX(1,
        fAutoSaveDocument.fDesiredInterval DIV 2)
        { This  way, we don’t stomp on a
          co-handler’s idle frequency. }
    END
    ELSE
     fAutoSaveDocument.fIdleFreq:=
       fAutoSaveDocument.fDesiredInterval
                                   DIV 2
   END;
   fAutoSaveDocument.fAutoSaveWindow:=NIL; { Tell
    the document there’s no dialog to close }
   TWindow(fSuperView).Close
  END
 END;

{$S ANonRes}

PROCEDURE TAutoSaveDialogView.UpdateDocumentName;

 VAR
  theDocName: TStaticText;
  theDocTitle: Str255;

 BEGIN

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDialogView.UpdateDocumentName’);
  {$ENDC}

{ Get the name of the document so the dialog can
  display it for the user }
  theDocName:=TStaticText(FindSubView(‘docn’));
  FailNIL(theDocName);
  theDocTitle:=fAutoSaveDocument.fTitle^^;
  theDocName.SetText(theDocTitle,TRUE {redraw} )
 END;

{$S AClose}
PROCEDURE TAutoSaveDialogView.Free; OVERRIDE;
{ This is overridden to inform the document that
  it has no dialog available. This is done so
  that, if the user clicks the goAway of the
  dialog, the document is informed. }

 BEGIN
  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘TAutoSaveDialogView.Free’);
  {$ENDC}

  fAutoSaveDocument.fAutoSaveWindow:=NIL;
  INHERITED Free
 END;

{$S AClose}

PROCEDURE TAutoSaveDialogView.Close; OVERRIDE;

 BEGIN
  fDismissed:=TRUE; { Pretend we’ve dismissed with
                     the Cancel button, }
  fDismisser:=’cncl’; { but without doing any real dismissing, because 
objects may be freed. }
  INHERITED Close
 END;

{$S AFields}

PROCEDURE TAutoSaveDialogView.Fields
 (PROCEDURE DoToField(fieldName: Str255;
  fieldAddr: Ptr; fieldType: Integer));
  OVERRIDE;

 BEGIN
  DoToField(‘TAutoSaveDialogView’,NIL,bClass);
  DoToField(‘fAutoSaveDocument’,
            @fAutoSaveDocument,bObject);
  INHERITED Fields(DoToField)
 END;

{$S AInit}

PROCEDURE InitUSavedMe; { This just makes sure our dialog view classes 
don’t get stripped. }

 VAR
  g: BOOLEAN;

 BEGIN

  {$IFC qDebug}
  IF gIntenseDebugging THEN
   WriteLn(‘InitUSavedMe’);
  {$ENDC}

  IF gDeadStripSuppression THEN
   g:=Member(TObject(NIL),TAutoSaveDialogView)
 END;
Listing 8: USavedMe.r
/* USavedMe.r
  Copyright © 1989 Fred J. Condo Jr.
  All rights reserved.
  INCLUDE USavedMe.r in YourApp.r */

#define kAutoSaveDialogID 5000
#define kAutoSaveMenuID   5000
#define cToggleAutoSave   5000
#define cSetAutoSave 5001
#define kMinutesID 18950

include “dialog.rsrc”;

resource ‘STR#’ (kMinutesID, “Minutes”, purgeable) {
 { /* array StringArray: 2 elements */
 /* [1] */
 “minute.”,
 /* [2] */
 “minutes.”
 }
};

resource ‘view’ (kAutoSaveDialogID, purgeable) {
 { /* array viewArray: 10 elements */
 /* [1] */
 root, ‘root’,
 { /* array: 1 elements */
 /* [1] */
 50, 40
 },
 { /* array: 1 elements */
 /* [1] */
 226, 192
 }, sizeVariable, sizeVariable, notShown, enabled,
 Window {
 “TWindow”,
 16,
 goAwayBox,
 notResizable,
 modeless,
 ignoreFirstClick,
 freeOnClosing,
 disposeOnFree,
 doesntCloseDocument,
 dontOpenWithDocument,
 dontAdaptToScreen,
 dontStagger,
 forceOnScreen,
 dontCenter,
 ‘time’,
 “Auto-save”
 },
 /* [2] */
 ‘root’, ‘DLOG’,
 { /* array: 1 elements */
 /* [1] */
 0, 0
 },
 { /* array: 1 elements */
 /* [1] */
 224, 192
 }, sizeVariable, sizeVariable, shown, enabled,
 DialogView {
 “TAutoSaveDialogView”,
 ‘ok  ‘,
 ‘cncl’
 },
 /* [3] */
 ‘DLOG’, ‘VW06’,
 { /* array: 1 elements */
 /* [1] */
 8, 8
 },
 { /* array: 1 elements */
 /* [1] */
 64, 176
 }, sizeFixed, sizeFixed, shown, disabled,
 Cluster {
 “TCluster”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {0, 0, 0, 0},
 plain, 9,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “A”,
 “Document to Auto-save”
 },
 /* [4] */
 ‘VW06’, ‘docn’,
 { /* array: 1 elements */
 /* [1] */
 16, 8
 },
 { /* array: 1 elements */
 /* [1] */
 40, 160
 }, sizeFixed, sizeFixed, shown, disabled,
 StaticText {
 “TStaticText”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {0, 0, 0, 0},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 justLeft,
 “static text”
 },
 /* [5] */
 ‘DLOG’, ‘VW08’,
 { /* array: 1 elements */
 /* [1] */
 80, 8
 },
 { /* array: 1 elements */
 /* [1] */
 88, 176
 }, sizeFixed, sizeFixed, shown, disabled,
 Cluster {
 “TCluster”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {0, 0, 0, 0},
 plain, 9,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “A”,
 “Set the Auto-save interval”
 },
 /* [6] */
 ‘VW08’, ‘VW03’,
 { /* array: 1 elements */
 /* [1] */
 16, 8
 },
 { /* array: 1 elements */
 /* [1] */
 16, 80
 }, sizeFixed, sizeFixed, shown, disabled,
 StaticText {
 “TStaticText”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {0, 0, 0, 0},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 justLeft,
 “Save every”
 },
 /* [7] */
 ‘VW08’, ‘time’,
 { /* array: 1 elements */
 /* [1] */
 40, 60
 },
 { /* array: 1 elements */
 /* [1] */
 20, 48
 }, sizeFixed, sizeFixed, shown, enabled,
 NumberText {
 “TNumberText”,
 0b1111,
 {1, 1},
 notSizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {2, 2, 2, 2},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 justLeft,
 “15”,
 5,
 0b110000000000000000000100000000,
 15, 1, 65535
 },
 /* [8] */
 ‘VW08’, ‘mnut’,
 { /* array: 1 elements */
 /* [1] */
 64, 96
 },
 { /* array: 1 elements */
 /* [1] */
 16, 72
 }, sizeFixed, sizeFixed, shown, disabled,
 StaticText {
 “TStaticText”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 doesntDismiss,
 {0, 0, 0, 0},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 justLeft,
 “x”
 },
 /* [9] */
 ‘DLOG’, ‘cncl’,
 { /* array: 1 elements */
 /* [1] */
 184, 16
 },
 { /* array: 1 elements */
 /* [1] */
 24, 72
 }, sizeFixed, sizeFixed, shown, enabled,
 Button {
 “TButton”,
 0b0,
 {1, 1},
 sizeable,
 notDimmed,
 notHilited,
 dismisses,
 {0, 0, 0, 0},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 “Cancel”
 },
 /* [10] */
 ‘DLOG’, ‘ok  ‘,
 { /* array: 1 elements */
 /* [1] */
 182, 94
 },
 { /* array: 1 elements */
 /* [1] */
 28, 80
 }, sizeFixed, sizeFixed, shown, enabled,
 Button {
 “TButton”,
 0b1000000,
 {3, 3},
 sizeable,
 notDimmed,
 notHilited,
 dismisses,
 {4, 4, 4, 4},
 plain, 0,
 { /* array: 3 elements */
 /* [1] */
 0x0,
 /* [2] */
 0x0,
 /* [3] */
 0x0
 },
 “”,
 “OK”
 }
 }
};

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Ableton Live 11.3.11 - Record music usin...
Ableton Live lets you create and record music on your Mac. Use digital instruments, pre-recorded sounds, and sampled loops to arrange, produce, and perform your music like never before. Ableton Live... Read more
Affinity Photo 2.2.0 - Digital editing f...
Affinity Photo - redefines the boundaries for professional photo editing software for the Mac. With a meticulous focus on workflow it offers sophisticated tools for enhancing, editing and retouching... Read more
SpamSieve 3.0 - Robust spam filter for m...
SpamSieve is a robust spam filter for major email clients that uses powerful Bayesian spam filtering. SpamSieve understands what your spam looks like in order to block it all, but also learns what... Read more
WhatsApp 2.2338.12 - Desktop client for...
WhatsApp is the desktop client for WhatsApp Messenger, a cross-platform mobile messaging app which allows you to exchange messages without having to pay for SMS. WhatsApp Messenger is available for... Read more
Fantastical 3.8.2 - Create calendar even...
Fantastical is the Mac calendar you'll actually enjoy using. Creating an event with Fantastical is quick, easy, and fun: Open Fantastical with a single click or keystroke Type in your event details... Read more
iShowU Instant 1.4.14 - Full-featured sc...
iShowU Instant gives you real-time screen recording like you've never seen before! It is the fastest, most feature-filled real-time screen capture tool from shinywhitebox yet. All of the features you... Read more
Geekbench 6.2.0 - Measure processor and...
Geekbench provides a comprehensive set of benchmarks engineered to quickly and accurately measure processor and memory performance. Designed to make benchmarks easy to run and easy to understand,... Read more
Quicken 7.2.3 - Complete personal financ...
Quicken makes managing your money easier than ever. Whether paying bills, upgrading from Windows, enjoying more reliable downloads, or getting expert product help, Quicken's new and improved features... Read more
EtreCheckPro 6.8.2 - For troubleshooting...
EtreCheck is an app that displays the important details of your system configuration and allow you to copy that information to the Clipboard. It is meant to be used with Apple Support Communities to... Read more
iMazing 2.17.7 - Complete iOS device man...
iMazing is the world’s favourite iOS device manager for Mac and PC. Millions of users every year leverage its powerful capabilities to make the most of their personal or business iPhone and iPad.... Read more

Latest Forum Discussions

See All

‘Junkworld’ Is Out Now As This Week’s Ne...
Epic post-apocalyptic tower-defense experience Junkworld () from Ironhide Games is out now on Apple Arcade worldwide. We’ve been covering it for a while now, and even through its soft launches before, but it has returned as an Apple Arcade... | Read more »
Motorsport legends NASCAR announce an up...
NASCAR often gets a bad reputation outside of America, but there is a certain charm to it with its close side-by-side action and its focus on pure speed, but it never managed to really massively break out internationally. Now, there's a chance... | Read more »
Skullgirls Mobile Version 6.0 Update Rel...
I’ve been covering Marie’s upcoming release from Hidden Variable in Skullgirls Mobile (Free) for a while now across the announcement, gameplay | Read more »
Amanita Design Is Hosting a 20th Anniver...
Amanita Design is celebrating its 20th anniversary (wow I’m old!) with a massive discount across its catalogue on iOS, Android, and Steam for two weeks. The announcement mentions up to 85% off on the games, and it looks like the mobile games that... | Read more »
SwitchArcade Round-Up: ‘Operation Wolf R...
Hello gentle readers, and welcome to the SwitchArcade Round-Up for September 21st, 2023. I got back from the Tokyo Game Show at 8 PM, got to the office here at 9:30 PM, and it is presently 11:30 PM. I’ve done what I can today, and I hope you enjoy... | Read more »
Massive “Dark Rebirth” Update Launches f...
It’s been a couple of months since we last checked in on Diablo Immortal and in that time the game has been doing what it’s been doing since its release in June of last year: Bringing out new seasons with new content and features. | Read more »
‘Samba De Amigo Party-To-Go’ Apple Arcad...
SEGA recently released Samba de Amigo: Party-To-Go () on Apple Arcade and Samba de Amigo: Party Central on Nintendo Switch worldwide as the first new entries in the series in ages. | Read more »
The “Clan of the Eagle” DLC Now Availabl...
Following the last paid DLC and free updates for the game, Playdigious just released a new DLC pack for Northgard ($5.99) on mobile. Today’s new DLC is the “Clan of the Eagle" pack that is available on both iOS and Android for $2.99. | Read more »
Let fly the birds of war as a new Clan d...
Name the most Norse bird you can think of, then give it a twist because Playdigious is introducing not the Raven clan, mostly because they already exist, but the Clan of the Eagle in Northgard’s latest DLC. If you find gathering resources a... | Read more »
Out Now: ‘Ghost Detective’, ‘Thunder Ray...
Each and every day new mobile games are hitting the App Store, and so each week we put together a big old list of all the best new releases of the past seven days. Back in the day the App Store would showcase the same games for a week, and then... | Read more »

Price Scanner via MacPrices.net

Apple AirPods 2 with USB-C now in stock and o...
Amazon has Apple’s 2023 AirPods Pro with USB-C now in stock and on sale for $199.99 including free shipping. Their price is $50 off MSRP, and it’s currently the lowest price available for new AirPods... Read more
New low prices: Apple’s 15″ M2 MacBook Airs w...
Amazon has 15″ MacBook Airs with M2 CPUs and 512GB of storage in stock and on sale for $1249 shipped. That’s $250 off Apple’s MSRP, and it’s the lowest price available for these M2-powered MacBook... Read more
New low price: Clearance 16″ Apple MacBook Pr...
B&H Photo has clearance 16″ M1 Max MacBook Pros, 10-core CPU/32-core GPU/1TB SSD/Space Gray or Silver, in stock today for $2399 including free 1-2 day delivery to most US addresses. Their price... Read more
Switch to Red Pocket Mobile and get a new iPh...
Red Pocket Mobile has new Apple iPhone 15 and 15 Pro models on sale for $300 off MSRP when you switch and open up a new line of service. Red Pocket Mobile is a nationwide service using all the major... Read more
Apple continues to offer a $350 discount on 2...
Apple has Studio Display models available in their Certified Refurbished store for up to $350 off MSRP. Each display comes with Apple’s one-year warranty, with new glass and a case, and ships free.... Read more
Apple’s 16-inch MacBook Pros with M2 Pro CPUs...
Amazon is offering a $250 discount on new Apple 16-inch M2 Pro MacBook Pros for a limited time. Their prices are currently the lowest available for these models from any Apple retailer: – 16″ MacBook... Read more
Closeout Sale: Apple Watch Ultra with Green A...
Adorama haș the Apple Watch Ultra with a Green Alpine Loop on clearance sale for $699 including free shipping. Their price is $100 off original MSRP, and it’s the lowest price we’ve seen for an Apple... Read more
Use this promo code at Verizon to take $150 o...
Verizon is offering a $150 discount on cellular-capable Apple Watch Series 9 and Ultra 2 models for a limited time. Use code WATCH150 at checkout to take advantage of this offer. The fine print: “Up... Read more
New low price: Apple’s 10th generation iPads...
B&H Photo has the 10th generation 64GB WiFi iPad (Blue and Silver colors) in stock and on sale for $379 for a limited time. B&H’s price is $70 off Apple’s MSRP, and it’s the lowest price... Read more
14″ M1 Pro MacBook Pros still available at Ap...
Apple continues to stock Certified Refurbished standard-configuration 14″ MacBook Pros with M1 Pro CPUs for as much as $570 off original MSRP, with models available starting at $1539. Each model... Read more

Jobs Board

Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Cashier - *Apple* Blossom Mall - JCPenney (...
Cashier - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Blossom Mall Read more
Operations Associate - *Apple* Blossom Mall...
Operations Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Retail Key Holder- *Apple* Blossom Mall - Ba...
Retail Key Holder- APPLE BLOSSOM MALL Brand: Bath & Body Works Location: Winchester, VA, US Location Type: On-site Job ID: 03YM1 Job Area: Store: Sales and Support Read more
Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.