home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 093.lha / Chaos / Sources / cutil.mod < prev    next >
Encoding:
Modula Implementation  |  1986-11-21  |  766 b   |  33 lines
  1. (*
  2.     
  3.     Some utility procedures....
  4.         
  5.         Created: 8/22/87 by Richie Bielak
  6.         
  7.         Copyright (c) 1987 by Richie Bielak
  8.         
  9.         This program maybe freely distributed, but please leave
  10.         my name in. Thanks.....Richie
  11.  
  12. *)
  13. IMPLEMENTATION MODULE ChaosUtil;
  14.  
  15. FROM SYSTEM    IMPORT ADDRESS, BYTE;
  16. FROM Intuition IMPORT IntuiText;
  17. FROM Rasters   IMPORT Jam2, Jam1, DrawModeSet;
  18.  
  19. (* ++++++++++++++++++++++++++++++++++++++++ *)
  20. PROCEDURE InitTextItem (VAR it : IntuiText;  text : ADDRESS;
  21.             L, T : INTEGER);
  22.   BEGIN
  23.     WITH it DO
  24.       FrontPen := BYTE (2); BackPen := BYTE (2); DrawMode := Jam1;
  25.       LeftEdge := L; TopEdge := T; ITextFont := NIL; 
  26.       IText := text; NextText := NIL
  27.     END;
  28.   END InitTextItem;
  29.  
  30.  
  31. BEGIN
  32. END ChaosUtil.
  33.