TweetFollow Us on Twitter

Jan 98 - Getting Started

Volume Number: 14 (1998)
Issue Number: 1
Column Tag: Getting Started

Event-Based Programming

by Dave Mark

How a Mac program communicates with the user

Over the last year or so, we've gotten a lot of feedback about the direction in which you want this column to head. Some folks want more coverage of Java, others PowerPlant and Rhapsody. But the biggest vote of all was a return, for a spell, to the basics. When I first started this column more than six years ago (For you old-timers, my son Daniel, who was born in these pages, is now 5-1/2), we plowed a path for beginners, covering the basics of working with the Mac Toolbox. Since then, we've explored a wide variety of topics and have covered a lot of ground.

Over the next few months, we're going to revisit some of that territory at the behest of a new generation of Mac programmer. We started with last month's column, which gave an updated answer to the question, "How do I get started with Mac programming?" This month, we'll revisit the concept of event-based programming.

Know someone interested in getting started with Mac programming? Hand them your copy of last month's MacTech and point them this way...

Event-Based Programming

Most the programs we've created together have one thing in common. Each performs its main function, then sits there waiting for a mouse click using this piece of code:

while ( ! Button() )
  ;

This chunk of code represents the only mechanism the user has to communicate with the program. In other words, the only way a user can talk to one of our programs is to click the mouse to make the program disappear! This month's program is going to change all that.

One of the most important parts of the Macintosh Toolbox is the Event Manager. The Event Manager tracks all user actions, translating these actions into a form that's perfect for your program. Each action is packaged into an event record and each event record is placed on the end of the application's event queue.

For example, when the user presses the mouse button, a mouseDown event record is created. The record describes the mouseDown in detail, including such information as the location, in screen coordinates, of the mouse when the click occurred, and the time of the event, in ticks (60ths of a second) since system startup. When the user releases the mouse button, a second event, called a mouseUp event is queued.

If the user presses a key, a keyDown event is queued, providing all kinds of information describing the key that was pressed. An autoKey event is queued when a key is held down longer than a pre-specified autoKey threshold.

Though there are lots of different events, this month we're going to focus on four of them: mouseDown, mouseUp, keyDown, and autoKey. Next month we'll look at some of the others.

Working With Events

Events are the lifeline between your user and your program. They let your program know what your user is up to. Programming with events requires a whole new way of thinking. Up until this point, our programs have been sequential. Initialize the Toolbox, load a WIND resource, show the window, draw in it, wait for a mouse click, then exit.

Figure 1. The main event loop flowchart.

Event programming follows a more iterative path. Check out the flowchart in Figure 1. From now on, our programs will look like this. First, we'll perform our program's initialization. This includes initializing the Toolbox, loading any needed resources, perhaps even opening a window or two. Once initialized, your program will enter the main event loop.

The Main Event Loop

In the main event loop, your program uses a Toolbox function named WaitNextEvent() to retrieve the next event from the event queue. Depending on the type of event retrieved, your program will respond accordingly. A mouseDown might be passed to a routine that handles mouse clicks, for example. A keyDown might be passed to a text handling routine. At some point, some event will signal that the program should exit. Typically, it will be a keyDown with the key sequence command-Q, a mouseDown with the mouse on the Quit menu item, or as the result of a Quit event sent by another program like the Finder. If If it's not time to exit the program yet, your program goes back to the top of the event loop and retrieves another event, starting the process all over again.

WaitNextEvent() returns an event in the form of an EventRecord struct:

struct EventRecord
{
  short   what;
  long    message;
  long    when;
  Point   where;
  short   modifiers;
};

The what field tells you what kind of event was returned. As I said before, this month we'll only look at mouseDown, mouseUp, keyDown, and autoKey events, though there are lots more. Depending on the value of the what field, the message field contains four bytes of descriptive information. when tells you when the event occurred, and where tells you where the mouse was when the event occurred. Finally, the modifiers field tells you the state of the control, option, command and shift modifier keys when the event occurred.

