home *** CD-ROM | disk | FTP | other *** search
- *** Elm113/rtsup.c Sat Mar 14 21:22:00 1992
- --- new/rtsup.c Fri May 08 17:56:51 1992
- ***************
- *** 12,21 ****
- #include <proto/dos.h>
- #include <proto/reqtools.h>
- #endif
-
-
- ! struct ReqToolsBase *ReqToolsBase = NULL;
-
-
- Prototype void OpenReqToolsLib(void);
- Prototype void CloseReqToolsLib(void);
- --- 12,33 ----
- #include <proto/dos.h>
- #include <proto/reqtools.h>
- #endif
- + #ifdef DICE
- + #include <clib/exec_protos.h>
- + #include <clib/dos_protos.h>
- + #include <clib/reqtools_protos.h>
- + #endif
-
- + #ifdef KDFREQ
- + #include <clib/kd_freq_protos.h>
- + #include <libraries/KDBase.h>
-
- ! struct Library *KD_FReqBase = NULL;
- ! static struct FRequest *kd_f_requester = NULL;
- ! #endif
-
- + struct ReqToolsBase *ReqToolsBase = NULL;
- +
-
- Prototype void OpenReqToolsLib(void);
- Prototype void CloseReqToolsLib(void);
- ***************
- *** 30,35 ****
- --- 42,54 ----
- void OpenReqToolsLib(void)
- {
- ReqToolsBase=(struct ReqToolsBase *)OpenLibrary("reqtools.library",37L);
- + #ifdef KDFREQ
- + if (KD_FReqBase = OpenLibrary(KLIBNAME,KLIBVERSION)) {
- + if (kd_f_requester = CreateFRequest()) {
- + kd_f_requester->reqtitle = (UBYTE *) "Pick a file";
- + }
- + }
- + #endif
- }
-
-
- ***************
- *** 39,44 ****
- --- 58,69 ----
- if (ReqToolsBase)
- CloseLibrary((struct Library *)ReqToolsBase);
- ReqToolsBase = NULL;
- + #ifdef KDFREQ
- + if (kd_f_requester)
- + DeleteFRequest(kd_f_requester);
- + if (KD_FReqBase)
- + CloseLibrary(KD_FReqBase);
- + #endif
- }
-
-
- ***************
- *** 70,75 ****
- --- 95,115 ----
- BPTR oldlock,newlock;
- char filename[109];
-
- + #ifdef KDFREQ
- + char *selected_file;
- + if (kd_f_requester) {
- + if (strcmp(dir, kd_f_requester->directory)) {
- + strcpy(kd_f_requester->directory, dir);
- + strcpy(kd_f_requester->filename, file);
- + }
- + if (selected_file = (char *)NewFReq(kd_f_requester)) {
- + strcpy(res, selected_file);
- + return(TRUE);
- + } else {
- + return(FALSE);
- + }
- + }
- + #endif
- if (ReqToolsBase) {
- if (strlen(dir)>0) {
- if (newlock=Lock(dir,SHARED_LOCK))
-