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

Duplicate Annihilator 5.7.5 - Find and d...
Duplicate Annihilator takes on the time-consuming task of comparing the images in your iPhoto library using effective algorithms to make sure that no duplicate escapes. Duplicate Annihilator... Read more
BusyContacts 1.0.2 - Fast, efficient con...
BusyContacts is a contact manager for OS X that makes creating, finding, and managing contacts faster and more efficient. It brings to contact management the same power, flexibility, and sharing... Read more
Capture One Pro 8.2.0.82 - RAW workflow...
Capture One Pro 8 is a professional RAW converter offering you ultimate image quality with accurate colors and incredible detail from more than 300 high-end cameras -- straight out of the box. It... Read more
Backblaze 4.0.0.872 - Online backup serv...
Backblaze is an online backup service designed from the ground-up for the Mac.With unlimited storage available for $5 per month, as well as a free 15-day trial, peace of mind is within reach with... Read more
Little Snitch 3.5.2 - Alerts you about o...
Little Snitch gives you control over your private outgoing data. Track background activity As soon as your computer connects to the Internet, applications often have permission to send any... Read more
Monolingual 1.6.4 - Remove unwanted OS X...
Monolingual is a program for removing unnecesary language resources from OS X, in order to reclaim several hundred megabytes of disk space. If you use your computer in only one (human) language, you... Read more
CleanApp 5.0 - Application deinstaller a...
CleanApp is an application deinstaller and archiver.... Your hard drive gets fuller day by day, but do you know why? CleanApp 5 provides you with insights how to reclaim disk space. There are... Read more
Fantastical 2.0 - Create calendar events...
Fantastical is the Mac calendar you'll actually enjoy using. Creating an event with Fantastical is quick, easy, and fun: Open Fantastical with a single click or keystroke Type in your event details... Read more
Cocktail 8.2 - General maintenance and o...
Cocktail is a general purpose utility for OS X that lets you clean, repair and optimize your Mac. It is a powerful digital toolset that helps hundreds of thousands of Mac users around the world get... Read more
Direct Mail 4.0.4 - Create and send grea...
Direct Mail is an easy-to-use, fully-featured email marketing app purpose-built for OS X. It lets you create and send great looking email campaigns. Start your newsletter by selecting from a gallery... Read more

Appy to Have Known You - Lee Hamlet Look...
Being at 148Apps these past 2 years has been an awesome experience that has taught me a great deal, and working with such a great team has been a privilege. Thank you to Rob Rich, and to both Rob LeFebvre and Jeff Scott before him, for helping me... | Read more »
MLB Manager 2015 (Games)
MLB Manager 2015 5.0.14 Device: iOS Universal Category: Games Price: $4.99, Version: 5.0.14 (iTunes) Description: Guide your favorite MLB franchise to glory! MLB Manager 2015, officially licensed by MLB.com and based on the award-... | Read more »
Breath of Light (Games)
Breath of Light 1.0.1421 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1421 (iTunes) Description: Hold a quiet moment. Breath of Light is a meditative and beautiful puzzle game with a hypnotic soundtrack by... | Read more »
WWE WrestleMania Tags into the App Store
Are You ready to rumble? The official WWE WrestleMania app, by World Wrestling Entertainment, is now available. Now you can get all your WrestleMania info in one place before anyone else. The app offers details on superstar signings, interactive... | Read more »
Bio Inc's New Expansion is Infectin...
Bio Inc., by DryGin Studios, is the real time strategy game where you infect a human body with the worst virus your evil brain can design. Recently, the game was updated to add a whole lot of new features. Now you can play the new “Lethal”... | Read more »
The Monocular Minion is Here! Despicable...
Despicable Me: Minion Rush, by Gameloft, is introducing a new runner to the mix in their latest update. Now you can play as Carl, the prankster minion. Carl has a few new abilities to play with, including running at a higher speed from the start.... | Read more »
Dungeon of Madness (Games)
Dungeon of Madness 1.0.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.0 (iTunes) Description: Dungeon of Madness is an action game where you rotate tiles to create our own route. Help the hero by connecting the... | Read more »
Filters for iPhone (Photography)
Filters for iPhone 1.0 Device: iOS iPhone Category: Photography Price: $.99, Version: 1.0 (iTunes) Description: | Read more »
Jump'N'Shoot Attack (Games)
Jump'N'Shoot Attack 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: A mobile game for gamers! Join Louise Lightfoot, the legendary "Master of Jumping and Shooting", on her mission to save... | Read more »
Space Bounties Inc. (Games)
Space Bounties Inc. 1.4 Device: iOS Universal Category: Games Price: $1.99, Version: 1.4 (iTunes) Description: SuperGameDroid: 4/5 "Satisfying futuristic RPG combat, high replay value, and a heavy dose of nostalgia make Space... | Read more »

