💾 Archived View for mirrors.apple2.org.za › archive › apple.cabi.net › FAQs.and.INFO › IIGS.SPEC.INF… captured on 2023-01-29 at 07:50:45.
-=-=-=-=-=-=-
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 *
+****************************************************************+