TweetFollow Us on Twitter

Sep 89 Letters
Volume Number:5
Issue Number:9
Column Tag:Letters

Letters

By David E. Smith, Editor & Publisher, MacTutor

Another Way To Post Events

Matthew Snyder

Fairfield, CA

In reference to Joel McNamara’s article in the July issue, there’s another way to post command key events, but you wouldn’t know about it unless you’d read a somewhat obscure 1 page chapter in Inside Macintosh Vol. IV. PPostEvent posts an event just like PostEvent, but it “returns a pointer to the created queue entry.”

Here’s an example of its use. Like Joel, I needed to post an event and then fix the modifier field. This is an FKEY I wrote because too many times I found myself in a situation (like a dialog box) where ordinary paste did not work. Because the command and shift keys are down while the FKEY executes, just using PostEvent would result in all the posted events being command-shifted.

/* 1 */

#include<EventMgr.h>
#include <OSUtil.h>

main() {
 long length, offset;
 int index;
 char **tHandle;
 char *tPtr;
 EvQElPtr MyEventPtr;

if (TEGetScrapLen() > 0) {
 ZeroScrap();
 TEToScrap();
 }

tHandle = (char **) NewHandle(0);
length = GetScrap(tHandle, ‘TEXT’, &offset);
if (length > 0) {
 HLock(tHandle);
 tPtr = *tHandle;
 for (index = 0; index < length; index++) {
 PPostEvent((short) keyDown, (int) tPtr[index], &MyEventPtr);
 MyEventPtr_>evtQModifiers = 0;
 }
 }

DisposHandle(tHandle);
}

By the way, I very much liked Joel’s sentiment that as programmers we can rise above the mere end user; we’re not at the mercy of the “software gods.” It is a good feeling.

Take A Bow, Joel

I. Peter Sealy

New York, NY

I have just purchased a copy of MacTutor (June 1989) on the advice of the Lightspeed C user’s manual, and it has proved very valuable. I was especially impressed by Joel West’s “20 Steps to Printing Incompatibility” which explained maybe 50% of the problems we have had with the Mac. In particular, Excel’s infuriating refusal to work with anything but virgin memory (extremely annoying when you have an expensive 4MB sitting there vacant). More software houses should adopt Joel’s sensitivity to the amount of money that users have spent on their systems.

LSC vs. MPW

Andy Baird

Hightstown, NJ

Will Flor (“MPW vs. LSC,” MacTutor June 1989) is of course entitled to his opinions about the relative merits of MPW and Lightspeed C, but I had to laugh when he compared LSC to a tricycle and said “For very simple programs, perhaps LSC works adequately.” In case you’re unaware of it, Mr. Flor, a few of the “very simple” programs created with LSC are FoxBASE Mac, PageMaker and Digital Darkroom. If those are simple, I’d hate to see what you think is complex!

Hex Conversion

Temple M. Sarles

Nashua, NH

I enjoyed inputting and getting to run the “ADB Demo” for LS pascal 2.0 from your volume 5 number 3 in March 1989. Programs like these give dabblers like me some necessary insight into interfacing with the toolbox and really making things work.

It was a bit of a disappointment to find in procedure QuerySystem the line “str1 := concat(‘System Version (must convert to hex) = ‘, str2, chr(13));”. (emphasis added) Well, I did. Enclosed find the listing of a test program with the function ToHex which accepts a long integer and returns a string representing the value in hexadecimal. I think the code with its comments pretty well explains itself. There were two surprises. I idly tried a negative number, only to get unexpected results. I forgot that negative numbers are represented in two’s complement. An easy solution using the toolbox is presented in lines 21 & 22.

Not really solved is the need to make the string of hex digits a variable instead of a constant. If Hex_Char = ‘0123456789ABCDE’ is declared as a constant then line 27 ( , Hex_Char [Work + 1] ) gets a compile error of “Too many indices are being applied to a variable or expression.” The reason for this is not clear, but making it a string variable works well enough.

To apply this to ADB Demo, add function ToHex to MyADBStuff in the IMPLEMENTATION section ahead of procedure QuerySystem. In QuerySystem, replace the lines:

 NumToString(LongInt(theWorld.systemVersion), str2, chr(13));
 str1 := concat(‘System Version (must convert to hex) = ‘, str2, chr(13));

with:

{2}

 str2 := ToHex(LongInt(theWorld.systemVersion));  {convert to hex string}
 str2 := concat(copy(str2, 1, length(str2) - 2),
 ‘.’, copy(str2, length(str2) - 1, 2));{put in period}
 str1 := concat(‘System Version = ‘, str2, chr(13));

Appropriate credit should be given to Think Technology for their excellent implementation of Pascal and especially for their outstanding development environment (DEC & Apollo could take lessons).

{3}

