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

Grab it now: Game Craft’s Legend of War...
The real time strategy game is now available for you to sink your teeth into, through the App Store and Google Play. Combining elements of skill, strategy and empire building, Legend of War is a real gamers’ game. [Read more] | Read more »
Skateboard Party 3 ft. Greg Lutzka (Gam...
Skateboard Party 3 ft. Greg Lutzka 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: Skateboard Party is back! This third edition of the popular sports franchise features professional skater... | Read more »
Cubious (Games)
Cubious 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: Cubious – How smart are you? How high is your IQube? Solve the impossible puzzles to find out, and help a lost little cube find his... | Read more »
Goat Simulator Waste of Space (Games)
Goat Simulator Waste of Space 1.1 Device: iOS Universal Category: Games Price: $4.99, Version: 1.1 (iTunes) Description: ** IMPORTANT - SUPPORTED DEVICESiPhone 4S, iPad 2, iPod Touch 5 or better.** | Read more »
Wildfulness - Unwind in nature and calm...
Wildfulness - Unwind in nature and calm your mind with nature sounds and illustrations 1.0 Device: iOS Universal Category: Healthcare & Fitness Price: $1.99, Version: 1.0 (iTunes) Description: Spending time in nature helps you to... | Read more »
Dr. Panda Racers (Education)
Dr. Panda Racers 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: STEP ON THE GAS, RACE AND WIN!Fasten your seat belts and get ready to race! Speed your way to the finish line while doing... | Read more »
ROMANCING SAGA 2 (Games)
ROMANCING SAGA 2 1.0.0 Device: iOS Universal Category: Games Price: $17.99, Version: 1.0.0 (iTunes) Description: Romancing SaGa 2, originally released only in Japan in 1993, has been completely remastered and now receives its first... | Read more »
WRIO Keyboard (Utilities)
WRIO Keyboard 1.0 Device: iOS iPhone Category: Utilities Price: $2.99, Version: 1.0 (iTunes) Description: 40% OFF DURING LIMITED INTRODUCTORY OFFER | Read more »
Hatoful Boyfriend (Games)
Hatoful Boyfriend 1.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0 (iTunes) Description: The hit PC game that everybirdie loves has now migrated to your mobile device! Now you are free to explore the wonders of St... | Read more »
Warp Shift (Games)
Warp Shift 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: [ CHECK YOUR HARDWARE: Warp Shift does NOT run on iPhone 4, iPad 1 and iPod touch 4G or older devices! It requires at least iOS8... | Read more »

Price Scanner via MacPrices.net

Goal Zero and OtterBox Partner to Expand iPh...
Goal Zero, specialists in portable power, have announced a partnership with OtterBox, brand smartphone case protection, to offer the Slide and Slide Plus Batteries as modules compatible with the new... Read more
15-inch Retina MacBook Pros on sale for up to...
B&H Photo has 15″ Retina MacBook Pros on sale for up to $210 off MSRP. Shipping is free, and B&H charges NY tax only: - 15″ 2.2GHz Retina MacBook Pro: $1799 $200 off MSRP - 15″ 2.5GHz Retina... Read more
Clearance 2015 13-inch MacBook Airs available...
B&H Photo has clearance 2015 13″ MacBook Airs available for $250 off original MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 1.6GHz/4GB/128GB MacBook Air (MJVE2LL/A): $799... Read more
Apple refurbished Apple TVs available for up...
Apple has Certified Refurbished 32GB and 64GB Apple TVs available for up to $30 off the cost of new models. Apple’s standard one-year warranty is included with each model, and shipping is free: -... 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.99 $120 off MSRP - 21″ 2.8GHz iMac: $1189 $110 off MSRP - 21″ 1... Read more
Kanex Introduces GoPower USB-C Rechargeable B...
Kanex has announced its GoPower USB-C portable battery for the USB-C MacBook, featuring the new industry standard connector and cable used for connectivity and power. Providing users with a new... Read more
Convertible and Detachable Devices Winning Ov...
According to the latest figures published by International Data Corporation (IDC), Western European shipments of ultraslim convertibles and detachables posted positive growth (44.7%) to account for... Read more
New MacBook Pros And Will MacBook Air Be Upgr...
With my mid-2013 13-inch MacBook Air closing on its third anniversary come November, I’m in system upgrade mode. Actually the Haswell CPU equipped Air is still doing a fine job, but my good wife is... Read more
Apple’s Education discount saves up to $300 o...
Purchase a new Mac or iPad using Apple’s Education Store and take up to $300 off MSRP. All teachers, students, and staff of any educational institution qualify for the discount. Shipping is free, and... Read more
13-inch 2.5GHz MacBook Pro on sale for $999,...
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

Editor, *Apple* News - APPLE (United States...
Job Summary The Apple News team is looking for a passionate and knowledgeable editor with experience covering entertainment/pop culture and experience running social Read more
*Apple* Nissan Service Technicians - Apple A...
Apple Automotive is one of the fastest growing dealer...and it shows. Consider making the switch to the Apple Automotive Group today! At Apple Automotive , Read more
ISCS *Apple* ID Site Support Engineer - APP...
…position, we are looking for an individual who has experience supporting customers with Apple ID issues and enjoys this area of support. This person should be Read more
Automotive Sales Consultant - Apple Ford Linc...
…you. The best candidates are smart, technologically savvy and are customer focused. Apple Ford Lincoln Apple Valley is different, because: $30,000 annual salary Read more
*Apple* Support Technician II - Worldventure...
…global, fast growing member based travel company, is currently sourcing for an Apple Support Technician II to be based in our Plano headquarters. WorldVentures is Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.