home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 25 / AACD 25.iso / AACD / Programming / yaec / modules / gadtools.e < prev    next >
Encoding:
Text File  |  2001-08-12  |  2.9 KB  |  45 lines
  1. OPT MODULE
  2. OPT EXPORT
  3. -> Module created with E:bin/fd2module from YAECv18 package.
  4. OPT NDDC
  5. -> 
  6. -> --- functions in V36 or higher (Release 2.0) ---
  7. -> 
  8. ->  Gadget Functions
  9. -> 
  10. #macro CreateGadgetA(kind,gad_,ng,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,kind,gad_,ng,taglist) BUT Loads(A6,D0,A0,A1,A2) BUT ASM ' jsr -30(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  11. #macro FreeGadgets(gad_) IS (A0:=gad_) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -36(a6)'
  12. #macro GT_SetGadgetAttrsA(gad_,win,req,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,gad_,win,req,taglist) BUT Loads(A6,A0,A1,A2,A3) BUT ASM ' jsr -42(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  13. -> 
  14. ->  Menu functions
  15. -> 
  16. #macro CreateMenusA(newmenu,taglist) IS Stores(gadtoolsbase,newmenu,taglist) BUT Loads(A6,A0,A1) BUT ASM ' jsr -48(a6)'
  17. #macro FreeMenus(menu) IS (A0:=menu) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -54(a6)'
  18. #macro LayoutMenuItemsA(firstitem,vi,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,firstitem,vi,taglist) BUT Loads(A6,A0,A1,A2) BUT ASM ' jsr -60(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  19. #macro LayoutMenusA(firstmenu,vi,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,firstmenu,vi,taglist) BUT Loads(A6,A0,A1,A2) BUT ASM ' jsr -66(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  20. -> 
  21. ->  Misc Event-Handling Functions
  22. -> 
  23. #macro GT_GetIMsg(iport) IS (A0:=iport) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -72(a6)'
  24. #macro GT_ReplyIMsg(imsg) IS (A1:=imsg) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -78(a6)'
  25. #macro GT_RefreshWindow(win,req) IS Stores(gadtoolsbase,win,req) BUT Loads(A6,A0,A1) BUT ASM ' jsr -84(a6)'
  26. #macro GT_BeginRefresh(win) IS (A0:=win) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -90(a6)'
  27. #macro GT_EndRefresh(win,complete) IS Stores(gadtoolsbase,win,complete) BUT Loads(A6,A0,D0) BUT ASM ' jsr -96(a6)'
  28. #macro GT_FilterIMsg(imsg) IS (A1:=imsg) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -102(a6)'
  29. #macro GT_PostFilterIMsg(imsg) IS (A1:=imsg) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -108(a6)'
  30. #macro CreateContext(glistptr) IS (A0:=glistptr) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -114(a6)'
  31. -> 
  32. ->  Rendering Functions
  33. -> 
  34. #macro DrawBevelBoxA(rport,left,top,width,height,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,rport,left,top,width,height,taglist) BUT Loads(A6,A0,D0,D1,D2,D3,A1) BUT ASM ' jsr -120(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  35. -> 
  36. ->  Visuals Functions
  37. -> 
  38. #macro GetVisualInfoA(screen,taglist) IS Stores(gadtoolsbase,screen,taglist) BUT Loads(A6,A0,A1) BUT ASM ' jsr -126(a6)'
  39. #macro FreeVisualInfo(vi) IS (A0:=vi) BUT (A6:=gadtoolsbase) BUT ASM ' jsr -132(a6)'
  40. -> 
  41. -> --- functions in V39 or higher (Release 3) ---
  42. -> 
  43. #macro GT_GetGadgetAttrsA(gad_,win,req,taglist) IS ASM ' movem.l d2-d3/a2-a3,-(a7)' BUT Stores(gadtoolsbase,gad_,win,req,taglist) BUT Loads(A6,A0,A1,A2,A3) BUT ASM ' jsr -174(a6)' BUT ASM ' movem.l (a7)+, d2-d3/a2-a3'
  44. -> 
  45.