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

DiskCatalogMaker 6.6 - Catalog your disk...
DiskCatalogMaker is a simple disk management tool which catalogs disks. Simple, light-weight, and fast Finder-like intuitive look and feel Super-fast search algorithm Can compress catalog data for... Read more
RapidWeaver 7.3 - Create template-based...
RapidWeaver is a next-generation Web design application to help you easily create professional-looking Web sites in minutes. No knowledge of complex code is required, RapidWeaver will take care of... Read more
iFFmpeg 6.2.6 - Convert multimedia files...
iFFmpeg is a comprehensive media tool to convert movie, audio and media files between formats. The FFmpeg command line instructions can be very hard to master/understand, so iFFmpeg does all the hard... Read more
Amazon Chime 4.0.5540 - Amazon-based com...
Amazon Chime is a communications service that transforms online meetings with a secure, easy-to-use application that you can trust. Amazon Chime works seamlessly across your devices so that you can... Read more
OnyX 3.2.4 - Maintenance and optimizatio...
OnyX is a multifunction utility that you can use to verify the startup disk and the structure of its system files, to run miscellaneous maintenance and cleaning tasks, to configure parameters in the... Read more
Opera 43.0.2442.991 - High-performance W...
Opera is a fast and secure browser trusted by millions of users. With the intuitive interface, Speed Dial and visual bookmarks for organizing favorite sites, news feature with fresh, relevant content... Read more
VueScan 9.5.71 - Scanner software with a...
VueScan is a scanning program that works with most high-quality flatbed and film scanners to produce scans that have excellent color fidelity and color balance. VueScan is easy to use, and has... Read more
SpamSieve 2.9.28 - Robust spam filter fo...
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
GarageSale 7.0.7 - Create outstanding eB...
GarageSale is a slick, full-featured client application for the eBay online auction system. Create and manage your auctions with ease. With GarageSale, you can create, edit, track, and manage... Read more
Thunderbird 45.7.1 - Email client from M...
As of July 2012, Thunderbird has transitioned to a new governance model, with new features being developed by the broader free software and open source community, and security fixes and improvements... Read more

Last week on Pocket Gamer
If you’re wondering what’s going on in the wider world of portable gaming, our sister site PocketGamer has you covered. Each week we like to check in on the PG team and see what they’ve been preoccupied with. From the latest on the Nintendo Switch... | Read more »
Mudd Masher arrives this week
Atooi Games, the minds behind Totes the Goat and Mutant Mudds, have a new game in the works -- Mudd Masher. The game, a hybrid of the independent studio's first two titles, is expected to launch this week on March 2. [Read more] | Read more »
The best sales on the App Store this wee...
The App Store has quite an exciting lineup of discount games this week that range across a variety of genres. It's a great opportunity to catch up on some of the premium games you may have been holding off on -- and some you can even grab for free... | Read more »
The best new games we played this week
Ah, here we are again at the close of another busy week. Don't rest too easy, though. We had a lot of great new releases in mobile games this week, and now you're going to have to spend all weekend playing them. That shouldn't be too much of a... | Read more »
Rollercoaster Tycoon Touch Guide: How to...
| Read more »
Rabbids Crazy Rush Guide: How to unlock...
The Rabbids are back in a new endless running adventure, Rabbids Crazy Rush. It's more ridiculous cartoon craziness as you help the little furballs gather enough fuel (soda) to get to the moon. Sure, it's a silly idea, but everyone has dreams --... | Read more »
Tavern Guardians (Games)
Tavern Guardians 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Tavern Guardians is a Hack-and-Slash action game played in the style of a match-three. You can experience high pace action... | Read more »
Slay your way to glory in idle RPG Endle...
It’s a golden age for idle games on the mobile market, and those addictive little clickers have a new best friend. South Korean developer Ekkorr released Endless Frontier last year, and players have been idling away the hours in the company of its... | Read more »
Tiny Striker: World Football Guide - How...
| Read more »
Good news everyone! Futurama: Worlds of...
Futurama is finding a new home on mobile in TinyCo and Fox Interactive's new game, Futurama: Worlds of Tomorrow. They're really doing it up, bringing on board Futurama creator Matt Groening along with the original cast and writers. TinyCo wants... | Read more »

