TweetFollow Us on Twitter

Sep 89 Letters
Volume Number:5
Issue Number:9
Column Tag: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 <OSUtil.h>

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

if (TEGetScrapLen() > 0) {

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


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.


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));



 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).


program Test;    {Just a place to try things out}
 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}
 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}

 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!}
 Accumulate := ‘-’;
 Number_In := BitNot(Number_In); 
 {Two’s Complement cleared}
 Number_In := Number_In + $1
 {It’s always one shy - back to DP101}
 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}
 Suppress_Zero := False;  
 {A digit - No more leading zeroes}
 Accumulate := concat(Accumulate, Hex_Char[Work + 1])
 else   {Don’t do anything!!}
 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}

 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)

   Rect *workRect;
   BitMap workBits;
   PenState workState;
   BitMap oldBits,tempBits;
   Rect tempRect,theRect,aRect;
   long position;
   workBits = workPort->portBits;
   if (NewBitMap(&oldBits,workRect) == NULL)
   if (NewBitMap(&tempBits,workRect) == NULL)
   tempRect = *workRect;
   tempRect.right = tempRect.right + 1;
   tempRect.bottom = tempRect.bottom + 1;
   pivot = newLoc = where;
   while (Button()) {
      position = PinRect(&tempRect,newLoc);
      newLoc.v = HiWord(position);
      newLoc.h = LoWord(position);
      if (!EqualPt(newLoc,where))
         where = newLoc;

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

Sago Mini Superhero (Education)
Sago Mini Superhero 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: KAPOW! Jack the rabbit bursts into the sky as the Sago Mini Superhero! Fly with Jack as he lifts impossible weights,... | Read more »
Star Wars: Galaxy of Heroes guide - How...
Star Wars: Galaxy of Heroes is all about collecting heroes, powering them up, and using them together to defeat your foes. It's pretty straightforward stuff for the most part, but increasing your characters' stats can be a bit confusing because it... | Read more »
The best cooking apps (just in time for...
It’s that time of year again, where you’ll be gathering around the dinner table with your family and a huge feast in front of you. [Read more] | Read more »
Square Rave guide - How to grab those te...
Square Rave is an awesome little music-oriented puzzle game that smacks of games like Lumines, but with its own unique sense of gameplay. To help wrap your head around the game, keep the following tips and tricks in mind. [Read more] | Read more »
Snowboard Party 2 (Games)
Snowboard Party 2 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Crowned the best snowboarding game available on the market, Snowboard Party is back to fulfill all your adrenaline needs in... | Read more »
One Button Travel (Games)
One Button Travel 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: “To cut a long story short, If you like interactive fiction, just go buy this one.” - “Oozes the polish that... | Read more »
Light Apprentice Volume 1 (Games)
Light Apprentice Volume 1 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Light Apprentice Volume 1 includes Chapters 1 to 4, all gathered in a new exclusive game. When life in the world of... | Read more »
The best games like Animal Crossing on m...
Animal Crossing amiibo Festival is out right now for the Wii U, reminding us of just how much fun that world can be. Or at least to go back and check in on our villages once in a while. [Read more] | Read more »
Between 2 Taps - Tap for Tap interview M...
Hello, and welcome back to Between 2 Taps, Tap for Tap’s Indie Dev interview series. [Read more] | Read more »
Facility 47 (Games)
Facility 47 1.0.1 Device: iOS Universal Category: Games Price: $3.99, Version: 1.0.1 (iTunes) Description: You wake up alone and freezing in an icy cell. You try the cell door but it’s locked, it seems that you are stuck with no... | Read more »

Price Scanner via

Black Friday deals on the Apple Watch and App...
Apple resellers are offering discounts and bundles with the purchase of an Apple Watch this Black Friday weekend. Below is a roundup of the deals being offered by authorized Watch resellers: Apple... Read more
Early Black Friday sale at B&H Photo, up...
B&H Photo has all new Macs on sale for up to $500 off MSRP as part of their early Black Friday sale including free shipping plus NY sales tax only: - 15″ 2.2GHz Retina MacBook Pro: $1699 $300 off... Read more
NewerTech/OWC/MacSales Black Friday Deals 201... • Free Shipping available on nearly EVERYTHING on orders $35.00 & up within USA + • International Delivery Specials from $2.99+ Special Purolator... Read more
Walmart Black Friday deals: $100 off select i...
Walmart has released their Black Friday deals for 2015, now available online. Choose free shipping or free local store pickup (if available): - 16GB iPad Air 2: $399, $100 off MSRP - 16GB iPad Air: $... Read more
Photo Cleaner 1.0 Reclaims iPhone Storage Spa...
Seoul, Korea based mix1009 has announced the release and immediate availability of Photo Cleaner 1.0, their handy iPhone app that deletes the video portion of Live Photos, in order to reclaim space... Read more
Black Friday and Holiday sales on our price t...
Scan our Mac Price Trackers for the latest Black Friday and Holiday season information on sales, bundles, and availability on systems from Apple’s authorized internet/catalog resellers. We update the... Read more
Best Buy Black Friday deals: Up to $200 off M...
Best Buy has posted their Black Friday sale prices for 2015. Save on MacBook Pros, MacBooks, MacBook Airs, iMacs, iPads, and Apple Watches. Choose free shipping or free local store pickup (if... Read more
Save $30-$40 on new Apple TVs after rebate
Adorama has new Apple TVs on sale for up to $40 off MSRP after mail-in rebate, good through December 15th. Shipping is free, and Adorama charges NY & NJ sales tax only: - 32GB Apple TV: $119.99... Read more
13-Inch Haswell MacBook Air At Two Years – Th...
The 13-inch mid-2013 “Haswell” MacBook Air I ordered in Apple’s November 2013 Black Friday sale was my first new Mac in four and a half years — the longest interval I’ve gone between system upgrades... Read more
Target Black Friday Early Access deals: $100...
Target is offering early access to their Black Friday deals on Apple products on their online store for today, the 25th, only. Choose free shipping or free local store pickup (if available): - Apple... Read more

Jobs Board

*Apple* Enterprise / Government Professional...
# Apple Enterprise / Gove ment Professional Services Engineer Job Number: 42292976 Reston, Virginia, United States Posted: Aug. 18, 2015 Weekly Hours: 40.00 **Job Read more
iOS Wallet & *Apple* Pay Engineer - App...
# iOS Wallet & Apple Pay Engineer Job Number: 40586801 Santa Clara Valley, Califo ia, United States Posted: Nov. 16, 2015 Weekly Hours: 40.00 **Job Summary** The iOS Read more
Software Engineer, *Apple* Watch - Clock Fa...
# Software Engineer, Apple Watch - Clock Face Team Job Number: 44368761 Santa Clara Valley, Califo ia, United States Posted: Nov. 14, 2015 Weekly Hours: 40.00 **Job Read more
Administrative Assistant, *Apple* Online St...
# Administrative Assistant, Apple Online Store Job Number: 43992352 Santa Clara Valley, Califo ia, United States Posted: Nov. 9, 2015 Weekly Hours: 40.00 **Job Summary** Read more
*Apple* Retail - Multiple Positions (US) - A...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.