TweetFollow Us on Twitter

May 93 - Three MacApp 3.0.1 Shortcuts

Three MacApp 3.0.1 Shortcuts

Ken Victor

The following three shortcuts have made my life much simpler while developing a new MacApp 3.0.1 application using C++.

Try and Catch Macros

In a past issue of "Develop" magazine, the C macros for Try and Catch were defined for MacApp 2. I got used to using these when I was developing a MacApp 2 product using C++, and although the MacApp 3 approach to exception handling is easier to use with C++, I wanted to continue to use Try and Catch. I find this more meaningful to read than if fi.Try(). So here is my version for MacApp 3:
#define try                    \
    FailInfo fi;            \
    if (fi.Try()) {
#define catch               \
    fi.Success();           \
    }                       \
    else
#define try2                \
    if (fi.Try()) {
#define success     fi.Success()
#define resignal    fi.ReSignal()

Thus you can write code that looks like the following:

try {
    …
    }
catch {
    …
    resignal;
    }

    or:

try …
catch ;

    or:

try {
    …
    success;
    return;
    …
    }
catch ;

These macros nest properly so that you can write the following:

try {
    …
    try {
        …
        }
    catch {
        …
        resignal;
        }
    …
    }
catch {
    …
    resignal;
    }

The Try2 macro is used if you want a second, or third, Try clause at the same level as a previous one. E.g.:

try {
    …
    }
catch {
    …
    resignal;
    }
…
try2 {
    …
    }
catch {
    …
    resignal;
    }

The Catch macro could easily be modified to automatically resignal, but I felt it best not to hide this, and to save the few bytes in the situation where I didn't need to resignal.

TMyDocument Shortcut

When developing a new application, each time you add, change, or delete a class variable from your TMyDocument class, there are up to 8 different methods that you may have to change:
Initialize
IMyDocument
DoInitialState
Free
FreeData
DoNeedDiskSpace
DoRead
DoWrite

And it is important that DoRead and DoWrite perform operations in the same order. I got tired of trying to remember to update each of these methods, and of having to go back and forth between DoRead and DoWrite to make sure I was doing things in the right order. I therefore decided to localize all these functions into one common method. The price I pay for this is a slight performance hit due to the extra switches in my common routine, a slight violation of clean segmentation, and a violation of the tenant of a single routine performing a single function. I felt that these were a small price to pay for the increased convenience. When my app is complete, I can always do away with this common routine, and place the appropriate code in each of the specific methods.

My common routine is defined as follows:

enum tDocIterType {
    forReading,
    forWriting,
    forSizing,
    forInitialize,
    forIDoc,
    forDoInitial,
    forFreeData,
    forFree
    };
void    DoSRWIIDF(  tDocIterType iterType,
                    TFile* aFile,
                    long& dataForkBytes,
                    long& rsrcForkBytes,
                    Boolean modifier = false);

Each of my standard methods is now quite simple and implemented similarly to the following:

pascal void TMyDocument::DoNeedDiskSpace(
                        TFile* itsFile,
                        long& dataForkBytes,
                        long& rsrcForkBytes) {
    // count us
    DoSRWIIDF(  forSizing,
                itsFile, 
                dataForkBytes, 
                rsrcForkBytes);
    }   //  end of TMyDocument :: DoNeedDiskSpace 

My common routine locks the document, so I can read and write to it comfortably, allocates any needed Streams, and for each member variable in the document performs a switch to perform the required action. The core of the code follows:

#pragma segment DocReadWriteEtc
void TMyDocument::DoSRWIIDF(    tDocIterType iterType,
                    TFile* aFile,
                    long& dataForkBytes,
                    long& rsrcForkBytes,
                    Boolean modifier) {
TStream*        aStream = NULL;
VOLATILE( aStream);

// lock us just in case
    SignedByte myState = LockHandleHigh( (Handle) this);

    try {
    // get stream for i/o
        switch (iterType) {
            case forSizing:
                aStream = new TCountingStream;
                ((TCountingStream*) aStream)->ICountingStream();
                aStream->SetPosition( 0);
                inherited::DoNeedDiskSpace( aFile,
                                        dataForkBytes,
                                        rsrcForkBytes);
                break;
            case forReading:
            case forWriting:
                aStream = new TFileStream;
                ((TFileStream*) aStream)->IFileStream( aFile);
                aStream->SetPosition( 0);
                if (iterType == forReading)
                    inherited::DoRead( aFile, modifier);
                else inherited::DoWrite( aFile, modifier);
                break;
            }
    //  field 1
        switch (iterType) {
            case forSizing:     // fall thru
            case forWriting:
                aStream->WriteBytes( &field1, sizeof( field1));
                break;
            case forReading:    
                aStream->ReadBytes( &field1, sizeof( field1));
                break;
            case forInitialize:
                …
                break;
            case forIDoc:
                …
                break;
            case forDoInitial:
                …
                break;
            case forFreeData:
                …
                break;
            case forFree:
                …
                break;
            }
    //  field 2
        …
    // free stream
        if (iterType == forSizing)
            dataForkBytes += aStream->GetSize();
        FreeIfObject( aStream);
    // unlock us
        HSetState( (Handle) this, myState);
    }
catch {
    // free stream
        FreeIfObject( aStream);
    // unlock us
        HSetState( (Handle) this, myState);
    resignal;
    }
}   //  end of TMyDocument :: DoSRWIIDF

Now whenever I add, change, or delete a field, it is a simple matter of modifying the one "block" of code.

Floating TEditTexts

In several of my dialogs, I had fields in which I wanted to restrict what characters the user could enter. I wanted to beep if the user typed an illegal character. In looking at the MacApp3Tech$ archives, the suggestions for accomplishing this basically involved subclassing TEditText and a few other classes so that you could create you own floating TEView with its appropriate behavior. Nick Nallick, in his article "Text Filtering with Behaviors" in the July 1992 FrameWorks describes such an approach. I decided to try the different approach of attaching a Behavior to the dialog floating TEView, and much to my relief this worked out even better than I thought it would, and is in fact a very general approach. You can even attach multiple instances of this behavior to the floating view, and each instance can act on different characters and/or be applied to different TEditTexts in the dialog.

The Behavior basically looks at each character the user types into a TEditText and beeps if this is an illegal character, or if it is a legal character simply passes it along the behavior chain for normal operation. The behavior will also examine each character in a pasted string and beep if the string contains any illegal characters or pass the string along. Using the behavior is quite simple and relies on the fact that there is only one floating TEView per dialog window and that this view is usually the window's target after the window has been created. First create your window and establish it as a dialog so that the floating TEView will exist. Then create the behavior:

TBhvrInputFilter* aCharBeeper = new TBhvrInputFilter;

Then call the '"I" method, passing the window:

aCharBeeper->IBhvrInputFilter( aWindow);

This will initialize the Behavior and attach it to the floating TEView. It finds the floating TEView by first looking at the window's target to see if is a member of TDialogTEView; if not, it searches the window's sub views until it finds a TDialogTEView to attach to.

Next tell the Behavior which TEditText views you wish to check by passing the identifier(s) of these views:

aCharBeeper->AddView( aEditText->GetIdentifier());
aCharBeeper->AddView( anotherEditText->GetIdentifier());

And lastly, tell the behavior which characters are allowed. The default is to not allow any characters. However there are several methods for specifying the legal characters.

aCharBeeper->AllowNumbers();
aCharBeeper->AllowControlChars();
aCharBeeper->AllowChar( '/');

The above sequence will allow numbers and the slash character, the common characters for a date input view, but will beep on all other characters. It will also allow all control characters so that normal editing can take place.

Advantages

This approach relies on the fact that a common single floating TEView is passed around, rather than each TEditText having its own floating TEView. This leads to both the advantages and disadvantages of this approach, as opposed to subclassing TEditText to install your own floating TEView. This approach is simpler to use and requires less code since there is no need to subclass. The disadvantage is that since this behavior is attached to the only floating TEView, each TEditText that you use uses this behavior, even if you don't want to filter that TEditText. The list of views to filter is maintained as a TLongintList and I haven't noticed any unacceptable performance (but I have not made any measurements). This approach is especially useful if you have several TEditTexts that require the same filtering. And, as mentioned above, if you have different filtering requirements, you can simply install multiple instances of this behavior, each with their own set of views to check, and their own set of legal characters.

Post processing

While further developing my app, I had a need to process TEditText after each character's editing action had taken place, but before any other processing could occur. (What I wanted was to perform name lookup and recognition based on the user's [partial] input string.) Since my use of behaviors for filtering input worked so well, I decided to capitalize on what I already had. I broke up TBhvrInputFilter into two classes: TBhvrFTEVFilter and TBhvrInputFilter. TBhvrFTEVFilter is an abstract class with methods for attaching itself to the floating TEView, and for adding, removing, and checking which sub views to work with. TBhvrInputFilter is now a subclass of TBhvrFTEVFilter and contains the specific methods having to do with filtering characters.