program Test;    {Just a place to try things out}
 var
 T1: integer;    {The value as an integer}
 T2: string;{What it looks like as a string}

 function ToHex (Number_In: LongInt): string;      {This does the job}
 var
 Accumulate: string; {I never work into return value}
 Hex_Char: string; {The set of Hexadecimal digits}
 Shift: Integer; {Offset into the LongInt}
 Suppress_Zero: boolean;  
 {A switch to suppress leading zeroes}
 Work: LongInt;  {The clipped byte from the Number_In}

 begin
 Accumulate := ‘’; {Start with a blank string}
 Hex_Char := ‘0123456789ABCDEF’; 
 {Somehow this doesn’t work as a Const}
 Suppress_Zero := True; 
 {To start with suppress leading zeroes}

{First take care of sign bit, dispose of two’s complement }
{ and then deal with short three bit high-order hex number}

 if BitTst(@Number_In, 0) then{The sign bit is set!}
 begin
 Accumulate := ‘-’;
 Number_In := BitNot(Number_In); 
 {Two’s Complement cleared}
 Number_In := Number_In + $1
 {It’s always one shy - back to DP101}
 end;
 Work := BitShift(Number_In, 1);   
 {Bang to left  - IM/I-472}
 Work := BitShift(Work, -29); 
 {Back to right - IM/I-472}
 if Work > 0 then
 Accumulate := concat(Accumulate, Hex_Char[Work + 1]);

 Shift := 4;{Start with bit 5 - the 2nd digitd}
 repeat {Now a loop for the other 7 digitd}
 Work := BitShift(Number_In, shift); 
 {Bang to left  - IM/I-472}
 Work := BitShift(Work, -28); 
 {Back to right - IM/I-472}
 if Suppress_Zero then
 if Work > 0 then {The beginning of what we want}
 begin
 Suppress_Zero := False;  
 {A digit - No more leading zeroes}
 Accumulate := concat(Accumulate, Hex_Char[Work + 1])
 end
 else   {Don’t do anything!!}
 else
 Accumulate := concat(Accumulate, Hex_Char[Work + 1]);
 Shift := Shift + 4; {Move over one byte}
 until Shift = 32; {Bit 33 is out of bounds}

 ToHex := Accumulate {Put the result into return value}
 end;   {of function ToHex}

begin
 T1 := 1538;{A famous number now-a-days}
 T2 := ToHex(LongInt(T1));{Let’s see what it is}

{The next line inserts the period needed to make theWorld.systemVersion 
human readable}

 T2 := concat(copy(T2, 1, length(T2) - 2), ‘.’, copy(T2, length(T2) - 
1, 2));
 writeln(‘T1 = ‘, T1, ‘:  T2 = ‘, T2)
end.    {of program Test}

Fill Rectangle Tool

Kevin Parichan

Reedley, CA

In the article I wrote showing how to do the Spray Can and Paint Bucket tools I mentioned that there was a unit on GEnie that implemented these and other tools. That unit is no longer available, so I thought that I would give away the source for the standard filled rectangle tool. I rewrote the code in C so as to show that I don’t play favorites. With the routine given as is, you can easily modify it for ovals and round rectangles, filled or not. The routine uses the current grafport to get the fill pattern and the widths for the frame. Enjoy.

/* 4 */

#define NULL0L

Ptr NewBitMap(theBitMap,theRect)
   BitMap *theBitMap;
   Rect *theRect;
{
   theBitMap->rowBytes = ((theRect->right - theRect->left + 15) / 16) 
* 2;
   theBitMap->baseAddr = NewPtr(theBitMap->rowBytes * (theRect->bottom 
- theRect->top));
   theBitMap->bounds = *theRect;
   if (MemError() == noErr)
      return(theBitMap->baseAddr);
   return(NULL);
}

RectTool_Filled(where,workRect)
   Pointwhere;
   Rect *workRect;
{
   GrafPtrworkPort;
   BitMap workBits;
   PenState workState;
   BitMap oldBits,tempBits;
   Rect tempRect,theRect,aRect;
   PointnewLoc,pivot;
   long position;
   
   GetPort(&workPort);
   workBits = workPort->portBits;
   
   if (NewBitMap(&oldBits,workRect) == NULL)
      return;
   if (NewBitMap(&tempBits,workRect) == NULL)
   {
      DisposPtr(oldBits.baseAddr);
      return;
   }
   
   CopyBits(&workBits,&oldBits,workRect,workRect,srcCopy,NULL);
   
   tempRect = *workRect;
   tempRect.right = tempRect.right + 1;
   tempRect.bottom = tempRect.bottom + 1;
   
   GetPenState(&workState);
   PenNormal();
   PenSize(workState.pnSize.h,workState.pnSize.v);
   
   pivot = newLoc = where;
   SetRect(&theRect,where.h,where.v,where.h,where.v);
   
   while (Button()) {
      GetMouse(&newLoc);
      position = PinRect(&tempRect,newLoc);
      newLoc.v = HiWord(position);
      newLoc.h = LoWord(position);
      if (!EqualPt(newLoc,where))
      {
         Pt2Rect(newLoc,pivot,&theRect);
         Pt2Rect(where,pivot,&aRect);
         UnionRect(&theRect,&aRect,&aRect);
         CopyBits(&oldBits,&tempBits,workRect,workRect,srcCopy,NULL);
         SetPortBits(&tempBits);
         FillRect(&theRect,workState.pnPat);
         FrameRect(&theRect);
         SetPortBits(&workBits);
         CopyBits(&tempBits,&workBits,&aRect,&aRect,srcCopy,NULL);
         where = newLoc;
      }
   }
   
   DisposPtr(tempBits.baseAddr);
   DisposPtr(oldBits.baseAddr);
   SetPenState(&workState);
}

