X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-complex_io__ads.htm;h=7abdb640818320fed83264f424badcd5be991013;hb=d1cc319afccb0d472465718a748664e7cef00840;hp=d95ecffde873942a7c311f16b447139e08d31386;hpb=761e4f0825b330e970558e82a4bd638383914429;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm b/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm
index d95ecffd..7abdb640 100644
--- a/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm
@@ -24,7 +24,8 @@
-
+
+
@@ -52,37 +53,37 @@
-
+
with Ada.Numerics.Generic_Complex_Types;
generic
- with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
+ with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
-package Terminal_Interface.Curses.Text_IO.Complex_IO is
+package Terminal_Interface.Curses.Text_IO.Complex_IO is
use Complex_Types;
- Default_Fore : Field := 2;
- Default_Aft : Field := Real'Digits - 1;
- Default_Exp : Field := 3;
+ Default_Fore : Field := 2;
+ Default_Aft : Field := Real'Digits - 1;
+ Default_Exp : Field := 3;
- procedure Put
- (Win : Window;
- Item : Complex;
- Fore : Field := Default_Fore;
- Aft : Field := Default_Aft;
- Exp : Field := Default_Exp);
+ procedure Put
+ (Win : Window;
+ Item : Complex;
+ Fore : Field := Default_Fore;
+ Aft : Field := Default_Aft;
+ Exp : Field := Default_Exp);
- procedure Put
- (Item : Complex;
- Fore : Field := Default_Fore;
- Aft : Field := Default_Aft;
- Exp : Field := Default_Exp);
+ procedure Put
+ (Item : Complex;
+ Fore : Field := Default_Fore;
+ Aft : Field := Default_Aft;
+ Exp : Field := Default_Exp);
private
pragma Inline (Put);
-end Terminal_Interface.Curses.Text_IO.Complex_IO;
+end Terminal_Interface.Curses.Text_IO.Complex_IO;