EventMaster

This month's program, EventMaster, displays four lines, one for each of the events we've covered so far. As EventMaster processes an event, it highlights that line. For example, Figure 2 shows EventMaster immediately after it processed a mouseDown event.

Figure 2. EventMaster in action.

EventMaster requires a single resource of type WIND. Create a folder called EventMaster in your Development folder. Next, open ResEdit and create a new resource file named EventMaster.rsrc inside the EventMaster folder.

Figure 3. The WIND resource specifications.

Create a new WIND resource according to the specs shown in Figure 3. Make sure the resource ID is set to 128 and the Close Box checkbox is checked. Select Set 'WIND' Characteristics from the WIND menu and set the window title to EventMaster. Quit ResEdit, saving your changes.

Running EventMaster

Launch CodeWarrior and create a new project based on the MacOS:C/C++:Basic Toolbox 68k stationary. Turn off the Create Folder check box. Name the project EventMaster.mcp and place it in your EventMaster folder. Remove SillyBalls.c and SillyBalls.rsrc from the project; we will not be using these files. From the Finder, drag and drop your EventMaster.rsrc file into the project window. You also can remove the ANSI Libraries group from the project, because we won't need them, either. Your project window should look something like Figure 4.

Figure 4. EventMaster project window.

Select New from the File menu and type this source code in the window that appears:

#include <Sound.h>

#define kBaseResID      128
#define kMoveToFront    (WindowPtr)-1L
#define kSleep          7

#define kRowHeight      14
#define kFontSize        9

#define kMouseDown      1
#define kMouseUp        2
#define kKeyDown        3
#define kAutoKey        4

/*************/
/* Globals   */
/*************/

Boolean    gDone;
short      gLastEvent = 0;



/***************/
/* Functions   */
/***************/

void  ToolBoxInit( void );
void  WindowInit( void );
void  EventLoop( void );
void  DoEvent( EventRecord *eventPtr );
void  HandleMouseDown( EventRecord *eventPtr );
void  DrawContents( void );
void  SelectEvent( short eventType );
void  DrawFrame( short eventType );

/******************************** main *********/

void  main( void )
{
  ToolBoxInit();
  WindowInit();
  
  EventLoop();
}

/*********************************** ToolBoxInit */

void  ToolBoxInit( void )
{
  InitGraf( &thePort );
  InitFonts();
  InitWindows();
  InitMenus();
  TEInit();
  InitDialogs( nil );
  InitCursor();
}

/******************************** WindowInit *********/

void  WindowInit( void )
{
  WindowPtr  window;
  
  window = GetNewWindow( kBaseResID, nil, kMoveToFront );
  
  if ( window == nil )
  {
    SysBeep( 10 );  /* Couldn't load the WIND resource!!! */
    ExitToShell();
  }
  
  SetPort( window );
  TextSize( kFontSize );
  
  ShowWindow( window );
}

/******************************** EventLoop *********/

void  EventLoop( void )
{    
  EventRecord    event;
  
  gDone = false;
  while ( gDone == false )
  {
    if ( WaitNextEvent( everyEvent, &event, kSleep, nil ) )
      DoEvent( &event );
  }
}

/************************************* DoEvent *********/

void  DoEvent( EventRecord *eventPtr )
{
  switch ( eventPtr->what )
  {
    case mouseDown:
      SelectEvent( kMouseDown );
      HandleMouseDown( eventPtr );
      break;
    case mouseUp:
      SelectEvent( kMouseUp );
      break;
    case keyDown:
      SelectEvent( kKeyDown );
      break;
    case autoKey:
      SelectEvent( kAutoKey );
      break;
    case updateEvt:
      BeginUpdate( (WindowPtr)eventPtr->message );
      DrawContents();
      EndUpdate( (WindowPtr)eventPtr->message );
  }
}

/******************************** HandleMouseDown *********/

