[net.sources.mac] Oops. More source for Utils DA

maclab@reed.UUCP (05/15/86)

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;
};