Newsgroups: comp.sys.apple2.programmer
Path: blue.weeg.uiowa.edu!news.uiowa.edu!uunet!news.mathworks.com!hookup!ames!waikato!comp.vuw.ac.nz!actrix.gen.nz!dempson
From: dempson@atlantis.actrix.gen.nz (David Empson)
Subject: Re: How to use resource?
Message-ID: <D129Az.54v@actrix.gen.nz>
Nntp-Posting-Host: atlantis.actrix.gen.nz
Sender: news@actrix.gen.nz (News Administrator)
Organization: Actrix - New Zealand Internet Service Providers
Date: Mon, 19 Dec 1994 13:54:34 GMT
References: <3ctg73$9pi@nuscc.nus.sg>
Lines: 179

In article <3ctg73$9pi@nuscc.nus.sg>,
Lim Thye Chean <ltchean@iss.nus.sg> wrote:
> 
> Learning to program using Orca/C 2.0. I started up with the Frame.cc program.
> Works great. But it does not use the resources. Looking up and down, finally
> found one resource using program called Frame2.pas (for Orca/Pascal 2.0) and
> Frame2.rez. Since rez should be language independent, I decided to steal
> the Frame2.rez over and used it in Frame.cc.

[snip]

> I am not sure what happens. I used GNO 2.0.4, stevie editor and Orca/C 2.0,
> 4MB GS with a harddisk. Thanks.

ORCA/C 2.0 is one possible reason for any problem.  I did similar
changes to yours (I also removed the DoAlert function, and changed
MenuAbout to use AlertWindow, as in the Pascal version), and ended up
with a working version.  I'm using ORCA/C 2.0.3, and I ran it from
ORCA/Shell.

It also works fine when I run it from GNO.

Another possible problem is that the resource fork hasn't been set up
correctly.  The frame2.make command file included with the Pascal
source does a cmpl (compile and link) to create the data fork, then
uses REZ to compile the frame2.rez file, adding a resource fork to the
file.

I prefer to compile the resources to a separate file, then use a
utility which copies just the resource fork to attach it to the
application.  (I'm using Apple's DUPLICATE program to do this; it is
one of the now vanished APW 1.1 utilities.)


With apologies to Mike, here is the source code I used to compile a
working version of frame.cc with resources.

The commands to compile, link, etc. were as follows (from ORCA):

compile frame.cc keep=frame
link frame keep=frame
compile frame2.rez keep=frame2.r
duplicate -r frame2.r frame

Here is the source code:

/****************************************************************
*
*  Frame
*
*  This desktop program is about as simple as they get.  It
*  brings up the Apple menu, a file menu with Quit and Close,
*  and an edit menu with Undo, Cut, Copy, Paste and Clear.
*  This is the minimum configuration for supporting desk
*  accessories.  (All of these menus have pre-assigned numbers,
*  assigned by Apple.)
*
*  The purpose of this rather simple program is to show how
*  easy a desktop program can be to write, and to give you a
*  framework to use in developing your own programs.
*
*  Mike Westerfield
*
*  Copyright 1989
*  Byte Works, Inc.
*
****************************************************************/

#pragma keep "Frame"
#pragma lint -1

#include <orca.h>
#include <stddef.h>
#include <stdio.h>
#include <stdlib.h>

#include <types.h>
#include <quickdraw.h>
#include <misctool.h>
#include <event.h>
#include <control.h>
#include <window.h>
#include <menu.h>
#include <desk.h>
#include <lineedit.h>
#include <dialog.h>

#define apple_About 257         /* Menu ID numbers */
#define file_Quit   256

typedef   int BOOL;         /* simulate boolean types */
BOOL      done;             /* tells if the program should stop */
WmTaskRec lastEvent;            /* last event returned in event loop */


/****************************************************************
*
* MenuAbout - Create the About menu
*
****************************************************************/

#define alertID 1

void MenuAbout (void)

{
AlertWindow(5, NULL, alertID);
}


/****************************************************************
*
* HandleMenu - Handle a menu selection
*
****************************************************************/

void HandleMenu (int menuNum)

{
switch (menuNum) {
   case apple_About:   MenuAbout ();
               break;

   case file_Quit:     done = TRUE;
               break;

   default:        break;
   }
HiliteMenu (FALSE, (int) (lastEvent.wmTaskData >> 16));
}


/****************************************************************
*
* InitMenus - Initialize the menu bar
*
****************************************************************/

#define menuID  1

void InitMenus (void)

{
SetSysBar(NewMenuBar2(2, menuID, NULL));    /* create the menu bar */
SetMenuBar(NULL);
FixAppleMenu (1);           /* add desk accessories */
FixMenuBar ();              /* draw the completed menu bar */
DrawMenuBar ();
}

 
/****************************************************************
*
* Main Program
*
****************************************************************/

int main (void)

{
int event;              /* event # returned by TaskMaster */

startdesk (640);
InitMenus ();               /* set up the menu bar */
lastEvent.wmTaskMask = 0x1FFFL;     /* let Task Master do most stuff */
ShowCursor ();              /* show the cursor */

done = FALSE;               /* main event loop */
do {
   event = TaskMaster (0x076E, &lastEvent);
   switch (event) {         /* handle the events we need to */
       case wInSpecial:
       case wInMenuBar:    HandleMenu ((int) lastEvent.wmTaskData);
       default:        break;
       }
   }
while (!done);
enddesk ();
}