home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / System / ReqToolsLib / Source / reqtools / gadstub.asm < prev    next >
Encoding:
Assembly Source File  |  2001-07-02  |  657 b   |  36 lines
  1.  
  2.     INCLUDE "exec/types.i"
  3.     INCLUDE "intuition/intuition.i"
  4.     INCLUDE "utility/tagitem.i"
  5.     INCLUDE "libraries/gadtools.i"
  6.  
  7.     SECTION "text",CODE
  8.  
  9.     XDEF        _myGT_SetGadgetAttrs
  10.     XDEF        _myCreateGadget
  11.  
  12.     XREF        _GadToolsBase
  13.  
  14. _LVOGT_SetGadgetAttrs    equ        -$2a
  15. _LVOCreateGadget            equ        -$1e
  16.  
  17. _myGT_SetGadgetAttrs:
  18.     movem.l    d2/d3/a2/a3/a6,-(a7)
  19.     movem.l    4+4*5(a7),a0/a1/a2
  20.     lea        16+4*5(a7),a3
  21.     move.l    _GadToolsBase(a4),a6
  22.     jsr        _LVOGT_SetGadgetAttrs(a6)
  23.     bra.b        endstub
  24.  
  25. _myCreateGadget:
  26.     movem.l    d2/d3/a2/a3/a6,-(a7)
  27.     movem.l    4+4*5(a7),d0/a0/a1
  28.     lea        16+4*5(a7),a2
  29.     move.l    _GadToolsBase(a4),a6
  30.     jsr        _LVOCreateGadget(a6)
  31. endstub:
  32.     movem.l    (a7)+,d2/d3/a2/a3/a6
  33.     rts
  34.  
  35.     END
  36.