łśłś’=7’=7’=7’=7’=7’=7’=7’=7’=7 ;ReqTools Library ; .!DARK!. rtAllocRequestA =-30 rtFreeRequest =-36 rtFreeReqBuffer =-42 rtChangeReqAttrA =-48 rtFileRequestA =-54 rtFreeFileList =-60 rtEZRequestA =-66 rtGetStringA =-72 rtGetLongA =-78 rtInternalGetPasswordA =-84 rtInternalEnterPasswordA=-90 rtFontRequestA =-96 rtPaletteRequestA =-102 rtReqHandlerA =-108 rtSetWaitPointer =-114 rtGetVScreenSize =-120 rtSetReqPosition =-126 rtSpread =-132 rtScreenToFrontSafely =-138 RT_FILEREQ =0 RT_REQINFO =1 RT_FONTREQ =2 CALL_HANDLER =$80000000 RT_TagBase =$80000000 RT_Window =(RT_TagBase+1) RT_IDCMPFlags =(RT_TagBase+2) RT_ReqPos =(RT_TagBase+3) RT_LeftOffset =(RT_TagBase+4) RT_TopOffset =(RT_TagBase+5) RT_PubScrName =(RT_TagBase+6) RT_Screen =(RT_TagBase+7) RT_ReqHandler =(RT_TagBase+8) RT_DefaultFont =(RT_TagBase+9) RT_WaitPointer =(RT_TagBase+10) RTEZ_ReqTitle =(RT_TagBase+20) RTEZ_Flags =(RT_TagBase+22) RTEZ_DefaultResponse =(RT_TagBase+23) RTGL_Min =(RT_TagBase+30) RTGL_Max =(RT_TagBase+31) RTGL_Width =(RT_TagBase+32) RTGL_ShowDefault =(RT_TagBase+33) RTGS_Width =RTGL_Width RTGS_AllowEmpty =(RT_TagBase+80) RTFI_Flags =(RT_TagBase+40) RTFI_Height =(RT_TagBase+41) RTFI_OkText =(RT_TagBase+42) RTFO_Flags =RTFI_FLAGS RTFO_Height =RTFI_Height RTFO_OkText =RTFI_OkText RTFO_SampleHeight =(RT_TagBase+60) RTFO_MinHeight =(RT_TagBase+61) RTFO_MaxHeight =(RT_TagBase+62) RTFI_Dir =(RT_TagBase+50) RTFI_MatchPat =(RT_TagBase+51) RTFI_AddEntry =(RT_TagBase+52) RTFI_RemoveEntry =(RT_TagBase+53) RTFO_FontName =(RT_TagBase+63) RTFO_FontHeight =(RT_TagBase+64) RTFO_FontStyle =(RT_TagBase+65) RTFO_FontFlags =(RT_TagBase+66) RTPA_Color =(RT_TagBase+70) RTRH_EndRequest =(RT_TagBase+60) REQPOS_POINTER =0 REQPOS_CENTERWIN =1 REQPOS_CENTERSCR =2 REQPOS_TOPLEFTWIN =3 REQPOS_TOPLEFTSCR =4 REQ_CANCEL =0 REQ_OK =1 FREQF_MULTISELECT =$1 FREQF_SAVE =$2 FREQF_NOBUFFER =$4 FREQF_NOFILES =$8 FREQF_PATGAD =$10 FREQF_FIXEDWIDTH =$20 FREQF_COLORFONTS =$40 FREQF_CHANGEPALETTE =$80 FREQF_LEAVEPALETTE =$100 FREQF_SCALE =$200 FREQF_STYLE =$400 FREQF_DOWILDFUNC =$800 FREQF_SELECTDIRS =$1000 EZREQF_NORETURNKEY =1 EZREQF_LAMIGAQUAL =2 EZREQF_CENTERTEXT =4 REQHOOK_WILDFILE =0 REQHOOK_WILDFONT =1 ;Struktura rtFileRequester (przydzielona za pomoca procedury rtAllocRequestA) ;(R) - oznacza ze pola te sę tylko do odczytu, a zmiany dokonywaē mozna za ; pomocę procedury rtChangeReqAttrA() ;NAZWA ;OFFSET od poczętku str. REQ rtfis_ReqPos =$00 ;ULONG znaczniki ReqPos rtfis_LeftOffset =$04 ;UWORD pozycja okna (lewa krawedz) rtfis_TopOffset =$06 ;UWORD pozycja okna (gorna krawedz) rtfis_Flags =$08 ;ULONG znaczniki rtfis_Hook =$0C ;APTR adres funkcji uzytkownika wywo£ywanej ; do selekcji zbiorow. rtfis_Dir =$10 ;APTR adres nazwy katalogu z ktųrego zosta£ ; wybrany zbiųr (R) rtfis_MatchPat =$14 ;APTR wskaznik do textu slųzęcego do ; wy£ęcznia zbiorųw z listy katalogu (R) rtfis_DefaultFont =$18 ;APTR wskaznik czcionki uzywanej dla requestera rtfis_WaitPointer =$1C ;ULONG wskaznik do danych opisujęcych wyględ ; pointera ;Struktura rtFontRequester (przydzielona za pomoca procedury rtAllocRequestA) ;NAZWA ;OFFSET od poczętku str. REQ rtfos_ReqPos =$00 ;ULONG znaczniki ReqPos rtfos_LeftOffset =$04 ;UWORD pozycja okna (lewa krawedz) rtfos_TopOffset =$06 ;UWORD pozycja okna (gorna krawedz) rtfos_Flags =$08 ;ULONG znaczniki rtfos_Hook =$0C ;APTR adres funkcji uzytkownika wywo£ywanej ; do selekcji zbiorow. rtfos_Attr =$10 ;STRUCT struktura TextAttr dla aktualnie ; wczytanej czcionki rtfos_DefaultFont =$18 ;APTR wskaznik czcionki uzywanej dla requestera rtfos_WaitPointer =$1C ;ULONG wskaznik do danych opisujęcych wyględ ; pointera ;Struktura rtFileList (zwracana przez funkcje rtFileRequestA() jesli zosta£ ; ustawiony znacznik FREQF_MULTISELECT) ;NAZWA OFFSET rtfls_Next =$00 ;APTR adres nastepnej structury FileList rtfls_StrLen =$04 ;ULONG d£ugosē nazwy zbioru lub -1 gdy zamiast ; nazwy zbioru wystepuje nazwa katalogu rtfls_Name =$08 ;APTR adres nazwy zbioru badz katalogu ;Struktura HOOK (inicjowana dla naszych w£asnych funkcji) ;NAZWA OFFSET MLN =$00 ;STRUCT miejsce zarezerwowane na strukture MLN ; (rezerwujemy 8 bajtųw, 2 word'y na MLN_SUCC ; i dwa na MLN_PRED i ustawiamy na 0) h_Entry =$08 ;APTR adres naszej procedury h_SubEntry =$0C ;APTR =0 h_Data =$10 ;APTR pole na adres dla danych uzytkownika