X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-aux__adb.htm;h=79157cc3e75f30dada5e09bb0cff60b84083f38c;hp=b4fa34cf9f17f9b7a29d8fee428cbac289edc720;hb=97cb42f22c43eb31a4bf11475bd73ab0e0b10923;hpb=761e4f0825b330e970558e82a4bd638383914429 diff --git a/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm b/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm index b4fa34cf..79157cc3 100644 --- a/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm +++ b/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm @@ -56,10 +56,10 @@ -- @Date: 2009/12/26 17:38:58 @ -- Binding Version 01.00 ------------------------------------------------------------------------------ -package body Terminal_Interface.Curses.Text_IO.Aux is +package body Terminal_Interface.Curses.Text_IO.Aux is procedure Put_Buf - (Win : Window; + (Win : Window; Buf : String; Width : Field; Signal : Boolean := True; @@ -68,10 +68,10 @@ L : Field; Len : Field; W : Field := Width; - LC : Line_Count; - CC : Column_Count; - Y : Line_Position; - X : Column_Position; + LC : Line_Count; + CC : Column_Count; + Y : Line_Position; + X : Column_Position; procedure Output (From, To : Field); @@ -88,8 +88,8 @@ end if; pragma Assert (Len <= W); - Get_Size (Win, LC, CC); - if Column_Count (Len) > CC then + Get_Size (Win, LC, CC); + if Column_Count (Len) > CC then if Signal then raise Layout_Error; else @@ -104,8 +104,8 @@ Put (Win, Filler); end; end if; - Get_Cursor_Position (Win, Y, X); - if (X + Column_Position (Len)) > CC then + Get_Cursor_Position (Win, Y, X); + if (X + Column_Position (Len)) > CC then New_Line (Win); end if; Put (Win, Buf (From .. To)); @@ -122,7 +122,7 @@ end Output; begin - pragma Assert (Win /= Null_Window); + pragma Assert (Win /= Null_Window); if Ljust then L := 1; for I in 1 .. Buf'Length loop @@ -142,5 +142,5 @@ end if; end Put_Buf; -end Terminal_Interface.Curses.Text_IO.Aux; +end Terminal_Interface.Curses.Text_IO.Aux;