Newsgroups: comp.sys.apple2
Path: news.weeg.uiowa.edu!news.uiowa.edu!hobbes.physics.uiowa.edu!zaphod.mps.ohio-state.edu!wupost!darwin.sura.net!Sirius.dfn.de!zrz.tu-berlin.de!news.netmbx.de!zelator!tooly
From: tooly@zelator.in-berlin.de (Theo Schneider)
Subject: Re: need help with SFGetFile
Organization: Puplic-Access-Xenix-System
Date: Wed, 22 Jul 92 09:07:01 GMT
Message-ID: <94B5WTP@zelator.in-berlin.de>
References: <1992Jul21.221425.12406@oakhill.sps.mot.com>
Lines: 50

Hi Jason,
 
i can't speak 'C' so here is an short ORCA/Pascal source. I use this
source as an Filterprocedure to select only Files with an
Resourcefork.
 
------------------------------------------------------------------------------
type
  DirEntryPtr = ^dirEntryOSDCB;
 
 
{$ToolParms+, DataBank+}
function OpenFilter (DirEntry : DirEntryPtr) : integer;
begin
  if (DirEntry^.flags & $8000) = 0 then
    OpenFilter := noSelect
  else
    OpenFilter := displaySelect;
end;
{$ToolParms-, DataBank+}
 
procedure DoOpen
var
  OpenReplyRec : replyRecord5_0;
  prompt       : pString;
 
begin
  prompt := 'Open file : ';
  OpenReplyRec.nameVerb := newHandleVerb;
  OpenReplyRec.pathVerb := newHandleVerb;
  SFGetFile2 (120, 40, refIsPointer, @prompt, @OpenFilter,
                                          nil, OpenReplyRec);
end;
 
-------------------------------------------------------------------------------
 
I hope this help You and best regards from Germany
 
  mfg
     Theo

-- 
   
   +****************************************************************+
   *  Theo Schneider       | GEnie    : T.Scheider6                 *
   *  Babelsberger Str. 40 | Internet : tooly@zelator.in-berlin.de  *
   *  1000 Berlin 31       | Zerberus : T.Schneider@TeleMail.Zer    *
   *  Germany              | Phone    : ++49 30 854 29 72           *
   +****************************************************************+