void  HandleMouseDown( EventRecord *eventPtr )
{
  WindowPtr  window;
  short      thePart;
  
  thePart = FindWindow( eventPtr->where, &window );
  
  if ( thePart == inGoAway )
    gDone = true;
}

/******************************** DrawContents *********/

void  DrawContents( void )
{
  short      i;
  WindowPtr  window;
  
  window = FrontWindow();
  
  for ( i=1; i<=3; i++ )
  {
    MoveTo( 0, (kRowHeight * i) - 1 );
    LineTo( window->portRect.right,
        (kRowHeight * i) - 1 );
  }
  
  MoveTo( 4, 9 );
  DrawString( "\pmouseDown" );
  
  MoveTo( 4, 9 + kRowHeight );
  DrawString( "\pmouseUp" );
  
  MoveTo( 4, 9 + kRowHeight*2 );
  DrawString( "\pkeyDown" );
  
  MoveTo( 4, 9 + kRowHeight*3 );
  DrawString( "\pautoKey" );
  
  if ( gLastEvent != 0 )
    DrawFrame( gLastEvent );
}

/************************************* SelectEvent ********/

void  SelectEvent( short eventType )
{
  Rect        r;
  WindowPtr  window;
  
  window = FrontWindow();
  r = window->portRect;
  
  if ( gLastEvent != 0 )
  {
    ForeColor( whiteColor );
    DrawFrame( gLastEvent );
    ForeColor( blackColor );
  }
  
  DrawFrame( eventType );
  
  gLastEvent = eventType;
}



/************************************* DrawFrame *********/

void  DrawFrame( short eventType )
{
  Rect        r;
  WindowPtr  window;
  
  window = FrontWindow();
  r = window->portRect;
  
  r.top = kRowHeight * (eventType - 1);
  r.bottom = r.top + kRowHeight - 1;
  
  FrameRect( &r );
}

Once the source code is typed in, save the file as EventMaster.c. Select Add Window from the Project menu to add EventMaster.c to the project. Select Run from the Project menu to run EventMaster.

When the EventMaster window appears, click the mouse in the window. The mouseDown line will highlight. When you let go of the mouse button, the mouseUp line will highlight. Try this a few times, till you can play the entire drum solo to "Wipeout" on your mouse.

Next, press a key or two on your keyboard (try any key except one of the modifier keys control, option, shift or command). The keyDown line will highlight. Now press the key and hold it down for a while. After a brief delay, the autoKey line will highlight.

Once you're done playing, click the mouse in the EventMaster window's close box to exit the program.

Walking Through the EventMaster Source Code

EventMaster starts off by including <Sounds.h> to access the SysBeep() system call. (SysBeep() used by be part of OSUtils.h, but Apple moved it to Sounds.h as part of Universal Interfaces 3.0.1, included with CodeWarrior Pro 2.) Next we define a series of constants. Some you know, some you don't. The new ones will be explained as they are used in the code.

#define kBaseResID      128
#define kMoveToFront    (WindowPtr)-1L
#define kSleep          7

#define kRowHeight      14
#define kFontSize      9

#define kMouseDown      1
#define kMouseUp        2
#define kKeyDown        3
#define kAutoKey        4

The global gDone starts off with a value of false. When the mouse is clicked in the window's close box, gDone will be set to true and the program will exit. gLastEvent keeps track of the last event that occurred, taking on a value of either kMouseDown, kMouseUp, kKeyDown, or kAutoKey. We do this so we can erase the old highlighting (if any) before we draw the new highlighting.

Boolean    gDone;
short      gLastEvent = 0;

As usual, our program includes a function prototype for all our functions.

/***************/
/* Functions   */
/***************/

void  ToolBoxInit( void );
void  WindowInit( void );
void  EventLoop( void );
void  DoEvent( EventRecord *eventPtr );
void  HandleMouseDown( EventRecord *eventPtr );
void  DrawContents( void );
void  SelectEvent( short eventType );
void  DrawFrame( short eventType );

