/*
* TinyFinder.c - 21-Feb-85
*
* This program is an alternative Finder that is very fast and small,
* and limited in its abilities compared to the real Finder.  It is
* written in Aztec 68000 C (version 1.06D).
*
* copyright (c) 1985 by:
*   Kent Kersten
*   Harrison Systems
*   437 Atlas Drive
*   Nashville, TN  37211
*   (615) 834-1366
*   CompuServe CIS [72277,2726]
*
* To compile & link this file:
*       cc TinyFinder.c
*       ln -m TinyFinder.o sys:lib/sacroot.o -lc
*/

#include  <quickdraw.h>
#include  <window.h>
#include  <event.h>
#include  <menu.h>
#include  <desk.h>
#include  <dialog.h>
#include  <resource.h>
#include  <segment.h>
#include  <packages.h>
#include  <pb.h>
#include  <syserr.h>
#include  <inits.h>

#define   nil                   (long) 0
#define   NUM_MENUS             4

#define   AppleMenu             256
#define   FileMenu              257
#define   EditMenu              258
#define   SpecialMenu           259

#define   ABOUT_DLOG            256     /* resource id # of our 'About...' box */
#define   GENERAL_ERROR_ALRT    500

MenuHandle TFMenu[NUM_MENUS];
Point      whereOpen    = { 80, 80 };           /* where to put the SF dialog */

Boolean  DoCommand(), ProcessEvents();


main()
{
    InitGraf(&thePort);
    InitFonts();
    InitWindows();
    InitMenus();
    InitDialogs(nil);
    TEInit();

    FlushEvents(everyEvent, 0);        /* flush ALL events */
    FormMenuBar();

    CheckForFinder();

    InitCursor();
    LaunchAppl();

    while(ProcessEvents())
         ;
}


/*
* Get events and process them.  Return FALSE to exit.
*/

Boolean ProcessEvents()
{
    char         theChar;
    Boolean      NoQuitFlag = TRUE;
    WindowPtr    whichWindow;
    EventRecord  TFEvent;
    GrafPtr      savePort;

    HiliteMenu(0);                     /* turn off any highlighting in menu bar */
    SystemTask();

    GetNextEvent(everyEvent, &TFEvent);
    switch(TFEvent.what) {
         case mouseDown:
              switch(FindWindow(pass(TFEvent.where), &whichWindow)) {  /* major Aztec C68K hack-ack (pass) */
                   case inMenuBar:
                        NoQuitFlag = DoCommand(MenuSelect(pass(TFEvent.where)));       /* Aztec hack */
                        break;
                   case inSysWindow:
                        SystemClick(&TFEvent,whichWindow);
                        break;
              }
              break;
         case keyDown:
         case autoKey:
              theChar = TFEvent.message % 256;
              if((TFEvent.modifiers & cmdKey) != 0)            /* command key pressed */
                   NoQuitFlag = DoCommand(MenuKey(theChar));
              break;
         case updateEvt:
              GetPort(&savePort);
              SetPort(TFEvent.message);
              BeginUpdate(TFEvent.message);
              EndUpdate(TFEvent.message);
              SetPort(savePort);
              break;
    }

    return NoQuitFlag;
}


/*
* Decipher menu commands here.  Return FALSE to quit.
*/

Boolean DoCommand(command)
long command;
{
    char     name[256];
    short    MenuNum, ItemNum;
    Boolean  NoQuitFlag = TRUE;

    InitCursor();
    MenuNum = HiWord(command);
    ItemNum = LoWord(command);

    switch(MenuNum) {
         case AppleMenu:
              if(ItemNum == 1)
                   AboutTinyFinder();          /* do our "About..." box */
              else {
                   GetItem(TFMenu[0], ItemNum, name);
                   OpenDeskAcc(name);
              }
              break;
         case FileMenu:
              switch(ItemNum) {
                   case 1:
                        LaunchAppl();
                        break;
                   case 2:
                        GoFinder();
                        break;
                   case 4:
                        NoQuitFlag = FALSE;
                        break;
              }
              break;
         case EditMenu:
              switch(ItemNum) {
                   case 1:
                        SystemEdit(undoCmd);
                        break;
                   case 3:
                        SystemEdit(cutCmd);
                        break;
                   case 4:
                        SystemEdit(copyCmd);
                        break;
                   case 5:
                        SystemEdit(pasteCmd);
                        break;
                   case 6:
                        SystemEdit(clearCmd);
                        break;
              }
              break;
         case SpecialMenu:
              switch(ItemNum) {
                   case 1:
                        ShutDown();
                        break;
              }
    }

    return NoQuitFlag;
}


