Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP Posting-Version: version B 2.10.3 4.3bsd-beta 6/6/85; site ucbvax.BERKELEY.EDU Path: utzoo!decvax!decwrl!ucbvax!sumex-aim.arpa!INFO-MAC-REQUEST From: INFO-MAC-REQUEST@SUMEX-AIM.ARPA (Moderator William J. Berner) Newsgroups: mod.mac Subject: INFO-MAC Digest V4 #28 Message-ID: <8603092003.AA09204@ucbvax.berkeley.edu> Date: Sun, 9-Mar-86 13:37:00 EST Article-I.D.: ucbvax.8603092003.AA09204 Posted: Sun Mar 9 13:37:00 1986 Date-Received: Tue, 11-Mar-86 08:38:14 EST Sender: daemon@ucbvax.BERKELEY.EDU Reply-To: INFO-MAC@SUMEX-AIM.ARPA Organization: The ARPA Internet Lines: 300 Approved: info-mac@sumex-aim.arpa INFO-MAC Digest Sunday, 9 Mar 1986 Volume 4 : Issue 28 Today's Topics: Misplaced ResEd DevTools 1.1 A Transfer DA Written in TML Pascal Finder 5.1 under Switcher 4.4 Usenet Mac Digest V2 #13 Re: 800K and normal macs Re: 800k drive. ---------------------------------------------------------------------- Date: Sat, 8 Feb 86 11:31:32 est From: cperry@mitre.ARPA (Chris Perry) Subject: Misplaced ResEd Hi. The most current version of ResEd (10d5) is placed in a deceptive part of the index. I believe it's called RESED10D5.HQX, while previous versions were placed in the "UTILITY" section of the index: "UTILITY-RESED10D4.HQX" and so forth. Would it be possible to place 10d5 back in the UTILITY section? Thanks. Chris [[SUMEX]RESED10D5.HQX has been renamed UTILITY-RESED10D5.HQX -BB] ------------------------------ Date: 8 Mar 86 13:05:01 EST From: Jeffrey Shulman Subject: DevTools 1.1 [ Updated from Delphi - Jeff ] // 1.00 2/3/86 Initial release to the public on Delphi/Well // 1.01 2/4/86 Add syntax checking to folder fields // Change Open button to Select // 1.02 2/20/86 Disable Eject if non-ejectable drive // Make TAB do a Next Drive // Make CR close and exit // On entry make sfSaveDisk and SetVol same thing // 1.03 3/5/86 Fix bug on opening zero length data fork. // Recompile with new drvr.text to fix problems // with exiting routines. // Change how DoBrag is done. // Fix bug that caused files copied to different // disks to appear at 0,0 // Take {Get,Set}Item* functions out and put in a // separate file. Now in LibDWB // 1.04 3/5/86 Take out Debugger traps // Move FindInDialog to LibDWB // 1.1 3/7/86 Re-Release to Delphi & Well [ARCHIVED AS [SUMEX]UTILITY-DEVTOOLS-11.HQX --BB] ------------------------------ Date: Fri 7 Mar 86 18:13:19-EST From: Rich Subject: A Transfer DA Written in TML Pascal To all interested parties: This program, written in TML Pascal, implements a Transfer Desk accessory. We're all familiar with the old Transfer; this one, however, was written in Pascal, so is somewhat more readable. To produce the deskaccessory: 1) In the TML Pascal Compiler, set the compiler option "Produce Desk Accessory" 2) Compile and link the program as usual. 3) Run RMaker with the supplied source file (at the end of the program) 4) Use Font/DA Mover to install the accessory. I have tested this program, and it doesn't cause any bizarre crashes. If you have questions or problems, call me or send mail: Richard Siegel Box 698, 5115 Margaret Morrison Street Pittsburgh, PA 15213 RS4U@CARNEGIE.MailNet MCI Mail userid RSEIGEL (yes, that is S-E-I-G-E-L; they messed up) phone number (412) 268-4224 --rich ------------------Cut Here--------------- program Transfer; {This program implements a desk accessory that allows you to transfer to another application. Richard Siegel March 7, 1986 Copying is allowed for noncommercial and personal use only. } {This file should be saved as "Transfer.pas"} {$i MemTypes.ipas} {$i QuickDraw.ipas} {$i OSIntf.ipas} {$i ToolIntf.ipas} {$i PackIntf.ipas} TYPE pLaunchStruct = ^LaunchStruct; LaunchStruct = record pfName: ^Str255; param: integer; End; {LaunchStruct} DAGlobals = record Reply : SFReply; ValidTypes : SFTypeList; volRef : Integer; Location : Point; prompt : Str255; pMyLaunch: pLaunchStruct; myLaunch: LaunchStruct; fName: Str255; err : OSErr; end; DAGlobalsPtr = ^DAGlobals; DAGlobalsHandle = ^DaGlobalsPtr; Procedure Open(var Device : DCtlEntry; var Block : PAramBlockRec); var DaGlobalsHndl : DAGlobalsHandle; DAGlobalsRec : DAGlobals; Procedure Launch; INLINE $A9F2; PROCEDURE LaunchIt(pLnch: pLaunchStruct); INLINE $205F; begin Device.DCtlStorage := NewHandle(SizeOf(DAGlobalsRec)); HLock(Device.DCtlStorage); DAGlobalsHndl := DAGlobalsHandle(Device.DCtlStorage); with DAGlobalsHndl^^ do begin with Location do begin h := 60; v := 60; end; validTypes[0] := 'APPL'; SFGetFile(Location, prompt, NIL, 1, validTypes, NIL, Reply); if Reply.good then begin err := SetVol(NIL, Reply.vRefNum); pMyLaunch:= @myLaunch; With pMyLaunch^ do Begin pfName:= @Reply.fName; {pointer to our fileName} param:= 0; {we don't want alternate screen or sound buffers} End; {With} LaunchIt(pMyLaunch); Launch; end; end; end; procedure Close(var Device : DCtlEntry; var Block : PAramBlockRec); begin end; procedure Ctl(var Device : DCtlEntry; var Block : PAramBlockRec); begin end; begin end. ------------------------Cut Here------------------- *The RMaker source file looks like this: *RMaker source to create desk accessory file *Richard Siegel *March 7, 1986 * This file should be saved as Transfer.R Transfer DA DFILDMOV TYPE DRVR = PROC Transfer, 20 pds2:Transfer *Make the disk name whichever disk you want the file *to be stored on [ARCHIVED AS [SUMEX]DA-LAUNCH.SRC -BB] ------------------------------ Date: Fri 7 Mar 86 21:14:25-EST From: Rich Subject: Finder 5.1 under Switcher 4.4 While running Finder version 5.1 under version 4.4 of the Switcher, I noticed that the "Shut Down" option of the Special menu had been changed from "Shut Down" to "Quit", and when I choose it, it quits the finder and pops mne back into switcher lickety-split. Not bad, and a very nice safety feature. I will modify my Transfer desk accessory to post an alert under Switcher; otherwise it crashes... --richard siegel ------------------------------ Date: 8 Mar 86 14:44:54 EST From: Jeffrey Shulman Subject: Usenet Mac Digest V2 #13 Usenet Mac Digest Saturday, 8 Mar 1986 Volume 2 : Issue 13 Today's Topics: A couple o' questions... Program resource for setting Switcher partition Fractals Synth routines TMON vs. Macsbug MacDB & Mac+ Finding the Blessed System Folder What development system has indexed files (ISAM or Btrees) library Mirror Tech DS Drives The Missing Fedit V3.5!! 68881s for Macs? Tilde key in MacTerminal 2.0. Re: MacDB & Mac+ Aztec C on a Hyperdrive Aztec HFS shell coming? Help with SmallTalk on Mac Plus (level 1) AppleTalk file server protocols wanted Microsoft Basic Compatibility rs422 on Lisa/XL ? [ARCHIVED AS [SUMEX]USENETV2-13.ARC --BB] ------------------------------ Date: 08 Mar 86 08:30 EST From: CML5A9%IRISHMVS.BITNET@WISCVM.WISC.EDU Subject: Re: 800K and normal macs An 800K external drive will work fine with a 512K Mac (64K ROMS...we HAVE to come up with some sort of naming convention for all of these configurations) provided you use the new Finder 5.1 provided by Apple for this purpose. Your dealer should be able to provide. - Tom Dowdy "If it jams, force it, if it breaks, it needed fixing anyway." ------------------------------ Subject: Re: 800k drive. Date: 07 Mar 86 23:00:50 EST (Fri) From: "Steven B. Munson" I have heard from a salesman that specializes in Macintoshes that, in order to get a 128K or 512K Mac to use the external 800K drive without updating its ROMs, you have to get the HD20 file that comes with the Hard Disk 20 and put it on the boot disk. This apparently fools the Mac into thinking that the 800K drive is a hard disk. You can only boot from the internal drive, so the HD20 file has to go on a single-sided disk, and I hear that it takes quite a bit of disk space. Steve Munson sbm@Purdue.EDU sbm@Purdue.CSNET ------------------------------ End of INFO-MAC Digest **********************