1.) Übersicht über die Schnittstelle zum Produkt
================================================


Es bedeuten
.IN	Werte, die von außen gesetzt werden können
.OUT	Werte, die an andere geliefert oder beobachtet werden können
.FIX	unveränderliche OUT-Werte
.DO	Aktivatoren



ohneFenster
  .DO
    +ProgrammStarten


WnHauptfenster
  .IN
    .$Fenstergröße := [ "600x400" | "750x500" | "900x600" | anderesVonHand ]
    .$Hintergrundfarbe := [ "grau" | "blau" | "weiß" | "rot" | "grün" | "gelb" ]
  .OUT
    .$Fenstergröße
    .$Hintergrundfarbe
    .Innenfenster : [ ohne | mit ]
  .DO
    .+BtBeendenX
    .+Menübar.Datei.Beenden
    .+Menübar.Ansicht.Eingabe
    .+Menübar.Ansicht.Tabelle
    .+Menübar.Einstellungen.Allgemein
    .+Menübar.Einstellungen.Ansicht


WnIfEingabe
  .IN
    .TxStatus := [ "" | _String ]
    .EtKundennummer := [ Leer ]
    .EtKundenname := [ Leer ]
    .Beschriftungsgröße := [8..16]
  .OUT
    .EtKundennummer : [ Leer ]
    .EtKundenname : [ Leer ]
    .Beschriftungsgröße : [8..16]
    .Position : [ LinksImFrame ]
  .FIX
    .Titel := "Dateneingabe"
    .Feldbeschriftung := ("Kundennummer", "Kundenname")
  .DO
    .+EtKundennummer.CHANGED
    .+EtKundenname.CHANGED
    .+BtÜbernehmen
    .+BtSchließen
    .+BtSchließenX


WnIfTabelle
  .IN
    .AnzeigeTabelle
	.gitternetzlinienSichtbar := [ mitLinien | ohneLinien ]
	.Inhalt := [ Leer | einEintrag | vieleEinträge ]
  .OUT
    .AnzeigeTabelle
	.gitternetzlinienSichtbar : [ mitLinien | ohneLinien ]
	.Inhalt := [ Leer | einEintrag | vieleEinträge ]
  .FIX
    .Titel := "Tabellenansicht"
    .AnzeigeTabelle.{Überschrift} := ("Kundennummer", "Kundenname")
  .DO
   .+BtAktualisieren
   .+BtSchließenX


WnIfAllgemein
  .IN
    .SsFenstergröße.SELECT := [ NIX | "600x400" | "750x500" | "900x600" ]
    .SsHintergrundfarbe.SELECT := [ "grau" | "blau" | "weiß" | "rot" | "grün" | "gelb" ]
  .OUT
    .SsFenstergröße.SELECTED : [ "600x400" | "750x500" | "900x600" ]
    .SsHintergrundfarbe.SELECTED : [ "grau" | "blau" | "weiß" | "rot" | "grün" | "gelb" ]
    .Position : [ RechtsObenImFrame ]
  .FIX
    .Titel := "Allgemeine Einstellungen"
    .Feldbeschriftung := ("Fenstergröße", "Hintergrundfarbe")
  .DO
    .+SsbFenstergröße.SELECTED
    .+SsHintergrundfarbe.SELECTED
    .+BtSchließenX


WnIfAnsicht
  .IN
  .OUT
  .FIX
    .Titel := "Einstellungen Ansicht"
  .DO
    .+BtReiterEingabe
    .+BtReiterTabelle
    .+BtSchließenX


WnIfAnsicht.WnIfEingabe
  .IN
    .SsSliderSchriftgröße := "8..16"
  .OUT
    .SsSliderSchriftgröße : "8..16"
    .Position : [ RechtsUnten | irgendwoVonHand ]
  .FIX
    .Titel := "Eingabe"
    .Feldbeschriftung := "Schriftgröße"

  .DO
    .+SsSliderSchriftgröße.SELECTED


WnIfAnsicht.WnIfTabelle
  .IN
    .SsGitternetzlinien := [ ohneLinien | mitLinien ]
  .OUT
    .SsGitternetzlinien : [ ohneLinien | mitLinien ]
  .FIX
    .Titel := "Tabelle"
    .Feldbeschriftung := "Tabelle"
  .DO
    .+SsGitternetzlinien.SELECTED

-----------  Ende Schritt 1  -------------