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

Combo Quest (Games)
Combo Quest 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Combo Quest is an epic, time tap role-playing adventure. In this unique masterpiece, you are a knight on a heroic quest to retrieve... | Read more »
Hero Emblems (Games)
Hero Emblems 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: ** 25% OFF for a limited time to celebrate the release ** ** Note for iPhone 6 user: If it doesn't run fullscreen on your device... | Read more »
Puzzle Blitz (Games)
Puzzle Blitz 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Puzzle Blitz is a frantic puzzle solving race against the clock! Solve as many puzzles as you can, before time runs out! You have... | Read more »
Sky Patrol (Games)
Sky Patrol 1.0.1 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0.1 (iTunes) Description: 'Strategic Twist On The Classic Shooter Genre' - Indie Game Mag... | Read more »
The Princess Bride - The Official Game...
The Princess Bride - The Official Game 1.1 Device: iOS Universal Category: Games Price: $3.99, Version: 1.1 (iTunes) Description: An epic game based on the beloved classic movie? Inconceivable! Play the world of The Princess Bride... | Read more »
Frozen Synapse (Games)
Frozen Synapse 1.0 Device: iOS iPhone Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Frozen Synapse is a multi-award-winning tactical game. (Full cross-play with desktop and tablet versions) 9/10 Edge 9/10 Eurogamer... | Read more »
Space Marshals (Games)
Space Marshals 1.0.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.1 (iTunes) Description: ### IMPORTANT ### Please note that iPhone 4 is not supported. Space Marshals is a Sci-fi Wild West adventure taking place... | Read more »
Battle Slimes (Games)
Battle Slimes 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: BATTLE SLIMES is a fun local multiplayer game. Control speedy & bouncy slime blobs as you compete with friends and family.... | Read more »
Spectrum - 3D Avenue (Games)
Spectrum - 3D Avenue 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: "Spectrum is a pretty cool take on twitchy/reaction-based gameplay with enough complexity and style to stand out from the... | Read more »
Drop Wizard (Games)
Drop Wizard 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Bring back the joy of arcade games! Drop Wizard is an action arcade game where you play as Teo, a wizard on a quest to save his... | Read more »

Price Scanner via MacPrices.net

Amazon is offering a 10% discount on Apple’s...
Don’t pay full price! Amazon has 16-inch M4 Pro MacBook Pros (Silver and Black colors) on sale today for 10% off Apple’s MSRP. Shipping is free. These are the lowest prices currently available for 16... Read more
13-inch M4 MacBook Airs on sale for $150 off...
Amazon has new 13″ M4 MacBook Airs on sale for $150 off MSRP right now, starting at $849. Sale prices apply to most colors and configurations. Be sure to select Amazon as the seller, rather than a... Read more
15-inch M4 MacBook Airs on sale for $150 off...
Amazon has new 15″ M4 MacBook Airs on sale for $150 off Apple’s MSRP, starting at $1049. Be sure to select Amazon as the seller, rather than a third-party: – 15″ M4 MacBook Air (16GB/256GB): $1049, $... Read more
Amazon is offering a $50 discount on Apple’s...
Amazon has Apple’s 11th-generation A16 iPads in stock on sale for $50 (or a little more) off MSRP this week. Shipping is free: – 11″ 11th-generation 128GB WiFi iPads: $299 $50 off MSRP – 11″ 11th-... Read more
Clearance 13-inch M1 MacBook Airs available f...
Walmart has clearance, but new, Apple 13″ M1 MacBook Airs (8GB RAM, 256GB SSD) available online for $649, $360 off original MSRP, in Space Gray, Silver, and Gold colors. These are new MacBooks for... Read more
iPad minis on sale for $100 off Apple’s MSRP...
Amazon is offering $100 discounts (up to 20% off) on Apple’s newest 2024 WiFi iPad minis, each with free shipping. These are the lowest prices available for new minis among the Apple retailers we... Read more
AirPods Max headphones on sale for $479, $70...
Amazon has AirPods Max with USB-C on sale for $479.99 in all colors. Shipping is free. Their price is $70 off Apple’s MSRP, and it’s the lowest price available today for AirPods Max. Keep an eye on... Read more
14-inch M4 Pro/M4 Max MacBook Pros on sale th...
Don’t pay full price! Get a new 14″ MacBook Pro with an M4 Pro or M4 Max CPU for up to $320 off Apple’s MSRP this weekend at these retailers…they are the lowest prices available for these MacBook... Read more
Get a 15-inch M4 MacBook Air for $150 off App...
A couple of Apple retailers are offering $150 discounts on new 15″ M4 MacBook Airs this weekend. Prices at these retailers start at $1049: (1): Amazon has new 15″ M4 MacBook Airs on sale for $150 off... Read more
Unreal Mobile is offering a $100 discount on...
Unreal Mobile, an MVNO using AT&T and T-Mobile’s networks, is offering a $100 discount on any new iPhone with service. This includes new iPhone 16 models as well as iPhone 15, 13, and SE phones... Read more

Jobs Board

All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.