/*
* This pops up a dialog for our 'About...' box.
*/

AboutTinyFinder()
{
    int         type, ItemHit;
    Handle      hdl;
    DialogPtr   DPtr;
    Rect        tBox;

    InitCursor();

    DPtr = GetNewDialog(ABOUT_DLOG, nil, (long) -1);
    SetPort(DPtr);

    GetDItem(DPtr, 2, &type, &hdl, &tBox);             /* icon */
    PlotIcon(&tBox, GetIcon(256));

    PenPat(&gray);
    GetDItem(DPtr, 6, &type, &hdl, &tBox);             /* dividing line */
    MoveTo(tBox.left, tBox.top);
    LineTo(tBox.right, tBox.top);

    GetDItem(DPtr, 7, &type, &hdl, &tBox);             /* dividing line */
    MoveTo(tBox.left, tBox.top);
    LineTo(tBox.right, tBox.top);
    PenPat(&black);

    while(1) {
         ModalDialog(nil, &ItemHit);
         if(ItemHit == 1) {
              CloseDialog(DPtr);                       /* 'OK' */
              break;
         }
    }
}


/*
* Check to see if the file named 'Finder' exists on the default volume.
* If not, then disable the command in the 'File' menu that allows the user to
* launch the Apple Finder.  Note that this is fairly dumb, in that if it
* finds ANY file named 'Finder' it thinks it is the one.  Could be made
* smarter by checking the type and creator bytes for the file, but I
* didn't feel that I should, in case there is an application by that name.
*/

CheckForFinder()
{
    Finfo fndrInfo;

    if(GetFInfo("\006Finder", 0, &fndrInfo) < 0)       /* use default volume */
         DisableItem(TFMenu[1], 2);
}


/*
* Create our menu bar.
*/

FormMenuBar()
{
    int  i;

    TFMenu[0] = GetMenu(AppleMenu);
    TFMenu[1] = GetMenu(FileMenu);
    TFMenu[2] = GetMenu(EditMenu);
    TFMenu[3] = GetMenu(SpecialMenu);
    AddResMenu(TFMenu[0], 'DRVR');

    for(i = 0;i < NUM_MENUS;++i)
         InsertMenu(TFMenu[i], 0);

    DrawMenuBar();
}


/*
* This alert takes care of our general error messages.  We can
* pass up to four Str255 types (pointers to them, that is), and
* they are combined end to end with a single space between them.
*/

GeneralError(str1, str2, str3, str4)
char *str1, *str2, *str3, *str4;                        /* Pascal format */
{
    InitCursor();
    ParamText("\000", "\000", "\000", "\000");
    ParamText(str1, str2, str3, str4);
    StopAlert(GENERAL_ERROR_ALRT, nil);
}


/*
* Launch the Apple Finder.  This command is disabled in the menu bar
* if the program does not find the Finder on the default disk when
* we boot up and begin execution.
*/

GoFinder()
{
    long zeroes = 0;

    Launch("\006Finder", &zeroes);
}


/*
* Come here when the 'Launch' menu command is given.
*/

LaunchAppl()
{
    long        zeroes = 0;
    short       numTypes = 1;
    Ptr         prompt = nil;
    Ptr         fileFilter = nil;
    Handle      hdl;
    SFReply     rec;
    SFTypeList  typeList;

    typeList[0] = 'APPL';              /* filter out all but 'APPL' types */

    SFGetFile(pass(whereOpen), prompt, fileFilter, numTypes, typeList, nil, &rec);

    if(rec.good == 0)                          /* 'Cancel' button hit */
         return;

    if(SetVol(nil, rec.vRefNum) < 0) {         /* set the new default volume */
         hdl = GetString(256);
         GeneralError(*hdl, nil, nil, nil);
         return;
    }

    Launch(rec.fName, &zeroes);
}


/*
* This is the equivalent of Apple Finder v4.1's 'Shut Down' command,
* in which the diskettes are ejected from the internal & external
* drives and a system reset is issued.  Any other volumes that happen
* to be mounted will NOT be handled.
*/

ShutDown()
{
    int  vRefNum;
    long freeBytes;
    char volName[256];

    GetVInfo(1, volName, &vRefNum, &freeBytes);        /* internal drive */
    Eject(volName, vRefNum);

    if(GetVInfo(2, volName, &vRefNum, &freeBytes) != ParamErr) /* external */
         Eject(volName, vRefNum);


               /* pulse the 68000's RESET pin via a direct assembler call */
#asm

    Reset

#endasm
}

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.