main() starts by initializing the Toolbox and loading the WIND resource to build the EventMaster window.

/******************************** main *********/

void  main( void )
{
  ToolBoxInit();
  WindowInit();

Next, we enter the main event loop.

  EventLoop();
}

EventLoop() continuously loops on a call to WaitNextEvent(), waiting for something to set gDone to true. The first parameter to WaitNextEvent() tells you what kind of events you are interested in receiving. The constant everyEvent asks the system to send every event it handles.

The second parameter is a pointer to an EventRecord. The third parameter tells the system how friendly your application is to other applications running at the same time. Basically, the number tells the system how many ticks you are willing to wait before recieving the next event, allowing other applications to get some processing time. This number should be about 7 when the application is not busy with a processor intensive task. If the application were doing something where it needed as much processor time as possible (such as compressing a document), this value would be set to zero, but WaitNextEvent() would be called once every seven ticks to give time to the system to check other applications.

The last parameter specifies a home-base region for the mouse. If the mouse moves outside this region, the system will generate a special event, known as a mouse-moved event. Since we won't be handling mouse-moved events, we'll pass nil as this last parameter.

/******************************** EventLoop *********/

void  EventLoop( void )
{    
  EventRecord    event;
  
  gDone = false;
  while ( gDone == false )
  {

WaitNextEvent() will return true if it successfully retrieved an event from the event queue. In that case, we'll process the event by passing it to DoEvent().

    if ( WaitNextEvent( everyEvent, &event, kSleep, nil ) )
      DoEvent( &event );
  }
}

WaitNextEvent() is described in detail in Inside Macintosh: Macintosh Toolbox Essentials, on page 2-85. If you get a chance, read chapter 2, which describes the Event Manager in detail. You might also want to refer to Chapter 4 in the 2nd edition of the Macintosh C Programming Primer.

DoEvent() switches on eventPtr->what, sending the appropriate constant to the routine SelectEvent(), which highlights the appropriate line in the EventMaster window.

/************************************* DoEvent *********/

void  DoEvent( EventRecord *eventPtr )
{
  switch ( eventPtr->what )
  {

In the case of a mouseDown, we also pass the event on to our HandleMouseDown() routine, which will check for a mouseDown in the window's close box.

    case mouseDown:
      SelectEvent( kMouseDown );
      HandleMouseDown( eventPtr );
      break;
    case mouseUp:
      SelectEvent( kMouseUp );
      break;
    case keyDown:
      SelectEvent( kKeyDown );
      break;
    case autoKey:
      SelectEvent( kAutoKey );
      break;

OK, I know I promised we were only going to handle four event types this month, but I couldn't help but sneak this one in here. An update event is generated by the system when the contents of your window need to be redrawn. We'll get to updateEvt next month. In the meantime, if you want to force this code to execute, try triggering your screen dimmer, or cover the EventMaster window with another window and then uncover it..

    case updateEvt:
      BeginUpdate( (WindowPtr)eventPtr->message );
      DrawContents();
      EndUpdate( (WindowPtr)eventPtr->message );
  }
}

HandleMouseDown() calls FindWindow() to find out in which window, and in which part of the window, the mouse was clicked.

/******************************** HandleMouseDown *********/

void  HandleMouseDown( EventRecord *eventPtr )
{
  WindowPtr  window;
  short      thePart;
  
  thePart = FindWindow( eventPtr->where, &window );

If the mouse was clicked in the close box (also known as the goaway box), set gDone to true.

  if ( thePart == inGoAway )
    gDone = true;
}

DrawContents() draws the contents of the EventMaster window. Notice that the highlighting routine DrawFrame() is only called if a previous event has been handled.

/******************************** DrawContents *********/