Stop The Press!

Kirk Chase

Anaheim, CA

Well, the Splitbar CDEF indicator dragging bug is fixed, thanks to Alexander S. Colwell of Redondo Beach, CA andMurat N. Konar of Minneapolis, MN. Each one suggests that the Quickdraw global DragPattern at $A34 should be stuffed with a gray pattern. Murat suggests this be done in the initialization procedure, and Alexander says in the doCalc procedure when the thumb region is requested.

It seems that the varialble is initialized to black instead of gray as the Window Manager implies in Inside Macintosh Vol. I on page 294 and 295. It states that " DragGrayRgn pulls a dotted (gray) outline of the region around " and "If you want the region's outline to be drawn in a pattern other than gray, you can store the pattern in the global varialbe DragPattern and then invoke the macro _DragTheRgn." But it looks as if the standard CDEF initializes the global even though we are told by Apple not to write to low memory globals. Oh, well. Hopefully this bug(?) will be fixed later on.

On a side note, I became a father for the first time on July 10, 1989 at 11:36 AM. My wife gave birth to a 5lb. boy named, "Brandon Lee Chase." I like to thank those, especially the staff at MacTutor, for putting up with me at this time. I would also like to thank my wife, Sylvia Lue, for putting up with me. I married simply the best.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

calibre 2.17 - Complete e-library manage...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital librarian... Read more
OmniGraffle Pro 6.1.2 - Create diagrams,...
OmniGraffle Pro helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use... Read more
OmniGraffle 6.1.2 - Create diagrams, flo...
OmniGraffle helps you draw beautiful diagrams, family trees, flow charts, org charts, layouts, and (mathematically speaking) any other directed or non-directed graphs. We've had people use Graffle to... Read more
RoboForm 2.0.2 - Password manager; syncs...
RoboForm is a password manager that offers one-click login, mobile syncing, easy form filling, and reliable security. Password Manager. RoboForm remembers your passwords so you don't have to! Just... Read more
Apple MainStage 3.1 - Live performance t...
Love the sound you got on your recording? MainStage 3 makes it easy to bring all the same instruments and effects to the stage. Everything from the Sound Library and Smart Controls you're familiar... Read more
Freeway Pro 7.0.2 - Drag-and-drop Web de...
Freeway Pro lets you build websites with speed and precision... without writing a line of code! With its user-oriented drag-and-drop interface, Freeway Pro helps you piece together the website of... Read more
A Better Finder Rename 9.44 - File, phot...
A Better Finder Rename is the most complete renaming solution available on the market today. That's why, since 1996, tens of thousands of hobbyists, professionals and businesses depend on A Better... Read more
Stacks 2.6.9 - New way to create pages i...
Stacks is a new way to create pages in RapidWeaver. It's a plugin designed to combine drag-and-drop simplicity with the power of fluid layout. Features: Fluid Layout: Stacks lets you build pages... Read more
Sid Meier's Civilization: Beyond Ea...
Sid Meier's Civilization: Beyond Earth is a new science-fiction-themed entry into the award-winning Civilization series. Set in the future, global events have destabilized the world leading to a... Read more
Logic Pro X 10.1 - Music creation and au...
Apple Logic Pro X is the most advanced version of Logic ever. Sophisticated new tools for professional songwriting, editing, and mixing are built around a modern interface that's designed to get... Read more

