X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-float_io__adb.htm;h=29bf3e882f6110cffc96dd7214494dd6789b814f;hp=48ae17aaeb9c39af03b7b3fec0f909c1fe7b207f;hb=refs%2Ftags%2Fv5.6;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8 diff --git a/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm index 48ae17aa..29bf3e88 100644 --- a/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm +++ b/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm @@ -44,12 +44,12 @@ -- Binding Version 01.00 ------------------------------------------------------------------------------ with Ada.Text_IO; -with Terminal_Interface.Curses.Text_IO.Aux; +with Terminal_Interface.Curses.Text_IO.Aux; -package body Terminal_Interface.Curses.Text_IO.Float_IO is +package body Terminal_Interface.Curses.Text_IO.Float_IO is - package Aux renames Terminal_Interface.Curses.Text_IO.Aux; - package FIO is new Ada.Text_IO.Float_IO (Num); + package Aux renames Terminal_Interface.Curses.Text_IO.Aux; + package FIO is new Ada.Text_IO.Float_IO (Num); procedure Put (Win : in Window; @@ -64,8 +64,8 @@ if Exp > 0 then Len := Len + 1 + Exp; end if; - FIO.Put (Buf, Item, Aft, Exp); - Aux.Put_Buf (Win, Buf, Len, False); + FIO.Put (Buf, Item, Aft, Exp); + Aux.Put_Buf (Win, Buf, Len, False); end Put; procedure Put @@ -78,5 +78,5 @@ Put (Get_Window, Item, Fore, Aft, Exp); end Put; -end Terminal_Interface.Curses.Text_IO.Float_IO; +end Terminal_Interface.Curses.Text_IO.Float_IO;