X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus__adb.htm;h=73ec35a06e488f4176beea4d93fc5137602cc675;hp=86b3fb280f423fc55d5e9a5fa2d3fac8f71eccf7;hb=f86cbeb5f9bd96ab041d34039c35749a14965039;hpb=90ffd624948c543a457324ee777717e4130f2ad2
diff --git a/doc/html/ada/terminal_interface-curses-menus__adb.htm b/doc/html/ada/terminal_interface-curses-menus__adb.htm
index 86b3fb28..73ec35a0 100644
--- a/doc/html/ada/terminal_interface-curses-menus__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__adb.htm
@@ -47,9 +47,9 @@
with Ada.Unchecked_Deallocation;
with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-with Interfaces.C; use Interfaces.C;
-with Interfaces.C.Strings; use Interfaces.C.Strings;
-with Interfaces.C.Pointers;
+with Interfaces.C; use Interfaces.C;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
+with Interfaces.C.Pointers;
with Ada.Unchecked_Conversion;
@@ -57,10 +57,10 @@
type C_Item_Array is array (Natural range <>) of aliased Item;
package I_Array is new
- Interfaces.C.Pointers (Natural, Item, C_Item_Array, Null_Item);
+ Interfaces.C.Pointers (Natural, Item, C_Item_Array, Null_Item);
use type System.Bit_Order;
- subtype chars_ptr is Interfaces.C.Strings.chars_ptr;
+ subtype chars_ptr is Interfaces.C.Strings.chars_ptr;
function MOS_2_CInt is new
Ada.Unchecked_Conversion (Menu_Option_Set,
@@ -99,7 +99,7 @@
function Create (Name : String;
Description : String := "") return Item
is
- type Char_Ptr is access all Interfaces.C.char;
+ type Char_Ptr is access all Interfaces.C.char;
function Newitem (Name, Desc : Char_Ptr) return Item;
pragma Import (C, Newitem, "new_item");
@@ -141,11 +141,11 @@
begin
Ptr := Descname (Itm);
if Ptr /= Null_Ptr then
- Interfaces.C.Strings.Free (Ptr);
+ Interfaces.C.Strings.Free (Ptr);
end if;
Ptr := Itemname (Itm);
if Ptr /= Null_Ptr then
- Interfaces.C.Strings.Free (Ptr);
+ Interfaces.C.Strings.Free (Ptr);
end if;
Res := Freeitem (Itm);
if Res /= E_Ok then
@@ -515,7 +515,7 @@
procedure Set_Mark (Men : Menu;
Mark : String)
is
- type Char_Ptr is access all Interfaces.C.char;
+ type Char_Ptr is access all Interfaces.C.char;
function Set_Mark (Men : Menu;
Mark : Char_Ptr) return C_Int;
pragma Import (C, Set_Mark, "set_menu_mark");
@@ -737,7 +737,7 @@
function Set_Pattern (Men : Menu;
Text : String) return Boolean
is
- type Char_Ptr is access all Interfaces.C.char;
+ type Char_Ptr is access all Interfaces.C.char;
function Set_Pattern (Men : Menu;
Pattern : Char_Ptr) return C_Int;
pragma Import (C, Set_Pattern, "set_menu_pattern");