Choice Provisions is Set to Launch Destr...
Choice Provisions is Set to Launch Destructamundo on iOS This Month Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] Choice Provisions – home stable to | Read more »
King of Thieves – An Interview With Zept...
Ahead of the release of ZeptoLab’s King of Thieves, we were able to ask ZeptoLab’s co-founder, Semyon Voinov, a few questions about the inspiration behind the game and what that means for the Cut the Rope franchise. | Read more »
Handle Review
Handle Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: SPEEDY ORGANIZINGUniversal App - Designed for iPhone and iPad Handle is a very convenient way of juggling your emails, To Do list, and Calendar all through one... | Read more »
The New Disney Inquizitive App Offers a...
The New Disney Inquizitive App Offers a Place for Fans to Take Disney Quizzes Posted by Tre Lawrence on January 23rd, 2015 [ permalink ] | Read more »
Hands-On With Cut the Rope Developer Zep...
Marking quite a departure from ZeptoLab’s past successes, namely the Cut The Rope series, King of Thieves is shaping up to be quite promising. Due for release in February, we were lucky enough to have some time with a preview build to see exactly... | Read more »
Fast Fishing Review
Fast Fishing Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: LIVES UP TO ITS NAMEUniversal App - Designed for iPhone and iPad Fishing is far from relaxing in Fast Fishing, but it is fun.   | Read more »
The LEGO Movie Video Game is Available N...
The LEGO Movie Video Game is Available Now for iOS Posted by Ellis Spice on January 23rd, 2015 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Satellina Review
Satellina Review By Jennifer Allen on January 23rd, 2015 Our Rating: :: TWITCHY BUT TACTICALUniversal App - Designed for iPhone and iPad Satellina requires quick thinking and twitchy fingers, and it’s pretty fun.   | Read more »
Tail Drift, the Crazy 360 Degree Flyer,...
Tail Drift, the Crazy 360 Degree Flyer, Has Gone Free-to-Play in a New Update Posted by Jessica Fisher on January 22nd, 2015 [ permalink ] | Read more »
PureSkate 2 Review
PureSkate 2 Review By Tre Lawrence on January 22nd, 2015 Our Rating: :: ALMOST ALL AIRUniversal App - Designed for iPhone and iPad PureSkate 2 lets one’s fingers do the skateboarding.   | Read more »

Price Scanner via MacPrices.net

College Student Deals are back, additional $5...
Take an additional $50 off all MacBooks and iMacs at Best Buy Online with their College Students Deals Savings, valid through April 11, 2015. Anyone with a valid .EDU email address can take advantage... Read more
iPhone 6 and 6 Plus GIve Apple Half Of US Mob...
Chicago-based Consumer Intelligence Research Partners, LLC (CIRP) have released analysis of the results of its research on mobile phone manufacturers for the calendar quarter that ended December 31,... Read more
Save $100 on MacBook Airs with 256GB of stora...
B&H Photo has 256GB MacBook Airs on sale for $100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 11″ 1.4GHz/256GB MacBook Air: $999 $100 off MSRP - 13″ 1.4GHz/256GB MacBook... Read more
21-inch 2.7GHz iMac on sale for $1179, save $...
B&H Photo has the 21″ 2.7GHz iMac on sale for $1179 including free shipping plus NY sales tax only. Their price is $120 off MSRP, and it’s the lowest price available for this model from any... Read more
iPhone Usage Rates by State Correlate With Ed...
Chitika Insights notes that despite iPhones being the largest source of smartphone Internet traffic in North America, their latest study finds a relatively high degree of variation of iPhone usage... Read more
ProGearX Extendable Pole “Pov/Selfie Stick” M...
There’s something inescapably narcissistic about the concept of selfies as they’ve developed as a smartphone-driven social (particularly social media) phenomenon that rubs me the wrong way. However,... Read more
iPad Air 2 on sale for up to $100 off MSRP, 2...
 Best Buy has iPad Air 2s on sale for up to $100 off MSRP on their online store for the next two days. Choose free shipping or free local store pickup (if available). Sale prices available for online... Read more
Roundup of Apple refurbished MacBook Pros and...
The Apple Store has Apple Certified Refurbished 2014 MacBook Pros and MacBook Airs available for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and... Read more
Sale! 13-inch 2.8GHz Retina MacBook Pro for $...
 B&H Photo has the 13″ 2.8GHz Retina MacBook Pro on sale for $1599 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price available for this model... Read more
Next OS X/iOS Version Upgrades Should Concent...
On stage at Apple’s World Wide Developers’ Conference in June 2009, Bertrand Serlet, the company’s Senior Vice President of Software Engineering at the time, announced that the forthcoming OS X... Read more

Jobs Board

Business Development Manager - *Apple* Pay...
**Job Summary** Apple Pay is seeking an experienced business development manager to support the identification, recruitment, negotiation and ongoing management of Read more
*Apple* Solutions Consultant (ASC)- Retail S...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*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
*Apple* Lead Operator, GSOC - Apple (United...
**Job Summary** Apple is seeking an exceptional, customer service oriented and experienced persons to fulfill the role of Apple Lead Operator (ALO) as part of the Read more
Order Support Supervisor- *Apple* Online Sto...
**Job Summary** The Apple Online Store (AOS) Order Administration team is looking for an Order Support Supervisor to manage and lead a team of Specialists through the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.