terminal_interface-curses-menus__ads.htm

ncurses-5.4 需要的就来下把 一定会有用的哦

   <b>procedure</b> Spacing (<FONT COLOR=red><A NAME="510_23">Men</A></FONT>   : <b>in</b> Menu;
                      <FONT COLOR=red><A NAME="511_23">Descr</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
                      <FONT COLOR=red><A NAME="512_23">Row</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
                      Col   : <b>out</b> Column_Position);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT>
   <b>pragma</b> Inline (Spacing);

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_44"#2|</EM></FONT>
   <b>function</b> Set_Pattern (<FONT COLOR=red><A NAME="522_26">Men</A></FONT>  : Menu;
                         Text : String) <b>return</b> Boolean;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT>
   <FONT COLOR=green><EM>--  Return TRUE if the pattern matches, FALSE otherwise</EM></FONT>
   <b>pragma</b> Inline (Set_Pattern);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_45"#2|</EM></FONT>
   <b>procedure</b> Pattern (<FONT COLOR=red><A NAME="529_23">Men</A></FONT>  : <b>in</b>  Menu;
                      Text : <b>out</b> String);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT>
   <b>pragma</b> Inline (Pattern);

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_46"#2|</EM></FONT>
   <b>procedure</b> Set_Format (<FONT COLOR=red><A NAME="539_26">Men</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Menu</A>;
                         <FONT COLOR=red><A NAME="540_26">Lines</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
                         Columns : <b>in</b> Column_Count);
   <FONT COLOR=green><EM>--  Not implemented: 0 argument for Lines or Columns;</EM></FONT>
   <FONT COLOR=green><EM>--  instead use Format to get the current sizes</EM></FONT>
   <FONT COLOR=green><EM>--      The  default    is  16  rows,  1  column.    Calling</EM></FONT>
   <FONT COLOR=green><EM>--      set_menu_format  with a null menu pointer will change this</EM></FONT>
   <FONT COLOR=green><EM>--      default.  A zero row or column argument to set_menu_format</EM></FONT>
   <FONT COLOR=green><EM>--      is  interpreted  as  a  request  not to change the current</EM></FONT>
   <FONT COLOR=green><EM>--      value.</EM></FONT>
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A></EM></FONT>
   <b>pragma</b> Inline (Set_Format);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_47"#2|</EM></FONT>
   <b>procedure</b> Format (<FONT COLOR=red><A NAME="553_22">Men</A></FONT>     : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#62_12">Menu</A>;
                     <FONT COLOR=red><A NAME="554_22">Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
                     Columns : <b>out</b> Column_Count);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A></EM></FONT>
   <b>pragma</b> Inline (Format);

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <b>type</b> Menu_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Men : <b>in</b> Menu);
   <b>pragma</b> Convention (C, Menu_Hook_Function);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_48"#2|</EM></FONT>
   <b>procedure</b> Set_Item_Init_Hook (<FONT COLOR=red><A NAME="567_34">Men</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
                                 Proc : <b>in</b> Menu_Hook_Function);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A></EM></FONT>
   <b>pragma</b> Inline (Set_Item_Init_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_49"#2|</EM></FONT>
   <b>procedure</b> Set_Item_Term_Hook (<FONT COLOR=red><A NAME="573_34">Men</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
                                 Proc : <b>in</b> Menu_Hook_Function);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A></EM></FONT>
   <b>pragma</b> Inline (Set_Item_Term_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_50"#2|</EM></FONT>
   <b>procedure</b> Set_Menu_Init_Hook (<FONT COLOR=red><A NAME="579_34">Men</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
                                 Proc : <b>in</b> Menu_Hook_Function);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A></EM></FONT>
   <b>pragma</b> Inline (Set_Menu_Init_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_51"#2|</EM></FONT>
   <b>procedure</b> Set_Menu_Term_Hook (<FONT COLOR=red><A NAME="585_34">Men</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
                                 Proc : <b>in</b> Menu_Hook_Function);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A></EM></FONT>
   <b>pragma</b> Inline (Set_Menu_Term_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_52"#2|</EM></FONT>
   <b>function</b> Get_Item_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A></EM></FONT>
   <b>pragma</b> Inline (Get_Item_Init_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_53"#2|</EM></FONT>
   <b>function</b> Get_Item_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A></EM></FONT>
   <b>pragma</b> Inline (Get_Item_Term_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_54"#2|</EM></FONT>
   <b>function</b> Get_Menu_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A></EM></FONT>
   <b>pragma</b> Inline (Get_Menu_Init_Hook);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_55"#2|</EM></FONT>
   <b>function</b> Get_Menu_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A></EM></FONT>
   <b>pragma</b> Inline (Get_Menu_Term_Hook);

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_56"#2|</EM></FONT>
   <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="615_24">Men</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Menu</A>;
                       Items : <b>in</b> Item_Array_Access);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A></EM></FONT>
   <b>pragma</b> Inline (Redefine);

   <b>procedure</b> Set_Items (<FONT COLOR=red><A NAME="620_25">Men</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Menu</A>;
                  <A HREF="terminal_interface-curses-menus__ads.htm#619_14"> </A>     Items : <b>in</b> Item_Array_Access) <b>renames</b> Redefine;
   <b>pragma</b> Inline (Set_Items);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_57"#2|</EM></FONT>
   <b>function</b> Items (<FONT COLOR=red><A NAME="625_20">Men</A></FONT>   : Menu;
                   Index : Positive) <b>return</b> Item;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A></EM></FONT>
   <b>pragma</b> Inline (Items);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_58"#2|</EM></FONT>
   <b>function</b> Item_Count (Men : Menu) <b>return</b> Natural;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">item_count()</A></EM></FONT>
   <b>pragma</b> Inline (Item_Count);

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_59"#2|</EM></FONT>
   <b>function</b> Create (Items : Item_Array_Access) <b>return</b> Menu;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A></EM></FONT>
   <FONT COLOR=green><EM>--  Not inlined</EM></FONT>

   <b>function</b> New_Menu (Items : Item_Array_Access) <b>return</b> Menu <b>renames</b> Create;

   <FONT COLOR=green><EM>--  #1A NAME="AFU_60"#2|</EM></FONT>
   <b>procedure</b> Delete (Men : <b>in</b> <b>out</b> Menu);
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A></EM></FONT>
   <FONT COLOR=green><EM>--  Reset Men to Null_Menu</EM></FONT>
   <FONT COLOR=green><EM>--  Not inlined</EM></FONT>

   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_driver.3x.html">menu_driver.3x</A></EM></FONT>
   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>

   <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="656_27">Menu_Ok</A></FONT>,
                          <FONT COLOR=red><A NAME="657_27">Request_Denied</A></FONT>,
                          <FONT COLOR=red><A NAME="658_27">Unknown_Request</A></FONT>,
                          No_Match);

   <FONT COLOR=green><EM>--  #1A NAME="AFU_61"#2|</EM></FONT>
   <b>function</b> Driver (<FONT COLOR=red><A NAME="662_21">Men</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#67_9">Menu</A>;
                    Key : Key_Code) <b>return</b> Driver_Result;
   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_driver.3x.html">menu_driver()</A></EM></FONT>
   <FONT COLOR=green><EM>--  Driver is not inlined</EM></FONT>

   <FONT COLOR=green><EM>--  #1A NAME="AFU_62"#2|</EM></FONT>
   <FONT COLOR=green><EM>--  Not Implemented: menu_request_name, menu_request_by_name</EM></FONT>
<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT>
<b>private</b>
   <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>   <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
   <b>type</b> Menu   <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;

   <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> := 0;
   Null_Menu : <b>constant</b> Menu := 0;

<b>end</b> Terminal_Interface.Curses.Menus;
</PRE></BODY></HTML>