(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*                    This handles PrintIt!'s Display                      *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

DEFINITION MODULE PrintItDisplay;

(*-------------------------  IMPORTs:  ------------------------------------*)

(*------  Libraries:  ------*)
FROM Intuition IMPORT WindowPtr, Gadget, ScreenPtr, StringInfo;
FROM Graphics  IMPORT RastPortPtr;

(*---------------------------  Variables:  --------------------------------*)

TYPE
  Gadgets = (hori1ID,hori2ID,hori3ID,hori4ID,hori5ID,hori6ID,hori7ID,hori8ID,
             vert1ID,vert2ID,vert3ID,vert4ID,vert5ID,vert6ID,vert7ID,vert8ID,
             PrintNormalID,PrintDoubleID,DpiH60ID,DpiH72ID,DpiH80ID,DpiH90ID,
             DpiH120ID,DpiH144ID,DpiH240ID,DpiV72ID,DpiV144ID,DpiV216ID,
             PositiveID,RepHorID,RepVerID,PrintItID,LoadPicID,ResetID);
  TextType = ARRAY[0..79] OF CHAR;

VAR
  Window: WindowPtr;
  Gadgs: ARRAY Gadgets OF Gadget;
  StrInfo: ARRAY[RepHorID..RepVerID] OF StringInfo;
  Buffers: ARRAY[RepHorID..RepVerID] OF ARRAY[0..9] OF CHAR;
  RP: RastPortPtr;
  PixName: TextType;                    (* Pic's Name                 *)
  StretchX: CARDINAL;                   (* horizontal Stretch-Value   *)
  StretchY: CARDINAL;                   (* vertical Stretch-Value     *)
  DoublePrint: BOOLEAN;                 (* Print it Twice ?           *)
  Positive: BOOLEAN;                    (* Reverse or not ?           *)
  xRes: Gadgets;                        (* horizontal DPI (DpiHxxID)  *)
  yRes: Gadgets;                        (* vertical DPI (DpiVxxID)    *)
  Screen: ScreenPtr;                    (* Screen containing Picture  *)
  Shade: CARDINAL;                      (* For Color -> BW conversion *)

(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*                          Open the Screen:                               *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

PROCEDURE OpenPrintIt();

(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*                    Get Picture's Name                                   *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

PROCEDURE GetName();

(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*                    Set Gadgets to their values:                         *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

PROCEDURE InitPrintIt();

(*-------------------------------------------------------------------------*)
(*                                                                         *)
(*               Ask to Convert Colors and do it after that:               *)
(*                                                                         *)
(*-------------------------------------------------------------------------*)

PROCEDURE Convert();

END PrintItDisplay.