(**********************************************************************

    :Program.    VEingabe.def
    :Contents.   Procedure zur Eingabe von Vokabeln für das Programm
    :Contents.   VTrainer
    :Contents.   Typen: Zeile, Modus, Vokabel und VKopf
    :Author.     Dieter WILHELM
    :Address.    Albert-Schweitzer-Str.44, 8000 München 83
    :Phone.      089/671693
    :Copyright.  PD
    :Language.   Modula-2
    :Translator. M2Amiga A+L V4.0d
    :Imports.    Lists [bne] Amok#22, Request
    :History.    V1.0 Dieter WILHELM 13.Jan.91
    :History.    V1.1 Dieter WILHELM 29.Sept.91

**********************************************************************)

DEFINITION MODULE VEingabe ;


  FROM IntuitionD IMPORT WindowPtr;
  FROM Lists      IMPORT List;
  FROM Request    IMPORT fString;


  TYPE  Zeile = ARRAY [0..25] OF CHAR ;
        Modus = (v, ue) ;
          (* Modus = v  : bedeuted Abfrage Vokabel --> Übersetzung
             Modus = ue : bedueted Abfrage Übersetzung --> Vokabel  *)
        Vokabel = RECORD
                    Wort         : Zeile ;
                    Uebersetzung : ARRAY [0..4] OF Zeile ;
                    abgefragt    : ARRAY [v..ue] OF CARDINAL ;
                    gewusst      : ARRAY [v..ue] OF CARDINAL ;
                  END ;  (* RECORD *)
        VKopf = RECORD
                  Name     : fString;
                  Dir      : fString;
                  Mod      : Modus ;
                  Anzahl   : LONGINT ;
                  gefragtV : CARDINAL ;
                  gewusstV : CARDINAL ;
                  gefragtU : CARDINAL ;
                  gewusstU : CARDINAL ;
                  Gruppe   : ARRAY [0..3] OF List ;
                END ;  (* RECORD *)


  PROCEDURE Eingabe(VAR Kopf: VKopf; WPtr: WindowPtr): BOOLEAN ;
    (* Eingabe bringt in dem Fenster auf das WPtr zeigt Stringgadgets
       an und liest aus diesen neue Vokabeln ein. Wurde mindestens
       eine Vokabel eingelesen so wird TRUE zurückgegeben.           *)


END VEingabe.