X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-enumeration_io__adb.htm;h=ba7bd1e32c9bdebcc7ee45aa55960e064272c6ab;hb=027ae42953e3186daed8f3882da73de48291b606;hp=78402d1994b86c5ad8b72f00df9a6f2cbac4eaa0;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8;p=ncurses.git diff --git a/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm index 78402d19..ba7bd1e3 100644 --- a/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm +++ b/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm @@ -45,12 +45,12 @@ ------------------------------------------------------------------------------ with Ada.Text_IO; with Ada.Characters.Handling; use Ada.Characters.Handling; -with Terminal_Interface.Curses.Text_IO.Aux; +with Terminal_Interface.Curses.Text_IO.Aux; -package body Terminal_Interface.Curses.Text_IO.Enumeration_IO is +package body Terminal_Interface.Curses.Text_IO.Enumeration_IO is - package Aux renames Terminal_Interface.Curses.Text_IO.Aux; - package EIO is new Ada.Text_IO.Enumeration_IO (Enum); + package Aux renames Terminal_Interface.Curses.Text_IO.Aux; + package EIO is new Ada.Text_IO.Enumeration_IO (Enum); procedure Put (Win : in Window; @@ -66,11 +66,11 @@ else Tset := Ada.Text_IO.Lower_Case; end if; - EIO.Put (Buf, Item, Tset); + EIO.Put (Buf, Item, Tset); if Set = Mixed_Case then Buf (Buf'First) := To_Upper (Buf (Buf'First)); end if; - Aux.Put_Buf (Win, Buf, Width, True, True); + Aux.Put_Buf (Win, Buf, Width, True, True); end Put; procedure Put @@ -82,5 +82,5 @@ Put (Get_Window, Item, Width, Set); end Put; -end Terminal_Interface.Curses.Text_IO.Enumeration_IO; +end Terminal_Interface.Curses.Text_IO.Enumeration_IO;