TweetFollow Us on Twitter

Detect Multifinder
Volume Number:6
Issue Number:3
Column Tag:TechNotes

Related Info: OS Utilities

Detecting MultiFinder

By Paul Davis, Dunedin, New Zealand

Note: Source code files accompanying article are located on MacTech CD-ROM or source code disks.

Detecting MultiFinder from THINK Pascal

I am currently engaged in researching Mac language technology for the application of expert systems to the finance industry. I’ve been involved in IBM PC software since 1983, and managed the company which developed and released Pertmaster Advance, a project management package, on that platform. Since buying my first 128k Mac I’ve been interested in the potential of the Mac. With the release of the Mac II, I began working with Mac software full time.

I am convinced that OOP is here to stay, and using THINK Pascal V2.0 to explore it. After a brief exposure to MacApp I started writing a smaller MultiFinder friendly OOP application shell I’m calling MiniMac, working from the Apple demo programs OOPTextEdit and Events, the class structures of Coral LISP, Prograph, and SmallTalk; and any other Mac system class structures I can find.

While doing this, I noticed that it is useful when trying to decide how to deal with DA’s and activate events to be able to tell if MultiFinder is running, and not just if _WaitNextEvent is implemented as Apple DTS seems to think. If MultiFinder is running you can depend on resume, suspend and mouse-moved events. With just Finder running you have to use some other scheme to handle the cursor and detect whether an activate involves scrap conversion.

Noticing that one of the tech notes mentions that mouse-moved events are received as long as the mouse is outside the cursorRgn provided in a WaitNextEvent call, I wrote the following small routine. For my purposes it works beautifully.

By the way, you have to compile it into a standalone application to try it, THINK never passes my applications any app4 events while running under MultiFinder. I’ve tried it and it works great on my system: MacSE with 2.5Mb Ram, Radius 68020,68881 and TPD, System Software 6.0.3.

Explanation of the Code:

Multifinder test: hasWaitNextEvent is a boolean function set by the normal checking of the _WaitNextEvent trap described in Tech Notes and repeated below. If it is not true then MultiFinder couldn’t be running anyway. If WNE is implemented then I create a new region, which according to Inside Mac is set to a (0,0,0,0) rectangle. The mouse couldn’t be in there, so I do WNE’s with that region for kTries times or until I get an App4 (MultiFinder) event. I found that on my system I receive 4 null events before I get an App4 event so kTries of 10 works fine. You may need to experiment for an absolutely safe number of tries.

Shortcomings: You lose the first kTries events when your application is launched. This shouldn’t be critical, as applications generally flush the event queue anyway. Hasn’t been a problem for me anyway. You probably should use this routine before you put up any windows or other screen items so you don’t lose any update or activate events.

{1}

function multiFinderTest: Boolean;
{ a little event loop to test for MF }
{ if MF is running we are sure to get }
{ mouse-moved events with a tiny region }
  const
    kTries = 10;
{ number of events to check for mouse event }
  var
    mouseRgn: RgnHandle;
    count: Integer;
    gotEvent: Boolean;
    theEvent: EventRecord;
  begin
    multiFinderTest := False;
    { assume false }
    if hasWaitNextEvent then
    { otherwise always false }
      begin
        debugBanner(‘has WaitNextEvent’);
        gotEvent := False;
        count := 1;
        mouseRgn := NewRgn;
        { should be empty region (0,0,0,0) }
        while (gotEvent = False) and 
              (count < kTries) do
          begin
            gotEvent := WaitNextEvent(        
           EveryEvent, theEvent, 0, mouseRgn);
            if theEvent.what = app4Evt then
              multiFinderTest := True;
            count := count + 1;
          end;
        DisposeRgn(mouseRgn);
      end;
  end; { multiFinderTest }

Since THINK won’t give you MultiFinder events you have to have a way to check on what is going on from outside the THINK environment. The following routine displays a little box with a message in it without messing up the event queue or MultiFinder levels like an alert did. In the above routine I insert a:

{2}

debugBanner(StringOf(‘MultiFinder found after ‘,count,’ tries.’));

in the innermost if. This routine requires a WIND resource of convenient size and I use a proc of 2 though others would do. You can also use it to check the type of events coming through and debug your detection of mouse moved, resume, suspend and scrap convert events in the main event loop, none of which come through THINK. The {$R+-} is to disable/enable range checking to use the string as an array.

{3}

procedure debugBanner (msg: Str255);
  const
    numTicks = 1 * 60; { seconds * ticks/sec }
    kResWIND128 = 128; { WIND resource }
  var
    discard: LongInt;
    banner: WindowPtr;
    oldPort: GrafPtr;
    lineWidth: Integer;
  begin
    GetPort(oldPort);
    banner := GetNewWindow(kResWIND128, nil, 
                           Pointer(-1));
    if banner <> nil then
      begin
        ShowWindow(banner);
        { make the window visible }
        SetPort(banner);
        PenNormal;
        ClipRect(banner^.portRect);
{$R-}
        lineWidth := TextWidth(QDPtr(@msg[1]), 
                          0, Integer(msg[0]));
{$R+}
        with banner^.portRect do
          MoveTo(((right - left) - lineWidth) 
                div 2, (bottom - top) div 2);
{$R-}
        DrawText(QDPtr(@msg[1]), 0, 
                 Integer(msg[0]));
{$R+}
        Delay(numTicks, discard);
        { wait a while }
        DisposeWindow(banner);
        { get rid of window }
      end;
    SetPort(oldPort);
  end; { debugBanner }

