X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus__ads.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus__ads.htm;h=62780fbd0fcd6d4ad316f03841eaa7cfa6955787;hp=f1046b20af1f1db6cf185b00cf6923eebe01bc39;hb=f6718d80c998008de6cfe8e6296bee3958ff86d7;hpb=205f120bce7a338464e79ef846e4f07eff365d6c
diff --git a/doc/html/ada/terminal_interface-curses-menus__ads.htm b/doc/html/ada/terminal_interface-curses-menus__ads.htm
index f1046b20..62780fbd 100644
--- a/doc/html/ada/terminal_interface-curses-menus__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__ads.htm
@@ -53,8 +53,8 @@
package Terminal_Interface.Curses.Menus is
pragma Preelaborate (Terminal_Interface.Curses.Menus);
- pragma Linker_Options ("-lmenu");
- pragma Linker_Options ("-lncurses");
+ pragma Linker_Options ("-lmenuw");
+ pragma Linker_Options ("-lncursesw");
Space : Character renames Ada.Characters.Latin_1.Space;
@@ -136,12 +136,12 @@
for Menu_Option_Set use
record
- One_Valued at 0 range 0 .. 0;
- Show_Descriptions at 0 range 1 .. 1;
- Row_Major_Order at 0 range 2 .. 2;
- Ignore_Case at 0 range 3 .. 3;
- Show_Matches at 0 range 4 .. 4;
- Non_Cyclic at 0 range 5 .. 5;
+ One_Valued at 0 range 0 .. 0;
+ Show_Descriptions at 0 range 1 .. 1;
+ Row_Major_Order at 0 range 2 .. 2;
+ Ignore_Case at 0 range 3 .. 3;
+ Show_Matches at 0 range 4 .. 4;
+ Non_Cyclic at 0 range 5 .. 5;
end record;
for Menu_Option_Set'Size use 32;
-- Please note: this rep. clause is generated and may be
@@ -163,7 +163,7 @@
for Item_Option_Set use
record
- Selectable at 0 range 0 .. 0;
+ Selectable at 0 range 0 .. 0;
end record;
for Item_Option_Set'Size use 32;
-- Please note: this rep. clause is generated and may be
@@ -177,10 +177,10 @@
--
-- Item Array
--
- type Item_Array is array (Positive range <>) of aliased Item;
- pragma Convention (C, Item_Array);
+ type Item_Array is array (Positive range <>) of aliased Item;
+ pragma Convention (C, Item_Array);
- type Item_Array_Access is access Item_Array;
+ type Item_Array_Access is access Item_Array;
procedure Free (IA : in out Item_Array_Access;
Free_Items : Boolean := False);