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=ed530db2c5b10aa19d06104dfe82cf248a813860;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;