TweetFollow Us on Twitter

April 91 - TAspectPicture

TAspectPicture

James Plamondon

The Bed of Procrustes

Greek mythology contains the tale of Procrustes, a wealthy man of Eleusis who was in the habit of taking in travelers for the night. After treating such a traveler to a sumptuous dinner, Procrustes would take him to a room in which there was an iron bed, exactly the right size for a man of average height. Procrustes would then bid his guest to lay down on the bed. If the guest was of average height, then all was well; his sleep would be comfortable and uninterrupted; in the morning he would go on his way.

However, if the guest was shorter than average, Procrustes would place him upon a rack, stretching him out until he was tall enough to fit the bed. Likewise, if the guest were taller than average, Procrustes would decapitate him, to ensure that he, too, fit the bed. The tale of Procrustes was all the more terrible to the ancient Greeks, because of the high value they placed on hospitality.

MacApp often reminds me of Procrustes and his iron bed: so long as one is writing an "average" application-one that uses documents, views, and controls in the manner foreseen by MacApp's designers-all is well. Otherwise, you may have to decapitate your feature list, or extend the MacApp source code, to fit MacApp's iron bed. This limitation is all the more terrible to us, because of the high value object programmers place on code reusability and extensibility.

TAspectPicture

Recently, I found myself strapped to the iron bed when I least expected it. I wanted to do something that appeared to be simple: display a picture in a button-like control. No problem, right? TPicture, in MacApp's UDialog unit, does just that-so I used it. Unfortunately, TPicture (like old Procrustes) distorts its picture as necessary to make it fit in its extent. I needed to maintain the picture's original aspect ratio.

Well, TPicture was still close; surely, I'd just have to override a single routine to get the behavior I wanted. So I looked at the TPicture.Draw() source, and was quite discouraged to see that it called ControlArea() to get the rectangle in which to draw the picture. I had expected to find a routine called something like GetPictureArea(), which would be easy to override. Overriding ControlArea() would have undesirable side-effects. Darn.

OK, no problem; I'd just override Draw(). Whoops! I couldn't do that-calling INHERITED Draw() would then call TPicture.Draw(), drawing the picture twice (differently each time). If I didn't call INHERITED Draw(), my control would not be properly adorned, since adornment is performed by the version of Draw() that is inherited by TPicture. Object Pascal-the language I was using-does not allow me to call a grandparent's version of Draw(), only that of the parent class. Procrustes' iron bed was beckoning.

Well, if there's one thing I've learned in object programming, it's never to write any code you don't have to. If I couldn't inherit the solution to my problem, maybe I could get someone to give it to me. So I described my problem to MacApp.Tech$ as a contest, in which the person supplying the best solution would win. I got a number of excellent responses.

Knepper's solution

