home *** CD-ROM | disk | FTP | other *** search
- /*-- AutoRev header do NOT edit!
- *
- * Program : FileRequest.c
- * Copyright : Copyright © 1991-92 Jaba Development
- * Author : Jan van den Baard
- * Creation Date : 04-Apr-92
- * Current version : 2.0
- * Translator : Dice v2.06.20
- *
- * REVISION HISTORY
- *
- * Date Version Comment
- * --------- ------- ------------------------------------------
- * 04-Apr-92 2.0 ReqTools FileRequester interface.
- *
- *-- REV_END --*/
-
- #include "View.h"
-
- Prototype long FileRequest( struct Window *, UBYTE *, UBYTE *, UBYTE *, UBYTE *, UBYTE );
-
- static struct TagItem frTags[] = {
- RT_ReqPos, REQPOS_CENTERSCR,
- RT_WaitPointer, TRUE,
- RTFI_Flags, NULL,
- RTFI_OkText, NULL,
- TAG_DONE
- };
-
- extern UBYTE vwName[ 512 ];
-
- long FileRequest( window, hail, fbuf, dbuf, pbuf, type )
- struct Window *window;
- UBYTE *hail, *fbuf, *dbuf, *pbuf, type;
- {
- struct rtFileRequester *freq = 0l;
- long ret = NULL;
-
- if ( freq = rtAllocRequestA( RT_FILEREQ, TAG_DONE )) {
-
- rtChangeReqAttr( freq, RTFI_Dir, dbuf,
- RTFI_MatchPat, pbuf,
- TAG_DONE );
-
- switch( type ) {
- case FR_SAVE:
- frTags[3].ti_Data = (ULONG)"Save";
- frTags[2].ti_Data = FREQF_SAVE | FREQF_PATGAD | FREQF_NOBUFFER;
- break;
- case FR_LOAD:
- frTags[3].ti_Data = (ULONG)"Load";
- frTags[2].ti_Data = FREQF_PATGAD | FREQF_NOBUFFER;
- break;
- }
-
- if ( ret = rtFileRequestA( freq, fbuf, hail, frTags )) {
- strcpy( dbuf, freq->Dir );
- strcpy( pbuf, freq->MatchPat );
- strcpy( vwName, dbuf );
- CheckDirExtension( vwName );
- strcat( vwName, fbuf );
- }
- rtFreeRequest( freq );
- }
-
- return( ret );
- }
-