with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded; private with Sf.Window.Event; package TexteingabeGrafik is pragma Elaborate_Body; procedure Texteingabe; private Erlaubt : Boolean; EingegebenesZeichen : Wide_Wide_Character; Text : Unbounded_Wide_Wide_String; TextEingegeben : Sf.Window.Event.sfEvent; procedure ZeichenEntfernen; procedure Abbruch; procedure ZeichenHinzufügen (EingegebenesZeichenExtern : in Wide_Wide_Character); function Spielstandnamen (EingegebenesZeichenExtern : in Wide_Wide_Character) return Boolean; function SpielstandnamenLinux (EingegebenesZeichenExtern : in Wide_Wide_Character) return Boolean; function SpielstandnamenWindows (EingegebenesZeichenExtern : in Wide_Wide_Character) return Boolean; function Extraprüfungen return Boolean; function ExtraprüfungenWindows return Boolean; end TexteingabeGrafik;