DEFINITION XPM; (* portable *) (* by W. Ibl *)
(* The X PixMap to Oberon Picture Format *)

 IMPORT Objects;
 PROCEDURE Handle (obj: Objects.Object; VAR msg: Objects.ObjMsg);

(* Called from Pictures.Open to try and load an XPM pixmap. The picture descriptor
is pre-allocated by Pictures in
Objects.NewObj. InitPicture overwrites the handler of the picture with a new
handler that will load the XPM
Picture when a FileMsg is received (variant load). Supported are Files either
stored as an Oberon Text or imported
from DOS (CR+LF) or UNIX (LF) *)
 PROCEDURE InitPicture;
 PROCEDURE NewPicture;

(* Define a new color. Use this, if a certain color name is undefined when loading
a XPM picture.
Syntax is: XPM.DefineColor color red green blue~
color is a colorname, red, green and blue are REAL values between 0.0 and 1.0
*)
 PROCEDURE DefineColors;

(* Copy a color. Use this, if a certain color name is undefined when loading
a XPM picture.
Syntax is XPM.CopyColor from => to~.
from is the source color specification and to is the target color specification
*)
 PROCEDURE CopyColors;

END XPM.