X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-enumeration_io__ads.htm;fp=Ada95%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-enumeration_io__ads.htm;h=8bb95d8c6741dbe72c440876e6199c3133f6fb57;hb=b1f61d9f3aa244512045a6b02e759825d7049d34;hp=7bb5955f5b419b4574ae724f173e2ad362185a89;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce;p=ncurses.git diff --git a/Ada95/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm b/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm similarity index 73% rename from Ada95/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm rename to doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm index 7bb5955f..8bb95d8c 100644 --- a/Ada95/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm +++ b/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm @@ -1,4 +1,4 @@ -terminal_interface-curses-text_io-enumeration_io.ads +terminal_interface-curses-text_io-enumeration_io.ads

File : terminal_interface-curses-text_io-enumeration_io.ads 

@@ -37,29 +37,29 @@
 -- sale, use or other dealings in this Software without prior written       --
 -- authorization.                                                           --
 ------------------------------------------------------------------------------
---  Jürgen Pfeifer (juergen.pfeifer@gmx.net) 1996                          --
+--  Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996
 --  Version Control:
 --  @Revision: 1.9 @
 --  Binding Version 01.00
 ------------------------------------------------------------------------------
 generic
-   type Enum is (<>);
+   type Enum is (<>);
 
 package Terminal_Interface.Curses.Text_IO.Enumeration_IO is
 
-   Default_Width : Field := 0;
-   Default_Setting : Type_Set := Mixed_Case;
+   Default_Width : Field := 0;
+   Default_Setting : Type_Set := Mixed_Case;
 
    procedure Put
-     (Win   : in Window;
-      Item  : in Enum;
-      Width : in Field := Default_Width;
-      Set   : in Type_Set := Default_Setting);
+     (Win   : in Window;
+      Item  : in Enum;
+      Width : in Field := Default_Width;
+      Set   : in Type_Set := Default_Setting);
 
    procedure Put
-     (Item  : in Enum;
-      Width : in Field := Default_Width;
-      Set   : in Type_Set := Default_Setting);
+     (Item  : in Enum;
+      Width : in Field := Default_Width;
+      Set   : in Type_Set := Default_Setting);
 
 private
    pragma Inline (Put);