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

Whitethorn Games combines two completely...
If you have ever gone fishing then you know that it is a lesson in patience, sitting around waiting for a bite that may never come. Well, that's because you have been doing it wrong, since as Whitehorn Games now demonstrates in new release Skate... | Read more »
Call of Duty Warzone is a Waiting Simula...
It's always fun when a splashy multiplayer game comes to mobile because they are few and far between, so I was excited to see the notification about Call of Duty: Warzone Mobile (finally) launching last week and wanted to try it out. As someone who... | Read more »
Albion Online introduces some massive ne...
Sandbox Interactive has announced an upcoming update to its flagship MMORPG Albion Online, containing massive updates to its existing guild Vs guild systems. Someone clearly rewatched the Helms Deep battle in Lord of the Rings and spent the next... | Read more »
Chucklefish announces launch date of the...
Chucklefish, the indie London-based team we probably all know from developing Terraria or their stint publishing Stardew Valley, has revealed the mobile release date for roguelike deck-builder Wildfrost. Developed by Gaziter and Deadpan Games, the... | Read more »
Netmarble opens pre-registration for act...
It has been close to three years since Netmarble announced they would be adapting the smash series Solo Leveling into a video game, and at last, they have announced the opening of pre-orders for Solo Leveling: Arise. [Read more] | Read more »
PUBG Mobile celebrates sixth anniversary...
For the past six years, PUBG Mobile has been one of the most popular shooters you can play in the palm of your hand, and Krafton is celebrating this milestone and many years of ups by teaming up with hit music man JVKE to create a special song for... | Read more »
ASTRA: Knights of Veda refuse to pump th...
In perhaps the most recent example of being incredibly eager, ASTRA: Knights of Veda has dropped its second collaboration with South Korean boyband Seventeen, named so as it consists of exactly thirteen members and a video collaboration with Lee... | Read more »
Collect all your cats and caterpillars a...
If you are growing tired of trying to build a town with your phone by using it as a tiny, ineffectual shover then fear no longer, as Independent Arts Software has announced the upcoming release of Construction Simulator 4, from the critically... | Read more »
Backbone complete its lineup of 2nd Gene...
With all the ports of big AAA games that have been coming to mobile, it is becoming more convenient than ever to own a good controller, and to help with this Backbone has announced the completion of their 2nd generation product lineup with their... | Read more »
Zenless Zone Zero opens entries for its...
miHoYo, aka HoYoverse, has become such a big name in mobile gaming that it's hard to believe that arguably their flagship title, Genshin Impact, is only three and a half years old. Now, they continue the road to the next title in their world, with... | Read more »

Price Scanner via MacPrices.net

B&H has Apple’s 13-inch M2 MacBook Airs o...
B&H Photo has 13″ MacBook Airs with M2 CPUs and 256GB of storage in stock and on sale for up to $150 off Apple’s new MSRP, starting at only $849. Free 1-2 day delivery is available to most US... Read more
M2 Mac minis on sale for $100-$200 off MSRP,...
B&H Photo has Apple’s M2-powered Mac minis back in stock and on sale today for $100-$200 off MSRP. Free 1-2 day shipping is available for most US addresses: – Mac mini M2/256GB SSD: $499, save $... Read more
Mac Studios with M2 Max and M2 Ultra CPUs on...
B&H Photo has standard-configuration Mac Studios with Apple’s M2 Max & Ultra CPUs in stock today and on Easter sale for $200 off MSRP. Their prices are the lowest available for these models... Read more
Deal Alert! B&H Photo has Apple’s 14-inch...
B&H Photo has new Gray and Black 14″ M3, M3 Pro, and M3 Max MacBook Pros on sale for $200-$300 off MSRP, starting at only $1399. B&H offers free 1-2 day delivery to most US addresses: – 14″ 8... Read more
Department Of Justice Sets Sights On Apple In...
NEWS – The ball has finally dropped on the big Apple. The ball (metaphorically speaking) — an antitrust lawsuit filed in the U.S. on March 21 by the Department of Justice (DOJ) — came down following... Read more
New 13-inch M3 MacBook Air on sale for $999,...
Amazon has Apple’s new 13″ M3 MacBook Air on sale for $100 off MSRP for the first time, now just $999 shipped. Shipping is free: – 13″ MacBook Air (8GB RAM/256GB SSD/Space Gray): $999 $100 off MSRP... Read more
Amazon has Apple’s 9th-generation WiFi iPads...
Amazon has Apple’s 9th generation 10.2″ WiFi iPads on sale for $80-$100 off MSRP, starting only $249. Their prices are the lowest available for new iPads anywhere: – 10″ 64GB WiFi iPad (Space Gray or... Read more
Discounted 14-inch M3 MacBook Pros with 16GB...
Apple retailer Expercom has 14″ MacBook Pros with M3 CPUs and 16GB of standard memory discounted by up to $120 off Apple’s MSRP: – 14″ M3 MacBook Pro (16GB RAM/256GB SSD): $1691.06 $108 off MSRP – 14... Read more
Clearance 15-inch M2 MacBook Airs on sale for...
B&H Photo has Apple’s 15″ MacBook Airs with M2 CPUs (8GB RAM/256GB SSD) in stock today and on clearance sale for $999 in all four colors. Free 1-2 delivery is available to most US addresses.... Read more
Clearance 13-inch M1 MacBook Airs drop to onl...
B&H has Apple’s base 13″ M1 MacBook Air (Space Gray, Silver, & Gold) in stock and on clearance sale today for $300 off MSRP, only $699. Free 1-2 day shipping is available to most addresses in... Read more

Jobs Board

Medical Assistant - Surgical Oncology- *Apple...
Medical Assistant - Surgical Oncology- Apple Hill Location: WellSpan Medical Group, York, PA Schedule: Full Time Sign-On Bonus Eligible Remote/Hybrid Regular Apply Read more
Omnichannel Associate - *Apple* Blossom Mal...
Omnichannel Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Cashier - *Apple* Blossom Mall - JCPenney (...
Cashier - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Blossom Mall Read more
Operations Associate - *Apple* Blossom Mall...
Operations Associate - Apple Blossom Mall Location:Winchester, VA, United States (https://jobs.jcp.com/jobs/location/191170/winchester-va-united-states) - Apple Read more
Business Analyst | *Apple* Pay - Banco Popu...
Business Analyst | Apple PayApply now " Apply now + Apply Now + Start applying with LinkedIn Start + Please wait Date:Mar 19, 2024 Location: San Juan-Cupey, PR Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.