X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus__adb.htm;h=8ea0bc67a35f19b0b97d5626fe89e242ba1c2b3b;hp=820bdb0d6bdd5cf7a31ea72129a43f23286d8a7b;hb=bca50d0d8592defee6c584fdedd25f4b1a31345b;hpb=b0bdfbb1c78346047c54d8e516a104fcff586e52
diff --git a/doc/html/ada/terminal_interface-curses-menus__adb.htm b/doc/html/ada/terminal_interface-curses-menus__adb.htm
index 820bdb0d..8ea0bc67 100644
--- a/doc/html/ada/terminal_interface-curses-menus__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__adb.htm
@@ -59,18 +59,18 @@
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;
package body Terminal_Interface.Curses.Menus is
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;
procedure Request_Name (Key : Menu_Request_Code;
@@ -93,7 +93,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");
@@ -134,11 +134,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;
Eti_Exception (Freeitem (Itm));
Itm := Null_Item;
@@ -458,7 +458,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 Eti_Error;
pragma Import (C, Set_Mark, "set_menu_mark");
@@ -656,7 +656,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 Eti_Error;
pragma Import (C, Set_Pattern, "set_menu_pattern");