TweetFollow Us on Twitter

String Width XCMD
Volume Number:5
Issue Number:3
Column Tag:HyperChat™

Related Info: Quickdraw

String Width XCMD

By Fred Stauder, HyperChat Editor, Zurich, Switzerland

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

Here Come the Clones

Well the time has finally arrived, we have HyperCard Clones. Congratulations, Bill and the gang; imitation is the sincerest form of flattery.

I predicted over a year ago that HyperCard is the MacPaint of MultiMedia. The question now is who will make the Pagemaker of MultiMedia? The scene is now set for a rapid increase in the performance and features wars. Will they be compatible? How can you compete against a bundled product. This is probably sounding like DeJa vu to the people who have been with the Mac from the start.

Should you rush out and start to develop on the clones or should you wait for Apple’s version? I feel it will take some teething time to get the compatabilities right, but eventually they will be compatible. I will have a report on the clones next month. What about Hypertalk? Is it here to stay? My prediction is a definite, “Yes”. I also find it a pain to program in Hypertalk sometimes to do things that would be faster and more concise in C or Pascal. The beauty of Hypertalk is that it can be expanded to become more like English. I feel it will eventually evolve into a description language; something like this:

If this button is clicked then I will get the stuff from the stack with the funny pictures until you tell me I have found the right one.

How can I program like this you say, you won’t. First Let’s look at what the Programming Agent is telling us. The initial section, “If this button is clicked”; not very specific unless you want to know the details; I can click it or handle it on mouseDown or mouseUp. If it is not important in this case, don’t bother to be specific. The same goes for the next bit about stuff. If I can’t remember what stuff it was, it will fill in the details. If I am “reading” (you actually interact with the code) for the first time that someone else has written, the agent will give me a broad outline or specifics if I ask for them.

If this becomes reality do we need programmers anymore? The answer is “NO”. We will not need people agonizing over syntax; what we will need is designers of applications. There is a big difference.

Will the whizz bang of the new HyperCards and Clones make our lives easier? The answer is “No”. There will be more commands to remember, and it will get harder before it gets easier. The programming should get easier as the functionality increases. MacDraw II is a good example; it actually reduced the number of menu items. Are you listening Microsoft?

The other thing is that people have not mastered black and white graphics on a small screen, so we will see horrors during the teething period.

The bottom line is can we keep up to the Clones especially if they all have there own script extensions which are similar but not the same. What we need is a background interpreter engine that will be able to recognize all the various nuances. We have computers to make things easier for us so let them remember so we don’t have to.

String Width XCMD

Last month I showed you an example of a gestural device. It was a bit complicated to set up with different words in the message box because the width of the words has to be calculated by looking at the mouseH manually. I wrote a simple XCMD that given a string returns the width in pixels in the result.

{$R-}
(* strWidth -- sample HyperCard external command
 that gets the width of a string.  
 Written in MPW Pascal by Fred Stauder for MacTutor 1989.
pascal :Sources:XCMD:strWidth.p 
link -o AJS:test -rt XCMD=7002 -sn 
Main=strWidth :Sources:XCMD:strWidth.p.o 
{MPW}PLibraries:PasLib.o -m ENTRYPOINT *)
{$S strWidth }   { Segment name must be same as command name. }
UNIT Fred_Stauder;
INTERFACE
USES MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, PasLibIntf, HyperXCmd;

PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);
IMPLEMENTATION
TYPE Str31 = String[31];
PROCEDURE strWidth(paramPtr:XCmdPtr);FORWARD;
 PROCEDURE ENTRYPOINT(paramPtr:XCmdPtr);
 BEGIN
 strWidth(paramPtr);
 END;
 PROCEDURE strWidth(paramPtr:XCmdPtr); 
 VAR
 tempStr: Str255;
 tempInt: Integer;
{$I XCmdGlue.inc } {includes the glue routines}
 PROCEDURE Error(errStr:Str255); {return an error message}
 BEGIN {put error into ‘the result’}
 paramPtr^.returnValue := PasToZero(errStr);
 EXIT(strWidth); {leave the XCMD}
 END; {Error}  
 PROCEDURE ParamCheck;
 CONST  paramCount: Integer;
 VAR  params:  Integer;
 BEGIN
 params := paramPtr^.paramCount;
 IF (params <> paramCount)
 THEN Error(‘strWidth “String” or Container’);
 END; {ParamCheck}
 BEGIN {Main}
 CheckParamCount;
 ZeroToPas(paramPtr^.params[1]^,tempStr);{get first Param}
 tempInt := StringWidth(tempStr) ; {get the width}
 tempStr := NumToStr(tempInt);
 paramPtr^.returnValue := PasToZero(tempStr);
 END; {Main}
END. {strWidth}

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

How to win big in Slots Deluxe
Cheating while gambling is illegal and morally wrong, and in some parts of the world it leads to men with names like Vinnie "Six Knuckles" Manchenzo beating you to a pulp in a dark alley. [Read more] | Read more »
How to take over the world in Dictator 2
Running a country isn't easy - especially when you're a dictator who wants to take over the world and crush everyone in your path while you do it. [Read more] | Read more »
Tips and tricks to get a higher score in...
Tank.iois - you guessed it! - another multiplayer arena battler likeAgar.io and Slither.io. It does differentiate itself by putting you in a tiny tank though, so it's not exactly the same. To help you get that all-important high score, we've got a... | Read more »
How to unlock characters in One Tap Tenn...
As the title suggests, One Tap Tennis requires only a single tap to play its particular brand of tennis, and rewards you with a ton of unlockable characters if you perform well. Fortunately for you, we at 148Apps have got a few tips and tricks to... | Read more »
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 »

Price Scanner via MacPrices.net

Enterprise Workers Pick Technology Over Perks...
New Adobe study shows surprising attitudes about office jobs and where the future of work is heading. Adobe has released survey findings revealing that a surprising 70 percent of U.S. office workers... Read more
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

Jobs Board

*Apple* Project Engineer - Smart Source Inc...
SmartSource is in need of an Apple Project Engineer for a 12 month contract opportunity in Pittsburg, PA. Role: Apple Project Engineer Location: Pittsburg, PA 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
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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.