void  DrawContents( void )
{
  short      i;
  WindowPtr  window;
  
  window = FrontWindow();
  
  for ( i=1; i<=3; i++ )
  {
    MoveTo( 0, (kRowHeight * i) - 1 );
    LineTo( window->portRect.right,
        (kRowHeight * i) - 1 );
  }
  
  MoveTo( 4, 9 );
  DrawString( "\pmouseDown" );
  
  MoveTo( 4, 9 + kRowHeight );
  DrawString( "\pmouseUp" );
  
  MoveTo( 4, 9 + kRowHeight*2 );
  DrawString( "\pkeyDown" );
  
  MoveTo( 4, 9 + kRowHeight*3 );
  DrawString( "\pautoKey" );
  
  if ( gLastEvent != 0 )
    DrawFrame( gLastEvent );
}

SelectEvent() erases the old highlighting (if it existed) and then draws the new highlighting.

/************************************* SelectEvent   */

void  SelectEvent( short eventType )
{
  Rect        r;
  WindowPtr  window;
  
  window = FrontWindow();
  r = window->portRect;
  
  if ( gLastEvent != 0 )
  {
    ForeColor( whiteColor );
    DrawFrame( gLastEvent );
    ForeColor( blackColor );
  }
  
  DrawFrame( eventType );
  
  gLastEvent = eventType;
}

DrawFrame() draws the highlighting rectangle.

/************************************* DrawFrame *********/

void  DrawFrame( short eventType )
{
  Rect        r;
  WindowPtr  window;
  
  window = FrontWindow();
  r = window->portRect;
  
  r.top = kRowHeight * (eventType - 1);
  r.bottom = r.top + kRowHeight - 1;
  
  FrameRect( &r );
}

Some Homework

To understand more about events, read the Event Manager chapters in Inside Macintosh: Macintosh Toolbox Essentials. You may have noticed that EventMaster left a lot of room on the right side of each of its event lines. Use this space as a scratch pad, drawing information culled from the EventRecord each time you process an event.

As an example, try writing out the contents of the when and where fields. How about pulling the character and key codes out of the message field of a keyDown event. Think of EventMaster as an event playground. Play. Learn.

Next Month

Next month, we'll dig into some events designed specifically for the Window Manager: update and activate events. See you next month...

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

