home *** CD-ROM | disk | FTP | other *** search
- #include <exec/memory.h>
- #include <libraries/dosextens.h>
- #include <exec/devices.h>
- #include <intuition/intuitionbase.h>
- #include <graphics/gfxbase.h>
- #include <hardware/cia.h>
- #include <stdio.h>
-
- struct FileList {
- char fl_filename[31];
- int fl_filetype;
- };
-
- /* Image-Ed Image generation */
-
- /* Start of Image data */
- USHORT MoveDownUpImageData[]={
- /* Plane 0 */
- 0xffe0, 0x8020, 0x8e20, 0x8e20, 0x8e20, 0x8e20, 0xbfa0, 0x9f20,
- 0x8e20, 0x8420, 0x8020, 0xffe0, 0x0000
- };
- /* End of Image data */
-
- struct Image MoveDownUpImage={
- 0,0, /* LeftEdge, TopEdge */
- 12,13,1, /* Width, Height, Depth */
- &MoveDownUpImageData[0], /* ImageData */
- 0x1,0x0, /* PlanePick, PlaneOnOff */
- NULL /* Next Image */
- };
-
- /* Start of Image data */
- USHORT MoveUpUpImageData[]={
- /* Plane 0 */
- 0xffe0, 0x8020, 0x8420, 0x8e20, 0x9f20, 0xbfa0, 0x8e20, 0x8e20,
- 0x8e20, 0x8e20, 0x8020, 0xffe0, 0x0000
- };
- /* End of Image data */
-
- struct Image MoveUpUpImage={
- 0,0, /* LeftEdge, TopEdge */
- 12,13,1, /* Width, Height, Depth */
- &MoveUpUpImageData[0], /* ImageData */
- 0x1,0x0, /* PlanePick, PlaneOnOff */
- NULL /* Next Image */
- };
-
- /* Start of Image data */
- USHORT MoveDownDownImageData[]={
- /* Plane 0 */
- 0xffe0, 0xffe0, 0xf1e0, 0xf1e0, 0xf1e0, 0xf1e0, 0xc060, 0xe0e0,
- 0xf1e0, 0xfbe0, 0xffe0, 0xffe0, 0x0000
- };
- /* End of Image data */
-
- struct Image MoveDownDownImage={
- 0,0, /* LeftEdge, TopEdge */
- 12,13,1, /* Width, Height, Depth */
- &MoveDownDownImageData[0], /* ImageData */
- 0x1,0x0, /* PlanePick, PlaneOnOff */
- NULL /* Next Image */
- };
-
- /* Start of Image data */
- USHORT MoveUpDownImageData[]={
- /* Plane 0 */
- 0xffe0, 0xffe0, 0xfbe0, 0xf1e0, 0xe0e0, 0xc060, 0xf1e0, 0xf1e0,
- 0xf1e0, 0xf1e0, 0xffe0, 0xffe0, 0x0000
- };
- /* End of Image data */
-
- struct Image MoveUpDownImage={
- 0,0, /* LeftEdge, TopEdge */
- 12,13,1, /* Width, Height, Depth */
- &MoveUpDownImageData[0], /* ImageData */
- 0x1,0x0, /* PlanePick, PlaneOnOff */
- NULL /* Next Image */
- };
-
- /* End of Image-Ed Image generation */
-
- #define MOVEUP 10
- #define MOVEDOWN 11
- #define UPDOWN 12
- #define PATH 13
- #define FILE 14
- #define PARENT 15
- #define OKAY 16
- #define CANCEL 17
-
- struct Gadget MoveUpGadget={
- NULL,250,25,12,13,GADGHIMAGE|GADGIMAGE,RELVERIFY|GADGIMMEDIATE,BOOLGADGET,
- (APTR)&MoveUpUpImage,(APTR)&MoveUpDownImage,NULL,NULL,NULL,MOVEUP,NULL};
-
- struct Gadget MoveDownGadget={
- &MoveUpGadget,250,113,12,13,GADGHIMAGE|GADGIMAGE,RELVERIFY|GADGIMMEDIATE,
- BOOLGADGET,(APTR)&MoveDownUpImage,(APTR)&MoveDownDownImage,NULL,NULL,NULL,
- MOVEDOWN,NULL};
-
- struct PropInfo UDInfo={
- AUTOKNOB|FREEVERT,0,0,0,0xffff};
- struct Image UDImage;
- struct Gadget UDGadget={
- &MoveDownGadget,250,38,11,74,GADGHNONE|GADGIMAGE,
- RELVERIFY|GADGIMMEDIATE,PROPGADGET,(APTR)&UDImage,
- NULL,NULL,NULL,(APTR)&UDInfo,UPDOWN,NULL};
-
- short PathXYBorder[]={
- -2,-1,253,-1,253,10,-2,10,-2,-1};
- struct Border PathBorder={
- -1,-1,1,0,JAM1,5,PathXYBorder,NULL};
- char pathdobuffer[256],pathundobuffer[256];
- struct StringInfo PathInfo={
- pathdobuffer,pathundobuffer,0,256,0};
- struct Gadget PathGadget={
- &UDGadget,8,14,250,9,GADGHCOMP,TOGGLESELECT|RELVERIFY,STRGADGET,
- (APTR)&PathBorder,NULL,NULL,NULL,(APTR)&PathInfo,PATH,NULL};
- char filedobuffer[31],fileundobuffer[31];
- struct StringInfo FileInfo={
- filedobuffer,fileundobuffer,0,31,0};
- struct Gadget FileSGadget={
- &PathGadget,8,128,250,9,GADGHCOMP,TOGGLESELECT|RELVERIFY,STRGADGET,
- (APTR)&PathBorder,NULL,NULL,NULL,(APTR)&FileInfo,FILE,NULL};
-
- short ParentXYBorder[]={
- 0,0,54,0,54,10,0,10,0,0};
- struct Border ParentBorder={
- -1,-1,1,0,JAM1,5,ParentXYBorder,NULL};
- struct IntuiText ParentText={
- 1,0,JAM2,3,1,NULL,(UBYTE *)"PARENT",NULL};
- struct Gadget ParentGadget={
- &FileSGadget,106,140,53,9,GADGHCOMP,RELVERIFY,BOOLGADGET,
- (APTR)&ParentBorder,NULL,(APTR)&ParentText,NULL,NULL,PARENT,NULL};
- struct IntuiText OkayText={
- 1,0,JAM2,11,1,NULL,(UBYTE *)"OKAY",NULL};
- struct Gadget OkayGadget={
- &ParentGadget,6,140,53,9,GADGHCOMP,RELVERIFY,BOOLGADGET,
- (APTR)&ParentBorder,NULL,(APTR)&OkayText,NULL,NULL,OKAY,NULL};
- struct IntuiText CancelText={
- 1,0,JAM2,3,1,NULL,(UBYTE *)"CANCEL",NULL};
- struct Gadget CancelGadget={
- &OkayGadget,207,140,53,9,GADGHCOMP,RELVERIFY,BOOLGADGET,
- (APTR)&ParentBorder,NULL,(APTR)&CancelText,NULL,NULL,CANCEL,NULL};
-
- struct IntuiText FileGadgetText[10]={
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL},
- {1,0,JAM2,1,1,NULL,(UBYTE *)"",NULL}};
-
- struct Gadget FileGadget[10]={
- {&FileGadget[1],5,25,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[0],NULL,NULL,0,NULL},
- {&FileGadget[2],5,35,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[1],NULL,NULL,1,NULL},
- {&FileGadget[3],5,45,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[2],NULL,NULL,2,NULL},
- {&FileGadget[4],5,55,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[3],NULL,NULL,3,NULL},
- {&FileGadget[5],5,65,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[4],NULL,NULL,4,NULL},
- {&FileGadget[6],5,75,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[5],NULL,NULL,5,NULL},
- {&FileGadget[7],5,85,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[6],NULL,NULL,6,NULL},
- {&FileGadget[8],5,95,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[7],NULL,NULL,7,NULL},
- {&FileGadget[9],5,105,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[8],NULL,NULL,8,NULL},
- {&CancelGadget,5,115,242,10,GADGHCOMP,RELVERIFY,BOOLGADGET,
- NULL,NULL,(APTR)&FileGadgetText[9],NULL,NULL,9,NULL}};
-
- struct NewWindow filewin={
- 10,10,266,152,0,1,CLOSEWINDOW|GADGETUP|GADGETDOWN|MOUSEBUTTONS,
- WINDOWCLOSE|ACTIVATE|WINDOWDRAG|RMBTRAP|SMART_REFRESH,
- &FileGadget[0],NULL,"File Requester",NULL,NULL,0,0,0,0,CUSTOMSCREEN};
-
- struct Window *Window;
- struct IntuitionBase *IntuitionBase;
- struct GfxBase *GfxBase;
- struct FileList files[1000];
- int filecount,oldoffset,offset;
- struct IntuiMessage *FMsg;
- USHORT vertpot;
- char filename[300];
- struct DeviceList *devlist;
- struct RootNode *rootnode;
- struct DosInfo *dosinfo;
- struct DosBase *DosBase;
- char *devname;
- BOOL deviceslisted=FALSE;
-