home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Tools / Macros / macros.e
Text File  |  1992-09-02  |  462b  |  25 lines
  1. /* This modules contains some missing 'macros' implemented as functions
  2.    as E doesn't support macros
  3. */
  4.  
  5. OPT MODULE
  6.  
  7. MODULE 'graphics/rastport'
  8.  
  9. /* Some intuition 'macros' */
  10.  
  11. EXPORT PROC menunum(x) IS x AND $1F
  12.  
  13. EXPORT PROC itemnum(x) IS Shr(x,5) AND $3F
  14.  
  15. EXPORT PROC subnum(x) IS Shr(x,11) AND $1F
  16.  
  17.  
  18. /* A graphic 'macro' */
  19.  
  20. EXPORT PROC setdrpt(rport:PTR TO rastport,no)
  21.  rport.lineptrn:=no
  22.  rport.flags:=rport.flags OR FRST_DOT
  23.  rport.linpatcnt:=15
  24. ENDPROC
  25.