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