X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__adb.htm;h=8909b3e6b2eec081aba5fa2865990cfc936a09eb;hp=dd3a47cec1094daaf7e4d659f0f67da3710d9099;hb=cb4427a16794d98049b4d790b810d62217501f9f;hpb=cdaf29481becd3e1c21baa574ac1ab88ea5f3d38
diff --git a/doc/html/ada/terminal_interface-curses-forms__adb.htm b/doc/html/ada/terminal_interface-curses-forms__adb.htm
index dd3a47ce..8909b3e6 100644
--- a/doc/html/ada/terminal_interface-curses-forms__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-forms__adb.htm
@@ -81,18 +81,18 @@
procedure Request_Name (Key : Form_Request_Code;
Name : out String)
is
- function Form_Request_Name (Key : C_Int) return chars_ptr;
+ function Form_Request_Name (Key : C_Int) return chars_ptr;
pragma Import (C, Form_Request_Name, "form_request_name");
begin
- Fill_String (Form_Request_Name (C_Int (Key)), Name);
+ Fill_String (Form_Request_Name (C_Int (Key)), Name);
end Request_Name;
function Request_Name (Key : Form_Request_Code) return String
is
- function Form_Request_Name (Key : C_Int) return chars_ptr;
+ function Form_Request_Name (Key : C_Int) return chars_ptr;
pragma Import (C, Form_Request_Name, "form_request_name");
begin
- return Fill_String (Form_Request_Name (C_Int (Key)));
+ return Fill_String (Form_Request_Name (C_Int (Key)));
end Request_Name;
@@ -113,12 +113,12 @@
More_Buffers : Buffer_Number := Buffer_Number'First)
return Field
is
- function Newfield (H, W, T, L, O, M : C_Int) return Field;
+ function Newfield (H, W, T, L, O, M : C_Int) return Field;
pragma Import (C, Newfield, "new_field");
- Fld : constant Field := Newfield (C_Int (Height), C_Int (Width),
- C_Int (Top), C_Int (Left),
- C_Int (Off_Screen),
- C_Int (More_Buffers));
+ Fld : constant Field := Newfield (C_Int (Height), C_Int (Width),
+ C_Int (Top), C_Int (Left),
+ C_Int (Off_Screen),
+ C_Int (More_Buffers));
begin
if Fld = Null_Field then
raise Form_Exception;
@@ -130,11 +130,11 @@
procedure Delete (Fld : in out Field)
is
- function Free_Field (Fld : Field) return Eti_Error;
+ function Free_Field (Fld : Field) return Eti_Error;
pragma Import (C, Free_Field, "free_field");
begin
- Eti_Exception (Free_Field (Fld));
+ Eti_Exception (Free_Field (Fld));
Fld := Null_Field;
end Delete;
@@ -145,13 +145,13 @@
Left : Column_Position) return Field
is
function Dup_Field (Fld : Field;
- Top : C_Int;
- Left : C_Int) return Field;
+ Top : C_Int;
+ Left : C_Int) return Field;
pragma Import (C, Dup_Field, "dup_field");
F : constant Field := Dup_Field (Fld,
- C_Int (Top),
- C_Int (Left));
+ C_Int (Top),
+ C_Int (Left));
begin
if F = Null_Field then
raise Form_Exception;
@@ -166,13 +166,13 @@
Left : Column_Position) return Field
is
function Lnk_Field (Fld : Field;
- Top : C_Int;
- Left : C_Int) return Field;
+ Top : C_Int;
+ Left : C_Int) return Field;
pragma Import (C, Lnk_Field, "link_field");
F : constant Field := Lnk_Field (Fld,
- C_Int (Top),
- C_Int (Left));
+ C_Int (Top),
+ C_Int (Left));
begin
if F = Null_Field then
raise Form_Exception;
@@ -190,19 +190,19 @@
Just : Field_Justification := None)
is
function Set_Field_Just (Fld : Field;
- Just : C_Int) return Eti_Error;
+ Just : C_Int) return Eti_Error;
pragma Import (C, Set_Field_Just, "set_field_just");
begin
- Eti_Exception (Set_Field_Just (Fld,
- C_Int (Field_Justification'Pos (Just))));
+ Eti_Exception (Set_Field_Just (Fld,
+ C_Int (Field_Justification'Pos (Just))));
end Set_Justification;
function Get_Justification (Fld : Field) return Field_Justification
is
- function Field_Just (Fld : Field) return C_Int;
+ function Field_Just (Fld : Field) return C_Int;
pragma Import (C, Field_Just, "field_just");
begin
return Field_Justification'Val (Field_Just (Fld));
@@ -220,13 +220,13 @@
Str : String)
is
function Set_Fld_Buffer (Fld : Field;
- Bufnum : C_Int;
+ Bufnum : C_Int;
S : char_array)
- return Eti_Error;
+ return Eti_Error;
pragma Import (C, Set_Fld_Buffer, "set_field_buffer");
begin
- Eti_Exception (Set_Fld_Buffer (Fld, C_Int (Buffer), To_C (Str)));
+ Eti_Exception (Set_Fld_Buffer (Fld, C_Int (Buffer), To_C (Str)));
end Set_Buffer;
@@ -237,10 +237,10 @@
Str : out String)
is
function Field_Buffer (Fld : Field;
- B : C_Int) return chars_ptr;
+ B : C_Int) return chars_ptr;
pragma Import (C, Field_Buffer, "field_buffer");
begin
- Fill_String (Field_Buffer (Fld, C_Int (Buffer)), Str);
+ Fill_String (Field_Buffer (Fld, C_Int (Buffer)), Str);
end Get_Buffer;
function Get_Buffer
@@ -248,10 +248,10 @@
Buffer : Buffer_Number := Buffer_Number'First) return String
is
function Field_Buffer (Fld : Field;
- B : C_Int) return chars_ptr;
+ B : C_Int) return chars_ptr;
pragma Import (C, Field_Buffer, "field_buffer");
begin
- return Fill_String (Field_Buffer (Fld, C_Int (Buffer)));
+ return Fill_String (Field_Buffer (Fld, C_Int (Buffer)));
end Get_Buffer;
@@ -260,11 +260,11 @@
Status : Boolean := True)
is
function Set_Fld_Status (Fld : Field;
- St : C_Int) return Eti_Error;
+ St : C_Int) return Eti_Error;
pragma Import (C, Set_Fld_Status, "set_field_status");
begin
- if Set_Fld_Status (Fld, Boolean'Pos (Status)) /= E_Ok then
+ if Set_Fld_Status (Fld, Boolean'Pos (Status)) /= E_Ok then
raise Form_Exception;
end if;
end Set_Status;
@@ -273,12 +273,12 @@
function Changed (Fld : Field) return Boolean
is
- function Field_Status (Fld : Field) return C_Int;
+ function Field_Status (Fld : Field) return C_Int;
pragma Import (C, Field_Status, "field_status");
- Res : constant C_Int := Field_Status (Fld);
+ Res : constant C_Int := Field_Status (Fld);
begin
- if Res = Curses_False then
+ if Res = Curses_False then
return False;
else
return True;
@@ -291,11 +291,11 @@
Max : Natural := 0)
is
function Set_Field_Max (Fld : Field;
- M : C_Int) return Eti_Error;
+ M : C_Int) return Eti_Error;
pragma Import (C, Set_Field_Max, "set_max_field");
begin
- Eti_Exception (Set_Field_Max (Fld, C_Int (Max)));
+ Eti_Exception (Set_Field_Max (Fld, C_Int (Max)));
end Set_Maximum_Size;
@@ -308,11 +308,11 @@
Options : Field_Option_Set)
is
function Set_Field_Opts (Fld : Field;
- Opt : Field_Option_Set) return Eti_Error;
+ Opt : Field_Option_Set) return Eti_Error;
pragma Import (C, Set_Field_Opts, "set_field_opts");
begin
- Eti_Exception (Set_Field_Opts (Fld, Options));
+ Eti_Exception (Set_Field_Opts (Fld, Options));
end Set_Options;
@@ -322,17 +322,17 @@
On : Boolean := True)
is
function Field_Opts_On (Fld : Field;
- Opt : Field_Option_Set) return Eti_Error;
+ Opt : Field_Option_Set) return Eti_Error;
pragma Import (C, Field_Opts_On, "field_opts_on");
function Field_Opts_Off (Fld : Field;
- Opt : Field_Option_Set) return Eti_Error;
+ Opt : Field_Option_Set) return Eti_Error;
pragma Import (C, Field_Opts_Off, "field_opts_off");
begin
if On then
- Eti_Exception (Field_Opts_On (Fld, Options));
+ Eti_Exception (Field_Opts_On (Fld, Options));
else
- Eti_Exception (Field_Opts_Off (Fld, Options));
+ Eti_Exception (Field_Opts_Off (Fld, Options));
end if;
end Switch_Options;
@@ -371,11 +371,11 @@
Color : Color_Pair := Color_Pair'First)
is
function Set_Field_Fore (Fld : Field;
- Attr : Attributed_Character) return Eti_Error;
+ Attr : Attributed_Character) return Eti_Error;
pragma Import (C, Set_Field_Fore, "set_field_fore");
begin
- Eti_Exception (Set_Field_Fore (Fld, (Ch => Character'First,
+ Eti_Exception (Set_Field_Fore (Fld, (Ch => Character'First,
Color => Color,
Attr => Fore)));
end Set_Foreground;
@@ -410,11 +410,11 @@
Color : Color_Pair := Color_Pair'First)
is
function Set_Field_Back (Fld : Field;
- Attr : Attributed_Character) return Eti_Error;
+ Attr : Attributed_Character) return Eti_Error;
pragma Import (C, Set_Field_Back, "set_field_back");
begin
- Eti_Exception (Set_Field_Back (Fld, (Ch => Character'First,
+ Eti_Exception (Set_Field_Back (Fld, (Ch => Character'First,
Color => Color,
Attr => Back)));
end Set_Background;
@@ -447,12 +447,12 @@
Pad : Character := Space)
is
function Set_Field_Pad (Fld : Field;
- Ch : C_Int) return Eti_Error;
+ Ch : C_Int) return Eti_Error;
pragma Import (C, Set_Field_Pad, "set_field_pad");
begin
- Eti_Exception (Set_Field_Pad (Fld,
- C_Int (Character'Pos (Pad))));
+ Eti_Exception (Set_Field_Pad (Fld,
+ C_Int (Character'Pos (Pad))));
end Set_Pad_Character;
@@ -460,7 +460,7 @@
procedure Pad_Character (Fld : Field;
Pad : out Character)
is
- function Field_Pad (Fld : Field) return C_Int;
+ function Field_Pad (Fld : Field) return C_Int;
pragma Import (C, Field_Pad, "field_pad");
begin
Pad := Character'Val (Field_Pad (Fld));
@@ -480,15 +480,15 @@
Off_Screen : out Natural;
Additional_Buffers : out Buffer_Number)
is
- type C_Int_Access is access all C_Int;
+ type C_Int_Access is access all C_Int;
function Fld_Info (Fld : Field;
L, C, Fr, Fc, Os, Ab : C_Int_Access)
- return Eti_Error;
+ return Eti_Error;
pragma Import (C, Fld_Info, "field_info");
- L, C, Fr, Fc, Os, Ab : aliased C_Int;
+ L, C, Fr, Fc, Os, Ab : aliased C_Int;
begin
- Eti_Exception (Fld_Info (Fld,
+ Eti_Exception (Fld_Info (Fld,
L'Access, C'Access,
Fr'Access, Fc'Access,
Os'Access, Ab'Access));
@@ -507,13 +507,13 @@
Columns : out Column_Count;
Max : out Natural)
is
- type C_Int_Access is access all C_Int;
- function Dyn_Info (Fld : Field; L, C, M : C_Int_Access) return Eti_Error;
+ type C_Int_Access is access all C_Int;
+ function Dyn_Info (Fld : Field; L, C, M : C_Int_Access) return Eti_Error;
pragma Import (C, Dyn_Info, "dynamic_field_info");
- L, C, M : aliased C_Int;
+ L, C, M : aliased C_Int;
begin
- Eti_Exception (Dyn_Info (Fld,
+ Eti_Exception (Dyn_Info (Fld,
L'Access, C'Access,
M'Access));
Lines := Line_Count (L);
@@ -531,11 +531,11 @@
Win : Window)
is
function Set_Form_Win (Frm : Form;
- Win : Window) return Eti_Error;
+ Win : Window) return Eti_Error;
pragma Import (C, Set_Form_Win, "set_form_win");
begin
- Eti_Exception (Set_Form_Win (Frm, Win));
+ Eti_Exception (Set_Form_Win (Frm, Win));
end Set_Window;
@@ -556,11 +556,11 @@
Win : Window)
is
function Set_Form_Sub (Frm : Form;
- Win : Window) return Eti_Error;
+ Win : Window) return Eti_Error;
pragma Import (C, Set_Form_Sub, "set_form_sub");
begin
- Eti_Exception (Set_Form_Sub (Frm, Win));
+ Eti_Exception (Set_Form_Sub (Frm, Win));
end Set_Sub_Window;
@@ -581,13 +581,13 @@
Lines : out Line_Count;
Columns : out Column_Count)
is
- type C_Int_Access is access all C_Int;
- function M_Scale (Frm : Form; Yp, Xp : C_Int_Access) return Eti_Error;
+ type C_Int_Access is access all C_Int;
+ function M_Scale (Frm : Form; Yp, Xp : C_Int_Access) return Eti_Error;
pragma Import (C, M_Scale, "scale_form");
- X, Y : aliased C_Int;
+ X, Y : aliased C_Int;
begin
- Eti_Exception (M_Scale (Frm, Y'Access, X'Access));
+ Eti_Exception (M_Scale (Frm, Y'Access, X'Access));
Lines := Line_Count (Y);
Columns := Column_Count (X);
end Scale;
@@ -602,11 +602,11 @@
Proc : Form_Hook_Function)
is
function Set_Field_Init (Frm : Form;
- Proc : Form_Hook_Function) return Eti_Error;
+ Proc : Form_Hook_Function) return Eti_Error;
pragma Import (C, Set_Field_Init, "set_field_init");
begin
- Eti_Exception (Set_Field_Init (Frm, Proc));
+ Eti_Exception (Set_Field_Init (Frm, Proc));
end Set_Field_Init_Hook;
@@ -615,11 +615,11 @@
Proc : Form_Hook_Function)
is
function Set_Field_Term (Frm : Form;
- Proc : Form_Hook_Function) return Eti_Error;
+ Proc : Form_Hook_Function) return Eti_Error;
pragma Import (C, Set_Field_Term, "set_field_term");
begin
- Eti_Exception (Set_Field_Term (Frm, Proc));
+ Eti_Exception (Set_Field_Term (Frm, Proc));
end Set_Field_Term_Hook;
@@ -628,11 +628,11 @@
Proc : Form_Hook_Function)
is
function Set_Form_Init (Frm : Form;
- Proc : Form_Hook_Function) return Eti_Error;
+ Proc : Form_Hook_Function) return Eti_Error;
pragma Import (C, Set_Form_Init, "set_form_init");
begin
- Eti_Exception (Set_Form_Init (Frm, Proc));
+ Eti_Exception (Set_Form_Init (Frm, Proc));
end Set_Form_Init_Hook;
@@ -641,11 +641,11 @@
Proc : Form_Hook_Function)
is
function Set_Form_Term (Frm : Form;
- Proc : Form_Hook_Function) return Eti_Error;
+ Proc : Form_Hook_Function) return Eti_Error;
pragma Import (C, Set_Form_Term, "set_form_term");
begin
- Eti_Exception (Set_Form_Term (Frm, Proc));
+ Eti_Exception (Set_Form_Term (Frm, Proc));
end Set_Form_Term_Hook;
@@ -658,7 +658,7 @@
Flds : Field_Array_Access)
is
function Set_Frm_Fields (Frm : Form;
- Items : System.Address) return Eti_Error;
+ Items : System.Address) return Eti_Error;
pragma Import (C, Set_Frm_Fields, "set_form_fields");
begin
@@ -666,7 +666,7 @@
if Flds.all (Flds'Last) /= Null_Field then
raise Form_Exception;
else
- Eti_Exception (Set_Frm_Fields (Frm, Flds.all (Flds'First)'Address));
+ Eti_Exception (Set_Frm_Fields (Frm, Flds.all (Flds'First)'Address));
end if;
end Redefine;
@@ -685,7 +685,7 @@
if P = null or else Index > Field_Count (Frm) then
raise Form_Exception;
else
- P := P + ptrdiff_t (C_Int (Index) - 1);
+ P := P + ptrdiff_t (C_Int (Index) - 1);
return P.all;
end if;
end Fields;
@@ -694,7 +694,7 @@
function Field_Count (Frm : Form) return Natural
is
- function Count (Frm : Form) return C_Int;
+ function Count (Frm : Form) return C_Int;
pragma Import (C, Count, "field_count");
begin
return Natural (Count (Frm));
@@ -706,11 +706,11 @@
Line : Line_Position;
Column : Column_Position)
is
- function Move (Fld : Field; L, C : C_Int) return Eti_Error;
+ function Move (Fld : Field; L, C : C_Int) return Eti_Error;
pragma Import (C, Move, "move_field");
begin
- Eti_Exception (Move (Fld, C_Int (Line), C_Int (Column)));
+ Eti_Exception (Move (Fld, C_Int (Line), C_Int (Column)));
end Move;
@@ -742,11 +742,11 @@
procedure Delete (Frm : in out Form)
is
- function Free (Frm : Form) return Eti_Error;
+ function Free (Frm : Form) return Eti_Error;
pragma Import (C, Free, "free_form");
begin
- Eti_Exception (Free (Frm));
+ Eti_Exception (Free (Frm));
Frm := Null_Form;
end Delete;
@@ -760,11 +760,11 @@
Options : Form_Option_Set)
is
function Set_Form_Opts (Frm : Form;
- Opt : Form_Option_Set) return Eti_Error;
+ Opt : Form_Option_Set) return Eti_Error;
pragma Import (C, Set_Form_Opts, "set_form_opts");
begin
- Eti_Exception (Set_Form_Opts (Frm, Options));
+ Eti_Exception (Set_Form_Opts (Frm, Options));
end Set_Options;
@@ -774,17 +774,17 @@
On : Boolean := True)
is
function Form_Opts_On (Frm : Form;
- Opt : Form_Option_Set) return Eti_Error;
+ Opt : Form_Option_Set) return Eti_Error;
pragma Import (C, Form_Opts_On, "form_opts_on");
function Form_Opts_Off (Frm : Form;
- Opt : Form_Option_Set) return Eti_Error;
+ Opt : Form_Option_Set) return Eti_Error;
pragma Import (C, Form_Opts_Off, "form_opts_off");
begin
if On then
- Eti_Exception (Form_Opts_On (Frm, Options));
+ Eti_Exception (Form_Opts_On (Frm, Options));
else
- Eti_Exception (Form_Opts_Off (Frm, Options));
+ Eti_Exception (Form_Opts_Off (Frm, Options));
end if;
end Switch_Options;
@@ -819,16 +819,16 @@
procedure Post (Frm : Form;
Post : Boolean := True)
is
- function M_Post (Frm : Form) return Eti_Error;
+ function M_Post (Frm : Form) return Eti_Error;
pragma Import (C, M_Post, "post_form");
- function M_Unpost (Frm : Form) return Eti_Error;
+ function M_Unpost (Frm : Form) return Eti_Error;
pragma Import (C, M_Unpost, "unpost_form");
begin
if Post then
- Eti_Exception (M_Post (Frm));
+ Eti_Exception (M_Post (Frm));
else
- Eti_Exception (M_Unpost (Frm));
+ Eti_Exception (M_Unpost (Frm));
end if;
end Post;
@@ -840,11 +840,11 @@
procedure Position_Cursor (Frm : Form)
is
- function Pos_Form_Cursor (Frm : Form) return Eti_Error;
+ function Pos_Form_Cursor (Frm : Form) return Eti_Error;
pragma Import (C, Pos_Form_Cursor, "pos_form_cursor");
begin
- Eti_Exception (Pos_Form_Cursor (Frm));
+ Eti_Exception (Pos_Form_Cursor (Frm));
end Position_Cursor;
@@ -855,12 +855,12 @@
function Data_Ahead (Frm : Form) return Boolean
is
- function Ahead (Frm : Form) return C_Int;
+ function Ahead (Frm : Form) return C_Int;
pragma Import (C, Ahead, "data_ahead");
- Res : constant C_Int := Ahead (Frm);
+ Res : constant C_Int := Ahead (Frm);
begin
- if Res = Curses_False then
+ if Res = Curses_False then
return False;
else
return True;
@@ -871,12 +871,12 @@
function Data_Behind (Frm : Form) return Boolean
is
- function Behind (Frm : Form) return C_Int;
+ function Behind (Frm : Form) return C_Int;
pragma Import (C, Behind, "data_behind");
- Res : constant C_Int := Behind (Frm);
+ Res : constant C_Int := Behind (Frm);
begin
- if Res = Curses_False then
+ if Res = Curses_False then
return False;
else
return True;
@@ -892,20 +892,20 @@
function Driver (Frm : Form;
Key : Key_Code) return Driver_Result
is
- function Frm_Driver (Frm : Form; Key : C_Int) return Eti_Error;
+ function Frm_Driver (Frm : Form; Key : C_Int) return Eti_Error;
pragma Import (C, Frm_Driver, "form_driver");
- R : constant Eti_Error := Frm_Driver (Frm, C_Int (Key));
+ R : constant Eti_Error := Frm_Driver (Frm, C_Int (Key));
begin
case R is
- when E_Unknown_Command =>
+ when E_Unknown_Command =>
return Unknown_Request;
- when E_Invalid_Field =>
+ when E_Invalid_Field =>
return Invalid_Field;
- when E_Request_Denied =>
+ when E_Request_Denied =>
return Request_Denied;
when others =>
- Eti_Exception (R);
+ Eti_Exception (R);
return Form_Ok;
end case;
end Driver;
@@ -919,11 +919,11 @@
procedure Set_Current (Frm : Form;
Fld : Field)
is
- function Set_Current_Fld (Frm : Form; Fld : Field) return Eti_Error;
+ function Set_Current_Fld (Frm : Form; Fld : Field) return Eti_Error;
pragma Import (C, Set_Current_Fld, "set_current_field");
begin
- Eti_Exception (Set_Current_Fld (Frm, Fld));
+ Eti_Exception (Set_Current_Fld (Frm, Fld));
end Set_Current;
@@ -946,21 +946,21 @@
procedure Set_Page (Frm : Form;
Page : Page_Number := Page_Number'First)
is
- function Set_Frm_Page (Frm : Form; Pg : C_Int) return Eti_Error;
+ function Set_Frm_Page (Frm : Form; Pg : C_Int) return Eti_Error;
pragma Import (C, Set_Frm_Page, "set_form_page");
begin
- Eti_Exception (Set_Frm_Page (Frm, C_Int (Page)));
+ Eti_Exception (Set_Frm_Page (Frm, C_Int (Page)));
end Set_Page;
function Page (Frm : Form) return Page_Number
is
- function Get_Page (Frm : Form) return C_Int;
+ function Get_Page (Frm : Form) return C_Int;
pragma Import (C, Get_Page, "form_page");
- P : constant C_Int := Get_Page (Frm);
+ P : constant C_Int := Get_Page (Frm);
begin
if P < 0 then
raise Form_Exception;
@@ -971,12 +971,12 @@
function Get_Index (Fld : Field) return Positive
is
- function Get_Fieldindex (Fld : Field) return C_Int;
+ function Get_Fieldindex (Fld : Field) return C_Int;
pragma Import (C, Get_Fieldindex, "field_index");
- Res : constant C_Int := Get_Fieldindex (Fld);
+ Res : constant C_Int := Get_Fieldindex (Fld);
begin
- if Res = Curses_Err then
+ if Res = Curses_Err then
raise Form_Exception;
end if;
return Positive (Natural (Res) + Positive'First);
@@ -992,23 +992,23 @@
procedure Set_New_Page (Fld : Field;
New_Page : Boolean := True)
is
- function Set_Page (Fld : Field; Flg : C_Int) return Eti_Error;
+ function Set_Page (Fld : Field; Flg : C_Int) return Eti_Error;
pragma Import (C, Set_Page, "set_new_page");
begin
- Eti_Exception (Set_Page (Fld, Boolean'Pos (New_Page)));
+ Eti_Exception (Set_Page (Fld, Boolean'Pos (New_Page)));
end Set_New_Page;
function Is_New_Page (Fld : Field) return Boolean
is
- function Is_New (Fld : Field) return C_Int;
+ function Is_New (Fld : Field) return C_Int;
pragma Import (C, Is_New, "new_page");
- Res : constant C_Int := Is_New (Fld);
+ Res : constant C_Int := Is_New (Fld);
begin
- if Res = Curses_False then
+ if Res = Curses_False then
return False;
else
return True;