MODULE ScreenDemo;



(*----------------------------------------------------------------------------*
 *
 * :Module.       ScreenDemo
 * :Begin.        09 Jun 1992
 * :Finish.       09 Jun 1992
 * :Author.       A. Günzel-Peltner
 * :Copyright.    Publich Domain
 * :Language.     OBERON
 * :Translator.   Amiga-Oberon V 2.14
 * :History.      Version xxxxx vom 09 Jun 1992
 * :imports.      DisplaySupoort
 * :Contents.     Demo zum testen des DisplaySuport-Modules
 *
 * :Bugs.         none.
 *
 *----------------------------------------------------------------------------*)


IMPORT  ds  : DisplaySupport,io,NoGuru,Break;

VAR MyDisplay : ds.DisplayNodePtr;
    Name      : ARRAY 80 OF CHAR;
    Error     : INTEGER;

BEGIN
  Error := 0;
  Name[0]:=0X;
  MyDisplay := ds.EditDisplay (Error,Name);

  io.WriteString   ("Folgender Display wurde ausgewählt:\n");

  IF MyDisplay=NIL THEN
    io.WriteString ("KEINER\nFehlerursache:");
  ELSE
    io.WriteString (Name);
    io.WriteLn;
    io.WriteString ("Ergebnis:");
  END;

  CASE  Error OF
    ds.ERROR  : io.WriteString ("unbekannter Fehler aufgetreten\n")|
    ds.NOLIST : io.WriteString ("DisplayListe konnte nicht geladen werden\n")|
    ds.NOWIN  : io.WriteString ("EditorWindow konnte nicht geöffnet werden\n")|
    ds.CANCEL : io.WriteString ("User wählte Abbruch oder CloseGadget\n")|
    ds.SAVE   : io.WriteString ("User wählte Speichern\n")|
    ds.USE    : io.WriteString ("User wählte Benutzen\n")|
  ELSE END;

END ScreenDemo.