Price Scanner via MacPrices.net

12-inch 1.1GHz Retina MacBooks on sale for $1...
B&H has 12″ 1.1GHz Retina MacBooks on sale for $150 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 12″ 1.1GHz Space Gray Retina MacBook: $1149 $150 off MSRP - 12″ 1.1GHz... Read more
Save up to $600 with Apple refurbished Mac Pr...
Apple has Certified Refurbished Mac Pros available for up to $600 off the cost of new models. An Apple one-year warranty is included with each Mac Pro, and shipping is free. The following... Read more
13-inch 2.7GHz Retina MacBook Pro on sale for...
B&H Photo has the 2015 13″ 2.7GHz/128GB Retina Apple MacBook Pro on sale for $150 off MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro (MF839LL/A): $... Read more
13-inch 1.6GHz/256GB MacBook Air on sale for...
Newegg has the 13″ 1.6GHz/256GB MacBook Air (MMGG2LL/A) on sale for $1029.99 including free shipping. Their price is $170 off MSRP, and it’s the lowest price available for this model. Choose Newegg... 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
27-inch 3.3GHz 5K iMac on sale for $2099, sav...
B&H Photo has the 27″ 3.3GHz 5K Apple iMac on sale for $2099.99 including free shipping plus NY sales tax only. Their price is $200 off MSRP. Amazon also has the 27″ 3.3GHz 5K iMac on sale for $... Read more
21-inch iMacs on sale for up to $111 off MSRP
B&H Photo has select 21″ Apple iMacs on sale for up to $110 off MSRP, each including free shipping plus NY sales tax only: - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1.6GHz iMac: $999 $100 off... Read more
12-inch 1.2GHz Retina MacBooks on sale for $2...
Newegg has the 12″ 1.2GHz Space Gray Retina MacBook (sku MLH82LL/A) on sale for $1349.99 including free shipping. Their price is $250 off MSRP, and it’s the lowest price available for this model.... Read more
13-inch MacBook Airs on sale for $100 off MSR...
B&H Photo has 13″ MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/128GB MacBook Air (MMGF2LL/A): $899 $100 off MSRP - 13″ 1.6GHz/... Read more
9-inch 32GB Silver iPad Pro on sale for $549,...
B&H Photo has the 9.7″ 32GB Silver Apple iPad Pro on sale for $549 for a limited time. Shipping is free, and B&H charges NY sales tax only. Their price is $50 off standard MSRP for this model... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 55676865 Los Angeles, California, United States Posted: Feb. 22, 2017 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
Programmer/Editor *Apple* Music Dance - App...
# Programmer/Editor Apple Music Dance Job Number: 55565967 Culver City, California, United States Posted: Feb. 23, 2017 Weekly Hours: **Job Summary** Apple Music Read more
Digital Marketing Specialist - *Apple* iClo...
# Digital Marketing Specialist - Apple iCloud Job Number: 54729233 Culver City, California, United States Posted: Feb. 22, 2017 Weekly Hours: 40.00 **Job Summary** Read more
Marketing Specialist, iTunes & *Apple*...
# Marketing Specialist, iTunes & Apple Music Job Number: 55704205 Culver City, California, United States Posted: Feb. 23, 2017 Weekly Hours: 40.00 **Job Summary** Read more
*Apple* Wireless Lead - T-ROC - The Retail O...
…of knowledge in wireless sales and activations to the Beautiful and NEW APPLE Experiencestore within MACYS. THIS role, APPLE Wireless Lead, isbrandnewas MACYS Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.