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

Latest Forum Discussions

See All

How to evolve Eevee in Pokemon GO
By now, almost everyone should be hip to how to evolve Pokemon in Pokemon GO (and if not, there's a guide for that). Just gather enough candy of the appropriate type, feed them all to the Pokemon, and evolution happens. It's a miracle that would... | Read more »
CSR Racing 2: Guide to all game modes
It might not seem like there are all that many ways to go fast in a straight line, but CSR Racing 2 begs to differ. [Read more] | Read more »
Bulb Boy (Games)
Bulb Boy 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Multi-award winning 2D point & click horror adventure about a boy with a glowing head. | Read more »
5 top free emoji keyboard apps
If we're not at peak emoji yet as a society, it feels like we definitely should be. The emoji concept has gone far beyond what anyone in Japan could have envisioned when the people there unleashed it on an unsuspecting world, but the West has... | Read more »
How to unlock more characters in Disney...
One of the big charms of Disney Emoji Blitz is seeing a wide variety of beloved Disney and Pixar characters transformed into smiling emojis. Even someone like the sneaky Randall from Monsters Inc., who probably never cracked a smile on film, is... | Read more »
Cubway (Games)
Cubway 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Cubway is a journey with an abstract story of lifecycle of rebirth, called Samsara. Guide the cube through the long way full of dangers... | Read more »
Colorcube (Games)
Colorcube 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Turn pieces and blend colours in this minimal yet visually stunning puzzler.Over 200 handcrafted and challenging levels. Features... | Read more »
Doodle God Griddlers (Games)
Doodle God Griddlers 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: | Read more »
Crusader Kings: Chronicles (Games)
Crusader Kings: Chronicles 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Crusader Kings: Chronicles is an interactive text based game that puts you in the shoes of Guy de Rose as you make... | Read more »
Roads of Rome: New Generation (Games)
Roads of Rome: New Generation 1.0 Device: iOS Universal Category: Games Price: $5.99, Version: 1.0 (iTunes) Description: | Read more »

Price Scanner via MacPrices.net

Free iOS Business App notably* Helps Service...
PayStudio Inc. has introduced their new business app notably* 1.0, developed for iPhone and iPod touch. notably* was specifically developed to help service and trade professionals go digital and... Read more
27-inch iMacs on sale for $200 off MSRP
Amazon has 27″ iMacs on sale for $200 off MSRP including free shipping: - 27″ 3.3GHz iMac 5K: $2099 $200 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1799.99 $200 off MSRP - 27″ 3.2GHz/1TB HD iMac 5K... Read more
Mac Pros on sale for $200 off MSRP
B&H Photo has Mac Pros on sale for $200 off MSRP. Shipping is free, and B&H charges sales tax in NY only: - 3.7GHz 4-core Mac Pro: $2799, $200 off MSRP - 3.5GHz 6-core Mac Pro: $3799, $200... 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
Apple price trackers, updated continuously
Scan our Apple Price Trackers for the latest information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the trackers continuously: - 15″... Read more
13-inch 2.5GHz MacBook Pro (Apple refurbished...
Apple has Certified Refurbished 13″ 2.5GHz MacBook Pros available for $829, or $270 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 13″ 2.5GHz MacBook Pros... 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 $120 off MSRP - 21″ 2.8GHz iMac: $1199.99 $100 off MSRP - 21″ 1... Read more
Charitybuzz Set to Auction Unique Apple-1 Com...
Offering an opportunity to own the computer that sparked a revolution, on Monday, July 25, leading online charity auction platform Charitybuzz will auction what is claimed to be the world’s most... Read more
MacBook Airs on sale for up to $150 off MSRP
Amazon has 11″ and 13″ MacBook Airs on sale for up to $150 off MSRP for a limited time. Shipping is free: - 13″ 1.6GHz/128GB MacBook Air (sku MMGF2LL/A): $899.99 $100 off MSRP - 13″ 1.6GHz/256GB... Read more
Apple refurbished 13-inch Retina MacBook Pros...
Apple has Certified Refurbished 13″ Retina MacBook Pros available for up to $270 off the cost of new models. An Apple one-year warranty is included with each model, and shipping is free: - 13″ 2.7GHz... Read more

Jobs Board

*Apple* Retail - Multiple Positions, Willow...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Evangelist - JAMF Software (United S...
The Apple Evangelist is responsible for building and cultivating strategic relationships with Apple 's small and mid-market business development field teams. This Read more
*Apple* Solutions Consultant - APPLE (United...
Job Summary As an Apple Solutions Consultant, you'll be the link between our future customers and our products. You'll showcase your entrepreneurial spirit as you Read more
*Apple* Professional Learning Specialist - A...
Job Summary The Apple Professional Learning Specialist is a full-time position for one year with Apple in the Phoenix, AZ area. This position requires a high Read more
*Apple* Picker - Apple Hill Orchard (United...
Apple Hill Orchard, Co. Rte. 21,Whitehall, NY 9/7/16-10/228/16. Pick fresh market or processing apples Productivity of 60 boxes and 80 boxes processing fruit per Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.