Price Scanner via MacPrices.net

13-inch 2.5GHz MacBook Pro (refurbished) avai...
The Apple Store has Apple 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.... Read more
Save up to $80 on iPad Air 2s, NY tax only, f...
 B&H Photo has iPad Air 2s on sale for $80 off MSRP including free shipping plus NY sales tax only: - 16GB iPad Air 2 WiFi: $469.99 $30 off - 64GB iPad Air 2 WiFi: $549.99 $50 off - 128GB iPad... Read more
iMacs on sale for up to $205 off MSRP
B&H Photo has 21″ and 27″ iMacs on sale for up to $205 off MSRP including free shipping plus NY sales tax only: - 21″ 1.4GHz iMac: $1019 $80 off - 21″ 2.7GHz iMac: $1189 $110 off - 21″ 2.9GHz... Read more
Färbe Technik Offers iPhone Battery Charge LI...
Färbe Technik, which manufactures and markets of mobile accessories for Apple, Blackberry and Samsung mobile devices, is offering tips on how to keep your iPhone charged while in the field: •... Read more
Electronic Recyclers International CEO Urges...
Citing a recent story on CNBC about concerns some security professionals have about the forthcoming Apple Watch, John Shegerian, Chairman and CEO of Electronic Recyclers International (ERI), the... Read more
Save up to $380 with Apple refurbished iMacs
The Apple Store has Apple Certified Refurbished iMacs available for up to $380 off the cost of new models. Apple’s one-year warranty is standard, and shipping is free: - 27″ 3.5GHz 5K iMac – $2119 $... Read more
Mac minis on sale for up to $75 off, starting...
MacMall has Mac minis on sale for up to $75 off MSRP including free shipping. Their prices are the lowest available for these models from any reseller: - 1.4GHz Mac mini: $459.99 $40 off - 2.6GHz Mac... Read more
College Student Deals: Additional $50 off Mac...
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
Mac Pros on sale for up to $260 off MSRP
B&H Photo has Mac Pros on sale for up to $260 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: $3719.99... Read more
13-inch 2.5GHz MacBook Pro on sale for $100 o...
B&H Photo has the 13″ 2.5GHz MacBook Pro on sale for $999 including free shipping plus NY sales tax only. Their price is $100 off MSRP. Read more

Jobs Board

DevOps Software Engineer - *Apple* Pay, iOS...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring 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
Sr. Technical Services Consultant, *Apple*...
**Job Summary** Apple Professional Services (APS) has an opening for a senior technical position that contributes to Apple 's efforts for strategic and transactional Read more
Lead *Apple* Solutions Consultant - Retail...
**Job Summary** Job Summary The Lead ASC is an Apple employee who serves as the Apple business manager and influencer in a hyper-business critical Reseller's store Read more
*Apple* Pay - Site Reliability Engineer - Ap...
**Job Summary** Imagine what you could do here. At Apple , great ideas have a way of becoming great products, services, and customer experiences very quickly. Bring Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.