X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-complex_io__adb.htm;h=0a42a77c116ddabefbd795168ebcfaa77542f0b7;hb=7eb4be765b131f00ac3da7ce8cfd3bc6759d26c5;hp=ce5f059dd1a2f9c595e3ae92f72c36201314b389;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm
index ce5f059d..0a42a77c 100644
--- a/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm
@@ -43,37 +43,37 @@
-- @Revision: 1.10 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-with Terminal_Interface.Curses.Text_IO.Float_IO;
+with Terminal_Interface.Curses.Text_IO.Float_IO;
-package body Terminal_Interface.Curses.Text_IO.Complex_IO is
+package body Terminal_Interface.Curses.Text_IO.Complex_IO is
- package FIO is new
- Terminal_Interface.Curses.Text_IO.Float_IO (Complex_Types.Real'Base);
+ package FIO is new
+ Terminal_Interface.Curses.Text_IO.Float_IO (Complex_Types.Real'Base);
procedure Put
(Win : in Window;
- Item : in Complex;
+ Item : in Complex;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
is
begin
Put (Win, '(');
- FIO.Put (Win, Item.Re, Fore, Aft, Exp);
+ FIO.Put (Win, Item.Re, Fore, Aft, Exp);
Put (Win, ',');
- FIO.Put (Win, Item.Im, Fore, Aft, Exp);
+ FIO.Put (Win, Item.Im, Fore, Aft, Exp);
Put (Win, ')');
end Put;
procedure Put
- (Item : in Complex;
+ (Item : in Complex;
Fore : in Field := Default_Fore;
Aft : in Field := Default_Aft;
Exp : in Field := Default_Exp)
is
begin
- Put (Get_Window, Item, Fore, Aft, Exp);
+ Put (Get_Window, Item, Fore, Aft, Exp);
end Put;
-end Terminal_Interface.Curses.Text_IO.Complex_IO;
+end Terminal_Interface.Curses.Text_IO.Complex_IO;