; Jack's File Requester.. (c) 1996 by Jack Pritchard.; Feel free to use this requester in your own code. You can; muck about with it as much as you like...; You are advised to INCLUDE this code after you have; opened your screen as having nearly 1,000 lines of; someone elses source code in your file is not a very; good idea!!; Call the File Requester Like So..; myfile$=FileSelect{30,40,"Select A File.","Sys:"}А3 .lА info$(400); Qualifiers.ramiga=$80lamiga=$40ctrl=$8ralt=$20lalt=$10rshift=$2lshift=$1А Button{x,y,x1,y1,l,s} ; Simply draws a button at x,y to x1,y1. ┼ x,y1,x,y,x1,y,l ┼ x,y1,x1,y1,x1,y,sА АА Press{x,y,x1,y1} ; Allows the button to be pressed. Button{x,y,x1,y1,1,2} А ▀(0)=1 А┴ Button{x,y,x1,y1,2,1}А АА .b MouseXY{x,y,x1,y1} ; Checks the position of the mouse. If clicked within ; x,y to x1,y1 it returns True, else it returns False. А ▀(0)=1 АB ┼=>x АB ┼<=x1 АB ┼=>y АB ┼<=y1 А А ╝ А└ А А ╝А А А SetProp{x,y,x1,y1} А OV,AV ; Creates a custom prop at position x,y to x1,y1. ; The actual size of the prop within those coords is ; determined by OV (OverallValue) & AV (ActaulValue). height=y1-y А AV>0 asp.f=OV/AV А asp>0 bsp.f=height/asp А└ А" bsp.f=0 А└ ┼ x,y,x1,y+bsp,0 from=y+bsp А from>y1-5 А! from=y1-5 ┼ x,from,x1,y1,1А АА ReadProp{x,y,x1,y1} А OV,AV,oldmousey ; Reads the value of the prop while it is being moved ; with the mouse. ; Minimum value = 0. ; Maximum value = OV. height=y1-y my=┼-y А my>0 АB myy1-5 А! from=y1-5 А fromoldmousey ┼ x,y,x1,from,0 ┼ x,from,x1,y1,1 oldmousey=from А└ А А AVА А А Text{x,y,t$,f,b} ; A simply way of writing text to your window. ┼ f,b : ┼ x,y-11 ▌Б t$А АА CursorText{x,y,text$,f.b,b.b,curpos} ; Prints a line of text with the cursor at position curspos. y-11 ┼ f,b : ┼ x,y ▌Б ▄Б(text$,curpos-1) ┼ f,3 c$=▄Г(text$,curpos,1) А c$="" ▌Б " " А" ▌Б c$ А└ ┼ f,b ▌Б ▄Г(text$,curpos+1)+" "А АА DoubleClick{tim} ; Tests for a doubleclick of the mouse. ; The delay between clicks can be changed by use of the ; tim variable. Time is measured in 1/50th`s of a second ; so DoubleClick{25} would give the user 1/2 a second to ; make a doubleclick. A value of 6 - 8 is ideal. А╗ А╝ ▀(0)<>1 А a=1 А tim ■ 1 А ▀(0)=1 А А ╝ А└ А А А ╝А А А $ Mid{s$,ch$,pos} ; Inserts character ch$ into s$ at position pos. firstbit$=▄Б(s$,pos-1) lastbit$=▄Г(s$,pos) А А firstbit$+ch$+lastbit$А А А $ Rem{s$,pos} ; Removes a character at position pos from s$. firstbit$=▄Б(s$,pos-1) lastbit$=▄Г(s$,pos+1) А А firstbit$+lastbit$А А .TextDisplay.curtextА FRcurtext{} А filepath$,filename$,FRyc,FRxc,FRxo,NoCh,H,W ; Displays the 'cursor` text in the file requester. Button{48,H-55,W-10,H-45,2,1} ; Path. Button{48,H-40,W-10,H-30,2,1} ; File. А FRyc=0 CursorText{48,H-53,▄Г(filepath$,FRxo+1,NoCh),1,0,FRxc} А" CursorText{48,H-38,▄Г(filename$,FRxo+1,NoCh),1,0,FRxc} А└А А.cleantextА FRcleantext{} А filepath$,filename$,FRxc,FRxo,NoCh,FRyc,H,W FRxo=0 А FRyc=0 Text{48,H-53,▄Б(filepath$,NoCh)+" ",1,0} А" Text{48,H-38,▄Б(filename$,NoCh)+" ",1,0} А└А А.centryА FRcentry{} А k$,FRxc,FRxo,FRyc,filepath$,filename$,NoCh А k$<>"" А (▄З(k$)=>32 АB ▄З(k$)<=126) АК (▄З(k$)=>161 АB ▄З(k$)<=255) А FRyc=0 filepath$=Mid{filepath$,k$,FRxc+FRxo} А" filename$=Mid{filename$,k$,FRxc+FRxo} А└ А (FRxc0 ; OK? DirFound.b=╝ name$=▄Б(name$,▄П(name$)-1) filepath$=name$ А ▄В(name$,1)<>":" АB ▄В(name$,1)<>"/" АB name$<>"" filepath$+"/" А└ adr=■Ч(400,$10001) А adr>0 А ■ (lock,adr)<>0 a$=▌Г(┌.l(adr+4)) ; DirEntryType. b$=┌$(adr+8) ; FileName. c$=▌Г(┌.l(adr+124)) ; Size. info$(0)="-2" ;If Right$(name$,1)=":" ; filepath$=b$+":" ;EndIf FRcleantext{} : FRyc=0 : FRxc=1 ┼ 49,H-54,W-9,H-46,0 FRcurtext{} А ■(lock,adr)<>0 АB inc<200 А F_info=╝ АК (F_info=╝ АB ▄Й(┌$(adr+8),".info")=0) inc+1 a$=▌Г(┌.l(adr+4)) ; DirEntryType. b$=┌$(adr+8) ; FileName. c$=▌Г(┌.l(adr+124)) ; Size. info$(inc)=▄Ф(a$,2)+▄Ф(b$,100)+c$ А└ А┴ А└ ■(lock) dirsize=inc ; No of entries. topline=1 ; First entry. ; We HAVE to fill the unused part of info$() with something, ; otherwise the Sort command will HANG the machine or maybe even ; CRASH it????? А dirsize+1<400 А a=dirsize+1 А 400 info$(a)="9" А А└ ╖ info$() А└ ■Щ adr,400 А└А А.refreshdisplayА refreshdisplay{} А info$(),filepath$,filename$,topline,dirsize,W,H,numlines,SelText,OV,AV ; Updates the file requesters display with the current ; list. Also sets the prop accordingly. numlines=(((H-75)-15)/8)-1 numchars=(((W-30)-10)/8)-1 А topline+numlines>dirsize topline-((topline+numlines)-dirsize) А topline<1 topline=1 А└ А└ pos=17 А a=topline А topline+numlines А a<=dirsize А SelText=-1 АК (SelText+topline)<>a back=0 А" back=3 А└ А ▄Б(info$(a),2) А "-3" Text{10,pos,▄Г(info$(a),3,numchars-9)+" "+▄Х(▄Г(info$(a),103),7),1,back} А "2 " Text{10,pos,▄Г(info$(a),3,numchars-8)+" Drawer",2,back} А "0 " Text{10,pos,▄Г(info$(a),3,numchars-8)+" Device",2,back} А "1 " Text{10,pos,▄Г(info$(a),3,numchars-8)+" Volume",1,back} А "3 " Text{10,pos,▄Г(info$(a),3,numchars-8)+" Assign",2,back} А А А" Text{10,pos,▓В(numchars),1,0} А└ pos+8 А А ▀(0)<>1 OV=dirsize-numlines-1 : AV=topline-1 SetProp{W-23,18,W-13,H-85} А└А А.devlistА devlist{} А info$(),filename$,filepath$,dirsize,topline,SelText ; Creates a list of devices, assigns and volumes. А ╡Ж>0 SelText=-1 rootnode=┌.l(╡Ж+34) dosinfo=┌.l(rootnode+24)*4 devlist=┌.l(dosinfo+4)*4 info$(0)="-2" А devlist<>0 АB inc<400 devname=┌.l(devlist+40)*4 s$=┌$(devname+1) А s$<>"CON" АB s$<>"RAW" АB s$<>"SER" АB s$<>"PAR" АB s$<>"PRT" АB s$<>"PIPE" inc+1 А ┌.l(devlist+4) А 0 ; Devices. DF1: etc. a$="0 " А 1 ; Assigns. C: FONTS: etc. a$="3 " А 2 ; Volumes. Mydisk: etc. a$="1 " А А info$(inc)=a$+▄Ф(┌$(devname+1)+":",100) dirsize+1 А└ devlist=┌.l(devlist)*4 А┴ dirsize=inc topline=1 А dirsize+1<400 А a=dirsize+1 А 400 info$(a)="9" А А└ ╖ info$() А└А А.keysА FRkeys{} А Class,Code,Qual,FRxc,FRyc,k$,filepath$,filename$,Selected,ok А lshift,rshift,FRxo,NoCh,DirFound А ▄З(k$)=8 АК ▄З(k$)=13 АК (▄З(k$)=>32 АB ▄З(k$)<=127) АК (▄З(k$)=>161 АB ▄З(k$)<=255) Class=$200000 k=▄З(k$) А" Class=$400 Code=┼ А└ Qual=┼ А Class=$400 А Code А 76 ; Up arrow. А FRyc>0 FRcleantext{} FRyc=0 А FRxc>▄П(filepath$) FRxc=▄П(filepath$)+1 А└ FRcurtext{} А└ А 77 ; Down arrow. А FRyc<1 FRcleantext{} FRyc=1 А FRxc>▄П(filename$) FRxc=▄П(filename$)+1 А└ FRcurtext{} А└ А 79 ; Left arrow. А FRxc+FRxo>1 А Qual=lshift АК Qual=rshift FRxc=1 FRxo=0 А" А FRxc>1 FRxc-1 А" FRxo-1 А└ А└ FRcurtext{} А└ А 78 ; Right arrow. А (FRxc+FRxo<=▄П(filepath$) АB FRyc=0) АК (FRxc+FRxo<=▄П(filename$) АB FRyc=1) А Qual=rshift АК Qual=lshift А FRyc=0 FRxc=▄П(filepath$)+1 А" FRxc=▄П(filename$)+1 А└ А FRxc>NoCh FRxo=(FRxc-NoCh) FRxc=NoCh А└ А" А FRxc1 А FRxo>0 FRxo-1 А" FRxc-1 А└ А FRyc=0 filepath$=Rem{filepath$,FRxc+FRxo} А" filename$=Rem{filename$,FRxc+FRxo} А└ FRcurtext{} А└ А 127 ; Del А FRyc=0 filepath$=Rem{filepath$,FRxc+FRxo} А" filename$=Rem{filename$,FRxc+FRxo} А└ FRcurtext{} А FRcentry{} А А А└А А.DesignА ReDesignRequester{} А filepath$,filename$,W,H,FRxc,FRyc,NoCh ; Designs the file requester. ; This is also called if you change the windows size. yc=FRyc W=┼+ : H=┼, NoCh=(((W-10)-48)-20)/8 ┼/ Button{10,15,W-28,H-73,2,1} ; File display. Button{W-26,15,W-10,H-82,2,1} ; Slider box. Button{W-26,H-81,W-10,H-71,2,1} ; Up arrow. ┼ W-23,H-74, W-18,H-79, W-13,H-74, 1 ┼ W-22,H-74, W-18,H-78, W-14,H-74, 1 Button{W-26,H-70,W-10,H-60,2,1} ; Down arrow. ┼ W-23,H-67, W-18,H-62, W-13,H-67, 1 ┼ W-22,H-67, W-18,H-63, W-14,H-67, 1 ; Drive selectors А a=10 А W-70 А W/7 Button{a,H-70,a+37,H-60,2,1} А (a-10)/(W/7) А 0 : Text{a,H-68,"DH2:",1,0} А 1 : Text{a,H-68,"DH1:",1,0} А 2 : Text{a,H-68,"DH0:",1,0} А 3 : Text{a,H-68,"RAM:",1,0} А 4 : Text{a,H-68,"DF1:",1,0} А 5 : Text{a,H-68,"DF0:",1,0} А 6 : Text{a,H-68,"DF2:",1,0} А А А Button{48,H-55,W-10,H-45,2,1} ; Path. Text{10,H-53,"Path",1,0} Button{48,H-40,W-10,H-30,2,1} ; File. Text{10,H-38,"File",1,0} Button{10,H-25,40,H-15,2,1} ; Ok. Text{14,H-23,"OK",1,0} Button{45,H-25,100,H-15,2,1} ; Drives. Text{45,H-23,"DRIVES",1,0} Button{105,H-25,145,H-15,2,1} ; Info. Text{106,H-23,"INFO",1,0} Button{150,H-25,205,H-15,2,1} ; Parent. Text{150,H-23,"PARENT",1,0} Button{W-65,H-25,W-10,H-15,2,1} ; Cancel. Text{W-65,H-23,"CANCEL",1,0} FRxc=1 FRyc=0 : FRcleantext{} FRyc=1 : FRcleantext{} FRyc=yc : FRcurtext{} refreshdisplay{}А А.MouseА FSMouse{} А info$(),topline,numlines,dirsize,H,W,SelText,filepath$,filename$ А FRyc,FRxc,Selected,ok,F_info,OV,AV А ▀(0)=2 devlist{} refreshdisplay{} А└ ; The prop. А MouseXY{W-23,18,W-13,H-85} А ▀(0)=1 AV=ReadProp{W-23,18,W-13,H-85} А AV>dirsize-numlines-1 AV=dirsize-numlines-1 А└ А AV<0 А! AV=0 topline=AV+1 : refreshdisplay{} А┴ А└ ; The Down Arrow. А MouseXY{W-26,H-70,W-10,H-60} Button{W-26,H-70,W-10,H-60,1,2} SelText=-1 А ▀(0)=1 А topline+numlines1 topline-1 refreshdisplay{} А└ А┴ Button{W-26,H-81,W-10,H-71,2,1} refreshdisplay{} А└ ; The Device Buttons. А MouseXY{10,H-70,(W-70)+37,H-60} А a=10 А W-70 А W/7 А MouseXY{a,H-70,a+37,H-60} Press{a,H-70,a+37,H-60} А (a-10)/(W/7) А 0 : f$="DH2:" А 1 : f$="DH1:" А 2 : f$="DH0:" А 3 : f$="RAM:" А 4 : f$="DF1:" А 5 : f$="DF0:" А 6 : f$="DF2:" А А dirlist{f$} refreshdisplay{} А└ А А└ ; The OK button. А MouseXY{10,H-25,40,H-15} Press{10,H-25,40,H-15} Selected=╝ А└ ; The INFO button. А MouseXY{105,H-25,145,H-15} Press{105,H-25,145,H-15} А F_info F_info=╝ А" F_info=╝ А└ dirlist{filepath$} refreshdisplay{} А└ ; The Cancel button. А MouseXY{W-65,H-25,W-10,H-15} Press{W-65,H-25,W-10,H-15} ok=╝ А└ ; Clicked on the display. А MouseXY{10,15,W-28,H-73} SelText=(┼-17)/8 refreshdisplay{} А ▄Б(info$(topline+SelText),2) А "2 " a$=▄У(▄Г(info$(topline+SelText),3,100),32) a$=filepath$+a$+"/" dirlist{a$} refreshdisplay{} А "0 " a$=▄У(▄Г(info$(topline+SelText),3,100),32) dirlist{a$} refreshdisplay{} А "1 " a$=▄У(▄Г(info$(topline+SelText),3,100),32) dirlist{a$} refreshdisplay{} А "3 " a$=▄У(▄Г(info$(topline+SelText),3,100),32) dirlist{a$} refreshdisplay{} А "-3" a$=▄У(▄Г(info$(topline+SelText),3,100),32) filename$=a$ FRcleantext{} FRyc=1 : FRxc=1 ┼ 49,H-39,W-9,H-31,0 FRcurtext{} А DoubleClick{6} Selected=╝ : ok=╝ А└ А А А└ ; Path. А MouseXY{51,H-55,W-10,H-45} А FRyc<>0 А! FRcleantext{} FRyc=0 FRxc=((┼-51)/8)+1 А FRxc>▄П(filepath$) FRxc=▄П(filepath$)+1 А└ FRcurtext{} А└ ; File. А MouseXY{51,H-40,W-10,H-30} А FRyc<>1 А! FRcleantext{} FRyc=1 FRxc=((┼-51)/8)+1 А FRxc>▄П(filename$) FRxc=▄П(filename$)+1 А└ FRcurtext{} А└ ; DRIVES. А MouseXY{45,H-25,100,H-15} Press{45,H-25,100,H-15} devlist{} refreshdisplay{} А└ ; Parent. А MouseXY{150,H-25,205,H-15} Press{150,H-25,205,H-15} А ▄П(filepath$)>1 pos=0 А a=▄П(filepath$)-1 А 1 А -1 a$=▄Г(filepath$,a,1) А a$="/" АК a$=":" pos=a a=0 А└ А А pos>0 a$=▄Б(filepath$,pos) dirlist{a$} refreshdisplay{} А└ А└ А└А А.FileSelectА $ FileSelect{x,y,title$,path$} А filepath$,filename$,W,H,dirsize,topline,numlines,SelText,Selected,ok,k$,FRxc FRxc=1 filepath$=path$ pos=▄Й(filepath$,"/") А pos=0 pos=▄Й(filepath$,":") А pos=0 filepath$+"/" А└ А└ А pos>0 filepath$=▄Б(filepath$,pos) filename$=▄Г(path$,pos+1) А└ SelText=-1 ; The following code will ensure that you cannot open ; the file requester outside of your screen coords. А x+300>640 x-((x+300)-640) А└ А x<0 x=0 А└ А y+180>256 y-((y+180)-256) А└ А y<0 y=0 А└ ┼2 277,150,640,256 ┼ 0,x,y,300,195,$1|$2|$4|$8|$20|$1000|$10000,title$,0,1 ReDesignRequester{} dirlist{filepath$} refreshdisplay{} А╗ ev.l=┼ ; Wait for something to happen. А ev ; Catch the event and see what it was. А $2 ; $2 = Window has been resized. ReDesignRequester{} А $200 ; $200 = Window has been closed. ok=╝ А $8 ; $8 = Mouse click. FSMouse{} А А k$=▌ А k$<>"" ; A key has been pressed. FRkeys{} А└ А╝ Selected=╝ АК ok=╝ А+ ┼ 0 А Selected=╝ f$=filepath$+filename$ А└ А А f$А А