Finally, for those who aren’t sure how to test for WNE, I include the following:

{4}

function hasWaitNextEvent: Boolean;
{ determines if hardware has WNE trap }
  const
    kVersRequested = 2;    { as of 6.0.1 }
    kWaitNextEventTrap = $A860;
    { trap address for WaitNextEvent }

{ system error constants that are missing }
{ from THINK interface }
    envBadVers = -5501;
    envVersTooBig = -5502;

  type
    pInteger = ^Integer;

  var
    result: OSErr;
    theRec: SysEnvRec;
    theRecPtr: ^SysEnvRec;

  function GetTrapType (theTrap: Integer)
                       :TrapType;
    const
      kOSTrapMask = $0F00; 
{ OS traps start with A0, Tool with A8 or AA.}
    begin
      if BAND(theTrap, $0F00) = 0 then
        GetTrapType := OSTrap
      else
        GetTrapType := ToolTrap;
    end; {GetTrapType}

  function TrapExists (theTrap: Integer)
                      : Boolean;
    const
      kUnimplementedTrap = $A89F;
      { unimplemented trap value }
    begin
      TrapExists := GetTrapAddress(kUnimplementedTrap)
         <> NGetTrapAddress(
      theTrap,GetTrapType(theTrap)
      );
    end; {TrapExists}

  begin
    hasWaitNextEvent := False;
    theRecPtr := @theRec;
    result := SysEnvirons(kVersRequested, 
                          theRecPtr^);
    with theRec do
      case result of
        envNotPresent: 
          debugBanner(’64k ROMS’);
        envBadVers: 
          debugBanner(‘negative version number 
                       passed SysEnvirons’);
        envVersTooBig, noErr: 
          begin 
   { good environs call, fill related fields }
            if machineType > envMac then
              hasWaitNextEvent := 
               TrapExists(kWaitNextEventTrap);
          end;
      end; { case }
  end; { hasWaitNextEvent }

The above routines are incorporated in a small application which calls MultiFinderTest and then displays whether finder is running or not:

{5}

program test;
  var
    multiFinderIsRunning: Boolean;

begin
  multiFinderIsRunning := multiFinderTest;
  if multiFinderIsRunning then
    debugBanner(‘multiFinder running’)
  else
    debugBanner(‘multiFinder not running’);

end. { test }

That about sums it up. Let me know if this doesn’t work in any other environments.

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

OmniOutliner Pro 4.6 - Pro version of th...
OmniOutliner Pro is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Alfred 3.1 - Quick launcher for apps and...
Alfred is an award-winning productivity application for OS X. Alfred saves you time when you search for files online or on your Mac. Be more productive with hotkeys, keywords, and file actions at... Read more
OmniOutliner 4.6 - Organize your ideas,...
OmniOutliner is a flexible program for creating, collecting, and organizing information. Give your creativity a kick start by using an application that's actually designed to help you think. It's... Read more
Default Folder X 5.0.6 - Enhances Open a...
Default Folder X attaches a toolbar to the right side of the Open and Save dialogs in any OS X-native application. The toolbar gives you fast access to various folders and commands. You just click on... Read more
Adobe Creative Cloud 3.8.0.310 - Access...
Adobe Creative Cloud costs $19.99/month for a single app, or $49.99/month for the entire suite. Introducing Adobe Creative Cloud desktop applications, including Adobe Photoshop CC and Illustrator CC... Read more
MYStuff Pro 2.0.25 - Create inventories...
MYStuff Pro is the most flexible way to create detail-rich inventories for your home or small business. Add items to MYStuff by dragging and dropping existing information, uploading new images, or... Read more
Viber 6.2.0 - Send messages and make cal...
Viber lets you send free messages and make free calls to other Viber users, on any device and network, in any country! Viber syncs your contacts, messages and call history with your mobile device, so... Read more
Data Rescue 4.2.3 - Powerful hard drive...
Use Data Rescue to recover: crashed, corrupted or non-mounting hard drive deleted, damaged, or lost files reformatted or erased hard drive One powerful new feature found in Data Rescue 4 is... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more
Microsoft Remote Desktop 8.0.34 - Connec...
With Microsoft Remote Desktop, you can connect to a remote PC and your work resources from almost anywhere. Experience the power of Windows with RemoteFX in a Remote Desktop client designed to help... Read more