I then subclassed TBhvrFTEVFilter again to create a class that would do post processing of the user's input. This turned out to be a little more difficult than I thought it would be at first, but still simpler than any other way I could think of. The difficulty lay in the fact that when I call inherited::DoKeyEvent or inherited::DoMenuCommand, the TDialogTEView actually created command objects, rather than acting immediately. This was solved by my examining the event queue after calling the inherited method, looking for a TTECommand. If I find one, I remove it from the queue, call its DoIt, Commit, and Free methods. I can then easily get the resulting edited text and act as I wish.

In hindsight, I realized that I may have been able to use MacApp's dependency and notification techniques to accomplish this post processing. However, I now had something that worked, and I believe I might have had problems with characters after the first typed character, and "if it ain't broke..."

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Grab it now: Game Craft’s Legend of War...
The real time strategy game is now available for you to sink your teeth into, through the App Store and Google Play. Combining elements of skill, strategy and empire building, Legend of War is a real gamers’ game. [Read more] | Read more »
Skateboard Party 3 ft. Greg Lutzka (Gam...
Skateboard Party 3 ft. Greg Lutzka 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Skateboard Party is back! This third edition of the popular sports franchise features professional skater... | Read more »
Cubious (Games)
Cubious 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Cubious – How smart are you? How high is your IQube? Solve the impossible puzzles to find out, and help a lost little cube find his... | Read more »
Goat Simulator Waste of Space (Games)
Goat Simulator Waste of Space 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICESiPhone 4S, iPad 2, iPod Touch 5 or better.** | Read more »
Wildfulness - Unwind in nature and calm...
Wildfulness - Unwind in nature and calm your mind with nature sounds and illustrations 1.0 Device: iOS Universal Category: Healthcare & Fitness Price: $1.99, Version: 1.0 (iTunes) Description: Spending time in nature helps you to... | Read more »
Dr. Panda Racers (Education)
Dr. Panda Racers 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: STEP ON THE GAS, RACE AND WIN!Fasten your seat belts and get ready to race! Speed your way to the finish line while doing... | Read more »
ROMANCING SAGA 2 (Games)
ROMANCING SAGA 2 1.0.0 Device: iOS Universal Category: Games Price: $17.99, Version: 1.0.0 (iTunes) Description: Romancing SaGa 2, originally released only in Japan in 1993, has been completely remastered and now receives its first... | Read more »
WRIO Keyboard (Utilities)
WRIO Keyboard 1.0 Device: iOS iPhone Category: Utilities Price: $2.99, Version: 1.0 (iTunes) Description: 40% OFF DURING LIMITED INTRODUCTORY OFFER | Read more »
Hatoful Boyfriend (Games)
Hatoful Boyfriend 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The hit PC game that everybirdie loves has now migrated to your mobile device! Now you are free to explore the wonders of St... | Read more »
Warp Shift (Games)
Warp Shift 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: [ CHECK YOUR HARDWARE: Warp Shift does NOT run on iPhone 4, iPad 1 and iPod touch 4G or older devices! It requires at least iOS8... | Read more »

Price Scanner via MacPrices.net

Goal Zero and OtterBox Partner to Expand iPh...
Goal Zero, specialists in portable power, have announced a partnership with OtterBox, brand smartphone case protection, to offer the Slide and Slide Plus Batteries as modules compatible with the new... Read more
15-inch Retina MacBook Pros on sale for up to...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... Read more
21-inch iMacs on sale for up to $120 off MSRP
B&H Photo has 21″ iMacs on sale for up to $120 off MSRP including free shipping plus NY sales tax only: - 21″ 3.1GHz iMac 4K: $1379.99 $120 off MSRP - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1... Read more
Kanex Introduces GoPower USB-C Rechargeable B...
Kanex has announced its GoPower USB-C portable battery for the USB-C MacBook, featuring the new industry standard connector and cable used for connectivity and power. Providing users with a new... Read more
Convertible and Detachable Devices Winning Ov...
According to the latest figures published by International Data Corporation (IDC), Western European shipments of ultraslim convertibles and detachables posted positive growth (44.7%) to account for... Read more
New MacBook Pros And Will MacBook Air Be Upgr...
With my mid-2013 13-inch MacBook Air closing on its third anniversary come November, I’m in system upgrade mode. Actually the Haswell CPU equipped Air is still doing a fine job, but my good wife is... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more

Jobs Board

Service Assistant - *Apple* Chevrolet *App...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive, we Read more
Editor, *Apple* News - APPLE (United States...
Job Summary The Apple News team is looking for a passionate and knowledgeable editor with experience covering entertainment/pop culture and experience running social Read more
*Apple* Nissan Service Technicians - Apple A...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive , Read more
ISCS *Apple* ID Site Support Engineer - APP...
…position, we are looking for an individual who has experience supporting customers with Apple ID issues and enjoys this area of support. This person should be Read more
Automotive Sales Consultant - Apple Ford Linc...
…you. The best candidates are smart, technologically savvy and are customer focused. Apple Ford Lincoln Apple Valley is different, because: $30,000 annual salary Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.