TweetFollow Us on Twitter

Aug 92 Tips
Volume Number:8
Issue Number:4
Column Tag:Tips & Tidbits

Tips & Tidbits

By Neil Ticktin, Editor-in-Chief

MacTutor has a new column called “Tips and Tidbits”. This column is your opportunity to spread the word about little bits of information that you find out about. These tidbits can be programming related or they can be user tips that are particularly useful to programmers.

We really want to hear from you. MacTutor will pay $25 for every tip used, and the Tip of the Month will receive $50. To submit a tip, send in a letter to the magazine. Remember, AppleLink is our preferred method of communication, but feel free to send something via US Mail. If you do send mail, enclose a printed copy and a disk copy of the letter so that it does not have to be retyped.

Let us know what you think. Remember, this is your magazine. Try ‘em out and let us know...

Tip of the month

A frequently asked question is “How to make a menu bar within a window, but makeit SIMPLE?” I have found the answer deep in the UPMG folder on the 7.0 Beta-Bang CD-Rom. This folder is a “must read” for finding clever and simple answers to many questions of this kind. I have written the code below for better readability, but the credit for the trick must be given to the UPMG file. Before calling PopUpMenuSelect, install a MenuHook. In the hook, if the mouse is out of the menu rect (and out of the menu title rect), post a mouseUp event to exitPopUpMenuSelect.

Doing it this way, the user can browse between pop-up menus without releasing themouse button, exactly like in the real menu bar. Warning: abuse of this trick will quickly drive your program to a very disconcerting user-interface. Are you really sure you need a menu bar in thiswindow?

Benoît Widemann

/* 1 */

// Global variables

short gCurrentMenu;// current menu index
MenuHandle gMenu[NUMBER_OF_MENUS];
Rect gMenuTitleRect[NUMBER_OF_MENUS];  // menus title rects in window

// There was a click in window's menubar
// Returns the item selected or 0 if no selection
// If the returned item is non-zero, the menu index is gCurrentMenu

short windowMenuSelect(WindowPtr theWindow)
{
   ProcPtr saveMenuHook;
   Point p;
   short selectedItem;

   SetWRefCon(theWindow, SetCurrentA5());  // save our A5 in window refcon
   saveMenuHook = MenuHook;// save current value in MenuHook
   MenuHook = (ProcPtr)myMenuHook; // install our menu hook
   SetPort(theWindow);
   while (Button()){   // don't use StillDown here!!
   GetMouse(&p);
   for (gCurrentMenu=0; gCurrentMenu<NUMBER_OF_MENUS; gCurrentMenu++) 
 {
   // find in which menu title rect is the mouse
   if (PtInRect(p, &gMenuTitleRect[gCurrentMenu])) {
   InvertRect(&gMenuTitleRect[gCurrentMenu]);
   p.h = gMenuTitleRect[gCurrentMenu].left+1;
   p.v = gMenuTitleRect[gCurrentMenu].bottom+1;
   LocalToGlobal(&p);
   // use only the item part returned
   selectedItem = (short)(PopUpMenuSelect(gMenu[gCurrentMenu], p.v, p.h, 
0) &
0x0000FFFF);
   InvertRect(&gMenuTitleRect[gCurrentMenu]);
   break;
   }
   }
   }
   MenuHook = saveMenuHook;// restore Menu Hook
   return(selectedItem);
}

// the menu hook

pascal void myMenuHook()
{
   Point p;
   long sysA5;

   sysA5 = SetA5(GetWRefCon(FrontWindow())); // restore our A5
   GetMouse(&p);
   if (p.v < 20 && !PtInRect(p, &gMenuTitleRect[gCurrentMenu])) {
   (void)PostEvent(mouseUp, nil);  // exit PopUpMenuSelect
   }
   (void)SetA5(sysA5); // restore system A5
}

NEED FOR SPEED

To execute system routines efficiently, you can by-pass the trap dispatcher byjumping to the routine yourself. Most practicle in tight loops. Take for example the BLockMove routine. Rewrite it as MyBlockMove:

/* 2 */

CONST
  kBlockMoveNum = $A02E; 
{Get the BlockMove Trap word from Inside Macintosh Volume III, Appendix 
C}
VAR
  blockMoveAddress:LongInt;
BEGIN
  blockMoveAddress := GetTrapAddress(kBlockMoveNum);
  start loop...
    MyBlockMove(source,dest,size, blockMoveAddress);
  end loop...
END

Write MyBlockMove in assembler like this:

;3

PROCEDURE MyBlockMove
MOVE.L     A2,D2      /*Save off A2. We'll need it later
MOVE.L     (A7)+,D1   /*Move Return address into D1
MOVEA.L    (A7),A2    /*Put BlockMove address into A2
MOVE.L     (A7)+,D0   /*Place size into D0
MOVEA.L    (A7)+,A1   /*Place destination Ptr into A1
MOVEA.L    (A7)+,A0   /*Place source Ptr into A0
MOVE.L     D1,(A7)    /*BlockMove trashes D1 & D2.
                      /*Save D1(Return address) on stack
MOVE.L     D2,-(A7)   /*Save D2(value of A2) on stack
JSR        (A2)       /*Jump to BlockMove
MOVEA.L    (A7)+,A2   /*Restore A2
MOVEA.L    (A7)+,A1   /*Place Return address into A1
JMP        (A1)       /*Jump to Return Address

MyBlockMove must be in a resident segment!!! For any questions, send an applelink to ISS.

Mark Hajek

 

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

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
Apple refurbished 11-inch MacBook Airs availa...
Apple has Certified Refurbished 11″ MacBook Airs (the latest models), available for up to $170 off the cost of new models. An Apple one-year warranty is included with each MacBook, and shipping is... Read more
Apple iPad Pro Sales Far Outpacing Microsoft...
A report on Appleinsider notes that despite Microsoft Surface tablet PC sales growing by 9 percent year over year, revenues remained below $1 billion, and are down sequentially from the $1.1 billion... Read more
DEVONthink 2.9 Features Ultra-fast, Robust, A...
DEVONthink 2.9 allows users to keep databases synchronized using many means of transport. It transmits them between Macs on the local network or stores them in a syncable form on removable hard... Read more
12-inch WiFi Apple iPad Pros on sale for up t...
B&H Photo has 12″ WiFi iPad Pros on sale for up to $100 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 12″ Space Gray 32GB WiFi iPad Pro: $749 $50 off MSRP - 12″... Read more

Jobs Board

*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
*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* Retail - Multiple Positions - Apple,...
Job Description:SalesSpecialist - Retail Customer Service and SalesTransform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.