X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io__adb.htm;h=7d48825de4ae28a672c47a6d6adaa39218c41f14;hp=de70100f3f15de53bd6b81f2809cb2cecb43198b;hb=2b635f090ec43c82958cef9369464aee4dd8975f;hpb=9776951416d7fb862b9dca1f4c9f8031a5c9059b
diff --git a/doc/html/ada/terminal_interface-curses-text_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
index de70100f..7d48825d 100644
--- a/doc/html/ada/terminal_interface-curses-text_io__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
@@ -12,7 +12,7 @@
-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998-2006,2009 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2009,2011 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
@@ -40,8 +40,8 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.19 @
--- @Date: 2009/12/26 17:40:46 @
+-- @Revision: 1.20 @
+-- @Date: 2011/03/22 23:38:49 @
-- Binding Version 01.00
------------------------------------------------------------------------------
package body Terminal_Interface.Curses.Text_IO is
@@ -210,6 +210,7 @@
end if;
Get_Cursor_Position (Win, Y1, X);
+ pragma Unreferenced (X);
N := Natural (To); N := N - 1;
Y2 := Line_Position (N);
if Y2 < Y1 then
@@ -221,47 +222,47 @@
end if;
end Set_Line;
- procedure Set_Line (To : Positive_Count)
+ procedure Set_Line (To : Positive_Count)
is
begin
Set_Line (Get_Window, To);
end Set_Line;
- function Col (Win : Window) return Positive_Count
+ function Col (Win : Window) return Positive_Count
is
- Y : Line_Position;
- X : Column_Position;
- N : Natural;
+ Y : Line_Position;
+ X : Column_Position;
+ N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
- N := Natural (X); N := N + 1;
+ Get_Cursor_Position (Win, Y, X);
+ N := Natural (X); N := N + 1;
-- if N > Natural (Count'Last) then
-- raise Layout_Error;
-- end if;
- return Positive_Count (N);
+ return Positive_Count (N);
end Col;
- function Col return Positive_Count
+ function Col return Positive_Count
is
begin
return Col (Get_Window);
end Col;
- function Line (Win : Window) return Positive_Count
+ function Line (Win : Window) return Positive_Count
is
- Y : Line_Position;
- X : Column_Position;
- N : Natural;
+ Y : Line_Position;
+ X : Column_Position;
+ N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
- N := Natural (Y); N := N + 1;
+ Get_Cursor_Position (Win, Y, X);
+ N := Natural (Y); N := N + 1;
-- if N > Natural (Count'Last) then
-- raise Layout_Error;
-- end if;
- return Positive_Count (N);
+ return Positive_Count (N);
end Line;
- function Line return Positive_Count
+ function Line return Positive_Count
is
begin
return Line (Get_Window);
@@ -271,25 +272,25 @@
-- Characters Output --
-----------------------
- procedure Put (Win : Window; Item : Character)
+ procedure Put (Win : Window; Item : Character)
is
- P_Size : constant Count := Page_Length (Win);
- Y : Line_Position;
- X : Column_Position;
- L : Line_Count;
- C : Column_Count;
+ P_Size : constant Count := Page_Length (Win);
+ Y : Line_Position;
+ X : Column_Position;
+ L : Line_Count;
+ C : Column_Count;
begin
- if P_Size > 0 then
- Get_Cursor_Position (Win, Y, X);
- Get_Size (Win, L, C);
- if (Y + 1) = L and then (X + 1) = C then
+ if P_Size > 0 then
+ Get_Cursor_Position (Win, Y, X);
+ Get_Size (Win, L, C);
+ if (Y + 1) = L and then (X + 1) = C then
New_Page (Win);
end if;
end if;
Add (Win, Item);
end Put;
- procedure Put (Item : Character)
+ procedure Put (Item : Character)
is
begin
Put (Get_Window, Item);
@@ -299,41 +300,41 @@
-- Strings-Output --
--------------------
- procedure Put (Win : Window; Item : String)
+ procedure Put (Win : Window; Item : String)
is
- P_Size : constant Count := Page_Length (Win);
- Y : Line_Position;
- X : Column_Position;
- L : Line_Count;
- C : Column_Count;
+ P_Size : constant Count := Page_Length (Win);
+ Y : Line_Position;
+ X : Column_Position;
+ L : Line_Count;
+ C : Column_Count;
begin
- if P_Size > 0 then
- Get_Cursor_Position (Win, Y, X);
- Get_Size (Win, L, C);
- if (Y + 1) = L and then (X + 1 + Item'Length) >= C then
+ if P_Size > 0 then
+ Get_Cursor_Position (Win, Y, X);
+ Get_Size (Win, L, C);
+ if (Y + 1) = L and then (X + 1 + Item'Length) >= C then
New_Page (Win);
end if;
end if;
Add (Win, Item);
end Put;
- procedure Put (Item : String)
+ procedure Put (Item : String)
is
begin
Put (Get_Window, Item);
end Put;
- procedure Put_Line
- (Win : Window;
- Item : String)
+ procedure Put_Line
+ (Win : Window;
+ Item : String)
is
begin
Put (Win, Item);
New_Line (Win, 1);
end Put_Line;
- procedure Put_Line
- (Item : String)
+ procedure Put_Line
+ (Item : String)
is
begin
Put_Line (Get_Window, Item);