TweetFollow Us on Twitter

Building PICT 2
Volume Number:10
Issue Number:3
Column Tag:Getting Started

Related Info: List Manager Resource Manager

Using The List Manager

Building and using a list of PICT resources

By Dave Mark, MacTech Magazine Regular Contributing Author

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

Last month’s column presented PictLister, a program designed to showcase the Mac Toolbox’s List Manager. The vast majority of Macintosh applications make use of the List Manager, albeit indirectly. Figure 1 shows a call to StandardGetFile(), the Mac Toolbox’s standard mechanism for selecting a file to open. The scrolling list in Figure 1 was implemented by the List Manager.

Figure 1. The List Manager, as used by StandardGetFile().

Just as a reminder, we’ll put PictLister through its paces before we walk through the source code. Startup THINK C by double-clicking on the file PictLister.Π. When the project opens, select Run from the Project menu.

PictLister features three menus: Apple, File, and Edit. Figure 2 shows the File menu.

Figure 2. PictLister’s File menu.

Close closes the frontmost window and Quit quits PictLister. New List builds a list out of all available PICT resources, then creates a window to display the list. It’s important to note that the Resource Manager searches all open resource files in its quest for a particular resource type. At the very least, this search includes the application’s resource fork as well as the System file in the currently blessed System Folder (a.k.a., the System on the startup disk).

Figure 3 shows a sample PictLister window.

Figure 3. A PictLister window.

The entire content region of the window (including both scroll bars, but not the window’s title bar) is dedicated to the window’s list. With very little effort on our part (just a call here or there) the List Manager will handle the scroll bars, clicks in the list, auto-scrolling (click in the bottom of the list and drag down), update events, etc. As you’ll see, the List Manager gives you a lot of functionality with very little work on your part.

Once the PictLister window appears, you can do all the normal window-type things. You can drag the window, resize it, and close it by clicking in the close box.

If you click on a name in the list, the List Manager will highlight the name. Click on another name, the first name will be unhighlighted, then that name will be highlighted. If you double-click on a name, a new window will appear showing the specified PICT.

By the way, the names in the list are drawn directly from the names of the associated PICT resource. If the resource isn’t named, we use the string “Unnamed” to name the string.

Walking Through the Source Code

PictLister starts off with a bunch of #defines, some familiar, some not. As usual, you’ll see what they do in context.


/* 1 */
#define kMBARResID 128
#define kSleep   60L
#define kMoveToFront (WindowPtr)-1L
#define kNilFilterProc    (ProcPtr)0L
#define kEmptyString "\p"
#define kHasGoAway true
#define kInvisible false

#define kListDefProc 0
#define kDontDrawYet false
#define kHasGrow true
#define kHasHScrolltrue
#define kHasVScrolltrue
#define kFindNexttrue

#define kListWindow0
#define kDAWindow1
#define kUnknownWindow    2
#define kPictWindow3
#define kNilWindow 4

#define kMinWindowWidth   210
#define kMinWindowHeight  63
#define kWindowHeight255
#define kMinPictWinHeight 50
#define kMinPictWinWidth  150

#define mApple   128
#define iAbout   1

#define mFile    129
#define iNewList 1
#define iClose   2
#define iQuit    4

#define kErrorAlertID128

Frequently, you’ll want to attach additional information to a window. Suppose you wrote a program that implemented a personal phone book. Suppose your program creates an individual window for each person in the phone book. Each window would have the same fields but would contain different data to place in the fields when the window was updated.

One way to write this program is to create a struct containing the data for each window, allocate memory for the struct when you create the window, then tie it to the window. When it comes time to update the window, retrieve the struct tied to that window and use the data in the struct to fill in the window’s fields. This technique is known as window piggybacking. You’ll see how this works as we walk through the code.!cuses the piggybacking technique to tie the list to the list window and to tie the PICT to the PICT window. This is done by embedding a WindowRecord in each of the following typedefs.


/* 2 */
/************************/
/*      Typedefs        */
/************************/

