home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma42.dms / ma42.adf / LabExt / ReqTools < prev   
Encoding:
Text File  |  2002-10-23  |  4.4 KB  |  148 lines
  1. ùúùúÿ=7ÿ=7ÿ=7ÿ=7ÿ=7ÿ=7ÿ=7ÿ=7ÿ=7        ;ReqTools Library
  2. ;                        .!DARK!.
  3.  
  4. rtAllocRequestA        =-30
  5. rtFreeRequest        =-36
  6. rtFreeReqBuffer        =-42
  7. rtChangeReqAttrA    =-48
  8. rtFileRequestA        =-54
  9. rtFreeFileList        =-60
  10. rtEZRequestA        =-66
  11. rtGetStringA        =-72
  12. rtGetLongA        =-78
  13. rtInternalGetPasswordA    =-84
  14. rtInternalEnterPasswordA=-90
  15. rtFontRequestA        =-96
  16. rtPaletteRequestA    =-102
  17. rtReqHandlerA        =-108
  18. rtSetWaitPointer    =-114
  19. rtGetVScreenSize    =-120
  20. rtSetReqPosition    =-126
  21. rtSpread        =-132
  22. rtScreenToFrontSafely    =-138
  23.  
  24. RT_FILEREQ        =0
  25. RT_REQINFO        =1
  26. RT_FONTREQ        =2
  27. CALL_HANDLER        =$80000000
  28.  
  29. RT_TagBase        =$80000000
  30. RT_Window        =(RT_TagBase+1)
  31. RT_IDCMPFlags        =(RT_TagBase+2)
  32. RT_ReqPos        =(RT_TagBase+3)
  33. RT_LeftOffset        =(RT_TagBase+4)
  34. RT_TopOffset        =(RT_TagBase+5)
  35. RT_PubScrName        =(RT_TagBase+6)
  36. RT_Screen        =(RT_TagBase+7)
  37. RT_ReqHandler        =(RT_TagBase+8)
  38. RT_DefaultFont        =(RT_TagBase+9)
  39. RT_WaitPointer        =(RT_TagBase+10)
  40. RTEZ_ReqTitle        =(RT_TagBase+20)
  41. RTEZ_Flags        =(RT_TagBase+22)
  42. RTEZ_DefaultResponse    =(RT_TagBase+23)
  43. RTGL_Min        =(RT_TagBase+30)
  44. RTGL_Max        =(RT_TagBase+31)
  45. RTGL_Width        =(RT_TagBase+32)
  46. RTGL_ShowDefault    =(RT_TagBase+33)
  47. RTGS_Width        =RTGL_Width
  48. RTGS_AllowEmpty        =(RT_TagBase+80)
  49. RTFI_Flags        =(RT_TagBase+40)
  50. RTFI_Height        =(RT_TagBase+41)
  51. RTFI_OkText        =(RT_TagBase+42)
  52. RTFO_Flags              =RTFI_FLAGS
  53. RTFO_Height        =RTFI_Height
  54. RTFO_OkText             =RTFI_OkText
  55. RTFO_SampleHeight    =(RT_TagBase+60)
  56. RTFO_MinHeight        =(RT_TagBase+61)
  57. RTFO_MaxHeight        =(RT_TagBase+62)
  58. RTFI_Dir        =(RT_TagBase+50)
  59. RTFI_MatchPat        =(RT_TagBase+51)
  60. RTFI_AddEntry        =(RT_TagBase+52)
  61. RTFI_RemoveEntry    =(RT_TagBase+53)
  62. RTFO_FontName        =(RT_TagBase+63)
  63. RTFO_FontHeight        =(RT_TagBase+64)
  64. RTFO_FontStyle        =(RT_TagBase+65)
  65. RTFO_FontFlags        =(RT_TagBase+66)
  66. RTPA_Color        =(RT_TagBase+70)
  67. RTRH_EndRequest        =(RT_TagBase+60)
  68.  
  69. REQPOS_POINTER          =0
  70. REQPOS_CENTERWIN        =1
  71. REQPOS_CENTERSCR    =2
  72. REQPOS_TOPLEFTWIN    =3
  73. REQPOS_TOPLEFTSCR    =4
  74. REQ_CANCEL        =0
  75. REQ_OK            =1
  76.  
  77. FREQF_MULTISELECT    =$1
  78. FREQF_SAVE        =$2
  79. FREQF_NOBUFFER        =$4
  80. FREQF_NOFILES        =$8
  81. FREQF_PATGAD            =$10
  82. FREQF_FIXEDWIDTH        =$20
  83. FREQF_COLORFONTS    =$40
  84. FREQF_CHANGEPALETTE    =$80
  85. FREQF_LEAVEPALETTE    =$100
  86. FREQF_SCALE        =$200
  87. FREQF_STYLE        =$400
  88. FREQF_DOWILDFUNC    =$800
  89. FREQF_SELECTDIRS    =$1000
  90.  
  91. EZREQF_NORETURNKEY    =1
  92. EZREQF_LAMIGAQUAL    =2
  93. EZREQF_CENTERTEXT    =4
  94.  
  95. REQHOOK_WILDFILE    =0
  96. REQHOOK_WILDFONT    =1
  97.  
  98. ;Struktura rtFileRequester (przydzielona za pomoca procedury rtAllocRequestA)
  99. ;(R) - oznacza ze pola te sæ tylko do odczytu, a zmiany dokonywaç mozna za
  100. ;      pomocæ procedury rtChangeReqAttrA()
  101.  
  102. ;NAZWA            ;OFFSET od poczætku str. REQ
  103. rtfis_ReqPos        =$00    ;ULONG    znaczniki ReqPos
  104. rtfis_LeftOffset        =$04    ;UWORD    pozycja okna (lewa krawedz)
  105. rtfis_TopOffset        =$06    ;UWORD    pozycja okna (gorna krawedz)
  106. rtfis_Flags        =$08    ;ULONG    znaczniki
  107. rtfis_Hook        =$0C    ;APTR    adres funkcji uzytkownika wywo£ywanej
  108.                 ;    do selekcji zbiorow.
  109. rtfis_Dir        =$10    ;APTR    adres nazwy katalogu z ktørego zosta£
  110.                 ;    wybrany zbiør               (R)
  111. rtfis_MatchPat        =$14    ;APTR    wskaznik do textu sløzæcego do 
  112.                 ;    wy£æcznia zbiorøw z listy katalogu (R)
  113. rtfis_DefaultFont    =$18    ;APTR    wskaznik czcionki uzywanej dla requestera
  114. rtfis_WaitPointer    =$1C    ;ULONG    wskaznik do danych opisujæcych wyglæd
  115.                 ;    pointera
  116.  
  117. ;Struktura rtFontRequester (przydzielona za pomoca procedury rtAllocRequestA)
  118.  
  119. ;NAZWA            ;OFFSET od poczætku str. REQ
  120. rtfos_ReqPos        =$00    ;ULONG    znaczniki ReqPos
  121. rtfos_LeftOffset    =$04    ;UWORD    pozycja okna (lewa krawedz)
  122. rtfos_TopOffset        =$06    ;UWORD    pozycja okna (gorna krawedz)
  123. rtfos_Flags        =$08    ;ULONG    znaczniki
  124. rtfos_Hook        =$0C    ;APTR    adres funkcji uzytkownika wywo£ywanej
  125.                 ;    do selekcji zbiorow.
  126. rtfos_Attr        =$10    ;STRUCT    struktura TextAttr dla aktualnie 
  127.                 ;    wczytanej czcionki
  128. rtfos_DefaultFont    =$18    ;APTR    wskaznik czcionki uzywanej dla requestera
  129. rtfos_WaitPointer    =$1C    ;ULONG    wskaznik do danych opisujæcych wyglæd
  130.                 ;    pointera
  131.  
  132. ;Struktura rtFileList (zwracana przez funkcje rtFileRequestA() jesli zosta£ 
  133. ;            ustawiony znacznik FREQF_MULTISELECT)
  134. ;NAZWA               OFFSET
  135. rtfls_Next        =$00    ;APTR    adres nastepnej structury FileList
  136. rtfls_StrLen        =$04    ;ULONG    d£ugosç nazwy zbioru lub -1 gdy zamiast
  137.                 ;    nazwy zbioru wystepuje nazwa katalogu
  138. rtfls_Name        =$08    ;APTR    adres nazwy zbioru badz katalogu
  139.  
  140. ;Struktura HOOK (inicjowana dla naszych w£asnych funkcji)
  141. ;NAZWA               OFFSET
  142. MLN            =$00    ;STRUCT    miejsce zarezerwowane na strukture MLN
  143.                 ; (rezerwujemy 8 bajtøw, 2 word'y na MLN_SUCC
  144.                 ;  i dwa na MLN_PRED i ustawiamy na 0)
  145. h_Entry            =$08    ;APTR    adres naszej procedury
  146. h_SubEntry        =$0C    ;APTR    =0
  147. h_Data            =$10    ;APTR    pole na adres dla danych uzytkownika
  148.