5 slither.io mash-ups we'd love to...
If there's one thing that slither.io has proved, it's that the addictive gameplay of Agar.io can be transplanted onto basically anything and it will still be good fun. It wouldn't be surprising if we saw other developers jumping on the bandwagon,... | Read more »
How to navigate the terrain in Sky Charm...
Sky Charms is a whimsical match-'em up adventure that uses creative level design to really ramp up the difficulty. [Read more] | Read more »
Victorious Knight (Games)
Victorious Knight 1.3 Device: iOS Universal Category: Games Price: $1.99, Version: 1.3 (iTunes) Description: New challenges awaits you! Experience fresh RPG experience with a unique combat mechanic, packed with high quality 3D... | Read more »
Agent Gumball - Roguelike Spy Game (Gam...
Agent Gumball - Roguelike Spy Game 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: Someone’s been spying on Gumball. What the what?! Two can play at that game! GO UNDERCOVERSneak past enemy... | Read more »
Runaway Toad (Games)
Runaway Toad 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: It ain’t easy bein’ green! Tap, hold, and swipe to help Toad hop to safety in this gorgeous new action game from the creators of... | Read more »
PsyCard (Games)
PsyCard 1.0 Device: iOS Universal Category: Games Price: $1.99, Version: 1.0 (iTunes) Description: From the makers och Card City Nights, Progress To 100 and Ittle Dew PSYCARD is a minesweeper-like game set in a cozy cyberpunk... | Read more »
Sago Mini Robot Party (Education)
Sago Mini Robot Party 1.0 Device: iOS Universal Category: Education Price: $2.99, Version: 1.0 (iTunes) Description: -- Children's Technology Review Editor's Choice -- | Read more »
How to get a high score in every level o...
Sky Charms is an adorable match three puzzler that provides a decent challenge thanks to its creative level design. It regularly presents something new, forcing you to think on your feet. [Read more] | Read more »
Apestorm: Full Bananas (Games)
Apestorm: Full Bananas 1.0 Device: iOS Universal Category: Games Price: $.99, Version: 1.0 (iTunes) Description: ***Launch sale – limited time only!*** Fugitive Apes have taken to the skies in search of revenge after humans have... | Read more »
How to create bigger words in Spellspire
Words have power. At least they do in Spellspire,a game about blasting out magical attacks by making words out of a jumble of letters. And it's a lot of fun. But if you want to be the best, you're going to have to think tactically when you start... | Read more »

Price Scanner via MacPrices.net

15-inch 2.2GHz Retina MacBook Pro on sale for...
Amazon.com has the 15″ 2.2GHz Retina MacBook Pro on sale for $1699.99 including free shipping. Their price is $300 off MSRP, and it’s the lowest price available for this model from any reseller (and... Read more
Apple Beats Microsoft at Own Game; Amazon Pri...
First quarter seasonality combined with an overall disinterested customer base led to an annual decline of 14.7% in worldwide tablet shipments during the first quarter of 2016 (1Q16). Worldwide... Read more
Aleratec Releases Mac Software Upgrade for 1...
California based Aleratec Inc., designer, developer and manufacturer of Portable Device Management (PDM) charge/sync products for mobile devices and professional-grade duplicators for hard disk... Read more
Sale! Amazon offers 27-inch iMac, 13-inch 2.9...
Amazon has the 27″ 3.2GHz 5K iMac and the 13″ 3.9GHz Retina MacBook Pro on sale for $300 off MSRP, each including free shipping, for a limited time: - 27″ 3.2GHz/1TB HD 5K iMac (model MK462LL/A): $... 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
13-inch 2.7GHz/128GB Retina MacBook Pro on sa...
Take $200 off MSRP on the price of a new 13″ 2.7GHz/128GB Retina MacBook Pro (model MF839LL/A) at Amazon. Shipping is free: - 13″ 2.7GHz/128GB Retina MacBook Pro: $1099.99 $200 off MSRP Act now if... Read more
Apple refurbished clearance 15-inch Retina Ma...
Apple has Certified Refurbished 2014 15″ 2.2GHz Retina MacBook Pros available for $1609, $390 off original MSRP. Apple’s one-year warranty is included, and shipping is free. They have refurbished 15... Read more
27-inch 5K iMacs on sale for up to $150 off M...
B&H Photo has 27″ 5K iMacs on sale for up to $150 off MSRP including free shipping plus NY sales tax only: - 27″ 3.3GHz iMac 5K: $2199 $100 off MSRP - 27″ 3.2GHz/1TB Fusion iMac 5K: $1849.99 $150... Read more
What Does The Refreshed 12-Inch MacBook Tell...
A lot of commentators are complaining that Apple’s update of the 12-Inch MacBook last week is a bit of a damp squib. I don’t know what they were expecting, since it would be very unlike Apple to do a... Read more
Free Wittify Keyboard Now Available On The Ap...
A team of Harvard Business School students have announced that the Wittify Keyboard, a new app utility for iOS devices, is now available on the Apple App Store. The Wittify keyboard and application... Read more

Jobs Board

*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
*Apple* Solutions Consultant - Apple (United...
# Apple Solutions Consultant Job Number: 48260200 Phoenix, Arizona, United States Posted: Apr. 22, 2016 Weekly Hours: 40.00 **Job Summary** As an Apple Solutions Read more
Restaurant Manager (Neighborhood Captain) - A...
…in every aspect of daily operation. WHY YOU'LL LIKE IT: You'll be the Big Apple . You'll solve problems. You'll get to show your ability to handle the stress and Read more
Simply Mac *Apple* Specialist- Service Repa...
Simply Mac is the largest premier retailer of Apple products in the nation. In order to support our growing customer base, we are currently looking for a driven Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform 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.