/usr/share/doc/fp-compiler/2.6.4/morphos/asltest.pas is in fp-compiler-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | {
Using an asl.library requester
Free Pascal for MorphOS example
Copyright (C) 2005 by Karoly Balogh
Based on work of Nils Sjoholm
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{ * 2005.01.30 * }
{ * Needs MorphOS RTL 2005.01.30 or later! * }
program ASLtest;
uses exec, intuition, utility, asl;
function MessageBox(title, txt, gad: String) : LongInt;
var
tmpReq: TEasyStruct;
begin
title:=title+#0;
txt:=txt+#0;
gad:=gad+#0;
with tmpReq do begin
es_StructSize:=SizeOf(tEasyStruct);
es_Flags:=0;
es_Title:=@title[1];
es_TextFormat:=@txt[1];
es_GadgetFormat:=@gad[1];
end;
MessageBox:=EasyRequestArgs(NIL,@tmpReq,NIL,NIL);
end;
var
FileReq : PFileRequester;
aslResult: Boolean;
begin
{ * Opening needed libraries * }
InitIntuitionLibrary;
InitAslLibrary;
FileReq:=AllocAslRequestTags(ASL_FileRequest,[
ASLFR_InitialPattern,DWord(PChar('#?')),
ASLFR_TitleText,DWord(PChar('ASL Requester Test')),
ASLFR_DoPatterns,DWord(True),
TAG_DONE]);
if FileReq<>NIL then begin
aslResult:=AslRequest(FileReq,NIL);
if aslResult then
MessageBox('ASL Test Results',
'The path is: '+FileReq^.rf_Dir+#10+
'And the file is: '+FileReq^.rf_File,
'OK')
else
MessageBox('ASL Test Result',
'You canceled!',
'OK');
FreeAslRequest(FileReq);
end;
end.
|