MODULE DispTest;

(******************************************************************************)
(*                                                                            *)
(*  Modul:     DispTest               Version:            1.00                *)
(*                                                                            *)
(*  Datum:     28.01.1989             Author:             D.I. Vinzenz Hiter  *)
(*                                                                            *)
(*  Hardware:  Commodore AMIGA 500    Betriebssystem:     AMIGA-DOS V 1.2     *)
(*                                                                            *)
(*  Sprache:   ETH MODULA-2           Entwicklungssystem: M2AMIGA, © AMSoft   *)
(*                                                                            *)
(*  Compiler:  M2C V 3.2d             Linker:             M2L V 3.2d          *)
(*                                                                            *)
(*  Inhalt:    Test der Displayfunktionen durch Aufruf einiger Beispiel-      *)
(*             texte.                                                         *)
(*                                                                            *)
(*                                                                            *)
(******************************************************************************)

(*---------------------- Import aus Standardbibliothek -----------------------*)
FROM SYSTEM        IMPORT ADR;

(*---------------------- Import aus Amigabibliothek --------------------------*)

(*---------------------- Import aus eigener Bibliothek -----------------------*)
FROM Display       IMPORT AutoRequ, AlertMsg;
FROM Terminal      IMPORT waitCloseGadget;

(*---------------------- globale Definitionen --------------------------------*)
(*----------------------------------------------------------------------------*)

VAR ok : BOOLEAN;

BEGIN
  waitCloseGadget := FALSE;
  (* AutoRequ Test *)
  ok := AutoRequ (NIL, ADR("Mehrzeiliger Text|Zeile2|Zeile3|Zeile4|Zeile5"),
        ADR(" OK "), ADR("Abbruch"));
  ok := AutoRequ (NIL, ADR("Eine Kurze|Eine sehr sehr lange Zeile ist diese zweite Zeile!!|und wieder kurz."),NIL, ADR(" OK "));
  ok := AutoRequ (NIL, ADR("Falsche Versorgung|der Knöpfe"), NIL, NIL);

  (* Alert Test *)
  AlertMsg (ADR("Keine Angst !"));
  AlertMsg (NIL);
  AlertMsg (ADR("Hallo|Ihr|Freunde|aus der Schweiz"));
  AlertMsg (ADR("|Aus Aus Aus Aus"));

END DispTest.