Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!cmcl2!harvard!husc6!panda!genrad!decvax!decwrl!pyramid!hplabs!tektronix!reed!maclab
From: maclab@reed.UUCP
Newsgroups: net.sources.mac
Subject: Oops.  More source for Utils DA
Message-ID: <3449@reed.UUCP>
Date: Thu, 15-May-86 00:21:27 EDT
Article-I.D.: reed.3449
Posted: Thu May 15 00:21:27 1986
Date-Received: Sun, 18-May-86 12:03:16 EDT
Organization: Reed College, Portland, Oregon
Lines: 56


In the posting which contained the various sources to the Utils
desk accessory, I forgot to include the main program -- oops.  Here
it is....

Scott Gillespie

-------------------------------------------------------------------


Program sUtils;

Uses __DeskLib (*$U+*) uToolIntf ;

Link 
     sCopy,
     sRename,
     sDelete,
     
     __Filter, __SFNames, __NoSysCall
     __OSTraps, __DeskLib, __ToolLink,
     __EasyMenus  :;
     
Var
  mid: Integer;
  
Proc _Init();
{

  InitEasyMenus();
  DAClean(True);
  
  Mid := DAMenuInit();
  AddMenu(Mid,"Utils");  
  AddItem(Mid,"Copy");
  AddItem(Mid,"Rename");
  AddItem(Mid,"Delete");
  AddItem(Mid,"(-");
  AddItem(Mid,"Quit");
};

Proc _Halt();
{
  HaltEasyMenus();
};

Proc _Menu(id,item: Integer);
{
  if id=Mid Then
    Case item of
      1: DoCopy();
      2: DoRename();
      3: DoDelete();
      5: ReqHalt();
    End;
};