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);