home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sys / apple2 / 17727 < prev    next >
Encoding:
Text File  |  1992-07-22  |  1.8 KB  |  61 lines
  1. Newsgroups: comp.sys.apple2
  2. Path: sparky!uunet!zaphod.mps.ohio-state.edu!wupost!darwin.sura.net!Sirius.dfn.de!zrz.tu-berlin.de!news.netmbx.de!zelator!tooly
  3. From: tooly@zelator.in-berlin.de (Theo Schneider)
  4. Subject: Re: need help with SFGetFile
  5. Organization: Puplic-Access-Xenix-System
  6. Date: Wed, 22 Jul 92 09:07:01 GMT
  7. Message-ID: <94B5WTP@zelator.in-berlin.de>
  8. References: <1992Jul21.221425.12406@oakhill.sps.mot.com>
  9. Lines: 50
  10.  
  11. Hi Jason,
  12.  
  13. i can't speak 'C' so here is an short ORCA/Pascal source. I use this
  14. source as an Filterprocedure to select only Files with an
  15. Resourcefork.
  16.  
  17. ------------------------------------------------------------------------------
  18. type
  19.   DirEntryPtr = ^dirEntryOSDCB;
  20.  
  21.  
  22. {$ToolParms+, DataBank+}
  23. function OpenFilter (DirEntry : DirEntryPtr) : integer;
  24. begin
  25.   if (DirEntry^.flags & $8000) = 0 then
  26.     OpenFilter := noSelect
  27.   else
  28.     OpenFilter := displaySelect;
  29. end;
  30. {$ToolParms-, DataBank+}
  31.  
  32. procedure DoOpen
  33. var
  34.   OpenReplyRec : replyRecord5_0;
  35.   prompt       : pString;
  36.  
  37. begin
  38.   prompt := 'Open file : ';
  39.   OpenReplyRec.nameVerb := newHandleVerb;
  40.   OpenReplyRec.pathVerb := newHandleVerb;
  41.   SFGetFile2 (120, 40, refIsPointer, @prompt, @OpenFilter,
  42.                                           nil, OpenReplyRec);
  43. end;
  44.  
  45. -------------------------------------------------------------------------------
  46.  
  47. I hope this help You and best regards from Germany
  48.  
  49.   mfg
  50.      Theo
  51.  
  52. -- 
  53.    
  54.    +****************************************************************+
  55.    *  Theo Schneider       | GEnie    : T.Scheider6                 *
  56.    *  Babelsberger Str. 40 | Internet : tooly@zelator.in-berlin.de  *
  57.    *  1000 Berlin 31       | Zerberus : T.Schneider@TeleMail.Zer    *
  58.    *  Germany              | Phone    : ++49 30 854 29 72           *
  59.    +****************************************************************+
  60.  
  61.