typedef struct
{
 WindowRecord  w;
 short  wType;
 ListHandle list;
} ListRecord, *ListPeek;

typedef struct
{
 WindowRecord  w;
 short  wType;
 short  PictResID;
} PictRecord, *PictPeek;

Since NewWindow() allows you to allocate your own memory for your windows, you can allocate one of the above structs instead, passing a pointer to the struct to NewWindow(). To refer to the WindowRecord, just cast the struct pointer to a WindowPtr. This works because the WindowRecord is the first element in the struct. To refer to the entire struct, cast the struct pointer to a ListPeek or PictPeek, depending on which struct you are referring to.

Given a WindowPtr, how do you know which struct type is piggybacked on top of the window? That’s what the wType field is for. When the struct is allocated, the wType field is set to either kListWindow or kPictWindow. You’ll see how all this works as we go along.

The global variable gDone serves its usual role, indicating when it’s time to drop out of the main event loop. gNewWindowX and gNewWindowY specify the upper left corner of the next window to be created.


/* 3 */
/*************/
/*  Globals  */
/*************/

Boolean gDone;
short   gNewWindowX = 20, gNewWindowY = 50;

As usual, we provide a function prototype for each function in the source file.


/* 4 */
/***************/
/*  Functions  */
/***************/

void    ToolboxInit( void );
void    MenuBarInit( void );
void    CreateListWindow( void );
void    DestroyWindow( WindowPtr w );
void    EventLoop( void );
void    DoEvent( EventRecord *eventPtr );
void    DoUpdate( EventRecord *eventPtr );
void    DoActivate( EventRecord *eventPtr );
void    HandleMouseDown( EventRecord *eventPtr );
void    DoContentClick( EventRecord *eventPtr, WindowPtr w );
void    CreatePictWindow( ListHandle list );
void    BumpGlobalXandY( void );
void    DoGrow( EventRecord *eventPtr, WindowPtr w );
void    HandleMenuChoice( long menuChoice );
void    HandleAppleChoice( short item );
void    HandleFileChoice( short item );
void    CenterWindow( WindowPtr w );
void    CenterPict( PicHandle picture, Rect *destRectPtr );
short WindowType( WindowPtr window );
void    DoError( Str255 errorString );

main() initializes the Toolbox, sets up the menu bar, then enters the main event loop.


/* 5 */
/********************* main *********************/

void    main( void )
{
 ToolboxInit();
 MenuBarInit();
 
 EventLoop();
}

ToolboxInit() does its usual thing.


/* 6 */
/********************* ToolboxInit *********************/

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

MenuBarInit() loads the MBAR, adds the normal resources to the Apple menu, and draws the menu bar.


/* 7 */
/********************* MenuBarInit *********************/

void    MenuBarInit( void )
{
 Handle menuBar;
 MenuHandle menu;
 
 menuBar = GetNewMBar( kMBARResID );
 SetMenuBar( menuBar );

 menu = GetMHandle( mApple );
 AddResMenu( menu, 'DRVR' );
 
 DrawMenuBar();
}

CreateListWindow() gets called when New List... is selected from the File menu. It starts by creating a Rect that specifies the size and position of the new window.


/* 8 */
/********************* CreateListWindow *********************/

