home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Desktop Improver / PictIcon / Source / mod / macros.e < prev    next >
Encoding:
Text File  |  1996-09-27  |  171 b   |  13 lines
  1. OPT MODULE
  2. OPT EXPORT
  3.  
  4. MODULE    'graphics/rastport'
  5.  
  6. PROC setafpt(rast:PTR TO rastport,pattern,size)
  7.     IF rast
  8.         rast.areaptrn:=pattern
  9.         rast.areaptsz:=size
  10.     ENDIF
  11. ENDPROC
  12.  
  13.