Find out the story behind League of Ange...
If you’re looking for a new thrilling MMORPG to play with your friends then you’ll be excited to hear that there is a sequel to one of the most well known titles in the genre – namely League of Angels 2. With a brand new 3D engine offering... | Read more »
Naruto Shippuden: Ultimate Ninja Blazing...
I'm not sure if it's possible to say you are an anime fan but also never have seen one episode of Naruto. If it is, then I resemble that remark, and if not, I offer a hearty apology. [Read more] | Read more »
5 mobile games that let you explore spac...
No Man's Sky hasn't exactly turned out to be everything it was promised. Though its core concept of exploring an unimaginably vast universe of different planets is an intriguing one, the execution has left many PS4 and PC gamers feeling like they... | Read more »
Mummy madness in new action game Tomb He...
Hot on the tail of Bump Hero, ZPlay is giving gamers another reason to get screen bashing with a brand new release. Tomb Heroes is a challenging action game in which you battle enemies in various tombs around the world. You can select from nine... | Read more »
Siralim 2 (RPG / Roguelike) (Games)
Siralim 2 (RPG / Roguelike) 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: Siralim 2 is an old-school monster catching RPG. Summon and customize hundreds of creatures to fight for you as... | Read more »
Clean Text (Productivity)
Clean Text 1.0 Device: iOS Universal Category: Productivity Price: $3.99, Version: 1.0 (iTunes) Description: | Read more »
Gemini - A Journey of Two Stars (Games)
Gemini - A Journey of Two Stars 1.0.1 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0.1 (iTunes) Description: *** SPECIAL LAUNCH SALE: $2.99 (25% off) *** "A mesmerizing and unexpectedly emotional journey." -- Los... | Read more »
How to get four NFL superstars for your...
Even though you're probably well on your way to building a top notch squad for the new season in Madden NFL Mobile, let's say you could beef it up by adding Rob Gronkowski, Antonio Brown, Von Miller, and Todd Gurley to your roster. That's... | Read more »
Cartoon Network Superstar Soccer: Goal!!...
Cartoon Network Superstar Soccer: Goal!!! – Multiplayer Sports Game Starring Your Favorite Characters 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Become a soccer superstar with your... | Read more »
NFL Huddle: What's new in Topps NFL...
Can you smell that? It's the scent of pigskin in the air, which either means that cliches be damned, pigs are flying in your neck of the woods, or the new NFL season is right around the corner. [Read more] | Read more »

Price Scanner via MacPrices.net

RESCUECOM 2016 Semi-Annual Computer Reliabili...
The beginning of a new school year is upon us again, in which students and parents have some very important choices to make, often including the purchase of a computer or tablet. Whether you are... Read more
VRS Design Damda Glide Series iPhone 7 and 7...
What makes the Damda Glide Series for the iPhone 7 and iPhone 7 Plus special? Case maker VRS Design says its Damda Glide Series is the first mobile case to incorporate a semi-automatic mechanism for... Read more
Apple refurbished iMacs available for up to $...
Apple has Certified Refurbished 2015 21″ & 27″ iMacs available for up to $350 off MSRP. Apple’s one-year warranty is standard, and shipping is free. The following models are available: - 21″ 3.... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $350 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $829... Read more
Check Apple prices on any device with the iTr...
MacPrices is proud to offer readers a free iOS app (iPhones, iPads, & iPod touch) and Android app (Google Play and Amazon App Store) called iTracx, which allows you to glance at today’s lowest... Read more
Save $120 with Apple refurbished Time Capsule...
Apple has certified refurbished Time Capsules available for $120 off MSRP. Apple’s one-year warranty is included with each Time Capsule, and shipping is free: - 2TB Time Capsule: $179, $120 off (not... Read more
9-inch 32GB iPad Pros on sale for $70 off MSR...
B&H Photo has 9″ 32GB WiFi Apple iPad Pros on sale for $70 off MSRP, each including free shipping. B&H charges sales tax in NY only: - 9″ Space Gray 32GB WiFi iPad Pro: $529 $70 off MSRP - 9... Read more
Mac minis on sale for up to $140 off MSRP
Adorama has Mac minis on sale for up to $100 off MSRP including free shipping plus NY & NJ sales tax only: - 1.4GHz Mac mini: $449 $50 off MSRP - 2.6GHz Mac mini: $649 $50 off MSRP Amazon has the... Read more
Back To School with OtterBox Essentials
Back to school means back to an environment that is tough on tech. OtterBox has the back to school essentials you need to keep tech safe from drops, bumps, scratches and hallway havoc. Check out the... Read more
VRS Design Releases New iPhone 7 Plus Case Li...
With a device as large and costly as the iPhone 7 Plus, it is primal instinct to protect it from potential damage. According to a study by SquareTrade in 2012, iPhone damages cost Americans roughly $... Read more

Jobs Board

*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51218354 Fredericksburg, Virginia, United States Posted: Aug. 18, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple 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
*Apple* /Mac Support Engineer - GFI Digital,...
FI Digital, Inc. is currently seeking candidates for a full time Apple Support Engineer to add to our Maryland Heights, Missouri IT team. Candidates must be dynamic Read more
*Apple* Solutions Consultant - Apple (United...
Apple Solutions ConsultantJob Number: 51218534Pleasant Hill, California, United StatesPosted: Aug. 18, 2016Weekly Hours: 40.00Job SummaryAs an Apple Solutions Read more
*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 51443201 Mishawaka, Indiana, United States Posted: Aug. 25, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.