home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / 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.