X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__ads.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__ads.htm;h=0d798db4e2b10e188f92616452ad3346ee6f45c0;hp=2a9a5b27a6dbd833a66a747aa8e0ea355b9b49a5;hb=77afe78361875f531dc2bf8d73f2e781c8e76176;hpb=40cf934fff2d2790c060619e3a29bd54c20994b0
diff --git a/doc/html/ada/terminal_interface-curses-forms__ads.htm b/doc/html/ada/terminal_interface-curses-forms__ads.htm
index 2a9a5b27..0d798db4 100644
--- a/doc/html/ada/terminal_interface-curses-forms__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms__ads.htm
@@ -12,7 +12,7 @@
-- S P E C --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998,2006 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2006,2009 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.29 @
--- @Date: 2006/06/25 14:30:21 @
+-- @Revision: 1.30 @
+-- @Date: 2009/12/26 17:31:35 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-- form binding.
@@ -139,7 +139,7 @@
type Field_Array_Access is access Field_Array;
procedure Free (FA : in out Field_Array_Access;
- Free_Fields : in Boolean := False);
+ Free_Fields : Boolean := False);
-- Release the memory for an allocated field array
-- If Free_Fields is True, call Delete() for all the fields in
-- the array.
@@ -278,7 +278,7 @@
REQ_NEXT_CHOICE : Form_Request_Code renames F_Next_Choice;
REQ_PREV_CHOICE : Form_Request_Code renames F_Previous_Choice;
- procedure Request_Name (Key : in Form_Request_Code;
+ procedure Request_Name (Key : Form_Request_Code;
Name : out String);
function Request_Name (Key : Form_Request_Code) return String;
@@ -341,8 +341,8 @@
-- |=====================================================================
-- #1A NAME="AFU_6"#2|
- procedure Set_Justification (Fld : in Field;
- Just : in Field_Justification := None);
+ procedure Set_Justification (Fld : Field;
+ Just : Field_Justification := None);
-- AKA: set_field_just()
pragma Inline (Set_Justification);
@@ -357,29 +357,29 @@
-- #1A NAME="AFU_8"#2|
procedure Set_Buffer
- (Fld : in Field;
- Buffer : in Buffer_Number := Buffer_Number'First;
- Str : in String);
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First;
+ Str : String);
-- AKA: set_field_buffer()
-- Not inlined
-- #1A NAME="AFU_9"#2|
procedure Get_Buffer
- (Fld : in Field;
- Buffer : in Buffer_Number := Buffer_Number'First;
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First;
Str : out String);
-- AKA: field_buffer()
function Get_Buffer
- (Fld : in Field;
- Buffer : in Buffer_Number := Buffer_Number'First) return String;
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First) return String;
-- AKA: field_buffer()
-- Same but as function
pragma Inline (Get_Buffer);
-- #1A NAME="AFU_10"#2|
- procedure Set_Status (Fld : in Field;
- Status : in Boolean := True);
+ procedure Set_Status (Fld : Field;
+ Status : Boolean := True);
-- AKA: set_field_status()
pragma Inline (Set_Status);
@@ -389,8 +389,8 @@
pragma Inline (Changed);
-- #1A NAME="AFU_12"#2|
- procedure Set_Maximum_Size (Fld : in Field;
- Max : in Natural := 0);
+ procedure Set_Maximum_Size (Fld : Field;
+ Max : Natural := 0);
-- AKA: set_field_max()
pragma Inline (Set_Maximum_Size);
@@ -399,21 +399,21 @@
-- |=====================================================================
-- #1A NAME="AFU_13"#2|
- procedure Set_Options (Fld : in Field;
- Options : in Field_Option_Set);
+ procedure Set_Options (Fld : Field;
+ Options : Field_Option_Set);
-- AKA: set_field_opts()
-- An overloaded version is defined later. Pragma Inline appears there
-- #1A NAME="AFU_14"#2|
- procedure Switch_Options (Fld : in Field;
- Options : in Field_Option_Set;
+ procedure Switch_Options (Fld : Field;
+ Options : Field_Option_Set;
On : Boolean := True);
-- AKA: field_opts_on()
-- AKA: field_opts_off()
-- An overloaded version is defined later. Pragma Inline appears there
-- #1A NAME="AFU_15"#2|
- procedure Get_Options (Fld : in Field;
+ procedure Get_Options (Fld : Field;
Options : out Field_Option_Set);
-- AKA: field_opts()
@@ -429,19 +429,19 @@
-- #1A NAME="AFU_17"#2|
procedure Set_Foreground
- (Fld : in Field;
- Fore : in Character_Attribute_Set := Normal_Video;
- Color : in Color_Pair := Color_Pair'First);
+ (Fld : Field;
+ Fore : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
-- AKA: set_field_fore()
pragma Inline (Set_Foreground);
-- #1A NAME="AFU_18"#2|
- procedure Foreground (Fld : in Field;
+ procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set);
-- AKA: field_fore()
-- #1A NAME="AFU_19"#2|
- procedure Foreground (Fld : in Field;
+ procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: field_fore()
@@ -449,32 +449,32 @@
-- #1A NAME="AFU_20"#2|
procedure Set_Background
- (Fld : in Field;
- Back : in Character_Attribute_Set := Normal_Video;
- Color : in Color_Pair := Color_Pair'First);
+ (Fld : Field;
+ Back : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
-- AKA: set_field_back()
pragma Inline (Set_Background);
-- #1A NAME="AFU_21"#2|
- procedure Background (Fld : in Field;
+ procedure Background (Fld : Field;
Back : out Character_Attribute_Set);
-- AKA: field_back()
-- #1A NAME="AFU_22"#2|
- procedure Background (Fld : in Field;
+ procedure Background (Fld : Field;
Back : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: field_back()
pragma Inline (Background);
-- #1A NAME="AFU_23"#2|
- procedure Set_Pad_Character (Fld : in Field;
- Pad : in Character := Space);
+ procedure Set_Pad_Character (Fld : Field;
+ Pad : Character := Space);
-- AKA: set_field_pad()
pragma Inline (Set_Pad_Character);
-- #1A NAME="AFU_24"#2|
- procedure Pad_Character (Fld : in Field;
+ procedure Pad_Character (Fld : Field;
Pad : out Character);
-- AKA: field_pad()
pragma Inline (Pad_Character);
@@ -484,7 +484,7 @@
-- |=====================================================================
-- #1A NAME="AFU_25"#2|
- procedure Info (Fld : in Field;
+ procedure Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
First_Row : out Line_Position;
@@ -495,7 +495,7 @@
pragma Inline (Info);
-- #1A NAME="AFU_26"#2|
- procedure Dynamic_Info (Fld : in Field;
+ procedure Dynamic_Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
Max : out Natural);
@@ -507,8 +507,8 @@
-- |=====================================================================
-- #1A NAME="AFU_27"#2|
- procedure Set_Window (Frm : in Form;
- Win : in Window);
+ procedure Set_Window (Frm : Form;
+ Win : Window);
-- AKA: set_form_win()
pragma Inline (Set_Window);
@@ -518,8 +518,8 @@
pragma Inline (Get_Window);
-- #1A NAME="AFU_29"#2|
- procedure Set_Sub_Window (Frm : in Form;
- Win : in Window);
+ procedure Set_Sub_Window (Frm : Form;
+ Win : Window);
-- AKA: set_form_sub()
pragma Inline (Set_Sub_Window);
@@ -529,7 +529,7 @@
pragma Inline (Get_Sub_Window);
-- #1A NAME="AFU_31"#2|
- procedure Scale (Frm : in Form;
+ procedure Scale (Frm : Form;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA: scale_form()
@@ -539,30 +539,30 @@
-- | Man page form_hook.3x
-- |=====================================================================
- type Form_Hook_Function is access procedure (Frm : in Form);
+ type Form_Hook_Function is access procedure (Frm : Form);
pragma Convention (C, Form_Hook_Function);
-- #1A NAME="AFU_32"#2|
- procedure Set_Field_Init_Hook (Frm : in Form;
- Proc : in Form_Hook_Function);
+ procedure Set_Field_Init_Hook (Frm : Form;
+ Proc : Form_Hook_Function);
-- AKA: set_field_init()
pragma Inline (Set_Field_Init_Hook);
-- #1A NAME="AFU_33"#2|
- procedure Set_Field_Term_Hook (Frm : in Form;
- Proc : in Form_Hook_Function);
+ procedure Set_Field_Term_Hook (Frm : Form;
+ Proc : Form_Hook_Function);
-- AKA: set_field_term()
pragma Inline (Set_Field_Term_Hook);
-- #1A NAME="AFU_34"#2|
- procedure Set_Form_Init_Hook (Frm : in Form;
- Proc : in Form_Hook_Function);
+ procedure Set_Form_Init_Hook (Frm : Form;
+ Proc : Form_Hook_Function);
-- AKA: set_form_init()
pragma Inline (Set_Form_Init_Hook);
-- #1A NAME="AFU_35"#2|
- procedure Set_Form_Term_Hook (Frm : in Form;
- Proc : in Form_Hook_Function);
+ procedure Set_Form_Term_Hook (Frm : Form;
+ Proc : Form_Hook_Function);
-- AKA: set_form_term()
pragma Inline (Set_Form_Term_Hook);
@@ -591,14 +591,14 @@
-- |=====================================================================
-- #1A NAME="AFU_40"#2|
- procedure Redefine (Frm : in Form;
- Flds : in Field_Array_Access);
+ procedure Redefine (Frm : Form;
+ Flds : Field_Array_Access);
-- AKA: set_form_fields()
pragma Inline (Redefine);
-- #1A NAME="AFU_41"#2|
- procedure Set_Fields (Frm : in Form;
- Flds : in Field_Array_Access) renames Redefine;
+ procedure Set_Fields (Frm : Form;
+ Flds : Field_Array_Access) renames Redefine;
-- AKA: set_form_fields()
-- pragma Inline (Set_Fields);
@@ -614,9 +614,9 @@
pragma Inline (Field_Count);
-- #1A NAME="AFU_44"#2|
- procedure Move (Fld : in Field;
- Line : in Line_Position;
- Column : in Column_Position);
+ procedure Move (Fld : Field;
+ Line : Line_Position;
+ Column : Column_Position);
-- AKA: move_field()
pragma Inline (Move);
@@ -646,21 +646,21 @@
-- |=====================================================================
-- #1A NAME="AFU_48"#2|
- procedure Set_Options (Frm : in Form;
- Options : in Form_Option_Set);
+ procedure Set_Options (Frm : Form;
+ Options : Form_Option_Set);
-- AKA: set_form_opts()
pragma Inline (Set_Options);
-- #1A NAME="AFU_49"#2|
- procedure Switch_Options (Frm : in Form;
- Options : in Form_Option_Set;
+ procedure Switch_Options (Frm : Form;
+ Options : Form_Option_Set;
On : Boolean := True);
-- AKA: form_opts_on()
-- AKA: form_opts_off()
pragma Inline (Switch_Options);
-- #1A NAME="AFU_50"#2|
- procedure Get_Options (Frm : in Form;
+ procedure Get_Options (Frm : Form;
Options : out Form_Option_Set);
-- AKA: form_opts()
@@ -674,8 +674,8 @@
-- |=====================================================================
-- #1A NAME="AFU_52"#2|
- procedure Post (Frm : in Form;
- Post : in Boolean := True);
+ procedure Post (Frm : Form;
+ Post : Boolean := True);
-- AKA: post_form()
-- AKA: unpost_form()
pragma Inline (Post);
@@ -725,19 +725,19 @@
type Page_Number is new Natural;
-- #1A NAME="AFU_57"#2|
- procedure Set_Current (Frm : in Form;
- Fld : in Field);
+ procedure Set_Current (Frm : Form;
+ Fld : Field);
-- AKA: set_current_field()
pragma Inline (Set_Current);
-- #1A NAME="AFU_58"#2|
- function Current (Frm : in Form) return Field;
+ function Current (Frm : Form) return Field;
-- AKA: current_field()
pragma Inline (Current);
-- #1A NAME="AFU_59"#2|
- procedure Set_Page (Frm : in Form;
- Page : in Page_Number := Page_Number'First);
+ procedure Set_Page (Frm : Form;
+ Page : Page_Number := Page_Number'First);
-- AKA: set_form_page()
pragma Inline (Set_Page);
@@ -759,8 +759,8 @@
-- |=====================================================================
-- #1A NAME="AFU_62"#2|
- procedure Set_New_Page (Fld : in Field;
- New_Page : in Boolean := True);
+ procedure Set_New_Page (Fld : Field;
+ New_Page : Boolean := True);
-- AKA: set_new_page()
pragma Inline (Set_New_Page);