X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-user-choice__ads.htm;h=7dd786e6e467b827ff5b3a9974c218f723cd64db;hp=6f730ef6d5ec17c2299209ee44ea470ef47f5ba6;hb=c0f109a299a82a33c16bd7af942a12ce9aefaaf0;hpb=cb4427a16794d98049b4d790b810d62217501f9f
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm
index 6f730ef6..7dd786e6 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm
@@ -24,7 +24,8 @@
-
+
+
@@ -52,38 +53,38 @@
-
-
+
+
with Interfaces.C;
-package Terminal_Interface.Curses.Forms.Field_Types.User.Choice is
+package Terminal_Interface.Curses.Forms.Field_Types.User.Choice is
pragma Preelaborate
- (Terminal_Interface.Curses.Forms.Field_Types.User.Choice);
+ (Terminal_Interface.Curses.Forms.Field_Types.User.Choice);
- subtype C_Int is Interfaces.C.int;
+ subtype C_Int is Interfaces.C.int;
- type User_Defined_Field_Type_With_Choice is abstract new
- User_Defined_Field_Type with null record;
+ type User_Defined_Field_Type_With_Choice is abstract new
+ User_Defined_Field_Type with null record;
- type User_Defined_Field_Type_With_Choice_Access is access all
- User_Defined_Field_Type_With_Choice'Class;
+ type User_Defined_Field_Type_With_Choice_Access is access all
+ User_Defined_Field_Type_With_Choice'Class;
- function Next
- (Fld : Field;
- Typ : User_Defined_Field_Type_With_Choice) return Boolean
+ function Next
+ (Fld : Field;
+ Typ : User_Defined_Field_Type_With_Choice) return Boolean
is abstract;
- function Previous
- (Fld : Field;
- Typ : User_Defined_Field_Type_With_Choice) return Boolean
+ function Previous
+ (Fld : Field;
+ Typ : User_Defined_Field_Type_With_Choice) return Boolean
is abstract;
@@ -92,21 +93,21 @@
private
- function C_Generic_Choice return C_Field_Type;
+ function C_Generic_Choice return C_Field_Type;
- function Generic_Next (Fld : Field;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Generic_Next);
+ function Generic_Next (Fld : Field;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Generic_Next);
- function Generic_Prev (Fld : Field;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Generic_Prev);
+ function Generic_Prev (Fld : Field;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Generic_Prev);
-end Terminal_Interface.Curses.Forms.Field_Types.User.Choice;
+end Terminal_Interface.Curses.Forms.Field_Types.User.Choice;