void    CreateListWindow( void )
{
 Rect   r, dataBounds;
 WindowPtrw;
 Point  cSize, cIndex;
 ListHandle list;
 short  i, dummy, numPicts;
 Handle rHandle;
 short  resID;
 ResTypetheResType;
 Str255 rName;
 Ptr    wStorage;
 ListPeek l;
 
 SetRect( &r, gNewWindowX, gNewWindowY, gNewWindowX + 
 kMinWindowWidth, gNewWindowY + kWindowHeight);

The routine BumpGlobalXandY() increment gNewWindowX and gNewWindowY to the preferred position for the next window.


/* 9 */
 BumpGlobalXandY();

Since we’re creating a list window, we’ll allocate a ListRecord and pass a pointer to it to NewWindow().


/* 10 */
 wStorage = NewPtr( sizeof( ListRecord ) );
 
 w = NewWindow( wStorage, &r, "\pPicture List", kInvisible,
 documentProc, kMoveToFront, kHasGoAway, 0L );

 SetPort( w );

The call to TextFont() ensures that the list is drawn using the system font (Chicago).


/* 11 */
 TextFont( systemFont );

Next, we’ll prepare to create our list. dataBounds specifies the initial size of the list. In this case, we’re specifying a list 1 column wide and 0 rows deep. We’ll add rows to the list a little later.


/* 12 */
 SetRect( &dataBounds, 0, 0, 1, 0 );

cSize specifies the size, in pixels, of each cell in the list. By passing (0,0) as the cell size, we ask the List Manager to calcualte the size for us.


/* 13 */
 SetPt( &cSize, 0, 0 );

Finally, r is a Rect that specifies the bounds of the list. Note that the scroll bars are drawn outside this area.


/* 14 */
 SetRect (&r, 0, 0, kMinWindowWidth -15, kWindowHeight -15);

The list is created via a call to LNew(). kDontDrawYet tells the List Manager not to draw the list yet. We’ll draw the list later, once we add all the rows to it. kHasGrow, kHasHScroll, and kHasHScroll tell the List Manager to add two scroll bars and a grow box to the list.


/* 15 */
 list = LNew( &r, &dataBounds, cSize, kListDefProc,
 w, kDontDrawYet, kHasGrow, kHasHScroll, kHasVScroll );

LNew() returns a handle to a ListRec, the data structure representing the list. The selFlags field lets you specify how the list reacts to clicks in the list. We’ll use the flag lOnlyOne to tell the List Manager that only one item at a time can be highlighted in this list.


/* 16 */
 (**list).selFlags = lOnlyOne;

Our next step is to set the fields in our piggybacking list struct. We’ll set wType to kListWindow and save the handle to the ListRec for later recall.


/* 17 */
 l = (ListPeek)w;
 
 l->wType = kListWindow;
 l->list = list;

This next chunk of code adds the rows to the list. We’ll add one row to the list for every available PICT resource.


/* 18 */
 numPicts = CountResources( 'PICT' );
 
 for ( i = 0; i<numPicts; i++ )
 {

For each resource, retrieve the resource handle using GetIndResource(), then call GetResInfo() to retrieve the resource name, if it exists.


/* 19 */
 rHandle = GetIndResource( 'PICT', i + 1 );
 GetResInfo( rHandle, &resID, &theResType, rName );

LAddRow() adds 1 row the list specified by list. cIndex is set to the cell in the first (and only) column and in the i-th row.


/* 20 */
 dummy = LAddRow( 1, i, list );
 SetPt( &cIndex, 0, i );

Next, the data is added to the cell specified by cIndex. If the resource is not named, the string “<Unnamed>” is used instead.


/* 21 */
 if ( rName[ 0 ] > 0 )
 LAddToCell( &(rName[1]), rName[0], cIndex, list );
 else
 LAddToCell( "<Unnamed>", 10, cIndex, list );
 }

Next, the window is made visible, and LDoDraw() is called to enable drawing in the list. This doesn’t mean that the list will be drawn at this point. Instead, the next time the List Manager is asked to draw the list (perhaps via a call to LUpdate(), it will be able to.


/* 22 */
 ShowWindow( w );
 LDoDraw( true, list );
}

DestroyWindow() is called to close and deallocate the specified window.


/* 23 */
/********************* DestroyWindow *********************/

void    DestroyWindow( WindowPtr w )
{
 ListPeek l;

If the window is a list window, we need to deallocate the memory allocated for the list by calling LDispose() and then the memory allocated for the window itself by calling DisposePtr().


/* 24 */
 if ( WindowType( w ) == kListWindow )
 {
 HideWindow( w );
 l = (ListPeek)w;
 
 LDispose( l->list );
 
 CloseWindow( w );
 
 DisposePtr( (Ptr)w );
 }

If the window was a PICT window, all we need to deallocate is the memory allocated for the window.


/* 25 */
 else if ( WindowType( w ) == kPictWindow )
 {
 CloseWindow( w );
 DisposePtr( (Ptr)w );
 }
}

EventLoop() does what it always did.


/* 26 */
/********************* EventLoop *********************/

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

DoEvent() dispatches the specified event.


/* 27 */
/********************* DoEvent *********************/

void    DoEvent( EventRecord *eventPtr )
{
 char   theChar;
 
 switch ( eventPtr->what )
 {
 case mouseDown: 
 HandleMouseDown( eventPtr );
 break;
 case keyDown:
 case autoKey:
 theChar = eventPtr->message & charCodeMask;
 if ( (eventPtr->modifiers & cmdKey) != 0 ) 
 HandleMenuChoice( MenuKey( theChar ) );
 break;
 case updateEvt:
 DoUpdate( eventPtr );
 break;
 case activateEvt:
 DoActivate( eventPtr );
 break;
 }
}

DoUpdate() handles update events.


/* 28 */
/********************* DoUpdate *********************/

void    DoUpdate( EventRecord *eventPtr )
{
 WindowPtrw;
 short  numPicts, i;
 ListPeek l;
 ListHandle list;
 GrafPtroldPort;
 Rect   r;
 Point  cellIndex;
 PicHandlepic;
 PictPeek p;

We’ll retrieve the WindowPtr from the EventRecord. As always, we’ll sandwich our update processing code between calls to BeginUpdate() and EndUpdate().


/* 29 */
 w = (WindowPtr)(eventPtr->message);
 BeginUpdate( w );

If the window is a list window (See explanation of WindowType() later in the column), we’ll retrieve the list handle from the piggybacking list struct, redraw the grow box, then call LUpdate() to update the list as needed. Simple, eh?


/* 30 */
 if ( WindowType( w ) == kListWindow )
 {
 GetPort( &oldPort );
 SetPort( w );
 
 l = (ListPeek)w;
 list = l->list;
 
 DrawGrowIcon( w );
 
 LUpdate( (**list).port->visRgn, list );
 
 SetPort( oldPort );
 }

If the window is a pict window, we’ll retrieve the PICT resource id from the piggybacked pict struct, retrieve the PICT resource by calling GetPicture(), then center and draw the picture.


/* 31 */
 else if ( WindowType( w ) == kPictWindow )
 {
 GetPort( &oldPort );
 SetPort( w );
 
 r = w->portRect;
 
 p = (PictPeek)w;
 
 pic = GetPicture( p->PictResID );
 
 CenterPict( pic, &r );
 DrawPicture( pic, &r );
 
 SetPort( oldPort );
 }
 EndUpdate( w );
}

DoActivate() handles activate events. Since the Pict window doesn’t need any special activate event processing, all we have to do is handle list window activates.


/* 32 */
/********************* DoActivate *********************/

void    DoActivate( EventRecord *eventPtr )
{
 WindowPtrw;
 ListPeek l;
 ListHandle list;
 
 w = (WindowPtr)(eventPtr->message);

If the window receiving the activate event is a list window, we’ll check to see whether the activate event is an activate or deactivate event, then make the appropriate call to LActivate(), then redraw the grow box.


/* 33 */
 if ( WindowType( w ) == kListWindow )
 {
 l = (ListPeek)w;
 list = l->list;
 
 if ( eventPtr->modifiers & activeFlag )
 LActivate( true, list );
 else
 LActivate( false, list );
 
 DrawGrowIcon( w );
 }
}

Most of HandleMouseDown() should look familiar to you.


/* 34 */
/********************* HandleMouseDown *********************/

void    HandleMouseDown( EventRecord *eventPtr )
{
 WindowPtrwindow;
 short  thePart;
 long   menuChoice;
 GrafPtroldPort;
 long   windSize;
 Rect   growRect;
 
 thePart = FindWindow( eventPtr->where, &window );
 
 switch ( thePart )
 {
 case inMenuBar:
 menuChoice = MenuSelect( eventPtr->where );
 HandleMenuChoice( menuChoice );
 break;
 case inSysWindow : 
 SystemClick( eventPtr, window );
 break;
 case inContent:
 DoContentClick( eventPtr, window );
 break;
 case inGrow:
 DoGrow( eventPtr, window );
 break;
 case inDrag : 
 DragWindow( window, eventPtr->where, 
 &screenBits.bounds );
 break;

The one exception is the call to DestroyWindow() when the mouse is clicked in the go away box.


/* 35 */
 case inGoAway:
 if ( TrackGoAway( window, eventPtr->where ) )
 DestroyWindow( window );
 break;
 }
}

DoContentClick() is called when the mouse is clicked in the specified window’s content region.


/* 36 */
/********************* DoContentClick *********************/

void    DoContentClick( EventRecord *eventPtr, WindowPtr w )
{
 GrafPtroldPort;
 ListHandle list;
 ListPeek l;

If the window is not currently in front, SelectWindow() is called to bring the window to the front.


/* 37 */
 if ( w != FrontWindow() )
 {
 SelectWindow( w );
 }

If the click was in the frontmost window and the window is a list window, we’ll convert the current mouse coordinates (which are in global coordinates) to the window’s local coordinate system.


/* 38 */
 else if ( WindowType( w ) == kListWindow )
 {
 GetPort( &oldPort );
 SetPort( w );
 
 GlobalToLocal( &(eventPtr->where) );

Next, we’ll retrieve the list handle and pass it to LClick(). LClick() handles all types of clicks, from clicks in the scroll bars to clicks in the list cells. LClick() returns true if a double-click occurs. In that case, we’ll create a new pict window from the currently selected list item.


/* 39 */
 l = (ListPeek)w;
 list = l->list;
 
 if (LClick( eventPtr->where, eventPtr->modifiers, list ))
 CreatePictWindow( list );
 SetPort( oldPort );
 }
}

CreatePictWindow() first must figure out which of the list’s cells is selected, then create a pict window based on the resource associated with that cell.


/* 40 */
/********************* CreatePictWindow *********************/

void    CreatePictWindow( ListHandle list )
{
 Cell   cell;
 PicHandlepic;
 Handle rHandle;
 Rect   r;
 short  resID;
 ResTypetheResType;
 Str255 rName;
 PictPeek p;
 Ptr    wStorage;
 WindowPtrw;

We’ll start by setting cell to identify the first cell in the list.


/* 41 */
 SetPt( &cell, 0, 0 );

LGetSelect() starts at cell, then moves through the list until it finds a cell that is highlighted. If LGetSelect() finds a highlighted cell, it puts the cell’s coordinates in cell and returns true.

 
/* 42 */
 if ( LGetSelect( kFindNext, &cell, list ) )
 {

If a highlighted cell was found, we’ll use cell.v to retrieve the appropriate PICT resource. Notice that cell is zero-based, while GetIndResource() is one-based.


/* 43 */
 rHandle = GetIndResource( 'PICT', cell.v + 1 );
 pic = (PicHandle)rHandle;
 
 r = (**pic).picFrame;

Once the PICT is loaded, we’ll make sure the new window is at least as wide as kMinPictWinWidth and at least as tall as kMinPictWinHeight.


/* 44 */
 if ( r.right - r.left < kMinPictWinWidth )
 r.right = r.left + kMinPictWinWidth;
 
 if ( r.bottom - r.top < kMinPictWinHeight )
 r.bottom = r.top + kMinPictWinHeight;

Next, we’ll offset the window’s Rect to correspond to the appropriate upper-left corner and the upper-left globals are bumped again.


/* 45 */
 OffsetRect( &r, gNewWindowX - r.left, 
 gNewWindowY - r.top );
 
 BumpGlobalXandY();

Next, a PictRecord is allocated and the new storage is used to create the new window.


/* 46 */
 wStorage = NewPtr( sizeof( PictRecord ) );
 
 GetResInfo( rHandle, &resID, &theResType, rName );
 
 if ( rName[ 0 ] > 0 )
 {
 w = NewWindow( wStorage, &r, rName, kInvisible,
 noGrowDocProc, kMoveToFront, kHasGoAway, 0L );
 }
 else
 {
 w = NewWindow( wStorage, &r, "\p<Unnamed>", kInvisible,
 noGrowDocProc, kMoveToFront, kHasGoAway, 0L );
 }
 
 ShowWindow( w );
 SetPort( w );

Finally, the PictRecord’s wType field is set to kPictWindow and the PICT’s resource id is stored in the PictResID field for use by DoUpdate().


/* 47 */
 p = (PictPeek)w;
 p->wType = kPictWindow;
 p->PictResID = resID;
 }
}

BumpGlobalXandY() bumps the global X and Y coordinates of the next window’s upper left corner by 20 pixels.


/* 48 */
/********************* BumpGlobalXandY *********************/

void    BumpGlobalXandY( void )
{
 gNewWindowX += 20;
 gNewWindowY += 20;

If the window is threatening to move off the bottom or right hand side of the screen, the gNewWindowX and gNewWindowY are reset.


/* 49 */
 if ( (gNewWindowX > screenBits.bounds.right - 100) ||
 (gNewWindowY > screenBits.bounds.bottom - 100) )
 {
 gNewWindowX = 20;
 gNewWindowY = 50;
 }
}

DoGrow() is called when the mouse is clicked in a window’s grow box.


/* 50 */
/********************* DoGrow  *********************/

void    DoGrow( EventRecord *eventPtr, WindowPtr w )
{
 Rect   r;
 GrafPtroldPort;
 Cell   cSize;
 long   windSize;
 ListHandle list;

If the window is a list window, we’ll first establish the minimum and maximum size 
of the window.

/* 51 */
 if ( WindowType( w ) == kListWindow )
 {
 r.top = kMinWindowHeight;
 r.bottom = 32767;
 r.left = kMinWindowWidth;
 r.right = 32767;

Next, we’ll call GrowWindow(). If the window was resized, we’ll call SizeWindow() to resize the window, then LSize() to let the List Manager know that the list has been resized.


/* 52 */
 windSize = GrowWindow( w, eventPtr->where, &r );
 if ( windSize )
 {
 GetPort( &oldPort );
 SetPort( w );
 EraseRect( &w->portRect );

 SizeWindow( w, LoWord (windSize),
 HiWord(windSize), true );

Notice that the scroll bars are not included in the list’s height and width.


/* 53*/
 list = ((ListPeek)w)->list;
 LSize( LoWord(windSize)-15,
 HiWord(windSize)-15, list );

Next, cSize is set to the current cell size in pixels (including both height and width).


/* 54 */
 cSize = (*list)->cellSize;

Though the height of a cell hasn’t changed, we’re going to make our cell as wide as the window. Note that this won’t always be the case (resize an Excel spreadsheet and the cells don’t change size). We’ll call LCellSize() to resize all the cells and InvalRect() to force an update.

If you have any doubts about any of these calls, try commenting them out and see what happens.


/* 55 */
 cSize.h = LoWord( windSize ) - 15;
 LCellSize( cSize, list );
 InvalRect( &w->portRect );
 SetPort( oldPort );
 }
 }
}

HandleMenuChoice() dispatches a menu selection.


/* 56 */
/********************* HandleMenuChoice *********************/

void    HandleMenuChoice( long menuChoice )
{
 short  menu;
 short  item;
 
 if ( menuChoice != 0 )
 {
 menu = HiWord( menuChoice );
 item = LoWord( menuChoice );
 
 switch ( menu )
 {
 case mApple:
 HandleAppleChoice( item );
 break;
 case mFile:
 HandleFileChoice( item );
 break;
 }
 HiliteMenu( 0 );
 }
}

HandleAppleChoice() does what it always does.


/* 57 */
/********************* HandleAppleChoice ********************/

void    HandleAppleChoice( short item )
{
 MenuHandle appleMenu;
 Str255 accName;
 short  accNumber;
 
 switch ( item )
 {
 case iAbout:
 SysBeep( 20 );
 break;
 default:
 appleMenu = GetMHandle( mApple );
 GetItem( appleMenu, item, accName );
 accNumber = OpenDeskAcc( accName );
 break;
 }
}

HandleFileChoice() dispatches selections from the File menu.


/* 58 */
/********************* HandleFileChoice *********************/

void    HandleFileChoice( short item )
{
 switch ( item )
 {
 case iNewList:
 CreateListWindow();
 break;
 case iClose:
 DestroyWindow( FrontWindow() );
 break;
 case iQuit:
 gDone = true;
 break;
 }
}

CenterPict() centers the specified picture in the specified Rect, setting the Rect to the newly centered Pict’s Rect.


/* 59 */
/********************* CenterPict *********************/

void    CenterPict( PicHandle picture, Rect *destRectPtr )
{
 Rect   windRect, pictRect;
 
 windRect = *destRectPtr;
 pictRect = (**( picture )).picFrame;
 OffsetRect( &pictRect, windRect.left - pictRect.left,
 windRect.top   - pictRect.top);
 OffsetRect( &pictRect, (windRect.right - pictRect.right)/2,
 (windRect.bottom - pictRect.bottom)/2);
 *destRectPtr = pictRect;
}

WindowType() returns the type of the specified window. If the window has a negative windowKind field, it’s a Desk Accessory. If the window’s wType field is kListWindow or kPictWindow, one of those is returned, otherwise kUnknownWindow is returned.


/* 60 */
/********************* WindowType *********************/

short WindowType( WindowPtr window )
{
 if ( window == nil )
 return( kNilWindow );
 if ( ((WindowPeek)window)->windowKind < 0 )
 return( kDAWindow );
 
 if ( ((ListPeek)window)->wType == kListWindow )
 return( kListWindow );
 
 if ( ((ListPeek)window)->wType == kPictWindow )
 return( kPictWindow );
 
 return( kUnknownWindow );
}

DoError() puts up a StopAlert(), then exits.


/* 61 */
/********************* DoError *********************/

void    DoError( Str255 errorString )
{
 ParamText( errorString, kEmptyString, 
 kEmptyString, kEmptyString );
 
 StopAlert( kErrorAlertID, kNilFilterProc );
 
 ExitToShell();
}

Till Next Month

If you want to know more about the List Manager, check out the appropriate chapters in Inside Macintosh or read about it online in THINK Reference. For some real thrills, try writing your own LDEF that displays small icons as well as text in your list. If you want to exceed 32K worth of list data, you’ll have to write your own LDEF.

Next month, I’m going to try my hardest to get to that PixMap program I keep promising to do. We’ll see. In the meantime, Deneen and I are going to Santa Fe to take Daniel skiing for the first time. Can you believe how quickly time flies?

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Latest Forum Discussions

See All

Top Mobile Game Discounts
Every day, we pick out a curated list of the best mobile discounts on the App Store and post them here. This list won't be comprehensive, but it every game on it is recommended. Feel free to check out the coverage we did on them in the links... | Read more »
Price of Glory unleashes its 1.4 Alpha u...
As much as we all probably dislike Maths as a subject, we do have to hand it to geometry for giving us the good old Hexgrid, home of some of the best strategy games. One such example, Price of Glory, has dropped its 1.4 Alpha update, stocked full... | Read more »
The SLC 2025 kicks off this month to cro...
Ever since the Solo Leveling: Arise Championship 2025 was announced, I have been looking forward to it. The promotional clip they released a month or two back showed crowds going absolutely nuts for the previous competitions, so imagine the... | Read more »
Dive into some early Magicpunk fun as Cr...
Excellent news for fans of steampunk and magic; the Precursor Test for Magicpunk MMORPG Crystal of Atlan opens today. This rather fancy way of saying beta test will remain open until March 5th and is available for PC - boo - and Android devices -... | Read more »
Prepare to get your mind melted as Evang...
If you are a fan of sci-fi shooters and incredibly weird, mind-bending anime series, then you are in for a treat, as Goddess of Victory: Nikke is gearing up for its second collaboration with Evangelion. We were also treated to an upcoming... | Read more »
Square Enix gives with one hand and slap...
We have something of a mixed bag coming over from Square Enix HQ today. Two of their mobile games are revelling in life with new events keeping them alive, whilst another has been thrown onto the ever-growing discard pile Square is building. I... | Read more »
Let the world burn as you have some fest...
It is time to leave the world burning once again as you take a much-needed break from that whole “hero” lark and enjoy some celebrations in Genshin Impact. Version 5.4, Moonlight Amidst Dreams, will see you in Inazuma to attend the Mikawa Flower... | Read more »
Full Moon Over the Abyssal Sea lands on...
Aether Gazer has announced its latest major update, and it is one of the loveliest event names I have ever heard. Full Moon Over the Abyssal Sea is an amazing name, and it comes loaded with two side stories, a new S-grade Modifier, and some fancy... | Read more »
Open your own eatery for all the forest...
Very important question; when you read the title Zoo Restaurant, do you also immediately think of running a restaurant in which you cook Zoo animals as the course? I will just assume yes. Anyway, come June 23rd we will all be able to start up our... | Read more »
Crystal of Atlan opens registration for...
Nuverse was prominently featured in the last month for all the wrong reasons with the USA TikTok debacle, but now it is putting all that behind it and preparing for the Crystal of Atlan beta test. Taking place between February 18th and March 5th,... | Read more »

Price Scanner via MacPrices.net

AT&T is offering a 65% discount on the ne...
AT&T is offering the new iPhone 16e for up to 65% off their monthly finance fee with 36-months of service. No trade-in is required. Discount is applied via monthly bill credits over the 36 month... Read more
Use this code to get a free iPhone 13 at Visi...
For a limited time, use code SWEETDEAL to get a free 128GB iPhone 13 Visible, Verizon’s low-cost wireless cell service, Visible. Deal is valid when you purchase the Visible+ annual plan. Free... Read more
M4 Mac minis on sale for $50-$80 off MSRP at...
B&H Photo has M4 Mac minis in stock and on sale right now for $50 to $80 off Apple’s MSRP, each including free 1-2 day shipping to most US addresses: – M4 Mac mini (16GB/256GB): $549, $50 off... Read more
Buy an iPhone 16 at Boost Mobile and get one...
Boost Mobile, an MVNO using AT&T and T-Mobile’s networks, is offering one year of free Unlimited service with the purchase of any iPhone 16. Purchase the iPhone at standard MSRP, and then choose... Read more
Get an iPhone 15 for only $299 at Boost Mobil...
Boost Mobile, an MVNO using AT&T and T-Mobile’s networks, is offering the 128GB iPhone 15 for $299.99 including service with their Unlimited Premium plan (50GB of premium data, $60/month), or $20... Read more
Unreal Mobile is offering $100 off any new iP...
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, 14, 13, and SE... Read more
Apple drops prices on clearance iPhone 14 mod...
With today’s introduction of the new iPhone 16e, Apple has discontinued the iPhone 14, 14 Pro, and SE. In response, Apple has dropped prices on unlocked, Certified Refurbished, iPhone 14 models to a... Read more
B&H has 16-inch M4 Max MacBook Pros on sa...
B&H Photo is offering a $360-$410 discount on new 16-inch MacBook Pros with M4 Max CPUs right now. B&H offers free 1-2 day shipping to most US addresses: – 16″ M4 Max MacBook Pro (36GB/1TB/... Read more
Amazon is offering a $100 discount on the M4...
Amazon has the M4 Pro Mac mini discounted $100 off MSRP right now. Shipping is free. Their price is the lowest currently available for this popular mini: – Mac mini M4 Pro (24GB/512GB): $1299, $100... Read more
B&H continues to offer $150-$220 discount...
B&H Photo has 14-inch M4 MacBook Pros on sale for $150-$220 off MSRP. B&H offers free 1-2 day shipping to most US addresses: – 14″ M4 MacBook Pro (16GB/512GB): $1449, $150 off MSRP – 14″ M4... Read more

Jobs Board

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