Chris Knepper submitted an entry which I classify as an "elegant kludge." This apparent oxymoron describes a solution which relies on the implementation, rather than the interface, of a method (thus, it's a kludge), but which does so in a clever way. Here it is:
PROCEDURE TAspectPicture.Draw(area: Rect); OVERRIDE;
VAR
    saveDataHandle: PicHandle;
BEGIN
    { 1st. draw the picture "correctly" }
    …fill in this blank…

        { 2nd. (the hard part!) call INHERITED Draw }
    { without having TPicture.Draw do anything }
    saveDataHandle := fDataHandle;
    fDataHandle := NIL;
        INHERITED Draw(area);
    fDataHandle := saveDataHandle;
END;  { Draw }

Since TPicture.Draw() just calls INHERITED Draw() if fDataHandle is NIL, this OVERRIDE of TAspectPicture does the trick. TControl.Draw() gets called, the adornments get drawn, and everybody's happy-assuming that the "fill in the blank" part draws the picture in the right place, with the correct aspect ratio.

Eastman's solution

Gordon Eastman's entry was also a kludge, and if it was somewhat less elegant, it was downright cunning. His approach relies on the inner workings of Object Pascal and the MPW Linker. Here it is:
PROCEDURE TControl_Draw(area: Rect; me: TControl); EXTERNAL;
PROCEDURE TAspectPicture.Draw(area: Rect); OVERRIDE;
BEGIN
    { draw picture with correct aspect ratio, then… }
    TControl_Draw(area, SELF);
END;  { Draw }

To quote Eastman's description of his solution, "This is a slime dog trick that relies on how the MPW Pascal compiler and linker work. The linker sees TControl.Draw as TControl_Draw. The compiler generates an extra SELF parameter for methods." I beg to differ; this solution is an affront to slime dogs everywhere. But it works (this week, anyway).

Berdahl's solution

Eric Berdahl found the whole contest laughable, I think; to his mind, it was a undeniable demonstration of the superiority of C++ over Object Pascal. Just to rub it in, he submitted an entry showing how easy it is to implement TAspectPicture in C++, which allows calls to ancestral methods via its scope resolution operator. Here's his solution:
TAspectPicture::Draw(Rect* area) {
//  Compute the rect, then draw the pict, then…
//  Skip TPicture::Draw and go directly to TControl::Draw
TControl::Draw(area);
}  // Draw

The solution does indeed prove C++'s superiority (in this specific ability, at least). It's worth noting again, though, that this whole problem stems from a flaw in the design of the class, not of the language-if MacApp's TPicture class had a GetPictRect() method, there would have been no problem. Good languages are a poor substitute for good design.

The missing solution

No one submitted a solution that I was expecting: changing the MacApp source code to add the method GetPictRect() to TPicture, and modifying TPicture.Draw() to call it. I think of the MacApp source as being like putty-if I don't like it, I change it. So long as I mark my changes well, it's not too hard to move them to the next version of MacApp.

Of course, I always notify the MacApp wizards of my changes, in the hope that they may be incorporated directly into MacApp in the future (thus relieving me of the burden of maintaining my changes with each new MacApp release).

I carefully worded my contest rules to allow this solution. Perhaps everyone else worships the MacApp source as an immutable deity; if so, burn me for a heretic.

Cheung's solution(s!)

Tseung Cheung supplied not just one, but two solutions. The first overrode ControlArea(), since that's the routine called by TPicture.Draw() to calculate the rect in which to draw the control's picture. While it works, this solution has a number of side effects (since ControlArea() is used in a lot of other places).

The second solution used the trick described under Knepper's Solution, above, to bypass TPicture.Draw() by setting fDataHandle to NIL before calling INHERITED Draw(), and then restoring it afterwards. It was the only submission which met all of the contest's "victory conditions," and so it is the winner-and a pretty good one at that. Here it is:

{  CenterRectInRect(): Centre the inner rect within the
outer rect, either horizontally, or vertically, or both }
PROCEDURE CenterRectInRect(VAR inner: Rect; outer: Rect;
                                        horiz, vert: Boolean);
VAR
    innerSize, outerSize:   Point;
BEGIN
    WITH outer DO
        SetPt(outerSize, right - left, bottom - top);

        WITH inner DO
BEGIN
            SetPt(innerSize, right - left, bottom - top);
            IF horiz THEN
                left := outer.left+(outerSize.h-innerSize.h) DIV 2;
            IF vert THEN
                top := outer.top+(outerSize.v-innerSize.v) DIV 2;
            right := left + innerSize.h;
            bottom := top + innerSize.v;
        END;  { with }
END;  { CenterRectInRect}
TYPE
TAspectPicture = OBJECT(TPicture)
    PROCEDURE Draw(area: Rect); OVERRIDE;
END;  { TAspectPicture  }

{   Draw():  Modified from TPicture.Draw to grab the actual
    picture frame, and then centre this frame within the
    TPicture area before drawing it. }
PROCEDURE TAspectPicture.Draw(area: Rect); OVERRIDE;
VAR
    oldState:   SignedByte;
    cntlFrame,
    myPicFrame: Rect;
    saveDataHandle: picHandle;
BEGIN
    IF fDataHandle <> NIL THEN
        BEGIN
            IF fRsrcID <> kNoResource THEN
                LoadResource(Handle(fDataHandle));

                IF fDataHandle^ <> NIL THEN
                BEGIN   { If there's room for the picture… }
                    ControlArea(cntlFrame);
                    myPicFrame := fDataHandle^^.picFrame;
                    CenterRectInRect(myPicFrame, cntlFrame,                                                     TRUE, TRUE);
                    oldState :=                                                             GetHandleBits(Handle(fDataHandle));
                    HNoPurge(Handle(fDataHandle));
                    PenNormal;
                    DrawPicture(fDataHandle, myPicFrame);
                    SetHandleBits(Handle(fDataHandle),                                                          oldState);
                END;  { then }
        END;  { then }

        saveDataHandle := fDataHandle;
    fDataHandle := NIL;
    INHERITED Draw(area);
    fDataHandle := saveDataHandle;
END;  { Draw }

And the moral of this story is…

A number of lessons can be drawn from this example.

First, it would have been better had MacApp's TPicture class contained a GetPictRect() method, which was called by TPicture.Draw() as ControlArea() is now. TPicture.GetPictRect() could have called ControlArea(), so the added method would not have changed the functionality of the code at all.

This is just one example of a problem that runs throughout MacApp: its methods do too much. The MacApp wizards know this, and will admit to feeling deeply ashamed of themselves for it (or will with enough beer in them). They, too, are imperfect people, who write imperfect code-but there are only so many hours in a man-month, and even wizards need sleep.

Second, a sufficiently powerful language can hide a multitude of sins. C++'s scope resolution operator does not remove the problem, but it makes dealing with it much easier. A powerful language can never make up for a bad design, but MacApp cannot reasonably be expected to reach perfection anytime soon, whereas I'm supposed to have shipped yesterday. MacApp 3.0's being in C++ sounds better and better each day (but perhaps I'm having ear trouble).

Third, this example shows that in MacApp development, you can do just about anything, one way or another-or another, or another, or another.

Fourth, and finally, I offered to split the payment for this article with the winner of the contest because I knew that FrameWorks didn't pay anything for its articles. Ha, ha, funny me. A new editor took over FrameWorks, changed the policy-and now I have to fork over some real money to the winner. I out-foxed myself. There's got to be a lesson in here somewhere.

Procrustes revisited

The fact that we were able to get the TAspectPicture class to work-eventually-suggests that the analogy between MacApp and the iron bed of Procrustes is unfair. But I think not; I think it's fair to say that, even after racking our brains, the solutions we came up with were quite a stretch-and that's what Procrustes' iron bed was all about. n
 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Lyn 1.5.11 - Lightweight image browser a...
Lyn is a lightweight and fast image browser and viewer designed for photographers, graphic artists and Web designers. Featuring an extremely versatile and aesthetically pleasing interface, it... Read more
NeoOffice 2014.11 - Mac-tailored, OpenOf...
NeoOffice is a complete office suite for OS X. With NeoOffice, users can view, edit, and save OpenOffice documents, PDF files, and most Microsoft Word, Excel, and PowerPoint documents. NeoOffice 3.x... Read more
LaunchBar 6.4 - Powerful file/URL/email...
LaunchBar is an award-winning productivity utility that offers an amazingly intuitive and efficient way to search and access any kind of information stored on your computer or on the Web. It provides... Read more
Remotix 3.1.4 - Access all your computer...
Remotix is a fast and powerful application to easily access multiple Macs (and PCs) from your own Mac. Features Complete Apple Screen Sharing support - including Mac OS X login, clipboard... Read more
DesktopLyrics 2.6.6 - Displays current i...
DesktopLyrics is an application that displays the lyrics of the song currently playing in "iTunes" right on your desktop. The lyrics for the song have to be set in iTunes; DesktopLyrics does nothing... Read more
VOX 2.5.1 - Music player that supports m...
VOX is a beautiful music player that supports many filetypes. The beauty is in its simplicity, yet behind the minimal exterior lies a powerful music player with a ton of features and support for all... Read more
NetNewsWire 4.0.0 - RSS and Atom news re...
NetNewsWire is the best way to keep up with the sites and authors you read most regularly. Let NetNewsWire pull down the latest articles, and read them in a distraction-free and Mac-like way. Native... Read more
MacUpdate Desktop 6.0.6 - Search and ins...
MacUpdate Desktop 6 brings seamless 1-click installs and version updates to your Mac. With a free MacUpdate account and MacUpdate Desktop 6, Mac users can now install almost any Mac app on macupdate.... Read more
ForkLift 2.6.5 - Powerful file manager:...
ForkLift is a powerful file manager and ferociously fast FTP client clothed in a clean and versatile UI that offers the combination of absolute simplicity and raw power expected from a well-executed... Read more
Drive Genius 4.1.0 - Powerful system uti...
Drive Genius 4 gives you faster performance from your Mac while also protecting it. The award-winning and improved DrivePulse feature alerts you to hard drive issues before they become major problems... Read more

Biz Builder Delux (Games)
Biz Builder Delux 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: Ah, there's nothing like the rhythmic bustle of a burgeoning business burg... especially when you're the one building it... | Read more »
Auroch Digital is Bringing Back Games Wo...
| Read more »
Carbo - Handwriting in the Digital Age...
Carbo - Handwriting in the Digital Age 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Draggy Dead (Games)
Draggy Dead 1.1 Device: iOS Universal Category: Games Price: $.99, Version: 1.1 (iTunes) Description: Ditch your dead end job and take up a rewarding career in Grave Robbing today!Guide the recently deceased to a fun filled life of... | Read more »
Bad Dinos (Games)
Bad Dinos 1.0.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.0 (iTunes) Description: | Read more »
The Apple Watch isn't Great as a Fi...
| Read more »
Show the World What You See With Stre.am...
Live broadcasting is getting popular on mobile devices, which is why you can now get Stre.am, by Infinite Takes. [Read more] | Read more »
PhotoTime's 2.1 Update Adds Apple W...
The latest PhotoTime update is adding even more functionality to the handy photo organizing app. Yep, including Apple Watch support. [Read more] | Read more »
Oh My Glob! Adventure Time Puzzle Quest...
Finn and Jake are taking over D3 Go!'s popular puzzle game series in the upcoming Adventure Time Puzzle Quest. [Read more] | Read more »
Earthcore: Shattered Elements - Tips, Tr...
At first glance, Earthcore: Shattered Elements seems like a rather simple card-battling game. Once you’re introduced to skills that will change quite a bit. Even more so once you start to acquire hero cards. But it’s not so complicated that we... | Read more »

Price Scanner via MacPrices.net

OtterBox Maximizes Portability, Productivity...
From the kitchen recipe book to the boarsroom presentation, the OtterBox Agility Tablet System turns tablets into one of the most versatile pieces of handheld technology available. Available now, the... Read more
Launch of New Car App Gallery and Open Develo...
Automatic, a company on a mission to bring the power of the Internet into every car, has announced the launch of the Automatic App Gallery, an app store for nearly every car or truck on the road... Read more
Memorial Day Weekend Sale: 13-inch 1.6GHz Mac...
Best Buy has the new 13″ 1.6GHz/128GB MacBook Air on sale for $849 on their online store this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders... Read more
Memorial Day Weekend Sale: 27-inch 3.5GHz 5K...
Best Buy has the 27″ 3.5GHz 5K iMac on sale for $2099.99 this weekend. Choose free shipping or free local store pickup (if available). Sale price for online orders only, in-store prices may vary.... Read more
Sale! 16GB iPad mini 3 for $349, save $50
B&H Photo has the 16GB iPad mini 3 WiFi on sale for $349 including free shipping plus NY sales tax only. Their price is $50 off MSRP, and it’s the lowest price available for this model. Read more
Price drop on 2014 15-inch Retina MacBook Pro...
B&H Photo has dropped prices on 2014 15″ Retina MacBook Pros by $200. Shipping is free, and B&H charges NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799.99 save $200 - 15″ 2.5GHz... Read more
With a Mission to Make Mobile Free, Scratch W...
Scratch Wireless, claiming to be the world’s first truly free mobile service, has announced the availability of a new Scratch-enabled Android smartphone, the Coolpad Arise. The smartphone is equipped... Read more
First-Ever Titanium Alloy Curved iPhone 6 Scr...
One of the most common problems with mobile phones is damage to the screens. The slightest drop can cause a dreaded spider web of gashes and cracks in the glass panel surface that can cost $hundreds... Read more
Preorder new 12-inch MacBook, $10 off, save o...
Adorama has new 12″ Retina MacBooks available for preorder for $10 off MSRP including free shipping plus NY & NJ sales tax only. For a limited time, Adorama will include a free Apple USB-C to USB... Read more
Will iOS 9 Finally Bring Productivity Friendl...
Ah, the irony. From its original announcement in 2010, Apple has doggedly insisted that the iPad remain “simple,” thus arbitrarily limiting its considerable potential as a content creation and... Read more

Jobs Board

*Apple* Solutions Consultant - Retail Sales...
**Job Summary** As an Apple Solutions Consultant (ASC) you are the link between our customers and our products. Your role is to drive the Apple business in a retail Read more
Business Development Manager - *Apple* Pay...
**Job Summary** Apple Pay is seeking an experienced Business Development professional to join the Apple Pay team to develop partnerships and strategic alliances with Read more
Project Manager, *Apple* Retail New Store O...
**Job Summary** An Apple Retail New Store Openings & Remodels Project Manager is responsible for successfully managing the openings, remodels, and small works of Read more
SW QA Engineer - *Apple* TV - Apple (United...
**Job Summary** The Apple TV team is looking for experienced Quality Assurance Engineers with a passion for delivering first in class home entertainment solutions. **Key Read more
Partner Marketing Manager - *Apple* Pay - A...
**Job Summary** The Apple Pay partner marketing team is looking for a marketing manager to develop and drive US marketing programs with our financial institution Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.