diff options
Diffstat (limited to 'ncurses-5.2/doc/html/ada')
91 files changed, 0 insertions, 14677 deletions
diff --git a/ncurses-5.2/doc/html/ada/files.htm b/ncurses-5.2/doc/html/ada/files.htm deleted file mode 100644 index 682207c..0000000 --- a/ncurses-5.2/doc/html/ada/files.htm +++ /dev/null @@ -1,5 +0,0 @@ -<HTML><HEAD><TITLE></TITLE></HEAD> -<BODY> -<H2 ALIGN=CENTER>Files</H2> -<A HREF="files/T.htm">[T]</A> -</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/files/T.htm b/ncurses-5.2/doc/html/ada/files/T.htm deleted file mode 100644 index 46b0a00..0000000 --- a/ncurses-5.2/doc/html/ada/files/T.htm +++ /dev/null @@ -1,69 +0,0 @@ -<HTML><HEAD><TITLE>T</TITLE></HEAD> -<BODY> -<H2>Files - T</H2> -<A HREF="../files.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-aux__adb.htm" TARGET="main">terminal_interface-curses-aux.adb</A> -<LI><A HREF="../terminal_interface-curses-aux__ads.htm" TARGET="main">terminal_interface-curses-aux.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-alpha.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-alpha.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-alphanumeric.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-alphanumeric.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration-ada.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration-ada.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-enumeration.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-intfield.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-intfield.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-ipv4_address.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-ipv4_address.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-numeric.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-numeric.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-regexp.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-regexp.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-user-choice.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-user-choice.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types-user.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types-user.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm" TARGET="main">terminal_interface-curses-forms-field_types.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm" TARGET="main">terminal_interface-curses-forms-field_types.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm" TARGET="main">terminal_interface-curses-forms-field_user_data.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-field_user_data__ads.htm" TARGET="main">terminal_interface-curses-forms-field_user_data.ads</A> -<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm" TARGET="main">terminal_interface-curses-forms-form_user_data.adb</A> -<LI><A HREF="../terminal_interface-curses-forms-form_user_data__ads.htm" TARGET="main">terminal_interface-curses-forms-form_user_data.ads</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm" TARGET="main">terminal_interface-curses-forms.adb</A> -<LI><A HREF="../terminal_interface-curses-forms__ads.htm" TARGET="main">terminal_interface-curses-forms.ads</A> -<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm" TARGET="main">terminal_interface-curses-menus-item_user_data.adb</A> -<LI><A HREF="../terminal_interface-curses-menus-item_user_data__ads.htm" TARGET="main">terminal_interface-curses-menus-item_user_data.ads</A> -<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm" TARGET="main">terminal_interface-curses-menus-menu_user_data.adb</A> -<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__ads.htm" TARGET="main">terminal_interface-curses-menus-menu_user_data.ads</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm" TARGET="main">terminal_interface-curses-menus.adb</A> -<LI><A HREF="../terminal_interface-curses-menus__ads.htm" TARGET="main">terminal_interface-curses-menus.ads</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm" TARGET="main">terminal_interface-curses-mouse.adb</A> -<LI><A HREF="../terminal_interface-curses-mouse__ads.htm" TARGET="main">terminal_interface-curses-mouse.ads</A> -<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm" TARGET="main">terminal_interface-curses-panels-user_data.adb</A> -<LI><A HREF="../terminal_interface-curses-panels-user_data__ads.htm" TARGET="main">terminal_interface-curses-panels-user_data.ads</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm" TARGET="main">terminal_interface-curses-panels.adb</A> -<LI><A HREF="../terminal_interface-curses-panels__ads.htm" TARGET="main">terminal_interface-curses-panels.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-aux__adb.htm" TARGET="main">terminal_interface-curses-text_io-aux.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm" TARGET="main">terminal_interface-curses-text_io-aux.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-complex_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-complex_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-decimal_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-decimal_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-enumeration_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-enumeration_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-fixed_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-fixed_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-float_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-float_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-integer_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-integer_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm" TARGET="main">terminal_interface-curses-text_io-modular_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm" TARGET="main">terminal_interface-curses-text_io-modular_io.ads</A> -<LI><A HREF="../terminal_interface-curses-text_io__adb.htm" TARGET="main">terminal_interface-curses-text_io.adb</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm" TARGET="main">terminal_interface-curses-text_io.ads</A> -<LI><A HREF="../terminal_interface-curses__adb.htm" TARGET="main">terminal_interface-curses.adb</A> -<LI><A HREF="../terminal_interface-curses__ads.htm" TARGET="main">terminal_interface-curses.ads</A> -<LI><A HREF="../terminal_interface__ads.htm" TARGET="main">terminal_interface.ads</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs.htm b/ncurses-5.2/doc/html/ada/funcs.htm deleted file mode 100644 index 96e0b14..0000000 --- a/ncurses-5.2/doc/html/ada/funcs.htm +++ /dev/null @@ -1,27 +0,0 @@ -<HTML><HEAD><TITLE></TITLE></HEAD> -<BODY> -<H2 ALIGN=CENTER>Functions/Procedures</H2> -<A HREF="funcs/ .htm">[ ]</A> -<A HREF="funcs/A.htm">[A]</A> -<A HREF="funcs/B.htm">[B]</A> -<A HREF="funcs/C.htm">[C]</A> -<A HREF="funcs/D.htm">[D]</A> -<A HREF="funcs/E.htm">[E]</A> -<A HREF="funcs/F.htm">[F]</A> -<A HREF="funcs/G.htm">[G]</A> -<A HREF="funcs/H.htm">[H]</A> -<A HREF="funcs/I.htm">[I]</A> -<A HREF="funcs/K.htm">[K]</A> -<A HREF="funcs/L.htm">[L]</A> -<A HREF="funcs/M.htm">[M]</A> -<A HREF="funcs/N.htm">[N]</A> -<A HREF="funcs/O.htm">[O]</A> -<A HREF="funcs/P.htm">[P]</A> -<A HREF="funcs/Q.htm">[Q]</A> -<A HREF="funcs/R.htm">[R]</A> -<A HREF="funcs/S.htm">[S]</A> -<A HREF="funcs/T.htm">[T]</A> -<A HREF="funcs/U.htm">[U]</A> -<A HREF="funcs/V.htm">[V]</A> -<A HREF="funcs/W.htm">[W]</A> -</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/A.htm b/ncurses-5.2/doc/html/ada/funcs/A.htm deleted file mode 100644 index f32aaba..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/A.htm +++ /dev/null @@ -1,18 +0,0 @@ -<HTML><HEAD><TITLE>A</TITLE></HEAD> -<BODY> -<H2>Functions - A</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#958_16" TARGET="main">Ahead</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#52_16" TARGET="main">Allocate_Arg</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm#41_53" TARGET="main">Alpha</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#41_53" TARGET="main">AlphaNumeric</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#56_12" TARGET="main">ASF</A> -<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm#41_51" TARGET="main">Aux - terminal_interface-curses-text_io-aux.ads:41</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm#46_12" TARGET="main">Aux - terminal_interface-curses-text_io-float_io.adb:46</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm#46_12" TARGET="main">Aux - terminal_interface-curses-text_io-decimal_io.adb:46</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm#47_12" TARGET="main">Aux - terminal_interface-curses-text_io-enumeration_io.adb:47</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm#46_12" TARGET="main">Aux - terminal_interface-curses-text_io-fixed_io.adb:46</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm#46_12" TARGET="main">Aux - terminal_interface-curses-text_io-integer_io.adb:46</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm#46_12" TARGET="main">Aux - terminal_interface-curses-text_io-modular_io.adb:46</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/B.htm b/ncurses-5.2/doc/html/ada/funcs/B.htm deleted file mode 100644 index 46b0d30..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/B.htm +++ /dev/null @@ -1,10 +0,0 @@ -<HTML><HEAD><TITLE>B</TITLE></HEAD> -<BODY> -<H2>Functions - B</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2051_16" TARGET="main">Baud</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#764_16" TARGET="main">Beeper</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#974_16" TARGET="main">Behind</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#64_16" TARGET="main">Bottompanel</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/C.htm b/ncurses-5.2/doc/html/ada/funcs/C.htm deleted file mode 100644 index 47beaff..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/C.htm +++ /dev/null @@ -1,33 +0,0 @@ -<HTML><HEAD><TITLE>C</TITLE></HEAD> -<BODY> -<H2>Functions - C</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2211_16" TARGET="main">Canchangecolor</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#784_16" TARGET="main">Cbreak</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#63_13" TARGET="main">Character_Check</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#43_58" TARGET="main">Choice</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#68_13" TARGET="main">CInt_2_FOS</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#76_13" TARGET="main">CInt_2_FrmOS</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#71_13" TARGET="main">CInt_2_IOS</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#63_13" TARGET="main">CInt_2_MOS</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#971_16" TARGET="main">Clear_Ok</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#98_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:98</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#99_13" TARGET="main">Col - terminal_interface-curses-text_io.ads:99</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2228_16" TARGET="main">Colorcontent</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#44_17" TARGET="main">Complex_Types</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1282_16" TARGET="main">Copywin</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#773_16" TARGET="main">Count - terminal_interface-curses-forms.adb:773</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#911_16" TARGET="main">Count - terminal_interface-curses-menus.adb:911</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration-ada.ads:48</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_13" TARGET="main">Create - terminal_interface-curses-forms-field_types-enumeration.ads:64</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1039_16" TARGET="main">Current_Fld</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#299_16" TARGET="main">Curr_Item</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2315_16" TARGET="main">Curs_Set</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__ads.htm#149_13" TARGET="main">C_Builtin_Router</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#71_15" TARGET="main">C_E_Array</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#756_16" TARGET="main">C_Fields</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#80_13" TARGET="main">C_Generic_Choice</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#81_13" TARGET="main">C_Generic_Type</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#922_16" TARGET="main">C_Mitems</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/D.htm b/ncurses-5.2/doc/html/ada/funcs/D.htm deleted file mode 100644 index 9472a37..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/D.htm +++ /dev/null @@ -1,22 +0,0 @@ -<HTML><HEAD><TITLE>D</TITLE></HEAD> -<BODY> -<H2>Functions - D</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#1999_16" TARGET="main">Defkey</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2247_16" TARGET="main">Def_Prog_Mode</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2249_16" TARGET="main">Def_Shell_Mode</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2031_16" TARGET="main">Delayoutput</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#155_16" TARGET="main">Del_Panel</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#329_16" TARGET="main">Derwin</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#125_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:125</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#269_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:269</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#277_16" TARGET="main">Descname - terminal_interface-curses-menus.adb:277</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__adb.htm#47_12" TARGET="main">DIO</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#128_14" TARGET="main">Dispatch_Event</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1074_16" TARGET="main">Do_Update</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#972_16" TARGET="main">Driver</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#352_16" TARGET="main">Dupwin</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#150_16" TARGET="main">Dup_Field</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#558_16" TARGET="main">Dyn_Info</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/E.htm b/ncurses-5.2/doc/html/ada/funcs/E.htm deleted file mode 100644 index b9f13e3..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/E.htm +++ /dev/null @@ -1,11 +0,0 @@ -<HTML><HEAD><TITLE>E</TITLE></HEAD> -<BODY> -<H2>Functions - E</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#822_16" TARGET="main">Echo</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__adb.htm#48_12" TARGET="main">EIO</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#144_16" TARGET="main">Endwin</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53" TARGET="main">Enumeration</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2059_16" TARGET="main">Erasechar</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/F.htm b/ncurses-5.2/doc/html/ada/funcs/F.htm deleted file mode 100644 index 1df765f..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/F.htm +++ /dev/null @@ -1,46 +0,0 @@ -<HTML><HEAD><TITLE>F</TITLE></HEAD> -<BODY> -<H2>Functions - F</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#467_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:467</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#477_16" TARGET="main">Field_Back - terminal_interface-curses-forms.adb:477</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#254_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:254</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#265_16" TARGET="main">Field_Buffer - terminal_interface-curses-forms.adb:265</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#56_13" TARGET="main">Field_Check</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#423_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:423</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#433_16" TARGET="main">Field_Fore - terminal_interface-curses-forms.adb:433</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#212_16" TARGET="main">Field_Just</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#373_16" TARGET="main">Field_Opts</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#351_16" TARGET="main">Field_Opts_Off</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#348_16" TARGET="main">Field_Opts_On</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#506_16" TARGET="main">Field_Pad</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#292_16" TARGET="main">Field_Status</A> -<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm#72_16" TARGET="main">Field_Userptr</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__adb.htm#45_12" TARGET="main">FIO - terminal_interface-curses-text_io-complex_io.adb:45</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__adb.htm#47_12" TARGET="main">FIO - terminal_interface-curses-text_io-float_io.adb:47</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__adb.htm#47_12" TARGET="main">FIXIO</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#774_16" TARGET="main">Flash</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#527_16" TARGET="main">Fld_Info</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#65_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:65</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#66_14" TARGET="main">Flush - terminal_interface-curses-text_io.ads:66</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2041_16" TARGET="main">Flushinp</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#888_16" TARGET="main">Form_Opts</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#866_16" TARGET="main">Form_Opts_Off</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#863_16" TARGET="main">Form_Opts_On</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#83_16" TARGET="main">Form_Request_Name - terminal_interface-curses-forms.adb:83</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#91_16" TARGET="main">Form_Request_Name - terminal_interface-curses-forms.adb:91</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#627_16" TARGET="main">Form_Sub</A> -<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#73_16" TARGET="main">Form_Userptr</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#599_16" TARGET="main">Form_Win</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#64_13" TARGET="main">FOS_2_CInt</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#824_16" TARGET="main">Free - terminal_interface-curses-forms.adb:824</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#957_16" TARGET="main">Free - terminal_interface-curses-menus.adb:957</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#122_17" TARGET="main">Freeargs</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#130_16" TARGET="main">Freeitem</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#132_16" TARGET="main">Free_Field</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#120_17" TARGET="main">Free_Type</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#72_13" TARGET="main">FrmOS_2_CInt</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#995_16" TARGET="main">Frm_Driver</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#55_12" TARGET="main">F_Array</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/G.htm b/ncurses-5.2/doc/html/ada/funcs/G.htm deleted file mode 100644 index d90750d..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/G.htm +++ /dev/null @@ -1,21 +0,0 @@ -<HTML><HEAD><TITLE>G</TITLE></HEAD> -<BODY> -<H2>Functions - G</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#90_13" TARGET="main">Generic_Char_Check</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#83_13" TARGET="main">Generic_Field_Check</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_13" TARGET="main">Generic_Next</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_13" TARGET="main">Generic_Prev</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#68_16" TARGET="main">Getmouse</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#61_13" TARGET="main">Get_Arg</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1083_16" TARGET="main">Get_Fieldindex</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#58_13" TARGET="main">Get_Fieldtype</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#339_16" TARGET="main">Get_Itemindex</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#531_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:531</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#539_16" TARGET="main">Get_Menu_Mark - terminal_interface-curses-menus.adb:539</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1069_16" TARGET="main">Get_Page</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#757_16" TARGET="main">Get_Pattern</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#712_16" TARGET="main">Get_Spacing</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#62_13" TARGET="main">Get_Window</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/H.htm b/ncurses-5.2/doc/html/ada/funcs/H.htm deleted file mode 100644 index e852d92..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/H.htm +++ /dev/null @@ -1,12 +0,0 @@ -<HTML><HEAD><TITLE>H</TITLE></HEAD> -<BODY> -<H2>Functions - H</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#863_16" TARGET="main">Halfdelay</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2182_16" TARGET="main">Hascolors</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#580_16" TARGET="main">Haskey</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2075_16" TARGET="main">Has_Ic</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2087_16" TARGET="main">Has_Il</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#94_16" TARGET="main">Hidepanel</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/I.htm b/ncurses-5.2/doc/html/ada/funcs/I.htm deleted file mode 100644 index a3dada4..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/I.htm +++ /dev/null @@ -1,31 +0,0 @@ -<HTML><HEAD><TITLE>I</TITLE></HEAD> -<BODY> -<H2>Functions - I</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#995_16" TARGET="main">IDC_Ok</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#983_16" TARGET="main">IDL_Ok</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__adb.htm#47_12" TARGET="main">IIO</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1019_16" TARGET="main">Immedok</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2197_16" TARGET="main">Initcolor</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2143_16" TARGET="main">Initpair</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#131_16" TARGET="main">Initscr</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm#41_53" TARGET="main">IntField</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#875_16" TARGET="main">Intrflush</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#67_13" TARGET="main">IOS_2_CInt</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#41_53" TARGET="main">IPV4_Address</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#154_16" TARGET="main">Isendwin</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1118_16" TARGET="main">Is_New</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#127_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:127</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#252_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:252</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#260_16" TARGET="main">Itemname - terminal_interface-curses-menus.adb:260</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#859_16" TARGET="main">Item_Init</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#233_16" TARGET="main">Item_Opts</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#213_16" TARGET="main">Item_Opts_Off</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#210_16" TARGET="main">Item_Opts_On</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#867_16" TARGET="main">Item_Term</A> -<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm#64_16" TARGET="main">Item_Userptr</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#167_16" TARGET="main">Item_Val</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#180_16" TARGET="main">Item_Vis</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#53_12" TARGET="main">I_Array</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/K.htm b/ncurses-5.2/doc/html/ada/funcs/K.htm deleted file mode 100644 index d09ddcd..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/K.htm +++ /dev/null @@ -1,10 +0,0 @@ -<HTML><HEAD><TITLE>K</TITLE></HEAD> -<BODY> -<H2>Functions - K</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#95_16" TARGET="main">Keyname</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1985_16" TARGET="main">Keyok</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#853_16" TARGET="main">Keypad</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2067_16" TARGET="main">Killchar</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/L.htm b/ncurses-5.2/doc/html/ada/funcs/L.htm deleted file mode 100644 index 456daf8..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/L.htm +++ /dev/null @@ -1,14 +0,0 @@ -<HTML><HEAD><TITLE>L</TITLE></HEAD> -<BODY> -<H2>Functions - L</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#1007_16" TARGET="main">Leave_Ok</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#101_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:101</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#102_13" TARGET="main">Line - terminal_interface-curses-text_io.ads:102</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#77_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:77</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#78_13" TARGET="main">Line_Length - terminal_interface-curses-text_io.ads:78</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#171_16" TARGET="main">Lnk_Field</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2109_16" TARGET="main">Longname - terminal_interface-curses.adb:2109</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2117_16" TARGET="main">Longname - terminal_interface-curses.adb:2117</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/M.htm b/ncurses-5.2/doc/html/ada/funcs/M.htm deleted file mode 100644 index c2b7878..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/M.htm +++ /dev/null @@ -1,44 +0,0 @@ -<HTML><HEAD><TITLE>M</TITLE></HEAD> -<BODY> -<H2>Functions - M</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#73_13" TARGET="main">Make_Enumeration_Type</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#607_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:607</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#617_16" TARGET="main">Menu_Back - terminal_interface-curses-menus.adb:617</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#786_16" TARGET="main">Menu_Fmt</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#568_16" TARGET="main">Menu_Fore - terminal_interface-curses-menus.adb:568</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#578_16" TARGET="main">Menu_Fore - terminal_interface-curses-menus.adb:578</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#646_16" TARGET="main">Menu_Grey - terminal_interface-curses-menus.adb:646</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#656_16" TARGET="main">Menu_Grey - terminal_interface-curses-menus.adb:656</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#875_16" TARGET="main">Menu_Init</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#413_16" TARGET="main">Menu_Opts</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#393_16" TARGET="main">Menu_Opts_Off</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#390_16" TARGET="main">Menu_Opts_On</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#681_16" TARGET="main">Menu_Pad</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#469_16" TARGET="main">Menu_Sub</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#883_16" TARGET="main">Menu_Term</A> -<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm#63_16" TARGET="main">Menu_Userptr</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#445_16" TARGET="main">Menu_Win</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#842_16" TARGET="main">Meta</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__adb.htm#47_12" TARGET="main">MIO</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#112_16" TARGET="main">MMask</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#59_13" TARGET="main">MOS_2_CInt</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#208_16" TARGET="main">Mouseinterval</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#54_16" TARGET="main">Mouse_Avail</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#785_16" TARGET="main">Move - terminal_interface-curses-forms.adb:785</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#131_16" TARGET="main">Move - terminal_interface-curses-panels.adb:131</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#381_16" TARGET="main">Mvderwin</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#207_16" TARGET="main">mvwaddch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1572_16" TARGET="main">Mvwdelch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#367_16" TARGET="main">Mvwin</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1596_16" TARGET="main">Mvwinch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1621_16" TARGET="main">Mvwinsch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1662_16" TARGET="main">Mvwinsnstr</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#915_16" TARGET="main">M_Post - terminal_interface-curses-forms.adb:915</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#353_16" TARGET="main">M_Post - terminal_interface-curses-menus.adb:353</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#642_16" TARGET="main">M_Scale - terminal_interface-curses-forms.adb:642</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#482_16" TARGET="main">M_Scale - terminal_interface-curses-menus.adb:482</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#917_16" TARGET="main">M_Unpost - terminal_interface-curses-forms.adb:917</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#355_16" TARGET="main">M_Unpost - terminal_interface-curses-menus.adb:355</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/N.htm b/ncurses-5.2/doc/html/ada/funcs/N.htm deleted file mode 100644 index 09ba03f..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/N.htm +++ /dev/null @@ -1,28 +0,0 @@ -<HTML><HEAD><TITLE>N</TITLE></HEAD> -<BODY> -<H2>Functions - N</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2328_16" TARGET="main">Napms</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#115_16" TARGET="main">Newfield</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#803_16" TARGET="main">NewForm</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#97_16" TARGET="main">Newitem</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#938_16" TARGET="main">Newmenu</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1419_16" TARGET="main">Newpad</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#50_16" TARGET="main">Newpanel</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#265_16" TARGET="main">Newwin</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#86_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:86</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#87_14" TARGET="main">New_Line - terminal_interface-curses-text_io.ads:87</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#89_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:89</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#90_14" TARGET="main">New_Page - terminal_interface-curses-text_io.ads:90</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#60_13" TARGET="main">Next</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#950_16" TARGET="main">NL</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#786_16" TARGET="main">NoCbreak</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#903_16" TARGET="main">Nodelay</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#824_16" TARGET="main">NoEcho</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#952_16" TARGET="main">NoNL</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#805_16" TARGET="main">NoRaw</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#938_16" TARGET="main">Notimeout</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#889_17" TARGET="main">No_Qiflush</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm#41_53" TARGET="main">Numeric</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/O.htm b/ncurses-5.2/doc/html/ada/funcs/O.htm deleted file mode 100644 index d5ec406..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/O.htm +++ /dev/null @@ -1,9 +0,0 @@ -<HTML><HEAD><TITLE>O</TITLE></HEAD> -<BODY> -<H2>Functions - O</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-text_io-aux__adb.htm#58_17" TARGET="main">Output</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1323_16" TARGET="main">Overlay</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1311_16" TARGET="main">Overwrite</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/P.htm b/ncurses-5.2/doc/html/ada/funcs/P.htm deleted file mode 100644 index 79eae2a..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/P.htm +++ /dev/null @@ -1,39 +0,0 @@ -<HTML><HEAD><TITLE>P</TITLE></HEAD> -<BODY> -<H2>Functions - P</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#80_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:80</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#81_13" TARGET="main">Page_Length - terminal_interface-curses-text_io.ads:81</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2165_16" TARGET="main">Paircontent</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#143_16" TARGET="main">Panel_Hidden</A> -<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#65_16" TARGET="main">Panel_Userptr</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#104_16" TARGET="main">Panel_Win</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1523_16" TARGET="main">Pechochar</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1498_16" TARGET="main">Pnoutrefresh</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#940_16" TARGET="main">Pos_Form_Cursor</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#498_16" TARGET="main">Pos_Menu_Cursor</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1468_16" TARGET="main">Prefresh</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__ads.htm#67_13" TARGET="main">Previous</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#54_14" TARGET="main">Put - terminal_interface-curses-text_io-complex_io.ads:54</A> -<LI><A HREF="../terminal_interface-curses-text_io-complex_io__ads.htm#61_14" TARGET="main">Put - terminal_interface-curses-text_io-complex_io.ads:61</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-decimal_io.ads:50</A> -<LI><A HREF="../terminal_interface-curses-text_io-decimal_io__ads.htm#57_14" TARGET="main">Put - terminal_interface-curses-text_io-decimal_io.ads:57</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm#49_14" TARGET="main">Put - terminal_interface-curses-text_io-enumeration_io.ads:49</A> -<LI><A HREF="../terminal_interface-curses-text_io-enumeration_io__ads.htm#55_14" TARGET="main">Put - terminal_interface-curses-text_io-enumeration_io.ads:55</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-fixed_io.ads:50</A> -<LI><A HREF="../terminal_interface-curses-text_io-fixed_io__ads.htm#57_14" TARGET="main">Put - terminal_interface-curses-text_io-fixed_io.ads:57</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm#50_14" TARGET="main">Put - terminal_interface-curses-text_io-float_io.ads:50</A> -<LI><A HREF="../terminal_interface-curses-text_io-float_io__ads.htm#57_14" TARGET="main">Put - terminal_interface-curses-text_io-float_io.ads:57</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm#49_14" TARGET="main">Put - terminal_interface-curses-text_io-integer_io.ads:49</A> -<LI><A HREF="../terminal_interface-curses-text_io-integer_io__ads.htm#55_14" TARGET="main">Put - terminal_interface-curses-text_io-integer_io.ads:55</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm#49_14" TARGET="main">Put - terminal_interface-curses-text_io-modular_io.ads:49</A> -<LI><A HREF="../terminal_interface-curses-text_io-modular_io__ads.htm#55_14" TARGET="main">Put - terminal_interface-curses-text_io-modular_io.ads:55</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#108_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:108</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#109_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:109</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#115_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:115</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#116_14" TARGET="main">Put - terminal_interface-curses-text_io.ads:116</A> -<LI><A HREF="../terminal_interface-curses-text_io-aux__ads.htm#47_14" TARGET="main">Put_Buf</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#118_14" TARGET="main">Put_Line - terminal_interface-curses-text_io.ads:118</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#122_14" TARGET="main">Put_Line - terminal_interface-curses-text_io.ads:122</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/Q.htm b/ncurses-5.2/doc/html/ada/funcs/Q.htm deleted file mode 100644 index 51ad35b..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/Q.htm +++ /dev/null @@ -1,7 +0,0 @@ -<HTML><HEAD><TITLE>Q</TITLE></HEAD> -<BODY> -<H2>Functions - Q</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#887_17" TARGET="main">Qiflush</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/R.htm b/ncurses-5.2/doc/html/ada/funcs/R.htm deleted file mode 100644 index 213a13c..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/R.htm +++ /dev/null @@ -1,20 +0,0 @@ -<HTML><HEAD><TITLE>R</TITLE></HEAD> -<BODY> -<H2>Functions - R</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#803_16" TARGET="main">Raw</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1105_16" TARGET="main">Redrawwin</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm#41_53" TARGET="main">RegExp</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_14" TARGET="main">Release - terminal_interface-curses-forms-field_types-enumeration.ads:77</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1133_17" TARGET="main">Release - terminal_interface-curses-forms.adb:1133</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#994_17" TARGET="main">Release - terminal_interface-curses-menus.adb:994</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm#52_17" TARGET="main">Release_String</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#118_16" TARGET="main">Replace_Pan</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#79_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:79</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#87_16" TARGET="main">Request_Name - terminal_interface-curses-menus.adb:87</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2293_16" TARGET="main">Resetty</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2265_16" TARGET="main">Reset_Prog_Mode</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2267_16" TARGET="main">Reset_Shell_Mode</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2304_16" TARGET="main">Ripoffline</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/S.htm b/ncurses-5.2/doc/html/ada/funcs/S.htm deleted file mode 100644 index f0e0204..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/S.htm +++ /dev/null @@ -1,93 +0,0 @@ -<HTML><HEAD><TITLE>S</TITLE></HEAD> -<BODY> -<H2>Functions - S</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2283_16" TARGET="main">Savetty</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1031_16" TARGET="main">Scrollok</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#92_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:92</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#93_14" TARGET="main">Set_Col - terminal_interface-curses-text_io.ads:93</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1025_16" TARGET="main">Set_Current_Fld</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#286_16" TARGET="main">Set_Curr_Item</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#447_16" TARGET="main">Set_Field_Back</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#403_16" TARGET="main">Set_Field_Fore</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#664_16" TARGET="main">Set_Field_Init</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#195_16" TARGET="main">Set_Field_Just</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#309_16" TARGET="main">Set_Field_Max</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#329_16" TARGET="main">Set_Field_Opts</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#489_16" TARGET="main">Set_Field_Pad</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#680_16" TARGET="main">Set_Field_Term</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__ads.htm#49_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alpha.ads:49</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-alphanumeric.ads:50</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-enumeration.ads:84</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__ads.htm#51_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-intfield.ads:51</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-ipv4_address.ads:47</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__ads.htm#51_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-numeric.ads:51</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__ads.htm#51_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-regexp.ads:51</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#70_14" TARGET="main">Set_Field_Type - terminal_interface-curses-forms-field_types-user.ads:70</A> -<LI><A HREF="../terminal_interface-curses-forms-field_user_data__adb.htm#57_16" TARGET="main">Set_Field_Userptr</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#230_16" TARGET="main">Set_Fld_Buffer</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#277_16" TARGET="main">Set_Fld_Status</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alpha__adb.htm#54_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-alpha.adb:54</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#54_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-alphanumeric.adb:54</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration__adb.htm#97_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-enumeration.adb:97</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-intfield__adb.htm#54_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-intfield.adb:54</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#54_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-ipv4_address.adb:54</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-numeric__adb.htm#56_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-numeric.adb:56</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#55_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types-user.adb:55</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#151_16" TARGET="main">Set_Fld_Type - terminal_interface-curses-forms-field_types.adb:151</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#696_16" TARGET="main">Set_Form_Init</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#844_16" TARGET="main">Set_Form_Opts</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#612_16" TARGET="main">Set_Form_Sub</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#712_16" TARGET="main">Set_Form_Term</A> -<LI><A HREF="../terminal_interface-curses-forms-form_user_data__adb.htm#58_16" TARGET="main">Set_Form_Userptr</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#584_16" TARGET="main">Set_Form_Win</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#732_16" TARGET="main">Set_Frm_Fields</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1055_16" TARGET="main">Set_Frm_Page</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-regexp__adb.htm#54_16" TARGET="main">Set_Ftyp</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#892_16" TARGET="main">Set_Items</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#804_16" TARGET="main">Set_Item_Init</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#193_16" TARGET="main">Set_Item_Opts</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#818_16" TARGET="main">Set_Item_Term</A> -<LI><A HREF="../terminal_interface-curses-menus-item_user_data__adb.htm#51_16" TARGET="main">Set_Item_Userptr</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#154_16" TARGET="main">Set_Item_Val</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#95_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:95</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#96_14" TARGET="main">Set_Line - terminal_interface-curses-text_io.ads:96</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#513_16" TARGET="main">Set_Mark</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#590_16" TARGET="main">Set_Menu_Back</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#767_16" TARGET="main">Set_Menu_Fmt</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#551_16" TARGET="main">Set_Menu_Fore</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#628_16" TARGET="main">Set_Menu_Grey</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#832_16" TARGET="main">Set_Menu_Init</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#373_16" TARGET="main">Set_Menu_Opts</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#666_16" TARGET="main">Set_Menu_Pad</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#456_16" TARGET="main">Set_Menu_Sub</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#846_16" TARGET="main">Set_Menu_Term</A> -<LI><A HREF="../terminal_interface-curses-menus-menu_user_data__adb.htm#50_16" TARGET="main">Set_Menu_Userptr</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#432_16" TARGET="main">Set_Menu_Win</A> -<LI><A HREF="../terminal_interface-curses-forms__adb.htm#1104_16" TARGET="main">Set_Page</A> -<LI><A HREF="../terminal_interface-curses-panels-user_data__adb.htm#54_16" TARGET="main">Set_Panel_Userptr</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#735_16" TARGET="main">Set_Pattern</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#692_16" TARGET="main">Set_Spacing</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#313_16" TARGET="main">Set_Toprow</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#59_14" TARGET="main">Set_Window</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#84_16" TARGET="main">Showpanel</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1953_16" TARGET="main">Slk_Attr - terminal_interface-curses.adb:1953</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1963_16" TARGET="main">Slk_Attr - terminal_interface-curses.adb:1963</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1917_16" TARGET="main">Slk_Attroff</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1915_16" TARGET="main">Slk_Attron</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1939_16" TARGET="main">Slk_Attrset</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1883_16" TARGET="main">Slk_Clear</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1973_16" TARGET="main">Slk_Color</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1814_16" TARGET="main">Slk_Init</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1867_16" TARGET="main">Slk_Label - terminal_interface-curses.adb:1867</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1875_16" TARGET="main">Slk_Label - terminal_interface-curses.adb:1875</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1856_16" TARGET="main">Slk_Noutrefresh</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1846_16" TARGET="main">Slk_Refresh</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1893_16" TARGET="main">Slk_Restore</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1827_16" TARGET="main">Slk_Set</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1903_16" TARGET="main">Slk_Touch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1438_16" TARGET="main">Subpad</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#301_16" TARGET="main">Subwin</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#394_16" TARGET="main">Syncok</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/T.htm b/ncurses-5.2/doc/html/ada/funcs/T.htm deleted file mode 100644 index 817d22b..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/T.htm +++ /dev/null @@ -1,19 +0,0 @@ -<HTML><HEAD><TITLE>T</TITLE></HEAD> -<BODY> -<H2>Functions - T</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2099_16" TARGET="main">Termattrs</A> -<LI><A HREF="../terminal_interface__ads.htm#41_9" TARGET="main">Terminal_Interface</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2125_16" TARGET="main">Termname - terminal_interface-curses.adb:2125</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2133_16" TARGET="main">Termname - terminal_interface-curses.adb:2133</A> -<LI><A HREF="../terminal_interface-curses-text_io__ads.htm#44_35" TARGET="main">Text_IO</A> -<LI><A HREF="../terminal_interface-curses-panels__adb.htm#74_16" TARGET="main">Toppanel</A> -<LI><A HREF="../terminal_interface-curses-menus__adb.htm#326_16" TARGET="main">Toprow</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#106_16" TARGET="main">To_Access</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user-choice__adb.htm#49_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types-user-choice.adb:49</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__adb.htm#80_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types-user.adb:80</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types__adb.htm#55_13" TARGET="main">To_Argument_Access - terminal_interface-curses-forms-field_types.adb:55</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#75_16" TARGET="main">To_Pointer</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2392_16" TARGET="main">Transform</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/U.htm b/ncurses-5.2/doc/html/ada/funcs/U.htm deleted file mode 100644 index 135f3fb..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/U.htm +++ /dev/null @@ -1,11 +0,0 @@ -<HTML><HEAD><TITLE>U</TITLE></HEAD> -<BODY> -<H2>Functions - U</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#2015_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2015</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#2023_16" TARGET="main">Unctrl - terminal_interface-curses.adb:2023</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#570_16" TARGET="main">Ungetch</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#183_16" TARGET="main">Ungetmouse</A> -<LI><A HREF="../terminal_interface-curses-forms-field_types-user__ads.htm#43_53" TARGET="main">User</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/V.htm b/ncurses-5.2/doc/html/ada/funcs/V.htm deleted file mode 100644 index 21bebc2..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/V.htm +++ /dev/null @@ -1,7 +0,0 @@ -<HTML><HEAD><TITLE>V</TITLE></HEAD> -<BODY> -<H2>Functions - V</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#53_13" TARGET="main">Value</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/funcs/W.htm b/ncurses-5.2/doc/html/ada/funcs/W.htm deleted file mode 100644 index 5016fb7..0000000 --- a/ncurses-5.2/doc/html/ada/funcs/W.htm +++ /dev/null @@ -1,51 +0,0 @@ -<HTML><HEAD><TITLE>W</TITLE></HEAD> -<BODY> -<H2>Functions - W</H2> -<A HREF="../funcs.htm" TARGET="_self">[index]</A> -<UL COMPACT TYPE=DISC> -<LI><A HREF="../terminal_interface-curses__adb.htm#182_16" TARGET="main">Waddch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#440_16" TARGET="main">Waddchnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#408_16" TARGET="main">Waddnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#668_16" TARGET="main">Wattrget - terminal_interface-curses.adb:668</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#691_16" TARGET="main">Wattrget - terminal_interface-curses.adb:691</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#627_16" TARGET="main">Wattroff</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#624_16" TARGET="main">Wattron</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#652_16" TARGET="main">Wattrset</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1174_17" TARGET="main">WBackground</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#481_16" TARGET="main">Wborder</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1184_16" TARGET="main">WChangeBkgd</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#732_16" TARGET="main">Wchgat</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1142_16" TARGET="main">Wclear</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1152_16" TARGET="main">Wclearbot</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1162_16" TARGET="main">Wcleareol</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1559_16" TARGET="main">Wdelch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#285_16" TARGET="main">Wdelwin</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#239_16" TARGET="main">Wechochar</A> -<LI><A HREF="../terminal_interface-curses-mouse__adb.htm#194_16" TARGET="main">Wenclose</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1132_16" TARGET="main">Werase</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1195_16" TARGET="main">Wgetbkgd</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#556_16" TARGET="main">Wgetch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1774_16" TARGET="main">Wgetnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#523_16" TARGET="main">Whline</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1585_16" TARGET="main">Winch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1727_16" TARGET="main">Winchnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1684_16" TARGET="main">Winnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1607_16" TARGET="main">Winsch</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1336_16" TARGET="main">Winsdelln</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1640_16" TARGET="main">Winsnstr</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1248_16" TARGET="main">WLineTouched</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#168_16" TARGET="main">Wmove</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1095_16" TARGET="main">Wnoutrefresh</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1118_16" TARGET="main">Wredrawln</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1084_16" TARGET="main">Wrefresh</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1547_16" TARGET="main">Wscrl</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1061_16" TARGET="main">Wsetscrreg</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#714_16" TARGET="main">Wset_Color</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#915_16" TARGET="main">Wtimeout</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1206_16" TARGET="main">Wtouchln</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#540_16" TARGET="main">Wvline</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#1261_16" TARGET="main">WWinTouched</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#90_13" TARGET="main">W_Get_Byte</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#88_13" TARGET="main">W_Get_Int</A> -<LI><A HREF="../terminal_interface-curses__adb.htm#89_13" TARGET="main">W_Get_Short</A> -</UL></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/index.htm b/ncurses-5.2/doc/html/ada/index.htm deleted file mode 100644 index 79c9f4a..0000000 --- a/ncurses-5.2/doc/html/ada/index.htm +++ /dev/null @@ -1,41 +0,0 @@ -<HTML> -<HEAD><TITLE>Source Browser</TITLE></HEAD> -<FRAMESET COLS='250,*'> -<NOFRAME> -<H2 ALIGN=CENTER>Files</H2> -<A HREF="files/T.htm">[T]</A> -</UL> -<HR> -<H2 ALIGN=CENTER>Functions/Procedures</H2> -<A HREF="funcs/ .htm">[ ]</A> -<A HREF="funcs/A.htm">[A]</A> -<A HREF="funcs/B.htm">[B]</A> -<A HREF="funcs/C.htm">[C]</A> -<A HREF="funcs/D.htm">[D]</A> -<A HREF="funcs/E.htm">[E]</A> -<A HREF="funcs/F.htm">[F]</A> -<A HREF="funcs/G.htm">[G]</A> -<A HREF="funcs/H.htm">[H]</A> -<A HREF="funcs/I.htm">[I]</A> -<A HREF="funcs/K.htm">[K]</A> -<A HREF="funcs/L.htm">[L]</A> -<A HREF="funcs/M.htm">[M]</A> -<A HREF="funcs/N.htm">[N]</A> -<A HREF="funcs/O.htm">[O]</A> -<A HREF="funcs/P.htm">[P]</A> -<A HREF="funcs/Q.htm">[Q]</A> -<A HREF="funcs/R.htm">[R]</A> -<A HREF="funcs/S.htm">[S]</A> -<A HREF="funcs/T.htm">[T]</A> -<A HREF="funcs/U.htm">[U]</A> -<A HREF="funcs/V.htm">[V]</A> -<A HREF="funcs/W.htm">[W]</A> -</UL> -</NOFRAME> -<FRAMESET ROWS='50%,50%'> -<FRAME NAME=files SRC=files.htm> -<FRAME NAME=funcs SRC=funcs.htm> -</FRAMESET> -<FRAME NAME=main SRC=main.htm> -</FRAMESET> -</HTML> diff --git a/ncurses-5.2/doc/html/ada/main.htm b/ncurses-5.2/doc/html/ada/main.htm deleted file mode 100644 index 2a403dc..0000000 --- a/ncurses-5.2/doc/html/ada/main.htm +++ /dev/null @@ -1,66 +0,0 @@ -<HTML><HEAD><TITLE></TITLE></HEAD> -<BODY> -<P ALIGN=right><A HREF="main.htm" TARGET="_top">[No frame version is here]</A><P><H2 ALIGN=CENTER>Files</H2> -<A HREF="files/T.htm">[T]</A> -</UL> -<HR><H2 ALIGN=CENTER>Functions/Procedures</H2> -<A HREF="funcs/ .htm">[ ]</A> -<A HREF="funcs/A.htm">[A]</A> -<A HREF="funcs/B.htm">[B]</A> -<A HREF="funcs/C.htm">[C]</A> -<A HREF="funcs/D.htm">[D]</A> -<A HREF="funcs/E.htm">[E]</A> -<A HREF="funcs/F.htm">[F]</A> -<A HREF="funcs/G.htm">[G]</A> -<A HREF="funcs/H.htm">[H]</A> -<A HREF="funcs/I.htm">[I]</A> -<A HREF="funcs/K.htm">[K]</A> -<A HREF="funcs/L.htm">[L]</A> -<A HREF="funcs/M.htm">[M]</A> -<A HREF="funcs/N.htm">[N]</A> -<A HREF="funcs/O.htm">[O]</A> -<A HREF="funcs/P.htm">[P]</A> -<A HREF="funcs/Q.htm">[Q]</A> -<A HREF="funcs/R.htm">[R]</A> -<A HREF="funcs/S.htm">[S]</A> -<A HREF="funcs/T.htm">[T]</A> -<A HREF="funcs/U.htm">[U]</A> -<A HREF="funcs/V.htm">[V]</A> -<A HREF="funcs/W.htm">[W]</A> -</UL> -<HR> -You should start your browsing with one of these files: -<UL> -<LI><A HREF="terminal_interface-curses-aux__ads.htm">terminal_interface-curses-aux.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm">terminal_interface-curses-forms-field_types-alpha.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm">terminal_interface-curses-forms-field_types-alphanumeric.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm">terminal_interface-curses-forms-field_types-enumeration-ada.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm">terminal_interface-curses-forms-field_types-enumeration.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm">terminal_interface-curses-forms-field_types-intfield.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm">terminal_interface-curses-forms-field_types-ipv4_address.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm">terminal_interface-curses-forms-field_types-numeric.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm">terminal_interface-curses-forms-field_types-regexp.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm">terminal_interface-curses-forms-field_types-user-choice.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types-user__ads.htm">terminal_interface-curses-forms-field_types-user.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_types__ads.htm">terminal_interface-curses-forms-field_types.ads</A> -<LI><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm">terminal_interface-curses-forms-field_user_data.ads</A> -<LI><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm">terminal_interface-curses-forms-form_user_data.ads</A> -<LI><A HREF="terminal_interface-curses-forms__ads.htm">terminal_interface-curses-forms.ads</A> -<LI><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm">terminal_interface-curses-menus-item_user_data.ads</A> -<LI><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm">terminal_interface-curses-menus-menu_user_data.ads</A> -<LI><A HREF="terminal_interface-curses-menus__ads.htm">terminal_interface-curses-menus.ads</A> -<LI><A HREF="terminal_interface-curses-mouse__ads.htm">terminal_interface-curses-mouse.ads</A> -<LI><A HREF="terminal_interface-curses-panels-user_data__ads.htm">terminal_interface-curses-panels-user_data.ads</A> -<LI><A HREF="terminal_interface-curses-panels__ads.htm">terminal_interface-curses-panels.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-aux__ads.htm">terminal_interface-curses-text_io-aux.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-complex_io__ads.htm">terminal_interface-curses-text_io-complex_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm">terminal_interface-curses-text_io-decimal_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm">terminal_interface-curses-text_io-enumeration_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm">terminal_interface-curses-text_io-fixed_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-float_io__ads.htm">terminal_interface-curses-text_io-float_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-integer_io__ads.htm">terminal_interface-curses-text_io-integer_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io-modular_io__ads.htm">terminal_interface-curses-text_io-modular_io.ads</A> -<LI><A HREF="terminal_interface-curses-text_io__ads.htm">terminal_interface-curses-text_io.ads</A> -<LI><A HREF="terminal_interface-curses__ads.htm">terminal_interface-curses.ads</A> -<LI><A HREF="terminal_interface__ads.htm">terminal_interface.ads</A> -</BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/table.html b/ncurses-5.2/doc/html/ada/table.html deleted file mode 100644 index e185a8b..0000000 --- a/ncurses-5.2/doc/html/ada/table.html +++ /dev/null @@ -1,325 +0,0 @@ -<!DOCTYPE HTML -PUBLIC "-//IETF//DTD HTML 3.0//EN"> -<HTML> -<HEAD> -<TITLE>Correspondence between ncurses C and Ada functions</TITLE> -</HEAD> -<BODY> -<H1>Correspondence between ncurses C and Ada functions</H1> -<H2>Sorted by C function name</H2> -<TABLE ALIGN=CENTER BORDER> -<TR ALIGN=LEFT> -<TH>C name</TH><TH>Ada name</TH><TH>man page</TH></TR> -<TR><TD>baudrate()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_128">Baudrate</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>beep()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_38">Beep</A></TD><TD><A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></TD></TR> -<TR><TD>bottom_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_3">Bottom</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>box()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_25">Box</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> -<TR><TD>can_change_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_143">Can_Change_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>cbreak()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_40">Set_Cbreak_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>clearok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_52">Clear_On_Next_Update</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>color_content()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_144">Color_Content</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>copywin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_77">Copy</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> -<TR><TD>current_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_58">Current</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> -<TR><TD>current_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_14">Current</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> -<TR><TD>curs_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_150">Set_Cursor_Visibility</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>data_ahead()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_54">Data_Ahead</A></TD><TD><A HREF="../man/form_data.3x.html">form_data.3x</A></TD></TR> -<TR><TD>data_behind()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_55">Data_Behind</A></TD><TD><A HREF="../man/form_data.3x.html">form_data.3x</A></TD></TR> -<TR><TD>def_prog_mode()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_145">Save_Curses_Mode</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>define_key()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_121">Define_Key</A></TD><TD><A HREF="../man/define_key.3x.html">define_key.3x</A></TD></TR> -<TR><TD>del_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_15">Delete</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>delay_output()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_126">Delay_Output</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>delwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_11">Delete</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>derwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_13">Derived_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>doupdate()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_59">Update_Screen</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> -<TR><TD>dup_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_4">Duplicate</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> -<TR><TD>dupwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_14">Duplicate</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>dynamic_field_info()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_26">Dynamic_Info</A></TD><TD><A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></TD></TR> -<TR><TD>echo()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_42">Set_Echo_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>endwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_4">End_Windows</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> -<TR><TD>erasechar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_129">Erase_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_21">Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_22">Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>field_buffer()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_9">Get_Buffer</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> -<TR><TD>field_count()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_43">Field_Count</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> -<TR><TD>field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_18">Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_19">Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>field_index()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_61">Get_Index</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> -<TR><TD>field_info()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_25">Info</A></TD><TD><A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></TD></TR> -<TR><TD>field_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_36">Get_Field_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>field_just()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_7">Get_Justification</A></TD><TD><A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></TD></TR> -<TR><TD>field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_15">Get_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> -<TR><TD>field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_16">Get_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> -<TR><TD>field_opts_on()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_14">Switch_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> -<TR><TD>field_pad()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_24">Pad_Character</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>field_status()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_11">Changed</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> -<TR><TD>field_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_37">Get_Field_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>field_type()</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_2">Get_Type</A></TD><TD><A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></TD></TR> -<TR><TD>field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> -<TR><TD>field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> -<TR><TD>flash()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_39">Flash_Screen</A></TD><TD><A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></TD></TR> -<TR><TD>flushinp()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_127">Flush_Input</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>form_driver()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_56">Driver</A></TD><TD><A HREF="../man/form_driver.3x.html">form_driver.3x</A></TD></TR> -<TR><TD>form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_42">Fields</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> -<TR><TD>form_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_38">Get_Form_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_50">Get_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> -<TR><TD>form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_51">Get_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> -<TR><TD>form_opts_on()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_49">Switch_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> -<TR><TD>form_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_60">Page</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> -<TR><TD>form_sub()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_30">Get_Sub_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> -<TR><TD>form_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_39">Get_Form_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> -<TR><TD>form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> -<TR><TD>form_win()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_28">Get_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> -<TR><TD>free_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_3">Delete</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> -<TR><TD>free_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_47">Delete</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> -<TR><TD>free_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_3">Delete</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> -<TR><TD>free_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_60">Delete</A></TD><TD><A HREF="../man/menu_new.3x.html">menu_new.3x</A></TD></TR> -<TR><TD>getbegyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_84">Get_Window_Position</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> -<TR><TD>getmaxyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_83">Get_Size</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> -<TR><TD>getmouse()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_2">Get_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> -<TR><TD>getparyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_86">Get_Origin_Relative_To_Parent</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> -<TR><TD>getyx()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_85">Get_Cursor_Position</A></TD><TD><A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></TD></TR> -<TR><TD>halfdelay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_45">Half_Delay</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>has_colors()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_141">Has_Colors</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>has_ic()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_131">Has_Insert_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>has_il()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_132">Has_Insert_Line</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>has_key()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_30">Has_Key</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> -<TR><TD>hide_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_7">Hide</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>idcok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_54">Use_Insert_Delete_Character</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>idlok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_53">Use_Insert_Delete_Line</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>immedok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_56">Immediate_Update_Mode</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>init_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_142">Init_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>init_pair()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_139">Init_Pair</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>initscr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_2">Init_Screen</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> -<TR><TD>initscr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_3">Init_Windows</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> -<TR><TD>intrflush()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_46">Set_Flush_On_Interrupt_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>is_linetouched()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_75">Is_Touched</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>is_wintouched()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_76">Is_Touched</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>isendwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_5">Is_End_Window</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> -<TR><TD>item_count()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_58">Item_Count</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> -<TR><TD>item_description();</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_12">Description</A></TD><TD><A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></TD></TR> -<TR><TD>item_index()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_17">Get_Index</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> -<TR><TD>item_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_52">Get_Item_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>item_name()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_11">Name</A></TD><TD><A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></TD></TR> -<TR><TD>item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_10">Get_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> -<TR><TD>item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_9">Get_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> -<TR><TD>item_opts_on()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_8">Switch_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> -<TR><TD>item_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_53">Get_Item_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> -<TR><TD>item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> -<TR><TD>item_value()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_5">Value</A></TD><TD><A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></TD></TR> -<TR><TD>item_visible()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_6">Visible</A></TD><TD><A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></TD></TR> -<TR><TD>keyname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_122">Key_Name</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>keyname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_123">Key_Name</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>keyok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_120">Enable_Key</A></TD><TD><A HREF="../man/keyok.3x.html">keyok.3x</A></TD></TR> -<TR><TD>keypad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_44">Set_KeyPad_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>killchar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_130">Kill_Character</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>leaveok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_55">Leave_Cursor_After_Update</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>link_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_5">Link</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> -<TR><TD>longname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_134">Long_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>longname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_135">Long_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_35">Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_36">Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_driver()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_61">Driver</A></TD><TD><A HREF="../man/menu_new.3x.html">menu_new.3x</A></TD></TR> -<TR><TD>menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_32">Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_33">Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_format()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_47">Format</A></TD><TD><A HREF="../man/menu_format.3x.html">menu_format.3x</A></TD></TR> -<TR><TD>menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_38">Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_39">Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_54">Get_Menu_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>menu_items()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_57">Items</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> -<TR><TD>menu_mark()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_30">Mark</A></TD><TD><A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></TD></TR> -<TR><TD>menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_21">Get_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> -<TR><TD>menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_22">Get_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> -<TR><TD>menu_opts_on()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_20">Switch_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> -<TR><TD>menu_pad()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_41">Pad_Character</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>menu_pattern()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_45">Pattern</A></TD><TD><A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></TD></TR> -<TR><TD>menu_spacing()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_43">Spacing</A></TD><TD><A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></TD></TR> -<TR><TD>menu_sub()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_26">Get_Sub_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> -<TR><TD>menu_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_55">Get_Menu_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> -<TR><TD>menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> -<TR><TD>menu_win()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_24">Get_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> -<TR><TD>meta()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_43">Set_Meta_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>mouseinterval()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_5">Mouse_Interval</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> -<TR><TD>mousemask()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_1">Start_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> -<TR><TD>move_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_44">Move</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> -<TR><TD>move_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_11">Move</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>mvderwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_16">Move_Derived_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>mvwaddch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_8">Add</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> -<TR><TD>mvwaddchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_23">Add</A></TD><TD><A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></TD></TR> -<TR><TD>mvwaddnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_21">Add</A></TD><TD><A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></TD></TR> -<TR><TD>mvwchgat()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_37">Change_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>mvwdelch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_94">Delete_Character</A></TD><TD><A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></TD></TR> -<TR><TD>mvwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_15">Move_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>mvwinch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_96">Peek</A></TD><TD><A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></TD></TR> -<TR><TD>mvwinchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_104">Peek</A></TD><TD><A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></TD></TR> -<TR><TD>mvwinnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_102">Peek</A></TD><TD><A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></TD></TR> -<TR><TD>mvwinsch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_98">Insert</A></TD><TD><A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></TD></TR> -<TR><TD>mvwinsnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_100">Insert</A></TD><TD><A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></TD></TR> -<TR><TD>napms()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_151">Nap_Milli_Seconds</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>new_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> -<TR><TD>new_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_2">New_Field</A></TD><TD><A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></TD></TR> -<TR><TD>new_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_45">Create</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> -<TR><TD>new_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_46">New_Form</A></TD><TD><A HREF="../man/form_new.3x.html">form_new.3x</A></TD></TR> -<TR><TD>new_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> -<TR><TD>new_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_2">New_Item</A></TD><TD><A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></TD></TR> -<TR><TD>new_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_59">Create</A></TD><TD><A HREF="../man/menu_new.3x.html">menu_new.3x</A></TD></TR> -<TR><TD>new_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_63">Is_New_Page</A></TD><TD><A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></TD></TR> -<TR><TD>new_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_1">Create</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>new_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_2">New_Panel</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>newpad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_87">New_Pad</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> -<TR><TD>newwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_10">Create</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>nl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_51">Set_NL_Mode</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>nodelay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_48">Set_NoDelay_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>notimeout()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_50">Set_Escape_Time_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>overlay()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_79">Overlay</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> -<TR><TD>overwrite()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_78">Overwrite</A></TD><TD><A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></TD></TR> -<TR><TD>pair_content()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_140">Pair_Content</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>panel_above()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_13">Above</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_below()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_14">Below</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_hidden()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_12">Is_Hidden</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_2">Get_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_3">Get_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_window()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_8">Get_Window</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>panel_window()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_9">Panel_Window</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>pechochar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_91">Add_Character_To_Pad_And_Echo_It</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> -<TR><TD>pnoutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_90">Refresh_Without_Update</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> -<TR><TD>pos_form_cursor()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_53">Position_Cursor</A></TD><TD><A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></TD></TR> -<TR><TD>pos_menu_cursor()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_28">Position_Cursor</A></TD><TD><A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></TD></TR> -<TR><TD>post_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_52">Post</A></TD><TD><A HREF="../man/form_post.3x.html">form_post.3x</A></TD></TR> -<TR><TD>post_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_18">Post</A></TD><TD><A HREF="../man/menu_post.3x.html">menu_post.3x</A></TD></TR> -<TR><TD>prefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_89">Refresh</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> -<TR><TD>qiflush()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_47">Set_Queue_Interrupt_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>raw()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_41">Set_Raw_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>redrawwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_62">Redraw</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> -<TR><TD>replace_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_10">Replace</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>reset_prog_mode()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_146">Reset_Curses_Mode</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>resetty();</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_148">Reset_Terminal_State</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>ripoffline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_149">Rip_Off_Lines</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>savetty()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_147">Save_Terminal_State</A></TD><TD><A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></TD></TR> -<TR><TD>scale_form()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_31">Scale</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> -<TR><TD>scale_menu()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_27">Scale</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> -<TR><TD>scrollok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_57">Allow_Scrolling</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>set_current_field()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_57">Set_Current</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> -<TR><TD>set_current_item()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_13">Set_Current</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> -<TR><TD>set_field_back()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_20">Set_Background</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>set_field_buffer()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_8">Set_Buffer</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> -<TR><TD>set_field_fore()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_17">Set_Foreground</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>set_field_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_32">Set_Field_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>set_field_just()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_6">Set_Justification</A></TD><TD><A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></TD></TR> -<TR><TD>set_field_max()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_12">Set_Maximum_Size</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> -<TR><TD>set_field_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_13">Set_Options</A></TD><TD><A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></TD></TR> -<TR><TD>set_field_pad()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_23">Set_Pad_Character</A></TD><TD><A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></TD></TR> -<TR><TD>set_field_status()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_10">Set_Status</A></TD><TD><A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></TD></TR> -<TR><TD>set_field_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_33">Set_Field_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>set_field_type()</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_1">Set_Type</A></TD><TD><A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></TD></TR> -<TR><TD>set_field_userptr</TD><TD><A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></TD></TR> -<TR><TD>set_form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_40">Redefine</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> -<TR><TD>set_form_fields()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_41">Set_Fields</A></TD><TD><A HREF="../man/form_field.3x.html">form_field.3x</A></TD></TR> -<TR><TD>set_form_init()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_34">Set_Form_Init_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>set_form_opts()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_48">Set_Options</A></TD><TD><A HREF="../man/form_opts.3x.html">form_opts.3x</A></TD></TR> -<TR><TD>set_form_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_59">Set_Page</A></TD><TD><A HREF="../man/form_page.3x.html">form_page.3x</A></TD></TR> -<TR><TD>set_form_sub()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_29">Set_Sub_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> -<TR><TD>set_form_term()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_35">Set_Form_Term_Hook</A></TD><TD><A HREF="../man/form_hook.3x.html">form_hook.3x</A></TD></TR> -<TR><TD>set_form_userptr</TD><TD><A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></TD></TR> -<TR><TD>set_form_win()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_27">Set_Window</A></TD><TD><A HREF="../man/form_win.3x.html">form_win.3x</A></TD></TR> -<TR><TD>set_item_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_48">Set_Item_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>set_item_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_7">Set_Options</A></TD><TD><A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></TD></TR> -<TR><TD>set_item_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_49">Set_Item_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>set_item_userptr</TD><TD><A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></TD></TR> -<TR><TD>set_item_value()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_4">Set_Value</A></TD><TD><A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></TD></TR> -<TR><TD>set_menu_back()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_34">Set_Background</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>set_menu_fore()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_31">Set_Foreground</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>set_menu_format()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_46">Set_Format</A></TD><TD><A HREF="../man/menu_format.3x.html">menu_format.3x</A></TD></TR> -<TR><TD>set_menu_grey()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_37">Set_Grey</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>set_menu_init()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_50">Set_Menu_Init_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>set_menu_items()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_56">Redefine</A></TD><TD><A HREF="../man/menu_items.3x.html">menu_items.3x</A></TD></TR> -<TR><TD>set_menu_mark()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_29">Set_Mark</A></TD><TD><A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></TD></TR> -<TR><TD>set_menu_opts()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_19">Set_Options</A></TD><TD><A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></TD></TR> -<TR><TD>set_menu_pad()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_40">Set_Pad_Character</A></TD><TD><A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></TD></TR> -<TR><TD>set_menu_pattern()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_44">Set_Pattern</A></TD><TD><A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></TD></TR> -<TR><TD>set_menu_spacing()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_42">Set_Spacing</A></TD><TD><A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></TD></TR> -<TR><TD>set_menu_sub()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_25">Set_Sub_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> -<TR><TD>set_menu_term()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_51">Set_Menu_Term_Hook</A></TD><TD><A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></TD></TR> -<TR><TD>set_menu_userptr</TD><TD><A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></TD></TR> -<TR><TD>set_menu_win()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_23">Set_Window</A></TD><TD><A HREF="../man/menu_win.3x.html">menu_win.3x</A></TD></TR> -<TR><TD>set_new_page()</TD><TD><A HREF="terminal_interface-curses-forms__ads.htm#AFU_62">Set_New_Page</A></TD><TD><A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></TD></TR> -<TR><TD>set_panel_userptr</TD><TD><A HREF="terminal_interface-curses-panels-user_data__ads.htm#AFU_1">Set_User_Data</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>set_top_row()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_15">Set_Top_Row</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> -<TR><TD>show_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_5">Show</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>slk_attr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_117">Get_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_attr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_118">Get_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_attron()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_115">Switch_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_attrset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_116">Set_Soft_Label_Key_Attributes</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_clear()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_112">Clear_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_119">Set_Soft_Label_Key_Color</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_init()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_106">Init_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_label()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_110">Get_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_label()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_111">Get_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_noutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_109">Refresh_Soft_Label_Keys_Without_Update</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_refresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_108">Refresh_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_restore()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_113">Restore_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_107">Set_Soft_Label_Key</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>slk_touch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_114">Touch_Soft_Label_Keys</A></TD><TD><A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></TD></TR> -<TR><TD>start_color()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_138">Start_Color</A></TD><TD><A HREF="../man/curs_color.3x.html">curs_color.3x</A></TD></TR> -<TR><TD>stdscr</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_1">Standard_Window</A></TD><TD><A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></TD></TR> -<TR><TD>subpad()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_88">Sub_Pad</A></TD><TD><A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></TD></TR> -<TR><TD>subwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_12">Sub_Window</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>syncok()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_19">Set_Synch_Mode</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>termattrs()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_133">Supported_Attributes</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>termname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_136">Terminal_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>termname()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_137">Terminal_Name</A></TD><TD><A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></TD></TR> -<TR><TD>top_panel()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_4">Top</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>top_row()</TD><TD><A HREF="terminal_interface-curses-menus__ads.htm#AFU_16">Top_Row</A></TD><TD><A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></TD></TR> -<TR><TD>touchline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_73">Touch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>touchwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_72">Touch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>unctrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_124">Un_Control</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>unctrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_125">Un_Control</A></TD><TD><A HREF="../man/curs_util.3x.html">curs_util.3x</A></TD></TR> -<TR><TD>ungetch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_29">Undo_Keystroke</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> -<TR><TD>ungetmouse()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_3">Unget_Mouse</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> -<TR><TD>untouchwin()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_71">Untouch</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>update_panels()</TD><TD><A HREF="terminal_interface-curses-panels__ads.htm#AFU_6">Update_Panels</A></TD><TD><A HREF="../man/panel.3x.html">panel.3x</A></TD></TR> -<TR><TD>waddch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_7">Add</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> -<TR><TD>waddchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_22">Add</A></TD><TD><A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></TD></TR> -<TR><TD>waddnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_20">Add</A></TD><TD><A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></TD></TR> -<TR><TD>wattr_get()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_33">Get_Character_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wattr_get()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_34">Get_Character_Attribute</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wattron()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_31">Switch_Character_Attribute</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wattrset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_32">Set_Character_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wbkgd()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_69">Change_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> -<TR><TD>wbkgdget()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_70">Get_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> -<TR><TD>wbkgdset()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_68">Set_Background</A></TD><TD><A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></TD></TR> -<TR><TD>wborder()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_24">Border</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> -<TR><TD>wchgat()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_36">Change_Attributes</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wclear()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_65">Clear</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> -<TR><TD>wclrtobot()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_66">Clear_To_End_Of_Screen</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> -<TR><TD>wclrtoeol()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_67">Clear_To_End_Of_Line</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> -<TR><TD>wcolor_set()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_35">Set_Color</A></TD><TD><A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></TD></TR> -<TR><TD>wdelch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_93">Delete_Character</A></TD><TD><A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></TD></TR> -<TR><TD>wdeleteln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_81">Delete_Line</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> -<TR><TD>wechochar()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_9">Add_With_Immediate_Echo</A></TD><TD><A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></TD></TR> -<TR><TD>wenclose()</TD><TD><A HREF="terminal_interface-curses-mouse__ads.htm#AFU_4">Enclosed_In_Window</A></TD><TD><A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></TD></TR> -<TR><TD>werase()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_64">Erase</A></TD><TD><A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></TD></TR> -<TR><TD>wgetch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_28">Get_Keystroke</A></TD><TD><A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></TD></TR> -<TR><TD>wgetnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_105">Get</A></TD><TD><A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></TD></TR> -<TR><TD>whline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_26">Horizontal_Line</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> -<TR><TD>winch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_95">Peek</A></TD><TD><A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></TD></TR> -<TR><TD>winchnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_103">Peek</A></TD><TD><A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></TD></TR> -<TR><TD>winnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_101">Peek</A></TD><TD><A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></TD></TR> -<TR><TD>winsch()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_97">Insert</A></TD><TD><A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></TD></TR> -<TR><TD>winsdelln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_80">Insert_Delete_Lines</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> -<TR><TD>winsertln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_82">Insert_Line</A></TD><TD><A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></TD></TR> -<TR><TD>winsnstr()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_99">Insert</A></TD><TD><A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></TD></TR> -<TR><TD>wmove()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_6">Move_Cursor</A></TD><TD><A HREF="../man/curs_move.3x.html">curs_move.3x</A></TD></TR> -<TR><TD>wnoutrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_61">Refresh_Without_Update</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> -<TR><TD>wredrawln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_63">Redraw</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> -<TR><TD>wrefresh()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_60">Refresh</A></TD><TD><A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></TD></TR> -<TR><TD>wscrl()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_92">Scroll</A></TD><TD><A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></TD></TR> -<TR><TD>wsetscrreg()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_58">Set_Scroll_Region</A></TD><TD><A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></TD></TR> -<TR><TD>wsyncdown()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_18">Synchronize_Downwards</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>wsyncup()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_17">Synchronize_Upwards</A></TD><TD><A HREF="../man/curs_window.3x.html">curs_window.3x</A></TD></TR> -<TR><TD>wtimeout()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_49">Set_Timeout_Mode</A></TD><TD><A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></TD></TR> -<TR><TD>wtouchln()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_74">Change_Line_Status</A></TD><TD><A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></TD></TR> -<TR><TD>wvline()</TD><TD><A HREF="terminal_interface-curses__ads.htm#AFU_27">Vertical_Line</A></TD><TD><A HREF="../man/curs_border.3x.html">curs_border.3x</A></TD></TR> -</TABLE></BODY></HTML> diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__adb.htm deleted file mode 100644 index f931ca6..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__adb.htm +++ /dev/null @@ -1,121 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-aux.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A><FONT COLOR=red><A NAME="41_40"></A></FONT> <b>is</b> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Some helpers</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-aux__ads.htm#116_14">Fill_String</A><FONT COLOR=red><A NAME="44_14"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#116_27">Cp</A> : <b>in</b> chars_ptr; - <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A> : <b>out</b> String) - <b>is</b> - <FONT COLOR=green><EM>-- Fill the string with the characters referenced by the</EM></FONT> - <FONT COLOR=green><EM>-- chars_ptr.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=red><A NAME="50_7">Len</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#116_27">Cp</A> /= Null_Ptr <b>then</b> - <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#116_27">Cp</A>)); - <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'Length < <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A> <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <b>declare</b> - <FONT COLOR=red><A NAME="58_13">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__adb.htm#58_13">S</A> := Value (<A HREF="terminal_interface-curses-aux__ads.htm#116_27">Cp</A>); - <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A> (<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'First .. (<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'First + <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A> - 1)) := <A HREF="terminal_interface-curses-aux__adb.htm#58_13">S</A> (<A HREF="terminal_interface-curses-aux__adb.htm#58_13">S</A>'<b>Range</b>); - <b>end</b>; - <b>else</b> - <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A> := 0; - <b>end</b> <b>if</b>; - - <b>if</b> <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A> < <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'Length <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A> ((<A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'First + <A HREF="terminal_interface-curses-aux__adb.htm#50_7">Len</A>) .. <A HREF="terminal_interface-curses-aux__ads.htm#117_27">Str</A>'Last) := (<b>others</b> => ' '); - <b>end</b> <b>if</b>; - - <b>end</b> Fill_String; - - <b>function</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A><FONT COLOR=red><A NAME="73_13"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#121_26">Cp</A> : chars_ptr) <b>return</b> String - <b>is</b> - <FONT COLOR=red><A NAME="75_7">Len</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_26">Cp</A> /= Null_Ptr <b>then</b> - <A HREF="terminal_interface-curses-aux__adb.htm#75_7">Len</A> := Natural (Strlen (<A HREF="terminal_interface-curses-aux__ads.htm#121_26">Cp</A>)); - <b>if</b> <A HREF="terminal_interface-curses-aux__adb.htm#75_7">Len</A> = 0 <b>then</b> - <b>return</b> ""; - <b>else</b> - <b>declare</b> - <FONT COLOR=red><A NAME="83_16">S</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-aux__adb.htm#75_7">Len</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-aux__ads.htm#121_26">Cp</A>, <A HREF="terminal_interface-curses-aux__adb.htm#83_16">S</A>); - <b>return</b> <A HREF="terminal_interface-curses-aux__adb.htm#83_16">S</A>; - <b>end</b>; - <b>end</b> <b>if</b>; - <b>else</b> - <b>return</b> ""; - <b>end</b> <b>if</b>; - <b>end</b> Fill_String; - - <b>procedure</b> <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A><FONT COLOR=red><A NAME="94_14"></A></FONT> (<A HREF="terminal_interface-curses-aux__ads.htm#96_29">Code</A> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>) - <b>is</b> - <b>begin</b> - <b>case</b> <A HREF="terminal_interface-curses-aux__ads.htm#96_29">Code</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> => <b>null</b>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#81_4">E_System_Error</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#387_4">Eti_System_Error</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#82_4">E_Bad_Argument</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#388_4">Eti_Bad_Argument</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#83_4">E_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#389_4">Eti_Posted</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#84_4">E_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#390_4">Eti_Connected</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#85_4">E_Bad_State</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#391_4">Eti_Bad_State</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#86_4">E_No_Room</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#392_4">Eti_No_Room</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#87_4">E_Not_Posted</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#393_4">Eti_Not_Posted</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#88_4">E_Unknown_Command</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#394_4">Eti_Unknown_Command</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_No_Match</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#395_4">Eti_No_Match</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#90_4">E_Not_Selectable</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#396_4">Eti_Not_Selectable</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#91_4">E_Not_Connected</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#397_4">Eti_Not_Connected</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#92_4">E_Request_Denied</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#398_4">Eti_Request_Denied</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#93_4">E_Invalid_Field</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#399_4">Eti_Invalid_Field</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#94_4">E_Current</A> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#400_4">Eti_Current</A>; - <b>end</b> <b>case</b>; - <b>end</b> Eti_Exception; - -<b>end</b> Terminal_Interface.Curses.Aux; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__ads.htm deleted file mode 100644 index 3b10c65..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-aux__ads.htm +++ /dev/null @@ -1,130 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-aux.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-aux.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Aux --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- curses binding.</EM></FONT> -<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> -<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">System</A>; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="unchconv__ads.htm#22_10">Interfaces</A>.C.Strings; <b>use</b> Interfaces.C.Strings; -<b>with</b> Unchecked_Conversion; - -<b>package</b> Terminal_Interface.Curses.Aux <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Aux); - - <b>use</b> <b>type</b> Interfaces.C.int; - - <b>subtype</b> <FONT COLOR=red><A NAME="56_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - <b>subtype</b> <FONT COLOR=red><A NAME="57_12">C_Short</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short; - <b>subtype</b> <FONT COLOR=red><A NAME="58_12">C_Long_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.long; - <b>subtype</b> <FONT COLOR=red><A NAME="59_12">C_Size_T</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.size_t; - <b>subtype</b> <FONT COLOR=red><A NAME="60_12">C_UInt</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned; - <b>subtype</b> <FONT COLOR=red><A NAME="61_12">C_ULong</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned_long; - <b>subtype</b> <FONT COLOR=red><A NAME="62_12">C_Char_Ptr</A></FONT> <b>is</b> Interfaces.C.Strings.chars_ptr; - <b>type</b> <FONT COLOR=red><A NAME="63_12">C_Void_Ptr</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#60_12">System</A>.Address; - <b>type</b> <FONT COLOR=red><A NAME="64_12">C_Chtype</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-aux__ads.htm#60_12">C_ULong</A>; - <b>type</b> C_AttrType <b>is</b> <b>new</b> C_ULong; - - <FONT COLOR=green><EM>-- This is how those constants are defined in ncurses. I see them also</EM></FONT> - <FONT COLOR=green><EM>-- exactly like this in all ETI implementations I ever tested. So it</EM></FONT> - <FONT COLOR=green><EM>-- could be that this is quite general, but please check with your curses.</EM></FONT> - <FONT COLOR=green><EM>-- This is critical, because curses sometime mixes boolean returns with</EM></FONT> - <FONT COLOR=green><EM>-- returning an error status.</EM></FONT> - <FONT COLOR=red><A NAME="72_4">Curses_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := 0; - Curses_Err : <b>constant</b> C_Int := -1; - - <FONT COLOR=red><A NAME="75_4">Curses_True</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := 1; - Curses_False : <b>constant</b> C_Int := 0; - - <FONT COLOR=green><EM>-- Eti_Error: type for error codes returned by the menu and form subsystem</EM></FONT> - <b>subtype</b> Eti_Error <b>is</b> C_Int <b>range</b> -14 .. 0; - - <FONT COLOR=red><A NAME="81_4">E_Ok</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := 0; - <FONT COLOR=red><A NAME="82_4">E_System_Error</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -1; - <FONT COLOR=red><A NAME="83_4">E_Bad_Argument</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -2; - <FONT COLOR=red><A NAME="84_4">E_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -3; - <FONT COLOR=red><A NAME="85_4">E_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -4; - <FONT COLOR=red><A NAME="86_4">E_Bad_State</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -5; - <FONT COLOR=red><A NAME="87_4">E_No_Room</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -6; - <FONT COLOR=red><A NAME="88_4">E_Not_Posted</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -7; - <FONT COLOR=red><A NAME="89_4">E_Unknown_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -8; - <FONT COLOR=red><A NAME="90_4">E_No_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -9; - <FONT COLOR=red><A NAME="91_4">E_Not_Selectable</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -10; - <FONT COLOR=red><A NAME="92_4">E_Not_Connected</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -11; - <FONT COLOR=red><A NAME="93_4">E_Request_Denied</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -12; - <FONT COLOR=red><A NAME="94_4">E_Invalid_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := -13; - E_Current : <b>constant</b> Eti_Error := -14; - - <b>procedure</b> Eti_Exception (Code : Eti_Error); - <FONT COLOR=green><EM>-- Dispatch the error code and raise the appropriate exception</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Some helpers</EM></FONT> - <b>function</b> Chtype_To_AttrChar <b>is</b> <b>new</b> - Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#350_9">C_Chtype</A>, - <FONT COLOR=red><A NAME="104_13"> </A></FONT> Target => Attributed_Character); - <b>function</b> AttrChar_To_Chtype <b>is</b> <b>new</b> - Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#63_12">Attributed_Character</A>, - Target => C_Chtype); - - <b>function</b> AttrChar_To_AttrType <b>is</b> <b>new</b> - Unchecked_Conversion (Source => <A HREF="terminal_interface-curses-aux__ads.htm#64_12">Attributed_Character</A>, - Target => C_AttrType); - - <b>function</b> AttrType_To_AttrChar <b>is</b> <b>new</b> - Unchecked_Conversion (Source => <A HREF="terminal_interface-curses__ads.htm#350_9">C_AttrType</A>, - Target => Attributed_Character); - - <b>procedure</b> Fill_String (<FONT COLOR=red><A NAME="117_27">Cp</A></FONT> : <b>in</b> chars_ptr; - Str : <b>out</b> String); - <FONT COLOR=green><EM>-- Fill the Str parameter with the string denoted by the chars_ptr</EM></FONT> - <FONT COLOR=green><EM>-- C-Style string.</EM></FONT> - - <b>function</b> Fill_String (Cp : chars_ptr) <b>return</b> String; - <FONT COLOR=green><EM>-- Same but as function.</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Aux; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm deleted file mode 100644 index 74d986b..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__adb.htm +++ /dev/null @@ -1,73 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#41_53">Alpha</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#49_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#44_9">Alpha_Field</A>) - <b>is</b> - C_Alpha_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_Alpha_Field_Type, "TYPE_ALPHA"); - - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="54_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#49_30">Fld</A>; - Cft : C_Field_Type := C_Alpha_Field_Type; - <FONT COLOR=red><A NAME="56_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#54_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="59_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#59_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#54_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#56_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#46_9">Minimum_Field_Width</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#59_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#59_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#49_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#50_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Alpha; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm deleted file mode 100644 index 87c2ce0..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm +++ /dev/null @@ -1,58 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alpha.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alpha.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Alpha --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#44_58">Alpha</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#41_53">Alpha</A>); - - <b>type</b> <FONT COLOR=red><A NAME="44_9">Alpha_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> - <b>with</b> <b>record</b> - <FONT COLOR=red><A NAME="46_9">Minimum_Field_Width</A></FONT> : Natural := 0; - <b>end</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__adb.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<FONT COLOR=red><A NAME="49_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="50_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#44_9">Alpha_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-alpha__ads.htm#49_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Alpha; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm deleted file mode 100644 index ffe72eb..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__adb.htm +++ /dev/null @@ -1,73 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#41_53">AlphaNumeric</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#45_9">AlphaNumeric_Field</A>) - <b>is</b> - C_AlphaNumeric_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_AlphaNumeric_Field_Type, "TYPE_ALNUM"); - - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="54_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_30">Fld</A>; - Cft : C_Field_Type := C_AlphaNumeric_Field_Type; - <FONT COLOR=red><A NAME="56_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#54_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="59_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#59_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#54_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#56_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#47_9">Minimum_Field_Width</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#59_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#59_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#51_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm deleted file mode 100644 index 9b3c527..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm +++ /dev/null @@ -1,59 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-alphanumeric.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-alphanumeric.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#44_58">AlphaNumeric</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate - (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#41_53">AlphaNumeric</A>); - - <b>type</b> <FONT COLOR=red><A NAME="45_9">AlphaNumeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> - <b>with</b> <b>record</b> - <FONT COLOR=red><A NAME="47_9">Minimum_Field_Width</A></FONT> : Natural := 0; - <b>end</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__adb.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="50_14"></A></FONT> (<FONT COLOR=red><A NAME="50_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="51_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#45_9">AlphaNumeric_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm deleted file mode 100644 index b5b9b02..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm +++ /dev/null @@ -1,85 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.5 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#44_65">Ada</A> <b>is</b> - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_13">Create</A><FONT COLOR=red><A NAME="45_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_21">Set</A> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_46">Mixed_Case</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_21">Case_Sensitive</A> : Boolean := False; - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#50_21">Must_Be_Unique</A> : Boolean := False) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A> - <b>is</b> - <FONT COLOR=red><A NAME="50_7">I</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_9">Enumeration_Info</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'Last) - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'First) + 1); - <FONT COLOR=red><A NAME="51_7">J</A></FONT> : Positive := 1; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#49_21">Case_Sensitive</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#50_21">Must_Be_Unique</A>; - - <b>for</b> <FONT COLOR=red><A NAME="56_11">E</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'<b>Range</b> <b>loop</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>) := <b>new</b> String'(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'Image (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#56_11">E</A>))); - <FONT COLOR=green><EM>-- The Image attribute defaults to upper case, so we have to handle</EM></FONT> - <FONT COLOR=green><EM>-- only the other ones...</EM></FONT> - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_21">Set</A> /= <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_34">Upper_Case</A> <b>then</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>).<b>all</b> := To_Lower (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>).<b>all</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_21">Set</A> = <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_46">Mixed_Case</A> <b>then</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>)(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>).<b>all</b>'First) := - To_Upper (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>)(<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>.Names (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A>).<b>all</b>'First)); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#51_7">J</A> + 1; - <b>end</b> <b>loop</b>; - - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_13">Create</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#50_7">I</A>, True); - <b>end</b> Create; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#53_13">Value</A><FONT COLOR=red><A NAME="73_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#53_20">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_20">Buf</A> : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>'Value (<A HREF="terminal_interface-curses-forms__ads.htm#370_13">Get_Buffer</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#53_20">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#54_20">Buf</A>)); - <b>end</b> Value; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm deleted file mode 100644 index 8a667b7..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm +++ /dev/null @@ -1,64 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration-ada.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration-ada.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">T</A></FONT> <b>is</b> (<>); - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53">Enumeration</A>.<FONT COLOR=red><A NAME="44_65">Ada</A></FONT> <b>is</b> - <b>pragma</b> Preelaborate - (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53">Enumeration</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#44_65">Ada</A>); - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#45_13">Create</A><FONT COLOR=red><A NAME="48_13"></A></FONT> (<FONT COLOR=red><A NAME="48_21">Set</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_9">Type_Set</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#50_46">Mixed_Case</A>; - <FONT COLOR=red><A NAME="49_21">Case_Sensitive</A></FONT> : Boolean := False; - <FONT COLOR=red><A NAME="50_21">Must_Be_Unique</A></FONT> : Boolean := False) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__adb.htm#73_13">Value</A><FONT COLOR=red><A NAME="53_13"></A></FONT> (<FONT COLOR=red><A NAME="53_20">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="54_20">Buf</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#42_9">T</A>; - <FONT COLOR=green><EM>-- Translate the content of the fields buffer - indicated by the</EM></FONT> - <FONT COLOR=green><EM>-- buffer number - into an enumeration value. If the buffer is empty</EM></FONT> - <FONT COLOR=green><EM>-- or the content is invalid, a Constraint_Error is raises.</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration.Ada; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm deleted file mode 100644 index 6e4ce43..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm +++ /dev/null @@ -1,124 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.5 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Unchecked_Deallocation; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53">Enumeration</A><FONT COLOR=red><A NAME="46_58"></A></FONT> <b>is</b> - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_13">Create</A><FONT COLOR=red><A NAME="48_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_9">Enumeration_Info</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Auto_Release_Names</A> : Boolean := False) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A> - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="52_17">Release_String</A></FONT> <b>is</b> - <b>new</b> Ada.Unchecked_Deallocation (String, - <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#47_9">String_Access</A>); - <FONT COLOR=red><A NAME="55_7">E</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>; - <FONT COLOR=red><A NAME="56_7">L</A></FONT> : <b>constant</b> size_t := 1 + size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_27">C</A>); - <FONT COLOR=red><A NAME="57_7">S</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#47_9">String_Access</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">Case_Sensitive</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#58_10">Case_Sensitive</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">Match_Must_Be_Unique</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#59_10">Match_Must_Be_Unique</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">Arr</A> := <b>new</b> chars_ptr_array (size_t (1) .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">L</A>); - <b>for</b> <FONT COLOR=red><A NAME="62_11">I</A></FONT> <b>in</b> 1 .. Positive (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">L</A> - 1) <b>loop</b> - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#62_11">I</A>) = <b>null</b> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> (size_t (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#62_11">I</A>)) := New_String (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#62_11">I</A>).<b>all</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#65_21">Auto_Release_Names</A> <b>then</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#57_7">S</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_21">Info</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#57_10">Names</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#62_11">I</A>); - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#52_17">Release_String</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#57_7">S</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>loop</b>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#56_7">L</A>) := Null_Ptr; - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#55_7">E</A>; - <b>end</b> Create; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_14">Release</A><FONT COLOR=red><A NAME="76_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_23">Enum</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>) - <b>is</b> - <FONT COLOR=red><A NAME="78_7">I</A></FONT> : size_t := 0; - <FONT COLOR=red><A NAME="79_7">P</A></FONT> : chars_ptr; - <b>begin</b> - <b>loop</b> - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">P</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#78_7">I</A>); - <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">P</A> = Null_Ptr; - <A HREF="terminal_interface-curses-forms__ads.htm#137_14">Free</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#79_7">P</A>); - <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#78_7">I</A>) := Null_Ptr; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#78_7">I</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#78_7">I</A> + 1; - <b>end</b> <b>loop</b>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_23">Enum</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> := <b>null</b>; - <b>end</b> Release; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_14">Set_Field_Type</A><FONT COLOR=red><A NAME="91_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>) - <b>is</b> - C_Enum_Type : C_Field_Type; - <b>pragma</b> Import (C, C_Enum_Type, "TYPE_ENUM"); - - <b>function</b> <FONT COLOR=red><A NAME="97_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="97_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_30">Fld</A>; - Cft : C_Field_Type := C_Enum_Type; - <FONT COLOR=red><A NAME="99_30">Arg1</A></FONT> : chars_ptr_array; - <FONT COLOR=red><A NAME="100_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <FONT COLOR=red><A NAME="101_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#97_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="104_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A> = <b>null</b> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#104_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#97_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#99_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#95_10">Arr</A>.<b>all</b>, - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#100_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#93_10">Case_Sensitive</A>)), - <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#101_30">Arg3</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (Boolean'Pos - (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#94_10">Match_Must_Be_Unique</A>))); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#104_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#104_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#85_30">Typ</A>, <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Choice_Router</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm deleted file mode 100644 index 0aff774..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm +++ /dev/null @@ -1,103 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-enumeration.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-enumeration.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Enumeration --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#46_58">Enumeration</A><FONT COLOR=red><A NAME="43_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate - (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53">Enumeration</A>); - - <b>type</b> <FONT COLOR=red><A NAME="47_9">String_Access</A></FONT> <b>is</b> <b>access</b> String; - - <FONT COLOR=green><EM>-- Type_Set is used by the child package Ada</EM></FONT> - <b>type</b> <FONT COLOR=red><A NAME="50_9">Type_Set</A></FONT> <b>is</b> (Lower_Case, Upper_Case, Mixed_Case); - - <b>type</b> <FONT COLOR=red><A NAME="52_9">Enum_Array</A></FONT> <b>is</b> <b>array</b> (Positive <b>range</b> <>) - <b>of</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#47_9">String_Access</A>; - - <b>type</b> <FONT COLOR=red><A NAME="55_9">Enumeration_Info</A></FONT> (<FONT COLOR=red><A NAME="55_27">C</A></FONT> : Positive) <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="57_10">Names</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#52_9">Enum_Array</A> (1 .. <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_27">C</A>); - <FONT COLOR=red><A NAME="58_10">Case_Sensitive</A></FONT> : Boolean := False; - <FONT COLOR=red><A NAME="59_10">Match_Must_Be_Unique</A></FONT> : Boolean := False; - <b>end</b> <b>record</b>; - - <b>type</b> <FONT COLOR=red><A NAME="62_9">Enumeration_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> <b>private</b>; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#48_13">Create</A><FONT COLOR=red><A NAME="64_13"></A></FONT> (<FONT COLOR=red><A NAME="64_21">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_9">Enumeration_Info</A>; - <FONT COLOR=red><A NAME="65_21">Auto_Release_Names</A></FONT> : Boolean := False) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>; - <FONT COLOR=green><EM>-- Make an fieldtype from the info. Enumerations are special, because</EM></FONT> - <FONT COLOR=green><EM>-- they normally don't copy the enum values into a private store, so</EM></FONT> - <FONT COLOR=green><EM>-- we have to care for the lifetime of the info we provide.</EM></FONT> - <FONT COLOR=green><EM>-- The Auto_Release_Names flag may be used to automatically releases</EM></FONT> - <FONT COLOR=green><EM>-- the strings in the Names array of the Enumeration_Info.</EM></FONT> - - <b>function</b> <FONT COLOR=red><A NAME="73_13">Make_Enumeration_Type</A></FONT> (<FONT COLOR=red><A NAME="73_36">Info</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#55_9">Enumeration_Info</A>; - <FONT COLOR=red><A NAME="74_36">Auto_Release_Names</A></FONT> : Boolean := False) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A> <b>renames</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_13">Create</A>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#76_14">Release</A><FONT COLOR=red><A NAME="77_14"></A></FONT> (<FONT COLOR=red><A NAME="77_23">Enum</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>); - <FONT COLOR=green><EM>-- But we may want to release the field to release the memory allocated</EM></FONT> - <FONT COLOR=green><EM>-- by it internally. After that the Enumeration field is no longer usable.</EM></FONT> - - <FONT COLOR=green><EM>-- The next type defintions are all ncurses extensions. They are typically</EM></FONT> - <FONT COLOR=green><EM>-- not available in other curses implementations.</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__adb.htm#91_14">Set_Field_Type</A><FONT COLOR=red><A NAME="84_14"></A></FONT> (<FONT COLOR=red><A NAME="84_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="85_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_14">Set_Field_Type</A>); - -<b>private</b> - <b>type</b> <FONT COLOR=red><A NAME="89_9">CPA_Access</A></FONT> <b>is</b> <b>access</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.chars_ptr_array; - - <b>type</b> <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#62_9">Enumeration_Field</A> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> - <b>record</b> - <FONT COLOR=red><A NAME="93_10">Case_Sensitive</A></FONT> : Boolean := False; - <FONT COLOR=red><A NAME="94_10">Match_Must_Be_Unique</A></FONT> : Boolean := False; - <FONT COLOR=red><A NAME="95_10">Arr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-enumeration__ads.htm#89_9">CPA_Access</A> := <b>null</b>; - <b>end</b> <b>record</b>; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Enumeration; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm deleted file mode 100644 index 1f98bd7..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__adb.htm +++ /dev/null @@ -1,77 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#41_53">IntField</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#51_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#51_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#44_9">Integer_Field</A>) - <b>is</b> - C_Integer_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_Integer_Field_Type, "TYPE_INTEGER"); - - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="54_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#51_30">Fld</A>; - Cft : C_Field_Type := C_Integer_Field_Type; - <FONT COLOR=red><A NAME="56_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <FONT COLOR=red><A NAME="57_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Long_Int</A>; - <FONT COLOR=red><A NAME="58_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Long_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#54_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="61_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#61_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#54_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#56_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#46_10">Precision</A>), - <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#57_30">Arg2</A> => <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Long_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#47_10">Lower_Limit</A>), - <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#58_30">Arg3</A> => <A HREF="terminal_interface-curses-aux__ads.htm#57_12">C_Long_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#48_10">Upper_Limit</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#61_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#61_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#51_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#52_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IntField; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm deleted file mode 100644 index d72b8b8..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-intfield__ads.htm +++ /dev/null @@ -1,60 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-intfield.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-intfield.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IntField --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#44_58">IntField</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#41_53">IntField</A>); - - <b>type</b> <FONT COLOR=red><A NAME="44_9">Integer_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> - <b>record</b> - <FONT COLOR=red><A NAME="46_10">Precision</A></FONT> : Natural; - <FONT COLOR=red><A NAME="47_10">Lower_Limit</A></FONT> : Integer; - <FONT COLOR=red><A NAME="48_10">Upper_Limit</A></FONT> : Integer; - <b>end</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__adb.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="51_14"></A></FONT> (<FONT COLOR=red><A NAME="51_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="52_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#44_9">Integer_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-intfield__ads.htm#51_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IntField; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm deleted file mode 100644 index dc79cc7..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__adb.htm +++ /dev/null @@ -1,73 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#41_53">IPV4_Address</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#45_9">Internet_V4_Address_Field</A>) - <b>is</b> - C_IPV4_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_IPV4_Field_Type, "TYPE_IPV4"); - - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="54_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_30">Fld</A>; - Cft : C_Field_Type := C_IPV4_Field_Type) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#54_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="59_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#59_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#54_16">Set_Fld_Type</A>; - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#59_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#59_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#48_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm deleted file mode 100644 index f270ad6..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-ipv4_address__ads.htm +++ /dev/null @@ -1,56 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-ipv4_address.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-ipv4_address.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#44_58">IPV4_Address</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate - (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#41_53">IPV4_Address</A>); - - <b>type</b> <FONT COLOR=red><A NAME="45_9">Internet_V4_Address_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__adb.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="47_14"></A></FONT> (<FONT COLOR=red><A NAME="47_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="48_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#45_9">Internet_V4_Address_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.IPV4_Address; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm deleted file mode 100644 index e6d0742..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__adb.htm +++ /dev/null @@ -1,79 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.7 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#41_53">Numeric</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#51_14">Set_Field_Type</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#51_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#44_9">Numeric_Field</A>) - <b>is</b> - <b>type</b> <FONT COLOR=red><A NAME="51_12">Double</A></FONT> <b>is</b> <b>new</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.double; - - C_Numeric_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_Numeric_Field_Type, "TYPE_NUMERIC"); - - <b>function</b> <FONT COLOR=red><A NAME="56_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="56_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#51_30">Fld</A>; - Cft : C_Field_Type := C_Numeric_Field_Type; - <FONT COLOR=red><A NAME="58_30">Arg1</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <FONT COLOR=red><A NAME="59_30">Arg2</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#51_12">Double</A>; - <FONT COLOR=red><A NAME="60_30">Arg3</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#51_12">Double</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#56_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="63_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#63_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#56_16">Set_Fld_Type</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#58_30">Arg1</A> => <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#46_10">Precision</A>), - <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#59_30">Arg2</A> => <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#51_12">Double</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#47_10">Lower_Limit</A>), - <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#60_30">Arg3</A> => <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#51_12">Double</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#48_10">Upper_Limit</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#63_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#63_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#51_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#52_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Numeric; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm deleted file mode 100644 index 2f1edfd..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-numeric__ads.htm +++ /dev/null @@ -1,60 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-numeric.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-numeric.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.Numeric --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#44_58">Numeric</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#41_53">Numeric</A>); - - <b>type</b> <FONT COLOR=red><A NAME="44_9">Numeric_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> - <b>record</b> - <FONT COLOR=red><A NAME="46_10">Precision</A></FONT> : Natural; - <FONT COLOR=red><A NAME="47_10">Lower_Limit</A></FONT> : Float; - <FONT COLOR=red><A NAME="48_10">Upper_Limit</A></FONT> : Float; - <b>end</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__adb.htm#48_14">Set_Field_Type</A><FONT COLOR=red><A NAME="51_14"></A></FONT> (<FONT COLOR=red><A NAME="51_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="52_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#44_9">Numeric_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-numeric__ads.htm#51_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.Numeric; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm deleted file mode 100644 index 44d8860..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__adb.htm +++ /dev/null @@ -1,76 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.6 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#41_53">RegExp</A><FONT COLOR=red><A NAME="44_58"></A></FONT> <b>is</b> - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#51_14">Set_Field_Type</A><FONT COLOR=red><A NAME="46_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#51_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#46_9">Regular_Expression_Field</A>) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - - C_Regexp_Field_Type : C_Field_Type; - <b>pragma</b> Import (C, C_Regexp_Field_Type, "TYPE_REGEXP"); - - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Ftyp</A></FONT> (<FONT COLOR=red><A NAME="54_26">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#51_30">Fld</A>; - Cft : C_Field_Type := C_Regexp_Field_Type; - Arg1 : Char_Ptr) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#54_16">Set_Ftyp</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="59_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#48_10">Regular_Expression</A>.<b>all</b>'Length); - <FONT COLOR=red><A NAME="60_7">Len</A></FONT> : size_t; - <FONT COLOR=red><A NAME="61_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Typ</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#48_10">Regular_Expression</A>.<b>all</b>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#59_7">Txt</A>, <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#60_7">Len</A>); - <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#61_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#54_16">Set_Ftyp</A> (Arg1 => <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#59_7">Txt</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#59_7">Txt</A>'First)'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#61_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#61_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A> (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#51_30">Fld</A>, <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#52_30">Typ</A>); - <b>end</b> Set_Field_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.RegExp; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm deleted file mode 100644 index e716502..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-regexp__ads.htm +++ /dev/null @@ -1,60 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-regexp.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-regexp.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.RegExp --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#44_58">RegExp</A><FONT COLOR=red><A NAME="41_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#41_53">RegExp</A>); - - <b>type</b> <FONT COLOR=red><A NAME="44_9">String_Access</A></FONT> <b>is</b> <b>access</b> String; - - <b>type</b> <FONT COLOR=red><A NAME="46_9">Regular_Expression_Field</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> - <b>record</b> - <FONT COLOR=red><A NAME="48_10">Regular_Expression</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#44_9">String_Access</A>; - <b>end</b> <b>record</b>; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__adb.htm#46_14">Set_Field_Type</A><FONT COLOR=red><A NAME="51_14"></A></FONT> (<FONT COLOR=red><A NAME="51_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="52_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#46_9">Regular_Expression_Field</A>); - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-forms-field_types-regexp__ads.htm#51_14">Set_Field_Type</A>); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.RegExp; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm deleted file mode 100644 index d9a59b2..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__adb.htm +++ /dev/null @@ -1,115 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Unchecked_Conversion; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.User.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#43_58">Choice</A><FONT COLOR=red><A NAME="45_63"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>function</b> <FONT COLOR=red><A NAME="49_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion - (System.Address, Argument_Access); - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_13">Generic_Next</A><FONT COLOR=red><A NAME="52_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_27">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A> - <b>is</b> - <FONT COLOR=red><A NAME="55_7">Result</A></FONT> : Boolean; - Udf : User_Defined_Field_Type_With_Choice_Access := - User_Defined_Field_Type_With_Choice_Access - (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#49_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#83_27">Usr</A>).Typ); - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#55_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#60_13">Next</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_27">Fld</A>, Udf.<b>all</b>); - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#55_7">Result</A>)); - <b>end</b> Generic_Next; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_13">Generic_Prev</A><FONT COLOR=red><A NAME="64_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_27">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_27">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A> - <b>is</b> - <FONT COLOR=red><A NAME="67_7">Result</A></FONT> : Boolean; - Udf : User_Defined_Field_Type_With_Choice_Access := - User_Defined_Field_Type_With_Choice_Access - (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#49_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#90_27">Usr</A>).Typ); - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#67_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#67_13">Previous</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_27">Fld</A>, Udf.<b>all</b>); - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#67_7">Result</A>)); - <b>end</b> Generic_Prev; - - <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#80_13">C_Generic_Choice</A><FONT COLOR=red><A NAME="78_13"></A></FONT> <b>return</b> C_Field_Type - <b>is</b> - <FONT COLOR=red><A NAME="80_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - T : C_Field_Type; - <b>begin</b> - <b>if</b> M_Generic_Choice = Null_Field_Type <b>then</b> - T := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_13">Generic_Field_Check</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_13">Generic_Char_Check</A>'<b>Access</b>); - <b>if</b> T = Null_Field_Type <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#227_13">Set_Fieldtype_Arg</A> (T, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_13">Make_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Copy_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Free_Arg</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A>); - <b>end</b> <b>if</b>; - - <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#234_13">Set_Fieldtype_Choice</A> (T, - <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_13">Generic_Next</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_13">Generic_Prev</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#80_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - M_Generic_Choice := T; - <b>end</b> <b>if</b>; - <b>pragma</b> Assert (M_Generic_Choice /= Null_Field_Type); - <b>return</b> M_Generic_Choice; - <b>end</b> C_Generic_Choice; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User.Choice; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm deleted file mode 100644 index dde056e..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user-choice__ads.htm +++ /dev/null @@ -1,101 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user-choice.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user-choice.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User.Choice --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#43_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#45_63">Choice</A><FONT COLOR=red><A NAME="43_58"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate - (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#43_53">User</A>.<A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#43_58">Choice</A>); - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - <b>subtype</b> <FONT COLOR=red><A NAME="48_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>type</b> <FONT COLOR=red><A NAME="50_9">User_Defined_Field_Type_With_Choice</A></FONT> <b>is</b> <b>abstract</b> <b>new</b> - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; - <FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT> - <FONT COLOR=green><EM>-- Ada95 that allow the prev/next mechanism. You should your own type</EM></FONT> - <FONT COLOR=green><EM>-- derive from this one and implement the Field_Check, Character_Check</EM></FONT> - <FONT COLOR=green><EM>-- Next and Previous functions for your own type.</EM></FONT> - - <b>type</b> User_Defined_Field_Type_With_Choice_Access <b>is</b> <b>access</b> <b>all</b> - <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#50_9">User_Defined_Field_Type_With_Choice</A>'Class; - - <b>function</b> <FONT COLOR=red><A NAME="60_13">Next</A></FONT> - (<FONT COLOR=red><A NAME="61_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="62_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean - <b>is</b> <b>abstract</b>; - <FONT COLOR=green><EM>-- If True is returned, the function successfully generated a next</EM></FONT> - <FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT> - - <b>function</b> <FONT COLOR=red><A NAME="67_13">Previous</A></FONT> - (<FONT COLOR=red><A NAME="68_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="69_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#50_9">User_Defined_Field_Type_With_Choice</A>) <b>return</b> Boolean - <b>is</b> <b>abstract</b>; - <FONT COLOR=green><EM>-- If True is returned, the function successfully generated a previous</EM></FONT> - <FONT COLOR=green><EM>-- value into the fields buffer.</EM></FONT> - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> -<b>private</b> - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#78_13">C_Generic_Choice</A><FONT COLOR=red><A NAME="80_13"></A></FONT> <b>return</b> C_Field_Type; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#52_13">Generic_Next</A><FONT COLOR=red><A NAME="82_13"></A></FONT> (<FONT COLOR=red><A NAME="82_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="83_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A>; - <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_13">Generic_Next</A>); - <FONT COLOR=green><EM>-- This is the generic next Choice_Function for the low-level fieldtype</EM></FONT> - <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> - <FONT COLOR=green><EM>-- the call to the Next implementation for the type.</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__adb.htm#64_13">Generic_Prev</A><FONT COLOR=red><A NAME="89_13"></A></FONT> (<FONT COLOR=red><A NAME="89_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="90_27">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#48_12">C_Int</A>; - <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_13">Generic_Prev</A>); - <FONT COLOR=green><EM>-- This is the generic prev Choice_Function for the low-level fieldtype</EM></FONT> - <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> - <FONT COLOR=green><EM>-- the call to the Previous implementation for the type.</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User.Choice; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm deleted file mode 100644 index 95dfeda..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm +++ /dev/null @@ -1,137 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Unchecked_Conversion; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.Field_Types.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#43_53">User</A><FONT COLOR=red><A NAME="45_58"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#70_14">Set_Field_Type</A><FONT COLOR=red><A NAME="49_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#70_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#71_30">Typ</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>) - <b>is</b> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#63_16">Allocate_Arg</A><FONT COLOR=red><A NAME="52_16"></A></FONT> (<FONT COLOR=red><A NAME="52_30">T</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>'Class) - <b>return</b> Argument_Access; - - <b>function</b> <FONT COLOR=red><A NAME="55_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="55_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#70_30">Fld</A>; - Cft : C_Field_Type := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#81_13">C_Generic_Type</A>; - Arg1 : Argument_Access) - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#55_16">Set_Fld_Type</A>, "set_field_type"); - - <FONT COLOR=red><A NAME="61_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#52_16">Allocate_Arg</A><FONT COLOR=red><A NAME="63_16"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#52_30">T</A> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>'Class) - <b>return</b> Argument_Access - <b>is</b> - Ptr : Field_Type_Access := <b>new</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#52_30">T</A>); - <b>begin</b> - <b>return</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#211_9">Argument</A>'(Usr => System.Null_Address, - Typ => Ptr, - Cft => Null_Field_Type); - <b>end</b> Allocate_Arg; - - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#61_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#55_16">Set_Fld_Type</A> (Arg1 => <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#52_16">Allocate_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#71_30">Typ</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#61_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#61_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Field_Type; - - <b>function</b> <FONT COLOR=red><A NAME="80_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion - (System.Address, Argument_Access); - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_13">Generic_Field_Check</A><FONT COLOR=red><A NAME="83_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_34">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_34">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A> - <b>is</b> - <FONT COLOR=red><A NAME="86_7">Result</A></FONT> : Boolean; - Udf : User_Defined_Field_Type_Access := - User_Defined_Field_Type_Access (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#80_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#84_34">Usr</A>).Typ); - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#86_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#56_13">Field_Check</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_34">Fld</A>, Udf.<b>all</b>); - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#86_7">Result</A>)); - <b>end</b> Generic_Field_Check; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_13">Generic_Char_Check</A><FONT COLOR=red><A NAME="94_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_33">Ch</A> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A>; - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_33">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A> - <b>is</b> - <FONT COLOR=red><A NAME="97_7">Result</A></FONT> : Boolean; - Udf : User_Defined_Field_Type_Access := - User_Defined_Field_Type_Access (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#80_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#91_33">Usr</A>).Typ); - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#97_7">Result</A> := <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#63_13">Character_Check</A> (Character'Val (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_33">Ch</A>), Udf.<b>all</b>); - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#97_7">Result</A>)); - <b>end</b> Generic_Char_Check; - - <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#81_13">C_Generic_Type</A><FONT COLOR=red><A NAME="107_13"></A></FONT> <b>return</b> C_Field_Type - <b>is</b> - <FONT COLOR=red><A NAME="109_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - T : C_Field_Type; - <b>begin</b> - <b>if</b> M_Generic_Type = Null_Field_Type <b>then</b> - T := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_13">Generic_Field_Check</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_13">Generic_Char_Check</A>'<b>Access</b>); - <b>if</b> T = Null_Field_Type <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#109_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#227_13">Set_Fieldtype_Arg</A> (T, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_13">Make_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Copy_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Free_Arg</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#109_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#109_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - M_Generic_Type := T; - <b>end</b> <b>if</b>; - <b>pragma</b> Assert (M_Generic_Type /= Null_Field_Type); - <b>return</b> M_Generic_Type; - <b>end</b> C_Generic_Type; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm deleted file mode 100644 index 9be4226..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types-user__ads.htm +++ /dev/null @@ -1,102 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types-user.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types-user.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types.User --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#45_58">User</A><FONT COLOR=red><A NAME="43_53"></A></FONT> <b>is</b> - <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A>.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A>.<A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#43_53">User</A>); - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - <b>subtype</b> <FONT COLOR=red><A NAME="46_12">C_Int</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>type</b> <FONT COLOR=red><A NAME="48_9">User_Defined_Field_Type</A></FONT> <b>is</b> <b>abstract</b> <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A> <b>with</b> <b>null</b> <b>record</b>; - <FONT COLOR=green><EM>-- This is the root of the mechanism we use to create field types in</EM></FONT> - <FONT COLOR=green><EM>-- Ada95. You should your own type derive from this one and implement</EM></FONT> - <FONT COLOR=green><EM>-- the Field_Check and Character_Check functions for your own type.</EM></FONT> - - <b>type</b> User_Defined_Field_Type_Access <b>is</b> <b>access</b> <b>all</b> - <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>'Class; - - <b>function</b> <FONT COLOR=red><A NAME="56_13">Field_Check</A></FONT> - (<FONT COLOR=red><A NAME="57_7">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="58_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean - <b>is</b> <b>abstract</b>; - <FONT COLOR=green><EM>-- If True is returned, the field is considered valid, otherwise it is</EM></FONT> - <FONT COLOR=green><EM>-- invalid.</EM></FONT> - - <b>function</b> <FONT COLOR=red><A NAME="63_13">Character_Check</A></FONT> - (<FONT COLOR=red><A NAME="64_7">Ch</A></FONT> : Character; - <FONT COLOR=red><A NAME="65_7">Typ</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>) <b>return</b> Boolean - <b>is</b> <b>abstract</b>; - <FONT COLOR=green><EM>-- If True is returned, the character is considered as valid for the</EM></FONT> - <FONT COLOR=green><EM>-- field, otherwise as invalid.</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#49_14">Set_Field_Type</A><FONT COLOR=red><A NAME="70_14"></A></FONT> (<FONT COLOR=red><A NAME="70_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="71_30">Typ</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#48_9">User_Defined_Field_Type</A>); - <FONT COLOR=green><EM>-- This should work for all types derived from User_Defined_Field_Type.</EM></FONT> - <FONT COLOR=green><EM>-- No need to reimplement it for your derived type.</EM></FONT> - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> - <FONT COLOR=green><EM>-- | Used by the Choice child package.</EM></FONT> -<b>private</b> - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#107_13">C_Generic_Type</A><FONT COLOR=red><A NAME="81_13"></A></FONT> <b>return</b> C_Field_Type; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#83_13">Generic_Field_Check</A><FONT COLOR=red><A NAME="83_13"></A></FONT> (<FONT COLOR=red><A NAME="83_34">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="84_34">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#83_13">Generic_Field_Check</A>); - <FONT COLOR=green><EM>-- This is the generic Field_Check_Function for the low-level fieldtype</EM></FONT> - <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> - <FONT COLOR=green><EM>-- the call to the Field_Check implementation for the type.</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types-user__adb.htm#94_13">Generic_Char_Check</A><FONT COLOR=red><A NAME="90_13"></A></FONT> (<FONT COLOR=red><A NAME="90_33">Ch</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A>; - <FONT COLOR=red><A NAME="91_33">Usr</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-forms-field_types-user__ads.htm#90_13">Generic_Char_Check</A>); - <FONT COLOR=green><EM>-- This is the generic Char_Check_Function for the low-level fieldtype</EM></FONT> - <FONT COLOR=green><EM>-- representing all the User_Defined_Field_Type derivates. It routes</EM></FONT> - <FONT COLOR=green><EM>-- the call to the Character_Check implementation for the type.</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types.User; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm deleted file mode 100644 index 48c7ee4..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__adb.htm +++ /dev/null @@ -1,301 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>with</b> Ada.Unchecked_Deallocation; -<b>with</b> Ada.Unchecked_Conversion; -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- | man page form_fieldtype.3x</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#43_41">Field_Types</A><FONT COLOR=red><A NAME="50_46"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - <b>use</b> <b>type</b> System.Address; - - <b>function</b> <FONT COLOR=red><A NAME="55_13">To_Argument_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion - (System.Address, Argument_Access); - - <b>function</b> <FONT COLOR=red><A NAME="58_13">Get_Fieldtype</A></FONT> (<FONT COLOR=red><A NAME="58_28">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> C_Field_Type; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#58_13">Get_Fieldtype</A>, "field_type"); - - <b>function</b> <FONT COLOR=red><A NAME="61_13">Get_Arg</A></FONT> (<FONT COLOR=red><A NAME="61_22">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> System.Address; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#61_13">Get_Arg</A>, "field_arg"); - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_validation.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#79_13">Get_Type</A><FONT COLOR=red><A NAME="70_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#79_23">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> Field_Type_Access - <b>is</b> - Low_Level : <b>constant</b> C_Field_Type := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#79_23">Fld</A>); - Arg : Argument_Access; - <b>begin</b> - <b>if</b> Low_Level = Null_Field_Type <b>then</b> - <b>return</b> <b>null</b>; - <b>else</b> - <b>if</b> Low_Level = M_Builtin_Router <b>or</b> <b>else</b> - Low_Level = M_Generic_Type <b>or</b> <b>else</b> - Low_Level = M_Choice_Router <b>or</b> <b>else</b> - Low_Level = M_Generic_Choice <b>then</b> - Arg := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#61_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#79_23">Fld</A>)); - <b>if</b> Arg = <b>null</b> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <b>return</b> Arg.Typ; - <b>end</b> <b>if</b>; - <b>else</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Get_Type; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_13">Make_Arg</A><FONT COLOR=red><A NAME="94_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_23">Args</A> : System.Address) <b>return</b> System.Address - <b>is</b> - <FONT COLOR=green><EM>-- Actually args is a double indirected pointer to the arguments</EM></FONT> - <FONT COLOR=green><EM>-- of a C variable argument list. In theory it is now quite</EM></FONT> - <FONT COLOR=green><EM>-- complicated to write portable routine that reads the arguments,</EM></FONT> - <FONT COLOR=green><EM>-- because one has to know the growth direction of the stack and</EM></FONT> - <FONT COLOR=green><EM>-- the sizes of the individual arguments.</EM></FONT> - <FONT COLOR=green><EM>-- Fortunately we are only interested in the first argument (#0),</EM></FONT> - <FONT COLOR=green><EM>-- we know its size and for the first arg we don't care about</EM></FONT> - <FONT COLOR=green><EM>-- into which stack direction we have to proceed. We simply</EM></FONT> - <FONT COLOR=green><EM>-- resolve the double indirection and thats it.</EM></FONT> - <b>type</b> V <b>is</b> <b>access</b> <b>all</b> System.Address; - <b>function</b> <FONT COLOR=red><A NAME="106_16">To_Access</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Conversion (System.Address, - V); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#106_16">To_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#106_16">To_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_23">Args</A>).<b>all</b>).<b>all</b>; - <b>end</b> Make_Arg; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Copy_Arg</A><FONT COLOR=red><A NAME="112_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_23">Usr</A> : System.Address) <b>return</b> System.Address - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_23">Usr</A>; - <b>end</b> Copy_Arg; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Free_Arg</A><FONT COLOR=red><A NAME="118_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_24">Usr</A> : <b>in</b> System.Address) - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="120_17">Free_Type</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation - (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A>'Class, Field_Type_Access); - <b>procedure</b> <FONT COLOR=red><A NAME="122_17">Freeargs</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation - (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#211_9">Argument</A>, Argument_Access); - - To_Be_Free : Argument_Access := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_24">Usr</A>); - Low_Level : C_Field_Type; - <b>begin</b> - <b>if</b> To_Be_Free /= <b>null</b> <b>then</b> - <b>if</b> To_Be_Free.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A> /= System.Null_Address <b>then</b> - Low_Level := To_Be_Free.Cft; - <b>if</b> Low_Level.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#126_10">Freearg</A> /= <b>null</b> <b>then</b> - Low_Level.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#126_10">Freearg</A> (To_Be_Free.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>if</b> To_Be_Free.Typ /= <b>null</b> <b>then</b> - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#120_17">Free_Type</A> (To_Be_Free.Typ); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#122_17">Freeargs</A> (To_Be_Free); - <b>end</b> <b>if</b>; - <b>end</b> Free_Arg; - - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_14">Wrap_Builtin</A><FONT COLOR=red><A NAME="143_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_28">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Typ</A> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A>'Class; - Cft : C_Field_Type := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#148_13">C_Builtin_Router</A>) - <b>is</b> - <FONT COLOR=red><A NAME="147_7">Usr_Arg</A></FONT> : System.Address := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#61_13">Get_Arg</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_28">Fld</A>); - Low_Level : <b>constant</b> C_Field_Type := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_28">Fld</A>); - Arg : Argument_Access; - <FONT COLOR=red><A NAME="150_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>function</b> <FONT COLOR=red><A NAME="151_16">Set_Fld_Type</A></FONT> (<FONT COLOR=red><A NAME="151_30">F</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_28">Fld</A>; - Cf : C_Field_Type := Cft; - Arg1 : Argument_Access) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_types__adb.htm#151_16">Set_Fld_Type</A>, "set_field_type"); - - <b>begin</b> - <b>pragma</b> Assert (Low_Level /= Null_Field_Type); - <b>if</b> Cft /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#148_13">C_Builtin_Router</A> <b>and</b> <b>then</b> Cft /= <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Choice_Router</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - Arg := <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#211_9">Argument</A>'(Usr => System.Null_Address, - Typ => <b>new</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field_Type</A>'Class'(<A HREF="terminal_interface-curses-forms-field_types__ads.htm#152_28">Typ</A>), - Cft => <A HREF="terminal_interface-curses-forms-field_types__adb.htm#58_13">Get_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#151_28">Fld</A>)); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#147_7">Usr_Arg</A> /= System.Null_Address <b>then</b> - <b>if</b> Low_Level.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#125_10">Copyarg</A> /= <b>null</b> <b>then</b> - Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A> := Low_Level.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#125_10">Copyarg</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#147_7">Usr_Arg</A>); - <b>else</b> - Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#147_7">Usr_Arg</A>; - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#151_16">Set_Fld_Type</A> (Arg1 => Arg); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#150_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Wrap_Builtin; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_13">Field_Check_Router</A><FONT COLOR=red><A NAME="179_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_33">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_33">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> - <b>is</b> - Arg : <b>constant</b> Argument_Access := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#178_33">Usr</A>); - <b>begin</b> - <b>pragma</b> Assert (Arg /= <b>null</b> <b>and</b> <b>then</b> Arg.Cft /= Null_Field_Type - <b>and</b> <b>then</b> Arg.Typ /= <b>null</b>); - <b>if</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#127_10">Fcheck</A> /= <b>null</b> <b>then</b> - <b>return</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#127_10">Fcheck</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_33">Fld</A>, Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A>); - <b>else</b> - <b>return</b> 1; - <b>end</b> <b>if</b>; - <b>end</b> Field_Check_Router; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_13">Char_Check_Router</A><FONT COLOR=red><A NAME="193_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_32">Ch</A> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_32">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> - <b>is</b> - Arg : <b>constant</b> Argument_Access := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#186_32">Usr</A>); - <b>begin</b> - <b>pragma</b> Assert (Arg /= <b>null</b> <b>and</b> <b>then</b> Arg.Cft /= Null_Field_Type - <b>and</b> <b>then</b> Arg.Typ /= <b>null</b>); - <b>if</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#128_10">Ccheck</A> /= <b>null</b> <b>then</b> - <b>return</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#128_10">Ccheck</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_32">Ch</A>, Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A>); - <b>else</b> - <b>return</b> 1; - <b>end</b> <b>if</b>; - <b>end</b> Char_Check_Router; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#193_13">Next_Router</A><FONT COLOR=red><A NAME="207_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#193_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_26">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> - <b>is</b> - Arg : <b>constant</b> Argument_Access := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#194_26">Usr</A>); - <b>begin</b> - <b>pragma</b> Assert (Arg /= <b>null</b> <b>and</b> <b>then</b> Arg.Cft /= Null_Field_Type - <b>and</b> <b>then</b> Arg.Typ /= <b>null</b>); - <b>if</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_10">Next</A> /= <b>null</b> <b>then</b> - <b>return</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_10">Next</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#193_26">Fld</A>, Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A>); - <b>else</b> - <b>return</b> 1; - <b>end</b> <b>if</b>; - <b>end</b> Next_Router; - - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#201_13">Prev_Router</A><FONT COLOR=red><A NAME="221_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#201_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_26">Usr</A> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12">C_Int</A> - <b>is</b> - Arg : <b>constant</b> Argument_Access := <A HREF="terminal_interface-curses-forms-field_types__adb.htm#55_13">To_Argument_Access</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#202_26">Usr</A>); - <b>begin</b> - <b>pragma</b> Assert (Arg /= <b>null</b> <b>and</b> <b>then</b> Arg.Cft /= Null_Field_Type - <b>and</b> <b>then</b> Arg.Typ /= <b>null</b>); - <b>if</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_16">Prev</A> /= <b>null</b> <b>then</b> - <b>return</b> Arg.Cft.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#129_16">Prev</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#201_26">Fld</A>, Arg.<A HREF="terminal_interface-curses-forms-field_types__ads.htm#213_7">Usr</A>); - <b>else</b> - <b>return</b> 1; - <b>end</b> <b>if</b>; - <b>end</b> Prev_Router; - - <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#148_13">C_Builtin_Router</A><FONT COLOR=red><A NAME="237_13"></A></FONT> <b>return</b> C_Field_Type - <b>is</b> - <FONT COLOR=red><A NAME="239_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - T : C_Field_Type; - <b>begin</b> - <b>if</b> M_Builtin_Router = Null_Field_Type <b>then</b> - T := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_13">Field_Check_Router</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_13">Char_Check_Router</A>'<b>Access</b>); - <b>if</b> T = Null_Field_Type <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#239_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#227_13">Set_Fieldtype_Arg</A> (T, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_13">Make_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Copy_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Free_Arg</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#239_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#239_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - M_Builtin_Router := T; - <b>end</b> <b>if</b>; - <b>pragma</b> Assert (M_Builtin_Router /= Null_Field_Type); - <b>return</b> M_Builtin_Router; - <b>end</b> C_Builtin_Router; - - <FONT COLOR=green><EM>-- -----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#149_13">C_Choice_Router</A><FONT COLOR=red><A NAME="264_13"></A></FONT> <b>return</b> C_Field_Type - <b>is</b> - <FONT COLOR=red><A NAME="266_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - T : C_Field_Type; - <b>begin</b> - <b>if</b> M_Choice_Router = Null_Field_Type <b>then</b> - T := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#222_13">New_Fieldtype</A> (<A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_13">Field_Check_Router</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_13">Char_Check_Router</A>'<b>Access</b>); - <b>if</b> T = Null_Field_Type <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#227_13">Set_Fieldtype_Arg</A> (T, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#162_13">Make_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Copy_Arg</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Free_Arg</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A>); - <b>end</b> <b>if</b>; - - <A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#234_13">Set_Fieldtype_Choice</A> (T, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#193_13">Next_Router</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#201_13">Prev_Router</A>'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_types__adb.htm#266_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - M_Choice_Router := T; - <b>end</b> <b>if</b>; - <b>pragma</b> Assert (M_Choice_Router /= Null_Field_Type); - <b>return</b> M_Choice_Router; - <b>end</b> C_Choice_Router; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm deleted file mode 100644 index e11c256..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm +++ /dev/null @@ -1,245 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_types.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Interfaces.C; - -<b>package</b> Terminal_Interface.Curses.Forms.Field_Types <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Field_Types); - <b>use</b> <b>type</b><FONT COLOR=red><A NAME="46_12"> </A></FONT>Interfaces.C.int; - <b>subtype</b> C_Int <b>is</b> Interfaces.C.int; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Field_Type <b>is</b> <b>abstract</b> <b>tagged</b> <b>null</b> <b>record</b>; - <FONT COLOR=green><EM>-- Abstract base type for all field types. A concrete field type</EM></FONT> - <FONT COLOR=green><EM>-- is an extension that adds some data elements describing formats or</EM></FONT> - <FONT COLOR=green><EM>-- boundary values for the type and validation routines.</EM></FONT> - <FONT COLOR=green><EM>-- For the builtin low-level fieldtypes, the validation routines are</EM></FONT> - <FONT COLOR=green><EM>-- already defined by the low-level C library.</EM></FONT> - <FONT COLOR=green><EM>-- The builtin types like Alpha or AlphaNumeric etc. are defined in</EM></FONT> - <FONT COLOR=green><EM>-- child packages of this package. You may use one of them as example</EM></FONT> - <FONT COLOR=green><EM>-- how to create you own child packages for low-level field types that</EM></FONT> - <FONT COLOR=green><EM>-- you may have already written in C.</EM></FONT> - - <b>type</b> Field_Type_Access <b>is</b> <b>access</b> <b>all</b> Field_Type'Class; - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_Field_Type (<FONT COLOR=red><A NAME="67_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field</A>; - Fld_Type : <b>in</b> Field_Type) <b>is</b> <b>abstract</b>; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_fieldtype.3x.html">set_field_type()</A></EM></FONT> - <FONT COLOR=green><EM>-- But: we hide the vararg mechanism of the C interface. You always</EM></FONT> - <FONT COLOR=green><EM>-- have to pass a single Field_Type parameter.</EM></FONT> - - <FONT COLOR=green><EM>-- ---------------------------------------------------------------------</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>function</b> Get_Type (Fld : <b>in</b> Field) <b>return</b> Field_Type_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_validation.3x.html">field_type()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: field_arg()</EM></FONT> - <FONT COLOR=green><EM>-- In Ada95 we can combine these. If you try to retrieve the field type</EM></FONT> - <FONT COLOR=green><EM>-- that is not defined as extension of the abstract tagged type above,</EM></FONT> - <FONT COLOR=green><EM>-- you will raise a Form_Exception.</EM></FONT> - <FONT COLOR=green><EM>-- This is not inlined</EM></FONT> - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- | Private Part.</EM></FONT> - <FONT COLOR=green><EM>-- | Most of this is used by the implementations of the child packages.</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> -<b>private</b> - <b>type</b> Makearg_Function <b>is</b> <b>access</b> - <b>function</b> (Args : System.Address) <b>return</b> System.Address; - <b>pragma</b> Convention (C, Makearg_Function); - - <b>type</b> Copyarg_Function <b>is</b> <b>access</b> - <b>function</b> (Usr : System.Address) <b>return</b> System.Address; - <b>pragma</b> Convention (C, Copyarg_Function); - - <b>type</b> Freearg_Function <b>is</b> <b>access</b> - <b>procedure</b> (Usr : System.Address); - <b>pragma</b> Convention (C, Freearg_Function); - - <b>type</b> Field_Check_Function<FONT COLOR=red><A NAME="105_29"> </A></FONT><b>is</b> <b>access</b> - <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Field_Check_Function); - - <b>type</b> Char_Check_Function<FONT COLOR=red><A NAME="109_28"> </A></FONT><b>is</b> <b>access</b> - <b>function</b> (Ch : C_Int<A HREF="terminal_interface-curses-forms-field_types__ads.htm#108_9">;</A> Usr : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Char_Check_Function); - - <b>type</b> Choice_Function <b>is</b> <b>access</b> - <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Choice_Function); - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- | This must be in sync with the FIELDTYPE structure in form.h</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>type</b> Low_Level_Field_Type <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="122_10">Status</A></FONT> : <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short; - <FONT COLOR=red><A NAME="123_10">Ref_Count</A></FONT> : Interfaces.C.long; - <FONT COLOR=red><A NAME="124_10">Left</A></FONT>, Right : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#92_9">System</A>.Address; - <FONT COLOR=red><A NAME="125_10">Makearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#96_9">Makearg_Function</A>; - <FONT COLOR=red><A NAME="126_10">Copyarg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#100_9">Copyarg_Function</A>; - <FONT COLOR=red><A NAME="127_10">Freearg</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#104_9">Freearg_Function</A>; - <FONT COLOR=red><A NAME="128_10">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#108_9">Field_Check_Function</A>; - <FONT COLOR=red><A NAME="129_10">Ccheck</A></FONT><FONT COLOR=red><A NAME="129_16"> </A></FONT>: <A HREF="terminal_interface-curses-forms-field_types__ads.htm#112_9">Char_Check_Function</A>; - Next, Prev : Choice_Function; - <b>end</b> <b>record</b>; - <b>pragma</b> Convention (C, Low_Level_Field_Type); - <b>type</b> C_Field_Type <b>is</b> <b>access</b> <b>all</b> Low_Level_Field_Type; - - Null_Field_Type : <b>constant</b> C_Field_Type := <b>null</b>; - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- | This four low-level fieldtypes are the ones associated with</EM></FONT> - <FONT COLOR=green><EM>-- | fieldtypes handled by this binding. Any other low-level fieldtype</EM></FONT> - <FONT COLOR=green><EM>-- | will result in a Form_Exception is function Get_Type.</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - M_Generic_Type : C_Field_Type := <b>null</b>; - M_Generic_Choice : C_Field_Type := <b>null</b>; - M_Builtin_Router : C_Field_Type := <b>null</b>; - M_Choice_Router : C_Field_Type := <b>null</b>; - - <FONT COLOR=green><EM>-- Two wrapper functions to access those low-level fieldtypes defined</EM></FONT> - <FONT COLOR=green><EM>-- in this package.</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm#264_13">C_Builtin_Router</A><FONT COLOR=red><A NAME="149_13"></A></FONT> <b>return</b> C_Field_Type; - <b>function</b> C_Choice_Router <b>return</b> C_Field_Type; - - <b>procedure</b> Wrap_Builtin (<FONT COLOR=red><A NAME="152_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field</A>; - Typ : Field_Type'Class<A HREF="terminal_interface-curses-forms-field_types__ads.htm#148_13">;</A> - Cft : C_Field_Type := C_Builtin_Router); - <FONT COLOR=green><EM>-- This procedure has to be called by the Set_Field_Type implementation</EM></FONT> - <FONT COLOR=green><EM>-- for builtin low-level fieldtypes to replace it by an Ada95</EM></FONT> - <FONT COLOR=green><EM>-- conformant Field_Type object.</EM></FONT> - <FONT COLOR=green><EM>-- The parameter Cft must be C_Builtin_Router for regular low-level</EM></FONT> - <FONT COLOR=green><EM>-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for</EM></FONT> - <FONT COLOR=green><EM>-- low-level fieldtypes witch choice functions (like TYP_ENUM).</EM></FONT> - <FONT COLOR=green><EM>-- Any other value will raise a Form_Exception.</EM></FONT> - - <b>function</b> Make_Arg (Args : System.Address) <b>return</b> System.Address; - <b>pragma</b> Convention (C, Make_Arg); - <FONT COLOR=green><EM>-- This is the Makearg_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> - - <b>function</b> Copy_Arg (Usr<A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13"> </A>: System.Address) <b>return</b> System.Address; - <b>pragma</b> Convention (C, Copy_Arg); - <FONT COLOR=green><EM>-- This is the Copyarg_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> - - <b>procedure</b> Free_Arg (Usr : System.Address); - <b>pragma</b> Convention (C, Free_Arg); - <FONT COLOR=green><EM>-- This is the Freearg_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> - - <b>function</b> Field_Check_Router (<FONT COLOR=red><A NAME="178_33">Fld</A></FONT> : Field; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#177_13"> </A> Usr : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Field_Check_Router); - <FONT COLOR=green><EM>-- This is the Field_Check_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> - <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT> - <FONT COLOR=green><EM>-- function.</EM></FONT> - - <b>function</b> Char_Check_Router (<FONT COLOR=red><A NAME="186_32">Ch</A></FONT> : C_Int; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#185_13"> </A> Usr : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Char_Check_Router); - <FONT COLOR=green><EM>-- This is the Char_Check_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> - <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT> - <FONT COLOR=green><EM>-- function.</EM></FONT> - - <b>function</b> Next_Router (<FONT COLOR=red><A NAME="194_26">Fld</A></FONT> : Field; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#193_13">Usr</A> : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Next_Router); - <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> - <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level next_choice</EM></FONT> - <FONT COLOR=green><EM>-- function.</EM></FONT> - - <b>function</b> Prev_Router (<FONT COLOR=red><A NAME="202_26">Fld</A></FONT> : Field; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#201_13">Usr</A> : System.Address) <b>return</b> C_Int; - <b>pragma</b> Convention (C, Prev_Router); - <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT> - <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT> - <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level prev_choice</EM></FONT> - <FONT COLOR=green><EM>-- function.</EM></FONT> - - <FONT COLOR=green><EM>-- This is the Argument structure maintained by all low-level field types</EM></FONT> - <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT> - <b>type</b> Argument <b>is</b> <b>record</b> - <FONT COLOR=red><A NAME="213_7">Typ</A></FONT> : Field_Type_Access; <FONT COLOR=green><EM>-- the Field_Type creating this record</EM></FONT> - Usr : System.Address; <FONT COLOR=green><EM>-- original arg for builtin low-level types</EM></FONT> - Cft : C_Field_Type; <FONT COLOR=green><EM>-- the original low-level type</EM></FONT> - <b>end</b> <b>record</b>; - <b>type</b> Argument_Access <b>is</b> <b>access</b> <b>all</b> Argument; - - <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- | Some Imports of libform routines to deal with low-level fieldtypes.</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> New_Fieldtype (<FONT COLOR=red><A NAME="223_28">Fcheck</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#108_9">Field_Check_Function</A>; - Ccheck : Char_Check_Function) - <b>return</b> C_Field_Type; - <b>pragma</b> Import (C, New_Fieldtype, "new_fieldtype"); - - <b>function</b> Set_Fieldtype_Arg (<FONT COLOR=red><A NAME="228_32">Cft</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#92_9">C_Field_Type</A>; - <FONT COLOR=red><A NAME="229_32">Mak</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#96_9">Makearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#167_13">Make_Arg</A>'<b>Access</b>; - <FONT COLOR=red><A NAME="230_32">Cop</A></FONT> : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#100_9">Copyarg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm#172_14">Copy_Arg</A>'<b>Access</b>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12"> </A> Fre : Freearg_Function := Free_Arg'<b>Access</b>) - <b>return</b> C_Int; - <b>pragma</b> Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg"); - - <b>function</b> Set_Fieldtype_Choice (<FONT COLOR=red><A NAME="235_35">Cft</A></FONT> : <FONT COLOR=red><A NAME="235_41">C_Field_Type</A></FONT>; - <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12"> </A> Next, Prev : Choice_Function) - <b>return</b> C_Int; - <b>pragma</b> Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice"); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_Types; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm deleted file mode 100644 index c5fd816..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__adb.htm +++ /dev/null @@ -1,90 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- | man page form_field_userptr.3x</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#45_41">Field_User_Data</A> <b>is</b> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#53_14">Set_User_Data</A><FONT COLOR=red><A NAME="54_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#53_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#54_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="57_16">Set_Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="57_35">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="58_35">Usr</A></FONT> : <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#57_16">Set_Field_Userptr</A>, "set_field_userptr"); - - <FONT COLOR=red><A NAME="61_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#57_16">Set_Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#53_29">Fld</A>, <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#54_29">Data</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#61_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#61_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_User_Data; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#64_13">Get_User_Data</A><FONT COLOR=red><A NAME="70_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#64_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">User_Access</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="72_16">Field_Userptr</A></FONT> (<FONT COLOR=red><A NAME="72_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">User_Access</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#72_16">Field_Userptr</A>, "field_userptr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms-field_user_data__adb.htm#72_16">Field_Userptr</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#64_28">Fld</A>); - <b>end</b> Get_User_Data; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#59_14">Get_User_Data</A><FONT COLOR=red><A NAME="78_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#59_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#60_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#60_29">Data</A> := <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#59_29">Fld</A>); - <b>end</b> Get_User_Data; - -<b>end</b> Terminal_Interface.Curses.Forms.Field_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm deleted file mode 100644 index 07e5643..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-field_user_data.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_user_data.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.13 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="44_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; - <b>type</b> <A HREF="terminal_interface__ads.htm#41_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-forms__ads.htm#48_35">;</A> -<b>package</b> Terminal_Interface.Curses.Forms.Field_User_Data <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_userptr.3x.html">form_field_userptr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="54_29">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">Field</A>; - Data : <b>in</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">set_field_userptr</A></EM></FONT> - <b>pragma</b> Inline (Set_User_Data); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="60_29">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-field_user_data__ads.htm#44_9">Field</A>; - Data : <b>out</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>function</b> Get_User_Data (Fld : <b>in</b> Field) <b>return</b> User_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_userptr.3x.html">field_userptr</A></EM></FONT> - <FONT COLOR=green><EM>-- Sama as function</EM></FONT> - <b>pragma</b> Inline (Get_User_Data); - -<b>end</b> Terminal_Interface.Curses.Forms.Field_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm deleted file mode 100644 index 46d298a..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm +++ /dev/null @@ -1,91 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- | man page form__userptr.3x</EM></FONT> -<FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Forms.<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#45_41">Form_User_Data</A> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#53_14">Set_User_Data</A><FONT COLOR=red><A NAME="55_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#53_29">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#54_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="58_16">Set_Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="58_34">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="59_34">Data</A></FONT> : <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#58_16">Set_Form_Userptr</A>, "set_form_userptr"); - - <FONT COLOR=red><A NAME="62_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#58_16">Set_Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#53_29">Frm</A>, <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#54_29">Data</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#62_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#62_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_User_Data; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#64_13">Get_User_Data</A><FONT COLOR=red><A NAME="71_13"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#64_28">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">User_Access</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="73_16">Form_Userptr</A></FONT> (<FONT COLOR=red><A NAME="73_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">User_Access</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#73_16">Form_Userptr</A>, "form_userptr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms-form_user_data__adb.htm#73_16">Form_Userptr</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#64_28">Frm</A>); - <b>end</b> Get_User_Data; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#59_14">Get_User_Data</A><FONT COLOR=red><A NAME="79_14"></A></FONT> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#59_29">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#60_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#60_29">Data</A> := <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#59_29">Frm</A>); - <b>end</b> Get_User_Data; - -<b>end</b> Terminal_Interface.Curses.Forms.Form_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm deleted file mode 100644 index 3f03f43..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms-form_user_data__ads.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms-form_user_data.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-form_user_data.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Form_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="44_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; - <b>type</b> <A HREF="terminal_interface__ads.htm#41_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-forms__ads.htm#48_35">;</A> -<b>package</b> Terminal_Interface.Curses.Forms.Form_User_Data <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms.Form_User_Data); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_userptr.3x.html">form_userptr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="54_29">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">Form</A>; - Data : <b>in</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">set_form_userptr</A></EM></FONT> - <b>pragma</b> Inline (Set_User_Data); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="60_29">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms-form_user_data__ads.htm#44_9">Form</A>; - Data : <b>out</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>function</b> Get_User_Data (Frm : <b>in</b> Form) <b>return</b> User_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_userptr.3x.html">form_userptr</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Get_User_Data); - -<b>end</b> Terminal_Interface.Curses.Forms.Form_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__adb.htm deleted file mode 100644 index 087bf55..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__adb.htm +++ /dev/null @@ -1,1165 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.20 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Unchecked_Deallocation; -<b>with</b> Ada.Unchecked_Conversion; - -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; - -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-forms__ads.htm#48_35">Forms</A><FONT COLOR=red><A NAME="50_40"></A></FONT> <b>is</b> - - <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - - <b>type</b> <FONT COLOR=red><A NAME="54_9">C_Field_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <b>package</b> <FONT COLOR=red><A NAME="55_12">F_Array</A></FONT> <b>is</b> <b>new</b> - <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>, <A HREF="terminal_interface-curses-forms__adb.htm#54_9">C_Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A>); - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- subtype chars_ptr is Interfaces.C.Strings.chars_ptr;</EM></FONT> - - <b>function</b> <FONT COLOR=red><A NAME="64_13">FOS_2_CInt</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>); - - <b>function</b> <FONT COLOR=red><A NAME="68_13">CInt_2_FOS</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>, - <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>); - - <b>function</b> <FONT COLOR=red><A NAME="72_13">FrmOS_2_CInt</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>); - - <b>function</b> <FONT COLOR=red><A NAME="76_13">CInt_2_FrmOS</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>, - <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#278_14">Request_Name</A><FONT COLOR=red><A NAME="80_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#278_28">Key</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#279_28">Name</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="83_16">Form_Request_Name</A></FONT> (<FONT COLOR=red><A NAME="83_35">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#83_16">Form_Request_Name</A>, "form_request_name"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#83_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#278_28">Key</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#279_28">Name</A>); - <b>end</b> Request_Name; - - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#281_14">Request_Name</A><FONT COLOR=red><A NAME="89_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#281_28">Key</A> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="91_16">Form_Request_Name</A></FONT> (<FONT COLOR=red><A NAME="91_35">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#91_16">Form_Request_Name</A>, "form_request_name"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#91_16">Form_Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#281_28">Key</A>))); - <b>end</b> Request_Name; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_new.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#295_13">Create</A><FONT COLOR=red><A NAME="107_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#295_21">Height</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#296_21">Width</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#297_21">Top</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#298_21">Left</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#299_21">Off_Screen</A> : Natural := 0; - <A HREF="terminal_interface-curses-forms__ads.htm#300_21">More_Buffers</A> : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First) - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="115_16">Newfield</A></FONT> (<FONT COLOR=red><A NAME="115_26">H</A></FONT>, <FONT COLOR=red><A NAME="115_29">W</A></FONT>, <FONT COLOR=red><A NAME="115_32">T</A></FONT>, <FONT COLOR=red><A NAME="115_35">L</A></FONT>, <FONT COLOR=red><A NAME="115_38">O</A></FONT>, <FONT COLOR=red><A NAME="115_41">M</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#115_16">Newfield</A>, "new_field"); - <FONT COLOR=red><A NAME="117_7">Fld</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#115_16">Newfield</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#295_21">Height</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#296_21">Width</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#297_21">Top</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#298_21">Left</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#299_21">Off_Screen</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#300_21">More_Buffers</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#117_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#117_7">Fld</A>; - <b>end</b> Create; -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#317_14">Delete</A><FONT COLOR=red><A NAME="130_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#317_22">Fld</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="132_16">Free_Field</A></FONT> (<FONT COLOR=red><A NAME="132_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#132_16">Free_Field</A>, "free_field"); - - <FONT COLOR=red><A NAME="135_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms__adb.htm#135_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#132_16">Free_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#317_22">Fld</A>); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#135_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#135_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms__ads.htm#317_22">Fld</A> := <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A>; - <b>end</b> Delete; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#323_13">Duplicate</A><FONT COLOR=red><A NAME="146_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#323_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#324_24">Top</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#325_24">Left</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="150_16">Dup_Field</A></FONT> (<FONT COLOR=red><A NAME="150_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="151_27">Top</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="152_27">Left</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#150_16">Dup_Field</A>, "dup_field"); - - <FONT COLOR=red><A NAME="155_7">F</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#150_16">Dup_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#323_24">Fld</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#324_24">Top</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#325_24">Left</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#155_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#155_7">F</A>; - <b>end</b> Duplicate; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#330_13">Link</A><FONT COLOR=red><A NAME="167_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#330_19">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#331_19">Top</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#332_19">Left</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="171_16">Lnk_Field</A></FONT> (<FONT COLOR=red><A NAME="171_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="172_27">Top</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="173_27">Left</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#171_16">Lnk_Field</A>, "link_field"); - - <FONT COLOR=red><A NAME="176_7">F</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#171_16">Lnk_Field</A> (<A HREF="terminal_interface-curses-forms__ads.htm#330_19">Fld</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#331_19">Top</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#332_19">Left</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#176_7">F</A> = <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#176_7">F</A>; - <b>end</b> Link; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_just.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#341_14">Set_Justification</A><FONT COLOR=red><A NAME="192_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#341_33">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#342_33">Just</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field_Justification</A> := <A HREF="terminal_interface-curses-forms__ads.htm#61_33">None</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="195_16">Set_Field_Just</A></FONT> (<FONT COLOR=red><A NAME="195_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="196_32">Just</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#195_16">Set_Field_Just</A>, "set_field_just"); - - <FONT COLOR=red><A NAME="199_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := - <A HREF="terminal_interface-curses-forms__adb.htm#195_16">Set_Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#341_33">Fld</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field_Justification</A>'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#342_33">Just</A>))); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#199_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#199_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Justification; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#347_13">Get_Justification</A><FONT COLOR=red><A NAME="210_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#347_32">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field_Justification</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="212_16">Field_Just</A></FONT> (<FONT COLOR=red><A NAME="212_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#212_16">Field_Just</A>, "field_just"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field_Justification</A>'Val (<A HREF="terminal_interface-curses-forms__adb.htm#212_16">Field_Just</A> (<A HREF="terminal_interface-curses-forms__ads.htm#347_32">Fld</A>)); - <b>end</b> Get_Justification; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_buffer.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#356_14">Set_Buffer</A><FONT COLOR=red><A NAME="224_14"></A></FONT> - (<A HREF="terminal_interface-curses-forms__ads.htm#357_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#358_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First; - <A HREF="terminal_interface-curses-forms__ads.htm#359_7">Str</A> : <b>in</b> String) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="230_16">Set_Fld_Buffer</A></FONT> (<FONT COLOR=red><A NAME="230_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="231_34">Bufnum</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - S : Char_Ptr) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#230_16">Set_Fld_Buffer</A>, "set_field_buffer"); - - <FONT COLOR=red><A NAME="236_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-forms__ads.htm#359_7">Str</A>'Length); - <FONT COLOR=red><A NAME="237_7">Len</A></FONT> : size_t; - <FONT COLOR=red><A NAME="238_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses-forms__ads.htm#359_7">Str</A>, <A HREF="terminal_interface-curses-forms__adb.htm#236_7">Txt</A>, <A HREF="terminal_interface-curses-forms__adb.htm#237_7">Len</A>); - <A HREF="terminal_interface-curses-forms__adb.htm#238_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#230_16">Set_Fld_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#357_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#358_7">Buffer</A>), <A HREF="terminal_interface-curses-forms__adb.htm#236_7">Txt</A> (<A HREF="terminal_interface-curses-forms__adb.htm#236_7">Txt</A>'First)'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#238_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#238_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Buffer; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#364_14">Get_Buffer</A><FONT COLOR=red><A NAME="249_14"></A></FONT> - (<A HREF="terminal_interface-curses-forms__ads.htm#365_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#366_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First; - <A HREF="terminal_interface-curses-forms__ads.htm#367_7">Str</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="254_16">Field_Buffer</A></FONT> (<FONT COLOR=red><A NAME="254_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="255_30">B</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#254_16">Field_Buffer</A>, "field_buffer"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#254_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#365_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#366_7">Buffer</A>)), <A HREF="terminal_interface-curses-forms__ads.htm#367_7">Str</A>); - <b>end</b> Get_Buffer; - - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#370_13">Get_Buffer</A><FONT COLOR=red><A NAME="261_13"></A></FONT> - (<A HREF="terminal_interface-curses-forms__ads.htm#371_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#372_7">Buffer</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>'First) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="265_16">Field_Buffer</A></FONT> (<FONT COLOR=red><A NAME="265_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="266_30">B</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#265_16">Field_Buffer</A>, "field_buffer"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-forms__adb.htm#265_16">Field_Buffer</A> (<A HREF="terminal_interface-curses-forms__ads.htm#371_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#372_7">Buffer</A>))); - <b>end</b> Get_Buffer; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#378_14">Set_Status</A><FONT COLOR=red><A NAME="274_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#378_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#379_26">Status</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="277_16">Set_Fld_Status</A></FONT> (<FONT COLOR=red><A NAME="277_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="278_32">St</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#277_16">Set_Fld_Status</A>, "set_field_status"); - - <FONT COLOR=red><A NAME="281_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#277_16">Set_Fld_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#378_26">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#379_26">Status</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#281_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Status; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#384_13">Changed</A><FONT COLOR=red><A NAME="290_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#384_22">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="292_16">Field_Status</A></FONT> (<FONT COLOR=red><A NAME="292_30">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#292_16">Field_Status</A>, "field_status"); - - <FONT COLOR=red><A NAME="295_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#292_16">Field_Status</A> (<A HREF="terminal_interface-curses-forms__ads.htm#384_22">Fld</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#295_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Changed; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#389_14">Set_Maximum_Size</A><FONT COLOR=red><A NAME="306_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#389_32">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#390_32">Max</A> : <b>in</b> Natural := 0) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="309_16">Set_Field_Max</A></FONT> (<FONT COLOR=red><A NAME="309_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="310_31">M</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#309_16">Set_Field_Max</A>, "set_max_field"); - - <FONT COLOR=red><A NAME="313_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#309_16">Set_Field_Max</A> (<A HREF="terminal_interface-curses-forms__ads.htm#389_32">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#390_32">Max</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#313_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#313_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Maximum_Size; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_opts.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#399_14">Set_Options</A><FONT COLOR=red><A NAME="326_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#399_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#400_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="329_16">Set_Field_Opts</A></FONT> (<FONT COLOR=red><A NAME="329_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="330_32">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#329_16">Set_Field_Opts</A>, "set_field_opts"); - - <FONT COLOR=red><A NAME="333_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#64_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#400_27">Options</A>); - <FONT COLOR=red><A NAME="334_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms__adb.htm#334_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#329_16">Set_Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#399_27">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#333_7">Opt</A>); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#334_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#334_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#405_14">Switch_Options</A><FONT COLOR=red><A NAME="344_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#405_30">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#406_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#407_30">On</A> : Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="348_16">Field_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="348_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="349_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#348_16">Field_Opts_On</A>, "field_opts_on"); - <b>function</b> <FONT COLOR=red><A NAME="351_16">Field_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="351_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="352_32">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#351_16">Field_Opts_Off</A>, "field_opts_off"); - - <FONT COLOR=red><A NAME="355_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <FONT COLOR=red><A NAME="356_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#64_13">FOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#406_30">Options</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#407_30">On</A> <b>then</b> - <A HREF="terminal_interface-curses-forms__adb.htm#355_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#348_16">Field_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#405_30">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#356_7">Opt</A>); - <b>else</b> - <A HREF="terminal_interface-curses-forms__adb.htm#355_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#351_16">Field_Opts_Off</A> (<A HREF="terminal_interface-curses-forms__ads.htm#405_30">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#356_7">Opt</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#355_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#355_7">Err</A>); - <b>end</b> <b>if</b>; - <b>end</b> Switch_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#413_14">Get_Options</A><FONT COLOR=red><A NAME="370_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#413_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#414_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="373_16">Field_Opts</A></FONT> (<FONT COLOR=red><A NAME="373_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#373_16">Field_Opts</A>, "field_opts"); - - <FONT COLOR=red><A NAME="376_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#373_16">Field_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#413_27">Fld</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#414_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#68_13">CInt_2_FOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#376_7">Res</A>); - <b>end</b> Get_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#418_13">Get_Options</A><FONT COLOR=red><A NAME="383_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#418_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A>) - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A> - <b>is</b> - <FONT COLOR=red><A NAME="386_7">Fos</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#418_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#418_26">Fld</A>, <A HREF="terminal_interface-curses-forms__adb.htm#386_7">Fos</A>); - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#386_7">Fos</A>; - <b>end</b> Get_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_attributes.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#428_14">Set_Foreground</A><FONT COLOR=red><A NAME="398_14"></A></FONT> - (<A HREF="terminal_interface-curses-forms__ads.htm#429_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#430_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#431_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="403_16">Set_Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="403_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="404_32">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#403_16">Set_Field_Fore</A>, "set_field_fore"); - - <FONT COLOR=red><A NAME="407_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses-forms__ads.htm#431_7">Color</A>, - Attr => <A HREF="terminal_interface-curses-forms__ads.htm#430_7">Fore</A>); - <FONT COLOR=red><A NAME="410_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := - <A HREF="terminal_interface-curses-forms__adb.htm#403_16">Set_Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#429_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#407_7">Ch</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#410_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#410_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Foreground; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#436_14">Foreground</A><FONT COLOR=red><A NAME="420_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#436_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#437_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="423_16">Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="423_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#423_16">Field_Fore</A>, "field_fore"); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#437_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#423_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#436_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Foreground; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#441_14">Foreground</A><FONT COLOR=red><A NAME="429_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#441_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#442_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#443_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="433_16">Field_Fore</A></FONT> (<FONT COLOR=red><A NAME="433_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#433_16">Field_Fore</A>, "field_fore"); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#442_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#433_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#441_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#443_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#433_16">Field_Fore</A> (<A HREF="terminal_interface-curses-forms__ads.htm#441_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Foreground; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#448_14">Set_Background</A><FONT COLOR=red><A NAME="442_14"></A></FONT> - (<A HREF="terminal_interface-curses-forms__ads.htm#449_7">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#450_7">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#451_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="447_16">Set_Field_Back</A></FONT> (<FONT COLOR=red><A NAME="447_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="448_32">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#447_16">Set_Field_Back</A>, "set_field_back"); - - <FONT COLOR=red><A NAME="451_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses-forms__ads.htm#451_7">Color</A>, - Attr => <A HREF="terminal_interface-curses-forms__ads.htm#450_7">Back</A>); - <FONT COLOR=red><A NAME="454_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := - <A HREF="terminal_interface-curses-forms__adb.htm#447_16">Set_Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#449_7">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-forms__adb.htm#451_7">Ch</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#454_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#454_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Background; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#456_14">Background</A><FONT COLOR=red><A NAME="464_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#456_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#457_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="467_16">Field_Back</A></FONT> (<FONT COLOR=red><A NAME="467_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#467_16">Field_Back</A>, "field_back"); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#457_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#467_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#456_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Background; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#461_14">Background</A><FONT COLOR=red><A NAME="473_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#461_26">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#462_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#463_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="477_16">Field_Back</A></FONT> (<FONT COLOR=red><A NAME="477_28">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#477_16">Field_Back</A>, "field_back"); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#462_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#477_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#461_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#463_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-forms__adb.htm#477_16">Field_Back</A> (<A HREF="terminal_interface-curses-forms__ads.htm#461_26">Fld</A>)).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Background; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#468_14">Set_Pad_Character</A><FONT COLOR=red><A NAME="486_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#468_33">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#469_33">Pad</A> : <b>in</b> Character := <A HREF="terminal_interface-curses-forms__ads.htm#53_4">Space</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="489_16">Set_Field_Pad</A></FONT> (<FONT COLOR=red><A NAME="489_31">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <FONT COLOR=red><A NAME="490_31">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#489_16">Set_Field_Pad</A>, "set_field_pad"); - - <FONT COLOR=red><A NAME="493_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#489_16">Set_Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#468_33">Fld</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (Character'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#469_33">Pad</A>))); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#493_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#493_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Pad_Character; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#474_14">Pad_Character</A><FONT COLOR=red><A NAME="503_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#474_29">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#475_29">Pad</A> : <b>out</b> Character) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="506_16">Field_Pad</A></FONT> (<FONT COLOR=red><A NAME="506_27">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#506_16">Field_Pad</A>, "field_pad"); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#475_29">Pad</A> := Character'Val (<A HREF="terminal_interface-curses-forms__adb.htm#506_16">Field_Pad</A> (<A HREF="terminal_interface-curses-forms__ads.htm#474_29">Fld</A>)); - <b>end</b> Pad_Character; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_field_info.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#484_14">Info</A><FONT COLOR=red><A NAME="518_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#484_20">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#485_20">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#486_20">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#487_20">First_Row</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#488_20">First_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#489_20">Off_Screen</A> : <b>out</b> Natural; - <A HREF="terminal_interface-curses-forms__ads.htm#490_20">Additional_Buffers</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A>) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="527_16">Fld_Info</A></FONT> (<FONT COLOR=red><A NAME="527_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - L, C, Fr, Fc, Os, Ab : C_Int_Access) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#527_16">Fld_Info</A>, "field_info"); - - <FONT COLOR=red><A NAME="532_7">L</A></FONT>, <FONT COLOR=red><A NAME="532_10">C</A></FONT>, <FONT COLOR=red><A NAME="532_13">Fr</A></FONT>, <FONT COLOR=red><A NAME="532_17">Fc</A></FONT>, <FONT COLOR=red><A NAME="532_21">Os</A></FONT>, <FONT COLOR=red><A NAME="532_25">Ab</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="533_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#527_16">Fld_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#484_20">Fld</A>, - <A HREF="terminal_interface-curses-forms__adb.htm#532_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#532_10">C</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms__adb.htm#532_13">Fr</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#532_17">Fc</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms__adb.htm#532_21">Os</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#532_25">Ab</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#533_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#533_7">Res</A>); - <b>else</b> - <A HREF="terminal_interface-curses-forms__ads.htm#485_20">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#532_7">L</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#486_20">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#532_10">C</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#487_20">First_Row</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#532_13">Fr</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#488_20">First_Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-forms__adb.htm#532_17">Fc</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#489_20">Off_Screen</A> := Natural (<A HREF="terminal_interface-curses-forms__adb.htm#532_21">Os</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#490_20">Additional_Buffers</A> := <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Buffer_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#532_25">Ab</A>); - <b>end</b> <b>if</b>; - <b>end</b> Info; -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#495_14">Dynamic_Info</A><FONT COLOR=red><A NAME="552_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#495_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#496_28">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#497_28">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#498_28">Max</A> : <b>out</b> Natural) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="558_16">Dyn_Info</A></FONT> (<FONT COLOR=red><A NAME="558_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; L, C, M : C_Int_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#558_16">Dyn_Info</A>, "dynamic_field_info"); - - <FONT COLOR=red><A NAME="561_7">L</A></FONT>, <FONT COLOR=red><A NAME="561_10">C</A></FONT>, <FONT COLOR=red><A NAME="561_13">M</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="562_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#558_16">Dyn_Info</A> (<A HREF="terminal_interface-curses-forms__ads.htm#495_28">Fld</A>, - <A HREF="terminal_interface-curses-forms__adb.htm#561_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#561_10">C</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-forms__adb.htm#561_13">M</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#562_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#562_7">Res</A>); - <b>else</b> - <A HREF="terminal_interface-curses-forms__ads.htm#496_28">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#561_7">L</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#497_28">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#561_10">C</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#498_28">Max</A> := Natural (<A HREF="terminal_interface-curses-forms__adb.htm#561_13">M</A>); - <b>end</b> <b>if</b>; - <b>end</b> Dynamic_Info; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_win.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#507_14">Set_Window</A><FONT COLOR=red><A NAME="581_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#507_26">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#508_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="584_16">Set_Form_Win</A></FONT> (<FONT COLOR=red><A NAME="584_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="585_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#584_16">Set_Form_Win</A>, "set_form_win"); - - <FONT COLOR=red><A NAME="588_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#584_16">Set_Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#507_26">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#508_26">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#588_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#588_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Window; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#513_13">Get_Window</A><FONT COLOR=red><A NAME="597_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#513_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="599_16">Form_Win</A></FONT> (<FONT COLOR=red><A NAME="599_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#599_16">Form_Win</A>, "form_win"); - - <FONT COLOR=red><A NAME="602_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#599_16">Form_Win</A> (<A HREF="terminal_interface-curses-forms__ads.htm#513_25">Frm</A>); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#602_7">W</A>; - <b>end</b> Get_Window; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#518_14">Set_Sub_Window</A><FONT COLOR=red><A NAME="609_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#518_30">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#519_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="612_16">Set_Form_Sub</A></FONT> (<FONT COLOR=red><A NAME="612_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="613_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#612_16">Set_Form_Sub</A>, "set_form_sub"); - - <FONT COLOR=red><A NAME="616_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#612_16">Set_Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#518_30">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#519_30">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#616_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#616_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Sub_Window; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#524_13">Get_Sub_Window</A><FONT COLOR=red><A NAME="625_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#524_29">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="627_16">Form_Sub</A></FONT> (<FONT COLOR=red><A NAME="627_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#627_16">Form_Sub</A>, "form_sub"); - - <FONT COLOR=red><A NAME="630_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses-forms__adb.htm#627_16">Form_Sub</A> (<A HREF="terminal_interface-curses-forms__ads.htm#524_29">Frm</A>); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#630_7">W</A>; - <b>end</b> Get_Sub_Window; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#529_14">Scale</A><FONT COLOR=red><A NAME="637_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#529_21">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#530_21">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#531_21">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="642_16">M_Scale</A></FONT> (<FONT COLOR=red><A NAME="642_25">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; Yp, Xp : C_Int_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#642_16">M_Scale</A>, "scale_form"); - - <FONT COLOR=red><A NAME="645_7">X</A></FONT>, <FONT COLOR=red><A NAME="645_10">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="646_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#642_16">M_Scale</A> (<A HREF="terminal_interface-curses-forms__ads.htm#529_21">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#645_10">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses-forms__adb.htm#645_7">X</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#646_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#646_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms__ads.htm#530_21">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#645_10">Y</A>); - <A HREF="terminal_interface-curses-forms__ads.htm#531_21">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-forms__adb.htm#645_7">X</A>); - <b>end</b> Scale; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page menu_hook.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#543_14">Set_Field_Init_Hook</A><FONT COLOR=red><A NAME="661_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#543_35">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#544_35">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="664_16">Set_Field_Init</A></FONT> (<FONT COLOR=red><A NAME="664_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="665_32">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#664_16">Set_Field_Init</A>, "set_field_init"); - - <FONT COLOR=red><A NAME="668_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#664_16">Set_Field_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#543_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#544_35">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#668_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#668_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Field_Init_Hook; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#549_14">Set_Field_Term_Hook</A><FONT COLOR=red><A NAME="677_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#549_35">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#550_35">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="680_16">Set_Field_Term</A></FONT> (<FONT COLOR=red><A NAME="680_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="681_32">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#680_16">Set_Field_Term</A>, "set_field_term"); - - <FONT COLOR=red><A NAME="684_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#680_16">Set_Field_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#549_35">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#550_35">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#684_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#684_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Field_Term_Hook; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#555_14">Set_Form_Init_Hook</A><FONT COLOR=red><A NAME="693_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#555_34">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#556_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="696_16">Set_Form_Init</A></FONT> (<FONT COLOR=red><A NAME="696_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="697_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#696_16">Set_Form_Init</A>, "set_form_init"); - - <FONT COLOR=red><A NAME="700_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#696_16">Set_Form_Init</A> (<A HREF="terminal_interface-curses-forms__ads.htm#555_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#556_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#700_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#700_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Form_Init_Hook; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#561_14">Set_Form_Term_Hook</A><FONT COLOR=red><A NAME="709_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#561_34">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#562_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="712_16">Set_Form_Term</A></FONT> (<FONT COLOR=red><A NAME="712_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="713_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#712_16">Set_Form_Term</A>, "set_form_term"); - - <FONT COLOR=red><A NAME="716_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#712_16">Set_Form_Term</A> (<A HREF="terminal_interface-curses-forms__ads.htm#561_34">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#562_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#716_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#716_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Form_Term_Hook; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_fields.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#591_14">Redefine</A><FONT COLOR=red><A NAME="729_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#591_24">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#592_24">Flds</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Field_Array_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="732_16">Set_Frm_Fields</A></FONT> (<FONT COLOR=red><A NAME="732_32">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="733_32">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#732_16">Set_Frm_Fields</A>, "set_form_fields"); - - <FONT COLOR=red><A NAME="736_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>pragma</b> Assert (Flds (Flds'Last) = Null_Field); - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#592_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#592_24">Flds</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms__adb.htm#736_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#732_16">Set_Frm_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#591_24">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#592_24">Flds</A> (<A HREF="terminal_interface-curses-forms__ads.htm#592_24">Flds</A>'First)'Address); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#736_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#736_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Redefine; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#603_13">Fields</A><FONT COLOR=red><A NAME="751_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#603_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#604_21">Index</A> : Positive) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> - <b>is</b> - <b>use</b> <A HREF="terminal_interface-curses-forms__adb.htm#55_12">F_Array</A>; - - <b>function</b> <FONT COLOR=red><A NAME="756_16">C_Fields</A></FONT> (<FONT COLOR=red><A NAME="756_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> Pointer; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#756_16">C_Fields</A>, "form_fields"); - - P : Pointer := <A HREF="terminal_interface-curses-forms__adb.htm#756_16">C_Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#603_21">Frm</A>); - <b>begin</b> - <b>if</b> P = <b>null</b> <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-forms__ads.htm#604_21">Index</A> <b>not</b> <b>in</b> 1 .. <A HREF="terminal_interface-curses-forms__ads.htm#609_13">Field_Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#603_21">Frm</A>) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - P := P + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#604_21">Index</A>) - 1); - <b>return</b> P.<b>all</b>; - <b>end</b> <b>if</b>; - <b>end</b> Fields; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#609_13">Field_Count</A><FONT COLOR=red><A NAME="771_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#609_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> Natural - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="773_16">Count</A></FONT> (<FONT COLOR=red><A NAME="773_23">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#773_16">Count</A>, "field_count"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses-forms__adb.htm#773_16">Count</A> (<A HREF="terminal_interface-curses-forms__ads.htm#609_26">Frm</A>)); - <b>end</b> Field_Count; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#614_14">Move</A><FONT COLOR=red><A NAME="781_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#614_20">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#615_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#616_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="785_16">Move</A></FONT> (<FONT COLOR=red><A NAME="785_22">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; <FONT COLOR=red><A NAME="785_35">L</A></FONT>, <FONT COLOR=red><A NAME="785_38">C</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#785_16">Move</A>, "move_field"); - - <FONT COLOR=red><A NAME="788_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#785_16">Move</A> (<A HREF="terminal_interface-curses-forms__ads.htm#614_20">Fld</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#615_20">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#616_20">Column</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#788_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#788_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Move; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_new.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#625_13">Create</A><FONT COLOR=red><A NAME="801_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#625_21">Fields</A> : <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Field_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="803_16">NewForm</A></FONT> (<FONT COLOR=red><A NAME="803_25">Fields</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#803_16">NewForm</A>, "new_form"); - - <FONT COLOR=red><A NAME="806_7">M</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <b>begin</b> - <b>pragma</b> Assert (Fields (Fields'Last) = Null_Field); - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#625_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#625_21">Fields</A>'Last) /= <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-forms__adb.htm#806_7">M</A> := <A HREF="terminal_interface-curses-forms__adb.htm#803_16">NewForm</A> (<A HREF="terminal_interface-curses-forms__ads.htm#625_21">Fields</A> (<A HREF="terminal_interface-curses-forms__ads.htm#625_21">Fields</A>'First)'Address); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#806_7">M</A> = <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Form</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#806_7">M</A>; - <b>end</b> <b>if</b>; - <b>end</b> Create; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#636_14">Delete</A><FONT COLOR=red><A NAME="822_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#636_22">Frm</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="824_16">Free</A></FONT> (<FONT COLOR=red><A NAME="824_22">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#824_16">Free</A>, "free_form"); - - <FONT COLOR=red><A NAME="827_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#824_16">Free</A> (<A HREF="terminal_interface-curses-forms__ads.htm#636_22">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#827_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#827_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms__ads.htm#636_22">Frm</A> := <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Form</A>; - <b>end</b> Delete; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_opts.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#646_14">Set_Options</A><FONT COLOR=red><A NAME="841_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#646_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#647_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="844_16">Set_Form_Opts</A></FONT> (<FONT COLOR=red><A NAME="844_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="845_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#844_16">Set_Form_Opts</A>, "set_form_opts"); - - <FONT COLOR=red><A NAME="848_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#72_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#647_27">Options</A>); - <FONT COLOR=red><A NAME="849_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms__adb.htm#849_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#844_16">Set_Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#646_27">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#848_7">Opt</A>); - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#849_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#849_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#652_14">Switch_Options</A><FONT COLOR=red><A NAME="859_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#652_30">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#653_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#654_30">On</A> : Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="863_16">Form_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="863_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="864_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#863_16">Form_Opts_On</A>, "form_opts_on"); - <b>function</b> <FONT COLOR=red><A NAME="866_16">Form_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="866_31">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <FONT COLOR=red><A NAME="867_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#866_16">Form_Opts_Off</A>, "form_opts_off"); - - <FONT COLOR=red><A NAME="870_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <FONT COLOR=red><A NAME="871_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#72_13">FrmOS_2_CInt</A> (<A HREF="terminal_interface-curses-forms__ads.htm#653_30">Options</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#654_30">On</A> <b>then</b> - <A HREF="terminal_interface-curses-forms__adb.htm#870_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#863_16">Form_Opts_On</A> (<A HREF="terminal_interface-curses-forms__ads.htm#652_30">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#871_7">Opt</A>); - <b>else</b> - <A HREF="terminal_interface-curses-forms__adb.htm#870_7">Err</A> := <A HREF="terminal_interface-curses-forms__adb.htm#866_16">Form_Opts_Off</A> (<A HREF="terminal_interface-curses-forms__ads.htm#652_30">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#871_7">Opt</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#870_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#870_7">Err</A>); - <b>end</b> <b>if</b>; - <b>end</b> Switch_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#660_14">Get_Options</A><FONT COLOR=red><A NAME="885_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#660_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#661_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="888_16">Form_Opts</A></FONT> (<FONT COLOR=red><A NAME="888_27">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#888_16">Form_Opts</A>, "form_opts"); - - <FONT COLOR=red><A NAME="891_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#888_16">Form_Opts</A> (<A HREF="terminal_interface-curses-forms__ads.htm#660_27">Frm</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#661_27">Options</A> := <A HREF="terminal_interface-curses-forms__adb.htm#76_13">CInt_2_FrmOS</A> (<A HREF="terminal_interface-curses-forms__adb.htm#891_7">Res</A>); - <b>end</b> Get_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#665_13">Get_Options</A><FONT COLOR=red><A NAME="898_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#665_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A> := <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A> - <b>is</b> - <FONT COLOR=red><A NAME="900_7">Fos</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-forms__ads.htm#665_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#665_26">Frm</A>, <A HREF="terminal_interface-curses-forms__adb.htm#900_7">Fos</A>); - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#900_7">Fos</A>; - <b>end</b> Get_Options; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_post.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#674_14">Post</A><FONT COLOR=red><A NAME="912_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#674_20">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#675_20">Post</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="915_16">M_Post</A></FONT> (<FONT COLOR=red><A NAME="915_24">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#915_16">M_Post</A>, "post_form"); - <b>function</b> <FONT COLOR=red><A NAME="917_16">M_Unpost</A></FONT> (<FONT COLOR=red><A NAME="917_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#917_16">M_Unpost</A>, "unpost_form"); - - <FONT COLOR=red><A NAME="920_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#675_20">Post</A> <b>then</b> - <A HREF="terminal_interface-curses-forms__adb.htm#920_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#915_16">M_Post</A> (<A HREF="terminal_interface-curses-forms__ads.htm#674_20">Frm</A>); - <b>else</b> - <A HREF="terminal_interface-curses-forms__adb.htm#920_7">Res</A> := <A HREF="terminal_interface-curses-forms__adb.htm#917_16">M_Unpost</A> (<A HREF="terminal_interface-curses-forms__ads.htm#674_20">Frm</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#920_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#920_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Post; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_cursor.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#685_14">Position_Cursor</A><FONT COLOR=red><A NAME="938_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#685_31">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="940_16">Pos_Form_Cursor</A></FONT> (<FONT COLOR=red><A NAME="940_33">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#940_16">Pos_Form_Cursor</A>, "pos_form_cursor"); - - <FONT COLOR=red><A NAME="943_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#940_16">Pos_Form_Cursor</A> (<A HREF="terminal_interface-curses-forms__ads.htm#685_31">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#943_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#943_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Position_Cursor; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_data.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#694_13">Data_Ahead</A><FONT COLOR=red><A NAME="956_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#694_25">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="958_16">Ahead</A></FONT> (<FONT COLOR=red><A NAME="958_23">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#958_16">Ahead</A>, "data_ahead"); - - <FONT COLOR=red><A NAME="961_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#958_16">Ahead</A> (<A HREF="terminal_interface-curses-forms__ads.htm#694_25">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#961_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Data_Ahead; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#699_13">Data_Behind</A><FONT COLOR=red><A NAME="972_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#699_26">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="974_16">Behind</A></FONT> (<FONT COLOR=red><A NAME="974_24">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#974_16">Behind</A>, "data_behind"); - - <FONT COLOR=red><A NAME="977_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#974_16">Behind</A> (<A HREF="terminal_interface-curses-forms__ads.htm#699_26">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#977_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Data_Behind; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_driver.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#713_13">Driver</A><FONT COLOR=red><A NAME="992_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#713_21">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#714_21">Key</A> : <A HREF="terminal_interface-curses__ads.htm#67_9">Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#707_9">Driver_Result</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="995_16">Frm_Driver</A></FONT> (<FONT COLOR=red><A NAME="995_28">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; <FONT COLOR=red><A NAME="995_40">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#995_16">Frm_Driver</A>, "form_driver"); - - <FONT COLOR=red><A NAME="998_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#995_16">Frm_Driver</A> (<A HREF="terminal_interface-curses-forms__ads.htm#713_21">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#714_21">Key</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#998_7">R</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#998_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#88_4">E_Unknown_Command</A> <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#709_27">Unknown_Request</A>; - <b>elsif</b> <A HREF="terminal_interface-curses-forms__adb.htm#998_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#93_4">E_Invalid_Field</A> <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#710_27">Invalid_Field</A>; - <b>elsif</b> <A HREF="terminal_interface-curses-forms__adb.htm#998_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#92_4">E_Request_Denied</A> <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#708_27">Request_Denied</A>; - <b>else</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#998_7">R</A>); - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#707_27">Form_Ok</A>; - <b>end</b> <b>if</b>; - <b>else</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#707_27">Form_Ok</A>; - <b>end</b> <b>if</b>; - <b>end</b> Driver; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_page.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#725_14">Set_Current</A><FONT COLOR=red><A NAME="1022_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#725_27">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#726_27">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1025_16">Set_Current_Fld</A></FONT> (<FONT COLOR=red><A NAME="1025_33">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; <FONT COLOR=red><A NAME="1025_45">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1025_16">Set_Current_Fld</A>, "set_current_field"); - - <FONT COLOR=red><A NAME="1028_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1025_16">Set_Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#725_27">Frm</A>, <A HREF="terminal_interface-curses-forms__ads.htm#726_27">Fld</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1028_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1028_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Current; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#731_13">Current</A><FONT COLOR=red><A NAME="1037_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#731_22">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1039_16">Current_Fld</A></FONT> (<FONT COLOR=red><A NAME="1039_29">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1039_16">Current_Fld</A>, "current_field"); - - <FONT COLOR=red><A NAME="1042_7">Fld</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1039_16">Current_Fld</A> (<A HREF="terminal_interface-curses-forms__ads.htm#731_22">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1042_7">Fld</A> = <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-forms__adb.htm#1042_7">Fld</A>; - <b>end</b> Current; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#736_14">Set_Page</A><FONT COLOR=red><A NAME="1052_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#736_24">Frm</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#737_24">Page</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Page_Number</A> := <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Page_Number</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1055_16">Set_Frm_Page</A></FONT> (<FONT COLOR=red><A NAME="1055_30">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>; <FONT COLOR=red><A NAME="1055_42">Pg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1055_16">Set_Frm_Page</A>, "set_form_page"); - - <FONT COLOR=red><A NAME="1058_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1055_16">Set_Frm_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#736_24">Frm</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-forms__ads.htm#737_24">Page</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1058_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1058_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Page; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#742_13">Page</A><FONT COLOR=red><A NAME="1067_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#742_19">Frm</A> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Page_Number</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1069_16">Get_Page</A></FONT> (<FONT COLOR=red><A NAME="1069_26">Frm</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Form</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1069_16">Get_Page</A>, "form_page"); - - <FONT COLOR=red><A NAME="1072_7">P</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1069_16">Get_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#742_19">Frm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1072_7">P</A> < 0 <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>else</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Page_Number</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1072_7">P</A>); - <b>end</b> <b>if</b>; - <b>end</b> Page; - - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#747_13">Get_Index</A><FONT COLOR=red><A NAME="1081_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#747_24">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> Positive - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1083_16">Get_Fieldindex</A></FONT> (<FONT COLOR=red><A NAME="1083_32">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1083_16">Get_Fieldindex</A>, "field_index"); - - <FONT COLOR=red><A NAME="1086_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1083_16">Get_Fieldindex</A> (<A HREF="terminal_interface-curses-forms__ads.htm#747_24">Fld</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1086_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-forms__ads.htm#288_4">Form_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> Positive (Natural (<A HREF="terminal_interface-curses-forms__adb.htm#1086_7">Res</A>) + Positive'First); - <b>end</b> Get_Index; - - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | man page form_new_page.3x</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#759_14">Set_New_Page</A><FONT COLOR=red><A NAME="1101_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#759_28">Fld</A> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#760_28">New_Page</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1104_16">Set_Page</A></FONT> (<FONT COLOR=red><A NAME="1104_26">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>; <FONT COLOR=red><A NAME="1104_39">Flg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1104_16">Set_Page</A>, "set_new_page"); - - <FONT COLOR=red><A NAME="1107_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1104_16">Set_Page</A> (<A HREF="terminal_interface-curses-forms__ads.htm#759_28">Fld</A>, Boolean'Pos (<A HREF="terminal_interface-curses-forms__ads.htm#760_28">New_Page</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1107_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1107_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_New_Page; - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#765_13">Is_New_Page</A><FONT COLOR=red><A NAME="1116_13"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#765_26">Fld</A> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1118_16">Is_New</A></FONT> (<FONT COLOR=red><A NAME="1118_24">Fld</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Field</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-forms__adb.htm#1118_16">Is_New</A>, "new_page"); - - <FONT COLOR=red><A NAME="1121_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-forms__adb.htm#1118_16">Is_New</A> (<A HREF="terminal_interface-curses-forms__ads.htm#765_26">Fld</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__adb.htm#1121_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Is_New_Page; - - <b>procedure</b> <A HREF="terminal_interface-curses-forms__ads.htm#137_14">Free</A><FONT COLOR=red><A NAME="1130_14"></A></FONT> (<A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Field_Array_Access</A>; - <A HREF="terminal_interface-curses-forms__ads.htm#138_20">Free_Fields</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="1133_17">Release</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation - (<A HREF="terminal_interface-curses-forms__ads.htm#132_9">Field_Array</A>, <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Field_Array_Access</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-forms__ads.htm#138_20">Free_Fields</A> <b>then</b> - <b>for</b> <FONT COLOR=red><A NAME="1137_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A>'First .. (<A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A>'Last - 1) <b>loop</b> - <b>if</b> (<A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1137_14">I</A>) /= <A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A>) <b>then</b> - <A HREF="terminal_interface-curses-forms__ads.htm#636_14">Delete</A> (<A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A> (<A HREF="terminal_interface-curses-forms__adb.htm#1137_14">I</A>)); - <b>end</b> <b>if</b>; - <b>end</b> <b>loop</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-forms__adb.htm#1133_17">Release</A> (<A HREF="terminal_interface-curses-forms__ads.htm#137_20">FA</A>); - <b>end</b> Free; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#102_13">Default_Field_Options</A><FONT COLOR=red><A NAME="1148_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field_Option_Set</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#665_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#58_4">Null_Field</A>); - <b>end</b> Default_Field_Options; - - <b>function</b> <A HREF="terminal_interface-curses-forms__ads.htm#126_13">Default_Form_Options</A><FONT COLOR=red><A NAME="1154_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form_Option_Set</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-forms__ads.htm#665_13">Get_Options</A> (<A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Form</A>); - <b>end</b> Default_Form_Options; - -<b>end</b> Terminal_Interface.Curses.Forms; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__ads.htm deleted file mode 100644 index a28c4ec..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-forms__ads.htm +++ /dev/null @@ -1,783 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Form --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.24 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- form binding.</EM></FONT> -<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> -<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> System; -<b>with</b> Ada.Characters.Latin_1; - -<b>package</b> Terminal_Interface.Curses.Forms <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms); - <b>pragma</b> Linker_Options ("-lform"); - <b>pragma</b> Linker_Options ("-lncurses"); - - Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; - - <b>type</b> <FONT COLOR=red><A NAME="56_9">Field</A></FONT> <b>is</b> <b>private</b>; - <b>type</b> Form <b>is</b> <b>private</b>; - - <FONT COLOR=red><A NAME="59_4">Null_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; - Null_Form : <b>constant</b> Form; - - <b>type</b> Field_Justification <b>is</b> (None, - Left, - Center, - Right); - - <b>pragma</b> Warnings (Off); - <b>type</b> Field_Option_Set <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="70_10">Visible</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="71_10">Active</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="72_10">Public</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="73_10">Edit</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="74_10">Wrap</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="75_10">Blank</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="76_10">Auto_Skip</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="77_10">Null_Ok</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="78_10">Pass_Ok</A></FONT> : Boolean; - Static : Boolean; - <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#67_9">;</A> - <b>pragma</b> Pack (Field_Option_Set); - <b>pragma</b> Convention (C, Field_Option_Set); - - <b>for</b> Field_Option_Set <b>use</b> - <b>record</b> - Visible <b>at</b> 0 <b>range</b> 0 .. 0; - Active <b>at</b> 0 <b>range</b> 1 .. 1; - Public <b>at</b> 0 <b>range</b> 2 .. 2; - Edit <b>at</b> 0 <b>range</b> 3 .. 3; - Wrap <b>at</b> 0 <b>range</b> 4 .. 4; - Blank <b>at</b> 0 <b>range</b> 5 .. 5; - Auto_Skip <b>at</b> 0 <b>range</b> 6 .. 6; - Null_Ok <b>at</b> 0 <b>range</b> 7 .. 7; - Pass_Ok <b>at</b> 0 <b>range</b> 8 .. 8; - Static <b>at</b> 0 <b>range</b> 9 .. 9; - <b>end</b> <b>record</b>; - <b>for</b> Field_Option_Set'Size <b>use</b> 32; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> - - <b>pragma</b> Warnings (On); - - <b>function</b> Default_Field_Options <b>return</b> Field_Option_Set; - <FONT COLOR=green><EM>-- The initial defaults for the field options.</EM></FONT> - <b>pragma</b> Inline (Default_Field_Options); - - <b>pragma</b> Warnings (Off); - <b>type</b> Form_Option_Set <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="110_10">NL_Overload</A></FONT> : Boolean; - BS_Overload : Boolean; - <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#107_9">;</A> - <b>pragma</b> Pack (Form_Option_Set); - <b>pragma</b> Convention (C, Form_Option_Set); - - <b>for</b> Form_Option_Set <b>use</b> - <b>record</b> - NL_Overload <b>at</b> 0 <b>range</b> 0 .. 0; - BS_Overload <b>at</b> 0 <b>range</b> 1 .. 1; - <b>end</b> <b>record</b>; - <b>for</b> Form_Option_Set'Size <b>use</b> 32; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> - - <b>pragma</b> Warnings (On); - - <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set; - <FONT COLOR=green><EM>-- The initial defaults for the form options.</EM></FONT> - <b>pragma</b> Inline (Default_Form_Options); - - <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural; - - <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Field; - <b>pragma</b> Convention (C, Field_Array); - - <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array; - - <b>procedure</b> Free (<FONT COLOR=red><A NAME="138_20">FA</A></FONT> : <b>in</b> <b>out</b> Field_Array_Access; - Free_Fields : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- Release the memory for an allocated field array</EM></FONT> - <FONT COLOR=green><EM>-- If Free_Fields is True, call Delete() for all the fields in</EM></FONT> - <FONT COLOR=green><EM>-- the array.</EM></FONT> - - <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57); - - <FONT COLOR=green><EM>-- The prefix F_ stands for "Form Request"</EM></FONT> - <FONT COLOR=red><A NAME="147_4">F_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 1; - <FONT COLOR=red><A NAME="148_4">F_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 2; - <FONT COLOR=red><A NAME="149_4">F_First_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 3; - F_Last_Page : <b>constant</b> Form_Request_Code := Key_Max + 4; - - <FONT COLOR=red><A NAME="152_4">F_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 5; - <FONT COLOR=red><A NAME="153_4">F_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 6; - <FONT COLOR=red><A NAME="154_4">F_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 7; - <FONT COLOR=red><A NAME="155_4">F_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 8; - <FONT COLOR=red><A NAME="156_4">F_Sorted_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 9; - <FONT COLOR=red><A NAME="157_4">F_Sorted_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 10; - <FONT COLOR=red><A NAME="158_4">F_Sorted_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 11; - <FONT COLOR=red><A NAME="159_4">F_Sorted_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 12; - <FONT COLOR=red><A NAME="160_4">F_Left_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 13; - <FONT COLOR=red><A NAME="161_4">F_Right_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 14; - <FONT COLOR=red><A NAME="162_4">F_Up_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 15; - F_Down_Field : <b>constant</b> Form_Request_Code := Key_Max + 16; - - <FONT COLOR=red><A NAME="165_4">F_Next_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 17; - <FONT COLOR=red><A NAME="166_4">F_Previous_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 18; - <FONT COLOR=red><A NAME="167_4">F_Next_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 19; - <FONT COLOR=red><A NAME="168_4">F_Previous_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 20; - <FONT COLOR=red><A NAME="169_4">F_Next_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 21; - <FONT COLOR=red><A NAME="170_4">F_Previous_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 22; - <FONT COLOR=red><A NAME="171_4">F_Begin_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 23; - <FONT COLOR=red><A NAME="172_4">F_End_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 24; - <FONT COLOR=red><A NAME="173_4">F_Begin_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 25; - <FONT COLOR=red><A NAME="174_4">F_End_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 26; - <FONT COLOR=red><A NAME="175_4">F_Left_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 27; - <FONT COLOR=red><A NAME="176_4">F_Right_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 28; - <FONT COLOR=red><A NAME="177_4">F_Up_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 29; - F_Down_Char : <b>constant</b> Form_Request_Code := Key_Max + 30; - - <FONT COLOR=red><A NAME="180_4">F_New_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 31; - <FONT COLOR=red><A NAME="181_4">F_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 32; - <FONT COLOR=red><A NAME="182_4">F_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 33; - <FONT COLOR=red><A NAME="183_4">F_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 34; - <FONT COLOR=red><A NAME="184_4">F_Delete_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 35; - <FONT COLOR=red><A NAME="185_4">F_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 36; - <FONT COLOR=red><A NAME="186_4">F_Delete_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 37; - <FONT COLOR=red><A NAME="187_4">F_Clear_EOL</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 38; - <FONT COLOR=red><A NAME="188_4">F_Clear_EOF</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 39; - <FONT COLOR=red><A NAME="189_4">F_Clear_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 40; - <FONT COLOR=red><A NAME="190_4">F_Overlay_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 41; - F_Insert_Mode : <b>constant</b> Form_Request_Code := Key_Max + 42; - - <FONT COLOR=green><EM>-- Vertical Scrolling</EM></FONT> - <FONT COLOR=red><A NAME="194_4">F_ScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 43; - <FONT COLOR=red><A NAME="195_4">F_ScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 44; - <FONT COLOR=red><A NAME="196_4">F_ScrollForward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 45; - <FONT COLOR=red><A NAME="197_4">F_ScrollBackward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 46; - <FONT COLOR=red><A NAME="198_4">F_ScrollForward_HalfPage</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 47; - F_ScrollBackward_HalfPage : <b>constant</b> Form_Request_Code := Key_Max + 48; - - <FONT COLOR=green><EM>-- Horizontal Scrolling</EM></FONT> - <FONT COLOR=red><A NAME="202_4">F_HScrollForward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 49; - <FONT COLOR=red><A NAME="203_4">F_HScrollBackward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 50; - <FONT COLOR=red><A NAME="204_4">F_HScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 51; - <FONT COLOR=red><A NAME="205_4">F_HScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 52; - <FONT COLOR=red><A NAME="206_4">F_HScrollForward_HalfLine</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 53; - F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54; - - <FONT COLOR=red><A NAME="209_4">F_Validate_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 55; - <FONT COLOR=red><A NAME="210_4">F_Next_Choice</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 56; - F_Previous_Choice : <b>constant</b> Form_Request_Code := Key_Max + 57; - - <FONT COLOR=green><EM>-- For those who like the old 'C' style request names</EM></FONT> - <FONT COLOR=red><A NAME="214_4">REQ_NEXT_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#147_4">F_Next_Page</A>; - <FONT COLOR=red><A NAME="215_4">REQ_PREV_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#148_4">F_Previous_Page</A>; - <FONT COLOR=red><A NAME="216_4">REQ_FIRST_PAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#149_4">F_First_Page</A>; - REQ_LAST_PAGE : Form_Request_Code <b>renames</b> F_Last_Page; - - <FONT COLOR=red><A NAME="219_4">REQ_NEXT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#152_4">F_Next_Field</A>; - <FONT COLOR=red><A NAME="220_4">REQ_PREV_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#153_4">F_Previous_Field</A>; - <FONT COLOR=red><A NAME="221_4">REQ_FIRST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#154_4">F_First_Field</A>; - <FONT COLOR=red><A NAME="222_4">REQ_LAST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#155_4">F_Last_Field</A>; - <FONT COLOR=red><A NAME="223_4">REQ_SNEXT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#156_4">F_Sorted_Next_Field</A>; - <FONT COLOR=red><A NAME="224_4">REQ_SPREV_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#157_4">F_Sorted_Previous_Field</A>; - <FONT COLOR=red><A NAME="225_4">REQ_SFIRST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#158_4">F_Sorted_First_Field</A>; - <FONT COLOR=red><A NAME="226_4">REQ_SLAST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#159_4">F_Sorted_Last_Field</A>; - <FONT COLOR=red><A NAME="227_4">REQ_LEFT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#160_4">F_Left_Field</A>; - <FONT COLOR=red><A NAME="228_4">REQ_RIGHT_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#161_4">F_Right_Field</A>; - <FONT COLOR=red><A NAME="229_4">REQ_UP_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#162_4">F_Up_Field</A>; - REQ_DOWN_FIELD : Form_Request_Code <b>renames</b> F_Down_Field; - - <FONT COLOR=red><A NAME="232_4">REQ_NEXT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#165_4">F_Next_Char</A>; - <FONT COLOR=red><A NAME="233_4">REQ_PREV_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#166_4">F_Previous_Char</A>; - <FONT COLOR=red><A NAME="234_4">REQ_NEXT_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#167_4">F_Next_Line</A>; - <FONT COLOR=red><A NAME="235_4">REQ_PREV_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#168_4">F_Previous_Line</A>; - <FONT COLOR=red><A NAME="236_4">REQ_NEXT_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#169_4">F_Next_Word</A>; - <FONT COLOR=red><A NAME="237_4">REQ_PREV_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#170_4">F_Previous_Word</A>; - <FONT COLOR=red><A NAME="238_4">REQ_BEG_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#171_4">F_Begin_Field</A>; - <FONT COLOR=red><A NAME="239_4">REQ_END_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#172_4">F_End_Field</A>; - <FONT COLOR=red><A NAME="240_4">REQ_BEG_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#173_4">F_Begin_Line</A>; - <FONT COLOR=red><A NAME="241_4">REQ_END_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#174_4">F_End_Line</A>; - <FONT COLOR=red><A NAME="242_4">REQ_LEFT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#175_4">F_Left_Char</A>; - <FONT COLOR=red><A NAME="243_4">REQ_RIGHT_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#176_4">F_Right_Char</A>; - <FONT COLOR=red><A NAME="244_4">REQ_UP_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#177_4">F_Up_Char</A>; - REQ_DOWN_CHAR : Form_Request_Code <b>renames</b> F_Down_Char; - - <FONT COLOR=red><A NAME="247_4">REQ_NEW_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#180_4">F_New_Line</A>; - <FONT COLOR=red><A NAME="248_4">REQ_INS_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#181_4">F_Insert_Char</A>; - <FONT COLOR=red><A NAME="249_4">REQ_INS_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#182_4">F_Insert_Line</A>; - <FONT COLOR=red><A NAME="250_4">REQ_DEL_CHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#183_4">F_Delete_Char</A>; - <FONT COLOR=red><A NAME="251_4">REQ_DEL_PREV</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#184_4">F_Delete_Previous</A>; - <FONT COLOR=red><A NAME="252_4">REQ_DEL_LINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#185_4">F_Delete_Line</A>; - <FONT COLOR=red><A NAME="253_4">REQ_DEL_WORD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#186_4">F_Delete_Word</A>; - <FONT COLOR=red><A NAME="254_4">REQ_CLR_EOL</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#187_4">F_Clear_EOL</A>; - <FONT COLOR=red><A NAME="255_4">REQ_CLR_EOF</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#188_4">F_Clear_EOF</A>; - <FONT COLOR=red><A NAME="256_4">REQ_CLR_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#189_4">F_Clear_Field</A>; - <FONT COLOR=red><A NAME="257_4">REQ_OVL_MODE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#190_4">F_Overlay_Mode</A>; - REQ_INS_MODE : Form_Request_Code <b>renames</b> F_Insert_Mode; - - <FONT COLOR=red><A NAME="260_4">REQ_SCR_FLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#194_4">F_ScrollForward_Line</A>; - <FONT COLOR=red><A NAME="261_4">REQ_SCR_BLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#195_4">F_ScrollBackward_Line</A>; - <FONT COLOR=red><A NAME="262_4">REQ_SCR_FPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#196_4">F_ScrollForward_Page</A>; - <FONT COLOR=red><A NAME="263_4">REQ_SCR_BPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#197_4">F_ScrollBackward_Page</A>; - <FONT COLOR=red><A NAME="264_4">REQ_SCR_FHPAGE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#198_4">F_ScrollForward_HalfPage</A>; - REQ_SCR_BHPAGE : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage; - - <FONT COLOR=red><A NAME="267_4">REQ_SCR_FCHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#202_4">F_HScrollForward_Char</A>; - <FONT COLOR=red><A NAME="268_4">REQ_SCR_BCHAR</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#203_4">F_HScrollBackward_Char</A>; - <FONT COLOR=red><A NAME="269_4">REQ_SCR_HFLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#204_4">F_HScrollForward_Line</A>; - <FONT COLOR=red><A NAME="270_4">REQ_SCR_HBLINE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#205_4">F_HScrollBackward_Line</A>; - <FONT COLOR=red><A NAME="271_4">REQ_SCR_HFHALF</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#206_4">F_HScrollForward_HalfLine</A>; - REQ_SCR_HBHALF : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine; - - <FONT COLOR=red><A NAME="274_4">REQ_VALIDATION</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#209_4">F_Validate_Field</A>; - <FONT COLOR=red><A NAME="275_4">REQ_NEXT_CHOICE</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#210_4">F_Next_Choice</A>; - REQ_PREV_CHOICE : Form_Request_Code <b>renames</b> F_Previous_Choice; - - - <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="279_28">Key</A></FONT> : <b>in</b> Form_Request_Code; - Name : <b>out</b> String); - - <b>function</b> Request_Name (Key : Form_Request_Code) <b>return</b> String; - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Request_Name); - - <FONT COLOR=green><EM>------------------</EM></FONT> - <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> - <FONT COLOR=green><EM>------------------</EM></FONT> - Form_Exception : <b>exception</b>; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>function</b> Create (<FONT COLOR=red><A NAME="296_21">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="297_21">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="298_21">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="299_21">Left</A></FONT> : Column_Position; - <FONT COLOR=red><A NAME="300_21">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A> := 0; - More_Buffers : Buffer_Number := Buffer_Number'First) - <b>return</b> Field; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> - <FONT COLOR=green><EM>-- An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>function</b> New_Field (<FONT COLOR=red><A NAME="307_24">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="308_24">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="309_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="310_24">Left</A></FONT> : Column_Position; - <FONT COLOR=red><A NAME="311_24">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A> := 0; - More_Buffers : Buffer_Number := Buffer_Number'First) - <b>return</b> Field <b>renames</b> Create; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> - <b>pragma</b> Inline (New_Field); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT> - <FONT COLOR=green><EM>-- Reset Fld to Null_Field</EM></FONT> - <FONT COLOR=green><EM>-- An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> - <b>function</b> Duplicate (<FONT COLOR=red><A NAME="324_24">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>; - <FONT COLOR=red><A NAME="325_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Left : Column_Position) <b>return</b> Field; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT> - <b>pragma</b> Inline (Duplicate); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> - <b>function</b> Link (<FONT COLOR=red><A NAME="331_19">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>; - <FONT COLOR=red><A NAME="332_19">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Left : Column_Position) <b>return</b> Field; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT> - <b>pragma</b> Inline (Link); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> - <b>procedure</b> Set_Justification (<FONT COLOR=red><A NAME="342_33">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field</A>; - Just : <b>in</b> Field_Justification := None); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT> - <b>pragma</b> Inline (Set_Justification); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> - <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT> - <b>pragma</b> Inline (Get_Justification); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> - <b>procedure</b> Set_Buffer - (<FONT COLOR=red><A NAME="358_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>; - <FONT COLOR=red><A NAME="359_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; - Str : <b>in</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT> - <FONT COLOR=green><EM>-- Not inlined</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> - <b>procedure</b> Get_Buffer - (<FONT COLOR=red><A NAME="366_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>; - <FONT COLOR=red><A NAME="367_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; - Str : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> - - <b>function</b> Get_Buffer - (<FONT COLOR=red><A NAME="372_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>; - Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same but as function</EM></FONT> - <b>pragma</b> Inline (Get_Buffer); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> - <b>procedure</b> Set_Status (<FONT COLOR=red><A NAME="379_26">Fld</A></FONT> : <b>in</b> Field; - Status : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT> - <b>pragma</b> Inline (Set_Status); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> - <b>function</b> Changed (Fld : Field) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT> - <b>pragma</b> Inline (Changed); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> - <b>procedure</b> Set_Maximum_Size (<FONT COLOR=red><A NAME="390_32">Fld</A></FONT> : <b>in</b> Field; - Max : <b>in</b> Natural := 0); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT> - <b>pragma</b> Inline (Set_Maximum_Size); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> - <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="400_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>; - Options : <b>in</b> Field_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT> - <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> - <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="406_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>; - <FONT COLOR=red><A NAME="407_30">Options</A></FONT> : <b>in</b> Field_Option_Set; - On : Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: field_opts_off()</EM></FONT> - <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> - <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="414_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>; - Options : <b>out</b> Field_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> - <b>function</b> Get_Options (Fld : Field := Null_Field) - <b>return</b> Field_Option_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> - <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> - <b>procedure</b> Set_Foreground - (<FONT COLOR=red><A NAME="430_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - <FONT COLOR=red><A NAME="431_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT> - <b>pragma</b> Inline (Set_Foreground); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> - <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="437_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - Fore : <b>out</b> Character_Attribute_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> - <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="442_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - <FONT COLOR=red><A NAME="443_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - Color : <b>out</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> - <b>pragma</b> Inline (Foreground); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> - <b>procedure</b> Set_Background - (<FONT COLOR=red><A NAME="450_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - <FONT COLOR=red><A NAME="451_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT> - <b>pragma</b> Inline (Set_Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> - <b>procedure</b> Background (<FONT COLOR=red><A NAME="457_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - Back : <b>out</b> Character_Attribute_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> - <b>procedure</b> Background (<FONT COLOR=red><A NAME="462_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Field</A>; - <FONT COLOR=red><A NAME="463_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - Color : <b>out</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> - <b>pragma</b> Inline (Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> - <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="469_33">Fld</A></FONT> : <b>in</b> Field; - Pad : <b>in</b> Character := Space); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT> - <b>pragma</b> Inline (Set_Pad_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> - <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="475_29">Fld</A></FONT> : <b>in</b> Field; - Pad : <b>out</b> Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT> - <b>pragma</b> Inline (Pad_Character); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> - <b>procedure</b> Info (<FONT COLOR=red><A NAME="485_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Field</A>; - <FONT COLOR=red><A NAME="486_20">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="487_20">Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="488_20">First_Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="489_20">First_Column</A></FONT> : <b>out</b> Column_Position; - <FONT COLOR=red><A NAME="490_20">Off_Screen</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A>; - Additional_Buffers : <b>out</b> Buffer_Number); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT> - <b>pragma</b> Inline (Info); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> - <b>procedure</b> Dynamic_Info (<FONT COLOR=red><A NAME="496_28">Fld</A></FONT> : <b>in</b> Field; - <FONT COLOR=red><A NAME="497_28">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="498_28">Columns</A></FONT> : <b>out</b> Column_Count; - Max : <b>out</b> Natural); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT> - <b>pragma</b> Inline (Dynamic_Info); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> - <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="508_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Form</A>; - Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT> - <b>pragma</b> Inline (Set_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> - <b>function</b> Get_Window (Frm : Form) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT> - <b>pragma</b> Inline (Get_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> - <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="519_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Form</A>; - Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT> - <b>pragma</b> Inline (Set_Sub_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> - <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT> - <b>pragma</b> Inline (Get_Sub_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> - <b>procedure</b> Scale (<FONT COLOR=red><A NAME="530_21">Frm</A></FONT> : <b>in</b> Form; - <FONT COLOR=red><A NAME="531_21">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/form_win.3x.html">scale_form()</A></EM></FONT> - <b>pragma</b> Inline (Scale); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form); - <b>pragma</b> Convention (C, Form_Hook_Function); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> - <b>procedure</b> Set_Field_Init_Hook (<FONT COLOR=red><A NAME="544_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>; - Proc : <b>in</b> Form_Hook_Function); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT> - <b>pragma</b> Inline (Set_Field_Init_Hook); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> - <b>procedure</b> Set_Field_Term_Hook (<FONT COLOR=red><A NAME="550_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>; - Proc : <b>in</b> Form_Hook_Function); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT> - <b>pragma</b> Inline (Set_Field_Term_Hook); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> - <b>procedure</b> Set_Form_Init_Hook (<FONT COLOR=red><A NAME="556_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>; - Proc : <b>in</b> Form_Hook_Function); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT> - <b>pragma</b> Inline (Set_Form_Init_Hook); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> - <b>procedure</b> Set_Form_Term_Hook (<FONT COLOR=red><A NAME="562_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>; - Proc : <b>in</b> Form_Hook_Function); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT> - <b>pragma</b> Inline (Set_Form_Term_Hook); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> - <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT> - <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> - <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT> - <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> - <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT> - <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> - <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT> - <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term"); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> - <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="592_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Form</A>; - Flds : <b>in</b> Field_Array_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> - <b>pragma</b> Inline (Redefine); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> - <b>procedure</b> Set_Fields (<FONT COLOR=red><A NAME="598_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Form</A>; - Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> - <b>pragma</b> Inline (Set_Fields); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> - <b>function</b> Fields (<FONT COLOR=red><A NAME="604_21">Frm</A></FONT> : Form; - Index : Positive) <b>return</b> Field; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT> - <b>pragma</b> Inline (Fields); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> - <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT> - <b>pragma</b> Inline (Field_Count); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> - <b>procedure</b> Move (<FONT COLOR=red><A NAME="615_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>; - <FONT COLOR=red><A NAME="616_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT> - <b>pragma</b> Inline (Move); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> - <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> - <b>pragma</b> Inline (Create); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> - <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form - <b>renames</b> Create; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> - <b>pragma</b> Inline (New_Form); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> - <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT> - <FONT COLOR=green><EM>-- Reset Frm to Null_Form</EM></FONT> - <b>pragma</b> Inline (Delete); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> - <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="647_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>; - Options : <b>in</b> Form_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT> - <b>pragma</b> Inline (Set_Options); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> - <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="653_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>; - <FONT COLOR=red><A NAME="654_30">Options</A></FONT> : <b>in</b> Form_Option_Set; - On : Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: form_opts_off()</EM></FONT> - <b>pragma</b> Inline (Switch_Options); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> - <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="661_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>; - Options : <b>out</b> Form_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> - <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> - <b>pragma</b> Inline (Get_Options); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> - <b>procedure</b> Post (<FONT COLOR=red><A NAME="675_20">Frm</A></FONT> : <b>in</b> Form; - Post : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: unpost_form()</EM></FONT> - <b>pragma</b> Inline (Post); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> - <b>procedure</b> Position_Cursor (Frm : Form); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT> - <b>pragma</b> Inline (Position_Cursor); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> - <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT> - <b>pragma</b> Inline (Data_Ahead); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> - <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT> - <b>pragma</b> Inline (Data_Behind); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="708_27">Form_Ok</A></FONT>, - <FONT COLOR=red><A NAME="709_27">Request_Denied</A></FONT>, - <FONT COLOR=red><A NAME="710_27">Unknown_Request</A></FONT>, - Invalid_Field); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> - <b>function</b> Driver (<FONT COLOR=red><A NAME="714_21">Frm</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#67_9">Form</A>; - Key : Key_Code) <b>return</b> Driver_Result; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT> - <FONT COLOR=green><EM>-- Driver not inlined</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Page_Number <b>is</b> <b>new</b> Natural; - - <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> - <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="726_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Form</A>; - Fld : <b>in</b> Field); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT> - <b>pragma</b> Inline (Set_Current); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> - <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT> - <b>pragma</b> Inline (Current); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> - <b>procedure</b> Set_Page (<FONT COLOR=red><A NAME="737_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Form</A>; - Page : <b>in</b> Page_Number := Page_Number'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT> - <b>pragma</b> Inline (Set_Page); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> - <b>function</b> Page (Frm : Form) <b>return</b> Page_Number; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT> - <b>pragma</b> Inline (Page); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> - <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT> - <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of fields</EM></FONT> - <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> - <FONT COLOR=green><EM>-- level call.</EM></FONT> - <b>pragma</b> Inline (Get_Index); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> - <b>procedure</b> Set_New_Page (<FONT COLOR=red><A NAME="760_28">Fld</A></FONT> : <b>in</b> Field; - New_Page : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT> - <b>pragma</b> Inline (Set_New_Page); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> - <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT> - <b>pragma</b> Inline (Is_New_Page); - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>private</b> - <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; - <b>type</b> Form <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; - - <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := 0; - Null_Form : <b>constant</b> Form := 0; - -<b>end</b> Terminal_Interface.Curses.Forms; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm deleted file mode 100644 index fc3aa79..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__adb.htm +++ /dev/null @@ -1,82 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus-item_user_data.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-item_user_data.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Item_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Menus.<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#45_41">Item_User_Data</A> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#57_14">Set_User_Data</A><FONT COLOR=red><A NAME="48_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#57_29">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#58_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="51_16">Set_Item_Userptr</A></FONT> (<FONT COLOR=red><A NAME="51_34">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <FONT COLOR=red><A NAME="52_34">Addr</A></FONT> : <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#51_16">Set_Item_Userptr</A>, "set_item_userptr"); - - <FONT COLOR=red><A NAME="55_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#51_16">Set_Item_Userptr</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#57_29">Itm</A>, <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#58_29">Data</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#55_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#55_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_User_Data; - - <b>function</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#68_13">Get_User_Data</A><FONT COLOR=red><A NAME="62_13"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#68_28">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">User_Access</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="64_16">Item_Userptr</A></FONT> (<FONT COLOR=red><A NAME="64_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">User_Access</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#64_16">Item_Userptr</A>, "item_userptr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus-item_user_data__adb.htm#64_16">Item_Userptr</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#68_28">Itm</A>); - <b>end</b> Get_User_Data; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#63_14">Get_User_Data</A><FONT COLOR=red><A NAME="70_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#63_29">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#64_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#64_29">Data</A> := <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#68_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#63_29">Itm</A>); - <b>end</b> Get_User_Data; - -<b>end</b> Terminal_Interface.Curses.Menus.Item_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm deleted file mode 100644 index 9249902..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm +++ /dev/null @@ -1,80 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus-item_user_data.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-item_user_data.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Item_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="44_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; - <b>type</b> <A HREF="terminal_interface__ads.htm#41_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-menus__ads.htm#48_35">;</A> -<b>package</b> Terminal_Interface.Curses.Menus.Item_User_Data <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data); - - <FONT COLOR=green><EM>-- The binding uses the same user pointer for menu items</EM></FONT> - <FONT COLOR=green><EM>-- as the low level C implementation. So you can safely</EM></FONT> - <FONT COLOR=green><EM>-- read or write the user pointer also with the C routines</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_userptr.3x.html">mitem_userptr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="58_29">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">Item</A>; - Data : <b>in</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">set_item_userptr</A></EM></FONT> - <b>pragma</b> Inline (Set_User_Data); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="64_29">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-item_user_data__ads.htm#44_9">Item</A>; - Data : <b>out</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">item_userptr</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>function</b> Get_User_Data (Itm : <b>in</b> Item) <b>return</b> User_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_userptr.3x.html">item_userptr</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Get_User_Data); - -<b>end</b> Terminal_Interface.Curses.Menus.Item_User_Data; - -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm deleted file mode 100644 index 5bd10d3..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__adb.htm +++ /dev/null @@ -1,81 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus-menu_user_data.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-menu_user_data.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Menu_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Menus.<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#45_41">Menu_User_Data</A> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#53_14">Set_User_Data</A><FONT COLOR=red><A NAME="47_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#53_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#54_29">Data</A> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="50_16">Set_Menu_Userptr</A></FONT> (<FONT COLOR=red><A NAME="50_34">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="51_34">Data</A></FONT> : <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">User_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#50_16">Set_Menu_Userptr</A>, "set_menu_userptr"); - - <FONT COLOR=red><A NAME="54_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#50_16">Set_Menu_Userptr</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#53_29">Men</A>, <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#54_29">Data</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#54_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#54_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_User_Data; - - <b>function</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#64_13">Get_User_Data</A><FONT COLOR=red><A NAME="61_13"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#64_28">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">User_Access</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="63_16">Menu_Userptr</A></FONT> (<FONT COLOR=red><A NAME="63_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">User_Access</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#63_16">Menu_Userptr</A>, "menu_userptr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus-menu_user_data__adb.htm#63_16">Menu_Userptr</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#64_28">Men</A>); - <b>end</b> Get_User_Data; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#59_14">Get_User_Data</A><FONT COLOR=red><A NAME="69_14"></A></FONT> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#59_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#60_29">Data</A> : <b>out</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">User_Access</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#60_29">Data</A> := <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#59_29">Men</A>); - <b>end</b> Get_User_Data; - -<b>end</b> Terminal_Interface.Curses.Menus.Menu_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm deleted file mode 100644 index a522b71..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus-menu_user_data__ads.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus-menu_user_data.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus-menu_user_data.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus.Menu_User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="44_9">User</A></FONT> <b>is</b> <b>limited</b> <b>private</b>; - <b>type</b> <A HREF="terminal_interface__ads.htm#41_9">User_Access</A> <b>is</b> <b>access</b> User<A HREF="terminal_interface-curses-menus__ads.htm#48_35">;</A> -<b>package</b> Terminal_Interface.Curses.Menus.Menu_User_Data <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus.Menu_User_Data); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_userptr.3x.html">menu_userptr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_User_Data (<FONT COLOR=red><A NAME="54_29">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">Menu</A>; - Data : <b>in</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">set_menu_userptr</A></EM></FONT> - <b>pragma</b> Inline (Set_User_Data); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Get_User_Data (<FONT COLOR=red><A NAME="60_29">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus-menu_user_data__ads.htm#44_9">Menu</A>; - Data : <b>out</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">menu_userptr</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>function</b> Get_User_Data (Men : <b>in</b> Menu) <b>return</b> User_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_userptr.3x.html">menu_userptr</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Get_User_Data); - -<b>end</b> Terminal_Interface.Curses.Menus.Menu_User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__adb.htm deleted file mode 100644 index 7bb3b0e..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__adb.htm +++ /dev/null @@ -1,1026 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menus --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.20 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Unchecked_Deallocation; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; - -<b>with</b> Ada.Unchecked_Conversion; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-menus__ads.htm#48_35">Menus</A><FONT COLOR=red><A NAME="50_40"></A></FONT> <b>is</b> - - <b>type</b> <FONT COLOR=red><A NAME="52_9">C_Item_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <b>package</b> <FONT COLOR=red><A NAME="53_12">I_Array</A></FONT> <b>is</b> <b>new</b> - <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>, <A HREF="terminal_interface-curses-menus__adb.htm#52_9">C_Item_Array</A>, <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A>); - - <b>use</b> <b>type</b> System.Bit_Order; - <b>subtype</b> <FONT COLOR=red><A NAME="57_12">chars_ptr</A></FONT> <b>is</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.chars_ptr; - - <b>function</b> <FONT COLOR=red><A NAME="59_13">MOS_2_CInt</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>); - - <b>function</b> <FONT COLOR=red><A NAME="63_13">CInt_2_MOS</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>, - <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>); - - <b>function</b> <FONT COLOR=red><A NAME="67_13">IOS_2_CInt</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>); - - <b>function</b> <FONT COLOR=red><A NAME="71_13">CInt_2_IOS</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>, - <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>); - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#105_14">Request_Name</A><FONT COLOR=red><A NAME="76_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#105_28">Key</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#106_28">Name</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="79_16">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="79_30">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#79_16">Request_Name</A>, "menu_request_name"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#79_16">Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#105_28">Key</A>)), <A HREF="terminal_interface-curses-menus__ads.htm#106_28">Name</A>); - <b>end</b> Request_Name; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#108_14">Request_Name</A><FONT COLOR=red><A NAME="85_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#108_28">Key</A> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="87_16">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="87_30">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#87_16">Request_Name</A>, "menu_request_name"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#87_16">Request_Name</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#108_28">Key</A>))); - <b>end</b> Request_Name; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#192_13">Create</A><FONT COLOR=red><A NAME="93_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#192_21">Name</A> : String; - <A HREF="terminal_interface-curses-menus__ads.htm#193_21">Description</A> : String := "") <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A> - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="97_16">Newitem</A></FONT> (Name, Desc : Char_Ptr) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#97_16">Newitem</A>, "new_item"); - - <b>type</b> <FONT COLOR=red><A NAME="100_12">Name_String</A></FONT> <b>is</b> <b>new</b> char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#192_21">Name</A>'Length); - <b>type</b> <FONT COLOR=red><A NAME="101_12">Name_String_Ptr</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-menus__adb.htm#100_12">Name_String</A>; - <b>pragma</b> Controlled (<A HREF="terminal_interface-curses-menus__adb.htm#101_12">Name_String_Ptr</A>); - - <b>type</b> <FONT COLOR=red><A NAME="104_12">Desc_String</A></FONT> <b>is</b> <b>new</b> char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#193_21">Description</A>'Length); - <b>type</b> <FONT COLOR=red><A NAME="105_12">Desc_String_Ptr</A></FONT> <b>is</b> <b>access</b> <A HREF="terminal_interface-curses-menus__adb.htm#104_12">Desc_String</A>; - <b>pragma</b> Controlled (<A HREF="terminal_interface-curses-menus__adb.htm#105_12">Desc_String_Ptr</A>); - - <FONT COLOR=red><A NAME="108_7">Name_Str</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#101_12">Name_String_Ptr</A> := <b>new</b> <A HREF="terminal_interface-curses-menus__adb.htm#100_12">Name_String</A>; - <FONT COLOR=red><A NAME="109_7">Desc_Str</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#105_12">Desc_String_Ptr</A> := <b>new</b> <A HREF="terminal_interface-curses-menus__adb.htm#104_12">Desc_String</A>; - <FONT COLOR=red><A NAME="110_7">Name_Len</A></FONT>, <FONT COLOR=red><A NAME="110_17">Desc_Len</A></FONT> : size_t; - <FONT COLOR=red><A NAME="111_7">Result</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses-menus__ads.htm#192_21">Name</A>, <A HREF="terminal_interface-curses-menus__adb.htm#108_7">Name_Str</A>.<b>all</b>, <A HREF="terminal_interface-curses-menus__adb.htm#110_7">Name_Len</A>); - To_C (<A HREF="terminal_interface-curses-menus__ads.htm#193_21">Description</A>, <A HREF="terminal_interface-curses-menus__adb.htm#109_7">Desc_Str</A>.<b>all</b>, <A HREF="terminal_interface-curses-menus__adb.htm#110_17">Desc_Len</A>); - <A HREF="terminal_interface-curses-menus__adb.htm#111_7">Result</A> := <A HREF="terminal_interface-curses-menus__adb.htm#97_16">Newitem</A> (<A HREF="terminal_interface-curses-menus__adb.htm#108_7">Name_Str</A>.<b>all</b> (<A HREF="terminal_interface-curses-menus__adb.htm#108_7">Name_Str</A>.<b>all</b>'First)'<b>Access</b>, - <A HREF="terminal_interface-curses-menus__adb.htm#109_7">Desc_Str</A>.<b>all</b> (<A HREF="terminal_interface-curses-menus__adb.htm#109_7">Desc_Str</A>.<b>all</b>'First)'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#111_7">Result</A> = <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#387_4">Eti_System_Error</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#111_7">Result</A>; - <b>end</b> Create; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#204_14">Delete</A><FONT COLOR=red><A NAME="123_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#204_22">Itm</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="125_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="125_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#125_16">Descname</A>, "item_description"); - <b>function</b> <FONT COLOR=red><A NAME="127_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="127_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#127_16">Itemname</A>, "item_name"); - - <b>function</b> <FONT COLOR=red><A NAME="130_16">Freeitem</A></FONT> (<FONT COLOR=red><A NAME="130_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#130_16">Freeitem</A>, "free_item"); - - <FONT COLOR=red><A NAME="133_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <FONT COLOR=red><A NAME="134_7">Ptr</A></FONT> : <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A> := <A HREF="terminal_interface-curses-menus__adb.htm#125_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#204_22">Itm</A>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A> /= Null_Ptr <b>then</b> - <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.Free (<A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A> := <A HREF="terminal_interface-curses-menus__adb.htm#127_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#204_22">Itm</A>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A> /= Null_Ptr <b>then</b> - <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings.Free (<A HREF="terminal_interface-curses-menus__adb.htm#134_7">Ptr</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__adb.htm#133_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#130_16">Freeitem</A> (<A HREF="terminal_interface-curses-menus__ads.htm#204_22">Itm</A>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#133_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#133_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__ads.htm#204_22">Itm</A> := <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A>; - <b>end</b> Delete; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#213_14">Set_Value</A><FONT COLOR=red><A NAME="151_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#213_25">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#214_25">Value</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="154_16">Set_Item_Val</A></FONT> (<FONT COLOR=red><A NAME="154_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <FONT COLOR=red><A NAME="155_30">Val</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#154_16">Set_Item_Val</A>, "set_item_value"); - - <FONT COLOR=red><A NAME="158_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#154_16">Set_Item_Val</A> (<A HREF="terminal_interface-curses-menus__ads.htm#213_25">Itm</A>, Boolean'Pos (<A HREF="terminal_interface-curses-menus__ads.htm#214_25">Value</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#158_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#158_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Value; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#219_13">Value</A><FONT COLOR=red><A NAME="165_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#219_20">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="167_16">Item_Val</A></FONT> (<FONT COLOR=red><A NAME="167_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#167_16">Item_Val</A>, "item_value"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#167_16">Item_Val</A> (<A HREF="terminal_interface-curses-menus__ads.htm#219_20">Itm</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Value; - -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#228_13">Visible</A><FONT COLOR=red><A NAME="178_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#228_22">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="180_16">Item_Vis</A></FONT> (<FONT COLOR=red><A NAME="180_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#180_16">Item_Vis</A>, "item_visible"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#180_16">Item_Vis</A> (<A HREF="terminal_interface-curses-menus__ads.htm#228_22">Itm</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Visible; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#237_14">Set_Options</A><FONT COLOR=red><A NAME="190_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#237_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#238_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="193_16">Set_Item_Opts</A></FONT> (<FONT COLOR=red><A NAME="193_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <FONT COLOR=red><A NAME="194_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#193_16">Set_Item_Opts</A>, "set_item_opts"); - - <FONT COLOR=red><A NAME="197_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#67_13">IOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#238_27">Options</A>); - <FONT COLOR=red><A NAME="198_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-menus__adb.htm#198_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#193_16">Set_Item_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#237_27">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#197_7">Opt</A>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#198_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#198_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Options; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#243_14">Switch_Options</A><FONT COLOR=red><A NAME="206_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#243_30">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#244_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#245_30">On</A> : Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="210_16">Item_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="210_30">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <FONT COLOR=red><A NAME="211_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#210_16">Item_Opts_On</A>, "item_opts_on"); - <b>function</b> <FONT COLOR=red><A NAME="213_16">Item_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="213_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <FONT COLOR=red><A NAME="214_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#213_16">Item_Opts_Off</A>, "item_opts_off"); - - <FONT COLOR=red><A NAME="217_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#67_13">IOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#244_30">Options</A>); - <FONT COLOR=red><A NAME="218_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#245_30">On</A> <b>then</b> - <A HREF="terminal_interface-curses-menus__adb.htm#218_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#210_16">Item_Opts_On</A> (<A HREF="terminal_interface-curses-menus__ads.htm#243_30">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#217_7">Opt</A>); - <b>else</b> - <A HREF="terminal_interface-curses-menus__adb.htm#218_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#213_16">Item_Opts_Off</A> (<A HREF="terminal_interface-curses-menus__ads.htm#243_30">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#217_7">Opt</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#218_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#218_7">Err</A>); - <b>end</b> <b>if</b>; - <b>end</b> Switch_Options; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#252_14">Get_Options</A><FONT COLOR=red><A NAME="230_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#252_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#253_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="233_16">Item_Opts</A></FONT> (<FONT COLOR=red><A NAME="233_27">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#233_16">Item_Opts</A>, "item_opts"); - - <FONT COLOR=red><A NAME="236_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#233_16">Item_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#252_27">Itm</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#253_27">Options</A> := <A HREF="terminal_interface-curses-menus__adb.htm#71_13">CInt_2_IOS</A> (<A HREF="terminal_interface-curses-menus__adb.htm#236_7">Res</A>); - <b>end</b> Get_Options; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#257_13">Get_Options</A><FONT COLOR=red><A NAME="241_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#257_26">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A> := <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A> - <b>is</b> - <FONT COLOR=red><A NAME="243_7">Ios</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#257_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#257_26">Itm</A>, <A HREF="terminal_interface-curses-menus__adb.htm#243_7">Ios</A>); - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#243_7">Ios</A>; - <b>end</b> Get_Options; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#266_14">Name</A><FONT COLOR=red><A NAME="249_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#266_20">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#267_20">Name</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="252_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="252_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#252_16">Itemname</A>, "item_name"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#252_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#266_20">Itm</A>), <A HREF="terminal_interface-curses-menus__ads.htm#267_20">Name</A>); - <b>end</b> Name; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#269_14">Name</A><FONT COLOR=red><A NAME="258_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#269_20">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="260_16">Itemname</A></FONT> (<FONT COLOR=red><A NAME="260_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#260_16">Itemname</A>, "item_name"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#260_16">Itemname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#269_20">Itm</A>)); - <b>end</b> Name; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#275_14">Description</A><FONT COLOR=red><A NAME="266_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#275_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#276_27">Description</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="269_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="269_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#269_16">Descname</A>, "item_description"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#269_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#275_27">Itm</A>), <A HREF="terminal_interface-curses-menus__ads.htm#276_27">Description</A>); - <b>end</b> Description; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#279_14">Description</A><FONT COLOR=red><A NAME="275_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#279_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="277_16">Descname</A></FONT> (<FONT COLOR=red><A NAME="277_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#277_16">Descname</A>, "item_description"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#277_16">Descname</A> (<A HREF="terminal_interface-curses-menus__ads.htm#279_27">Itm</A>)); - <b>end</b> Description; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#289_14">Set_Current</A><FONT COLOR=red><A NAME="283_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#289_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#290_27">Itm</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="286_16">Set_Curr_Item</A></FONT> (<FONT COLOR=red><A NAME="286_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="287_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#286_16">Set_Curr_Item</A>, "set_current_item"); - - <FONT COLOR=red><A NAME="290_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#286_16">Set_Curr_Item</A> (<A HREF="terminal_interface-curses-menus__ads.htm#289_27">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#290_27">Itm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#290_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#290_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Current; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#295_13">Current</A><FONT COLOR=red><A NAME="297_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#295_22">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="299_16">Curr_Item</A></FONT> (<FONT COLOR=red><A NAME="299_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#299_16">Curr_Item</A>, "current_item"); - - <FONT COLOR=red><A NAME="302_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A> := <A HREF="terminal_interface-curses-menus__adb.htm#299_16">Curr_Item</A> (<A HREF="terminal_interface-curses-menus__ads.htm#295_22">Men</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#302_7">Res</A> = <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#302_7">Res</A>; - <b>end</b> Current; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#300_14">Set_Top_Row</A><FONT COLOR=red><A NAME="310_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#300_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#301_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="313_16">Set_Toprow</A></FONT> (<FONT COLOR=red><A NAME="313_28">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="314_28">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#313_16">Set_Toprow</A>, "set_top_row"); - - <FONT COLOR=red><A NAME="317_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#313_16">Set_Toprow</A> (<A HREF="terminal_interface-curses-menus__ads.htm#300_27">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#301_27">Line</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#317_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#317_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Top_Row; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#306_13">Top_Row</A><FONT COLOR=red><A NAME="324_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#306_22">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="326_16">Toprow</A></FONT> (<FONT COLOR=red><A NAME="326_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#326_16">Toprow</A>, "top_row"); - - <FONT COLOR=red><A NAME="329_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#326_16">Toprow</A> (<A HREF="terminal_interface-curses-menus__ads.htm#306_22">Men</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#329_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#329_7">Res</A>); - <b>end</b> Top_Row; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#311_13">Get_Index</A><FONT COLOR=red><A NAME="337_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#311_24">Itm</A> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> Positive - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="339_16">Get_Itemindex</A></FONT> (<FONT COLOR=red><A NAME="339_31">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#339_16">Get_Itemindex</A>, "item_index"); - - <FONT COLOR=red><A NAME="342_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#339_16">Get_Itemindex</A> (<A HREF="terminal_interface-curses-menus__ads.htm#311_24">Itm</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#342_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> Positive (Natural (<A HREF="terminal_interface-curses-menus__adb.htm#342_7">Res</A>) + Positive'First); - <b>end</b> Get_Index; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#323_14">Post</A><FONT COLOR=red><A NAME="350_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#323_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#324_20">Post</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="353_16">M_Post</A></FONT> (<FONT COLOR=red><A NAME="353_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#353_16">M_Post</A>, "post_menu"); - <b>function</b> <FONT COLOR=red><A NAME="355_16">M_Unpost</A></FONT> (<FONT COLOR=red><A NAME="355_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#355_16">M_Unpost</A>, "unpost_menu"); - - <FONT COLOR=red><A NAME="358_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#324_20">Post</A> <b>then</b> - <A HREF="terminal_interface-curses-menus__adb.htm#358_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#353_16">M_Post</A> (<A HREF="terminal_interface-curses-menus__ads.htm#323_20">Men</A>); - <b>else</b> - <A HREF="terminal_interface-curses-menus__adb.htm#358_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#355_16">M_Unpost</A> (<A HREF="terminal_interface-curses-menus__ads.htm#323_20">Men</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#358_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#358_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Post; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#334_14">Set_Options</A><FONT COLOR=red><A NAME="370_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#334_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#335_27">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="373_16">Set_Menu_Opts</A></FONT> (<FONT COLOR=red><A NAME="373_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="374_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#373_16">Set_Menu_Opts</A>, "set_menu_opts"); - - <FONT COLOR=red><A NAME="377_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#59_13">MOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#335_27">Options</A>); - <FONT COLOR=red><A NAME="378_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-menus__adb.htm#378_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#373_16">Set_Menu_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#334_27">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#377_7">Opt</A>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#378_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#378_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Options; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#340_14">Switch_Options</A><FONT COLOR=red><A NAME="386_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#340_30">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#341_30">Options</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#342_30">On</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="390_16">Menu_Opts_On</A></FONT> (<FONT COLOR=red><A NAME="390_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="391_30">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#390_16">Menu_Opts_On</A>, "menu_opts_on"); - <b>function</b> <FONT COLOR=red><A NAME="393_16">Menu_Opts_Off</A></FONT> (<FONT COLOR=red><A NAME="393_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="394_31">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#393_16">Menu_Opts_Off</A>, "menu_opts_off"); - - <FONT COLOR=red><A NAME="397_7">Opt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#59_13">MOS_2_CInt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#341_30">Options</A>); - <FONT COLOR=red><A NAME="398_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#342_30">On</A> <b>then</b> - <A HREF="terminal_interface-curses-menus__adb.htm#398_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#390_16">Menu_Opts_On</A> (<A HREF="terminal_interface-curses-menus__ads.htm#340_30">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#397_7">Opt</A>); - <b>else</b> - <A HREF="terminal_interface-curses-menus__adb.htm#398_7">Err</A> := <A HREF="terminal_interface-curses-menus__adb.htm#393_16">Menu_Opts_Off</A> (<A HREF="terminal_interface-curses-menus__ads.htm#340_30">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#397_7">Opt</A>); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#398_7">Err</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#398_7">Err</A>); - <b>end</b> <b>if</b>; - <b>end</b> Switch_Options; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#348_14">Get_Options</A><FONT COLOR=red><A NAME="410_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#348_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#349_27">Options</A> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="413_16">Menu_Opts</A></FONT> (<FONT COLOR=red><A NAME="413_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#413_16">Menu_Opts</A>, "menu_opts"); - - <FONT COLOR=red><A NAME="416_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-menus__adb.htm#413_16">Menu_Opts</A> (<A HREF="terminal_interface-curses-menus__ads.htm#348_27">Men</A>); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#349_27">Options</A> := <A HREF="terminal_interface-curses-menus__adb.htm#63_13">CInt_2_MOS</A> (<A HREF="terminal_interface-curses-menus__adb.htm#416_7">Res</A>); - <b>end</b> Get_Options; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#353_13">Get_Options</A><FONT COLOR=red><A NAME="421_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#353_26">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A> := <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A> - <b>is</b> - <FONT COLOR=red><A NAME="423_7">Mos</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#353_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#353_26">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#423_7">Mos</A>); - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#423_7">Mos</A>; - <b>end</b> Get_Options; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#362_14">Set_Window</A><FONT COLOR=red><A NAME="429_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#362_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#363_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="432_16">Set_Menu_Win</A></FONT> (<FONT COLOR=red><A NAME="432_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="433_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#432_16">Set_Menu_Win</A>, "set_menu_win"); - - <FONT COLOR=red><A NAME="436_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#432_16">Set_Menu_Win</A> (<A HREF="terminal_interface-curses-menus__ads.htm#362_26">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#363_26">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#436_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#436_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Window; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#368_13">Get_Window</A><FONT COLOR=red><A NAME="443_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#368_25">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="445_16">Menu_Win</A></FONT> (<FONT COLOR=red><A NAME="445_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#445_16">Menu_Win</A>, "menu_win"); - - <FONT COLOR=red><A NAME="448_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses-menus__adb.htm#445_16">Menu_Win</A> (<A HREF="terminal_interface-curses-menus__ads.htm#368_25">Men</A>); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#448_7">W</A>; - <b>end</b> Get_Window; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#373_14">Set_Sub_Window</A><FONT COLOR=red><A NAME="453_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#373_30">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#374_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="456_16">Set_Menu_Sub</A></FONT> (<FONT COLOR=red><A NAME="456_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="457_30">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#456_16">Set_Menu_Sub</A>, "set_menu_sub"); - - <FONT COLOR=red><A NAME="460_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#456_16">Set_Menu_Sub</A> (<A HREF="terminal_interface-curses-menus__ads.htm#373_30">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#374_30">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#460_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#460_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Sub_Window; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#379_13">Get_Sub_Window</A><FONT COLOR=red><A NAME="467_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#379_29">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="469_16">Menu_Sub</A></FONT> (<FONT COLOR=red><A NAME="469_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#469_16">Menu_Sub</A>, "menu_sub"); - - <FONT COLOR=red><A NAME="472_7">W</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses-menus__adb.htm#469_16">Menu_Sub</A> (<A HREF="terminal_interface-curses-menus__ads.htm#379_29">Men</A>); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#472_7">W</A>; - <b>end</b> Get_Sub_Window; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#384_14">Scale</A><FONT COLOR=red><A NAME="477_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#384_21">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#385_21">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#386_21">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="482_16">M_Scale</A></FONT> (<FONT COLOR=red><A NAME="482_25">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - Yp, Xp : C_Int_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#482_16">M_Scale</A>, "scale_menu"); - - <FONT COLOR=red><A NAME="486_7">X</A></FONT>, <FONT COLOR=red><A NAME="486_10">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="487_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#482_16">M_Scale</A> (<A HREF="terminal_interface-curses-menus__ads.htm#384_21">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#486_10">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses-menus__adb.htm#486_7">X</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#487_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#487_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__ads.htm#385_21">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#486_10">Y</A>); - <A HREF="terminal_interface-curses-menus__ads.htm#386_21">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#486_7">X</A>); - <b>end</b> Scale; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#395_14">Position_Cursor</A><FONT COLOR=red><A NAME="496_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#395_31">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="498_16">Pos_Menu_Cursor</A></FONT> (<FONT COLOR=red><A NAME="498_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#498_16">Pos_Menu_Cursor</A>, "pos_menu_cursor"); - - <FONT COLOR=red><A NAME="501_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#498_16">Pos_Menu_Cursor</A> (<A HREF="terminal_interface-curses-menus__ads.htm#395_31">Men</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#501_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#501_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Position_Cursor; - -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#404_14">Set_Mark</A><FONT COLOR=red><A NAME="509_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#404_24">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#405_24">Mark</A> : <b>in</b> String) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="513_16">Set_Mark</A></FONT> (<FONT COLOR=red><A NAME="513_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - Mark : Char_Ptr) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#513_16">Set_Mark</A>, "set_menu_mark"); - - <FONT COLOR=red><A NAME="517_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#405_24">Mark</A>'Length); - <FONT COLOR=red><A NAME="518_7">Len</A></FONT> : size_t; - <FONT COLOR=red><A NAME="519_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses-menus__ads.htm#405_24">Mark</A>, <A HREF="terminal_interface-curses-menus__adb.htm#517_7">Txt</A>, <A HREF="terminal_interface-curses-menus__adb.htm#518_7">Len</A>); - <A HREF="terminal_interface-curses-menus__adb.htm#519_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#513_16">Set_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#404_24">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#517_7">Txt</A> (<A HREF="terminal_interface-curses-menus__adb.htm#517_7">Txt</A>'First)'<b>Access</b>); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#519_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#519_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Mark; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#410_14">Mark</A><FONT COLOR=red><A NAME="528_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#410_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#411_20">Mark</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="531_16">Get_Menu_Mark</A></FONT> (<FONT COLOR=red><A NAME="531_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#531_16">Get_Menu_Mark</A>, "menu_mark"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#531_16">Get_Menu_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#410_20">Men</A>), <A HREF="terminal_interface-curses-menus__ads.htm#411_20">Mark</A>); - <b>end</b> Mark; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#414_14">Mark</A><FONT COLOR=red><A NAME="537_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#414_20">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="539_16">Get_Menu_Mark</A></FONT> (<FONT COLOR=red><A NAME="539_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#539_16">Get_Menu_Mark</A>, "menu_mark"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#539_16">Get_Menu_Mark</A> (<A HREF="terminal_interface-curses-menus__ads.htm#414_20">Men</A>)); - <b>end</b> Mark; - -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#424_14">Set_Foreground</A><FONT COLOR=red><A NAME="546_14"></A></FONT> - (<A HREF="terminal_interface-curses-menus__ads.htm#425_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#426_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#427_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="551_16">Set_Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="551_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="552_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#551_16">Set_Menu_Fore</A>, "set_menu_fore"); - - <FONT COLOR=red><A NAME="555_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses-menus__ads.htm#427_7">Color</A>, - Attr => <A HREF="terminal_interface-curses-menus__ads.htm#426_7">Fore</A>); - <FONT COLOR=red><A NAME="558_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#551_16">Set_Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#425_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#555_7">Ch</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#558_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#558_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Foreground; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#432_14">Foreground</A><FONT COLOR=red><A NAME="565_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#432_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#433_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="568_16">Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="568_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#568_16">Menu_Fore</A>, "menu_fore"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#433_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#568_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#432_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Foreground; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#437_14">Foreground</A><FONT COLOR=red><A NAME="574_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#437_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#438_26">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#439_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="578_16">Menu_Fore</A></FONT> (<FONT COLOR=red><A NAME="578_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#578_16">Menu_Fore</A>, "menu_fore"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#438_26">Fore</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#578_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#437_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#439_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#578_16">Menu_Fore</A> (<A HREF="terminal_interface-curses-menus__ads.htm#437_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Foreground; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#444_14">Set_Background</A><FONT COLOR=red><A NAME="585_14"></A></FONT> - (<A HREF="terminal_interface-curses-menus__ads.htm#445_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#446_7">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#447_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="590_16">Set_Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="590_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="591_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#590_16">Set_Menu_Back</A>, "set_menu_back"); - - <FONT COLOR=red><A NAME="594_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses-menus__ads.htm#447_7">Color</A>, - Attr => <A HREF="terminal_interface-curses-menus__ads.htm#446_7">Back</A>); - <FONT COLOR=red><A NAME="597_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#590_16">Set_Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#445_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#594_7">Ch</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#597_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#597_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Background; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#452_14">Background</A><FONT COLOR=red><A NAME="604_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#452_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#453_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="607_16">Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="607_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#607_16">Menu_Back</A>, "menu_back"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#453_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#607_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#452_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Background; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#457_14">Background</A><FONT COLOR=red><A NAME="613_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#457_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#458_26">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#459_26">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="617_16">Menu_Back</A></FONT> (<FONT COLOR=red><A NAME="617_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#617_16">Menu_Back</A>, "menu_back"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#458_26">Back</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#617_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#457_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#459_26">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#617_16">Menu_Back</A> (<A HREF="terminal_interface-curses-menus__ads.htm#457_26">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Background; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#464_14">Set_Grey</A><FONT COLOR=red><A NAME="624_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#465_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#466_7">Grey</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#467_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="628_16">Set_Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="628_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="629_31">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#628_16">Set_Menu_Grey</A>, "set_menu_grey"); - - <FONT COLOR=red><A NAME="632_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses-menus__ads.htm#467_7">Color</A>, - Attr => <A HREF="terminal_interface-curses-menus__ads.htm#466_7">Grey</A>); - - <FONT COLOR=red><A NAME="636_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#628_16">Set_Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#465_7">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses-menus__adb.htm#632_7">Ch</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#636_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#636_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Grey; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#472_14">Grey</A><FONT COLOR=red><A NAME="643_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#472_20">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#473_20">Grey</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="646_16">Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="646_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#646_16">Menu_Grey</A>, "menu_grey"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#473_20">Grey</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#646_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#472_20">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Grey; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#477_14">Grey</A><FONT COLOR=red><A NAME="652_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#478_7">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#479_7">Grey</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#480_7">Color</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="656_16">Menu_Grey</A></FONT> (<FONT COLOR=red><A NAME="656_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#656_16">Menu_Grey</A>, "menu_grey"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#479_7">Grey</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#656_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#478_7">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#480_7">Color</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses-menus__adb.htm#656_16">Menu_Grey</A> (<A HREF="terminal_interface-curses-menus__ads.htm#478_7">Men</A>)).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Grey; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#485_14">Set_Pad_Character</A><FONT COLOR=red><A NAME="663_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#485_33">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#486_33">Pad</A> : <b>in</b> Character := <A HREF="terminal_interface-curses-menus__ads.htm#53_4">Space</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="666_16">Set_Menu_Pad</A></FONT> (<FONT COLOR=red><A NAME="666_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="667_30">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#666_16">Set_Menu_Pad</A>, "set_menu_pad"); - - <FONT COLOR=red><A NAME="670_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#666_16">Set_Menu_Pad</A> (<A HREF="terminal_interface-curses-menus__ads.htm#485_33">Men</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (Character'Pos (<A HREF="terminal_interface-curses-menus__ads.htm#486_33">Pad</A>))); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#670_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#670_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Pad_Character; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#491_14">Pad_Character</A><FONT COLOR=red><A NAME="678_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#491_29">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#492_29">Pad</A> : <b>out</b> Character) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="681_16">Menu_Pad</A></FONT> (<FONT COLOR=red><A NAME="681_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#681_16">Menu_Pad</A>, "menu_pad"); - <b>begin</b> - <A HREF="terminal_interface-curses-menus__ads.htm#492_29">Pad</A> := Character'Val (<A HREF="terminal_interface-curses-menus__adb.htm#681_16">Menu_Pad</A> (<A HREF="terminal_interface-curses-menus__ads.htm#491_29">Men</A>)); - <b>end</b> Pad_Character; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#501_14">Set_Spacing</A><FONT COLOR=red><A NAME="687_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#501_27">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#502_27">Descr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0; - <A HREF="terminal_interface-curses-menus__ads.htm#503_27">Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> := 0; - <A HREF="terminal_interface-curses-menus__ads.htm#504_27">Col</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="692_16">Set_Spacing</A></FONT> (<FONT COLOR=red><A NAME="692_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="693_29">D</A></FONT>, <FONT COLOR=red><A NAME="693_32">R</A></FONT>, <FONT COLOR=red><A NAME="693_35">C</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#692_16">Set_Spacing</A>, "set_menu_spacing"); - - <FONT COLOR=red><A NAME="696_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#692_16">Set_Spacing</A> (<A HREF="terminal_interface-curses-menus__ads.htm#501_27">Men</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#502_27">Descr</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#503_27">Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#504_27">Col</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#696_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#696_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Spacing; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#509_14">Spacing</A><FONT COLOR=red><A NAME="706_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#509_23">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#510_23">Descr</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#511_23">Row</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#512_23">Col</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="712_16">Get_Spacing</A></FONT> (<FONT COLOR=red><A NAME="712_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - D, R, C : C_Int_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#712_16">Get_Spacing</A>, "menu_spacing"); - - <FONT COLOR=red><A NAME="716_7">D</A></FONT>, <FONT COLOR=red><A NAME="716_10">R</A></FONT>, <FONT COLOR=red><A NAME="716_13">C</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="717_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#712_16">Get_Spacing</A> (<A HREF="terminal_interface-curses-menus__ads.htm#509_23">Men</A>, - <A HREF="terminal_interface-curses-menus__adb.htm#716_7">D</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-menus__adb.htm#716_10">R</A>'<b>Access</b>, - <A HREF="terminal_interface-curses-menus__adb.htm#716_13">C</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#717_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#717_7">Res</A>); - <b>else</b> - <A HREF="terminal_interface-curses-menus__ads.htm#510_23">Descr</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#716_7">D</A>); - <A HREF="terminal_interface-curses-menus__ads.htm#511_23">Row</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#716_10">R</A>); - <A HREF="terminal_interface-curses-menus__ads.htm#512_23">Col</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-menus__adb.htm#716_13">C</A>); - <b>end</b> <b>if</b>; - <b>end</b> Spacing; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#521_13">Set_Pattern</A><FONT COLOR=red><A NAME="731_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#521_26">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#522_26">Text</A> : String) <b>return</b> Boolean - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="735_16">Set_Pattern</A></FONT> (<FONT COLOR=red><A NAME="735_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - Pattern : Char_Ptr) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#735_16">Set_Pattern</A>, "set_menu_pattern"); - - <FONT COLOR=red><A NAME="739_7">S</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses-menus__ads.htm#522_26">Text</A>'Length); - <FONT COLOR=red><A NAME="740_7">L</A></FONT> : size_t; - <FONT COLOR=red><A NAME="741_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses-menus__ads.htm#522_26">Text</A>, <A HREF="terminal_interface-curses-menus__adb.htm#739_7">S</A>, <A HREF="terminal_interface-curses-menus__adb.htm#740_7">L</A>); - <A HREF="terminal_interface-curses-menus__adb.htm#741_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#735_16">Set_Pattern</A> (<A HREF="terminal_interface-curses-menus__ads.htm#521_26">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#739_7">S</A> (<A HREF="terminal_interface-curses-menus__adb.htm#739_7">S</A>'First)'<b>Access</b>); - <b>case</b> <A HREF="terminal_interface-curses-menus__adb.htm#741_7">Res</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_No_Match</A> => <b>return</b> False; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> => <b>return</b> True; - <b>when</b> <b>others</b> => - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#741_7">Res</A>); - <b>return</b> False; - <b>end</b> <b>case</b>; - <b>end</b> Set_Pattern; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#528_14">Pattern</A><FONT COLOR=red><A NAME="754_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#528_23">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#529_23">Text</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="757_16">Get_Pattern</A></FONT> (<FONT COLOR=red><A NAME="757_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#57_12">chars_ptr</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#757_16">Get_Pattern</A>, "menu_pattern"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses-menus__adb.htm#757_16">Get_Pattern</A> (<A HREF="terminal_interface-curses-menus__ads.htm#528_23">Men</A>), <A HREF="terminal_interface-curses-menus__ads.htm#529_23">Text</A>); - <b>end</b> Pattern; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#538_14">Set_Format</A><FONT COLOR=red><A NAME="763_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#538_26">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#539_26">Lines</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#540_26">Columns</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="767_16">Set_Menu_Fmt</A></FONT> (<FONT COLOR=red><A NAME="767_30">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="768_30">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="769_30">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#767_16">Set_Menu_Fmt</A>, "set_menu_format"); - - <FONT COLOR=red><A NAME="772_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#767_16">Set_Menu_Fmt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#538_26">Men</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#539_26">Lines</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#540_26">Columns</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#772_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#772_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Format; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#545_14">Format</A><FONT COLOR=red><A NAME="781_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#545_22">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#546_22">Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#547_22">Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) - <b>is</b> - <b>type</b> C_Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="786_16">Menu_Fmt</A></FONT> (<FONT COLOR=red><A NAME="786_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - Y, X : C_Int_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#786_16">Menu_Fmt</A>, "menu_format"); - - <FONT COLOR=red><A NAME="790_7">L</A></FONT>, <FONT COLOR=red><A NAME="790_10">C</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="791_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#786_16">Menu_Fmt</A> (<A HREF="terminal_interface-curses-menus__ads.htm#545_22">Men</A>, <A HREF="terminal_interface-curses-menus__adb.htm#790_7">L</A>'<b>Access</b>, <A HREF="terminal_interface-curses-menus__adb.htm#790_10">C</A>'<b>Access</b>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#791_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#791_7">Res</A>); - <b>else</b> - <A HREF="terminal_interface-curses-menus__ads.htm#546_22">Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#790_7">L</A>); - <A HREF="terminal_interface-curses-menus__ads.htm#547_22">Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-menus__adb.htm#790_10">C</A>); - <b>end</b> <b>if</b>; - <b>end</b> Format; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#559_14">Set_Item_Init_Hook</A><FONT COLOR=red><A NAME="801_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#559_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#560_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="804_16">Set_Item_Init</A></FONT> (<FONT COLOR=red><A NAME="804_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="805_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#804_16">Set_Item_Init</A>, "set_item_init"); - - <FONT COLOR=red><A NAME="808_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#804_16">Set_Item_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#559_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#560_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#808_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#808_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Item_Init_Hook; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#565_14">Set_Item_Term_Hook</A><FONT COLOR=red><A NAME="815_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#565_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#566_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="818_16">Set_Item_Term</A></FONT> (<FONT COLOR=red><A NAME="818_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="819_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#818_16">Set_Item_Term</A>, "set_item_term"); - - <FONT COLOR=red><A NAME="822_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#818_16">Set_Item_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#565_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#566_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#822_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#822_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Item_Term_Hook; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#571_14">Set_Menu_Init_Hook</A><FONT COLOR=red><A NAME="829_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#571_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#572_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="832_16">Set_Menu_Init</A></FONT> (<FONT COLOR=red><A NAME="832_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="833_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#832_16">Set_Menu_Init</A>, "set_menu_init"); - - <FONT COLOR=red><A NAME="836_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#832_16">Set_Menu_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#571_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#572_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#836_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#836_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Menu_Init_Hook; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#577_14">Set_Menu_Term_Hook</A><FONT COLOR=red><A NAME="843_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#577_34">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#578_34">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="846_16">Set_Menu_Term</A></FONT> (<FONT COLOR=red><A NAME="846_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="847_31">Proc</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#846_16">Set_Menu_Term</A>, "set_menu_term"); - - <FONT COLOR=red><A NAME="850_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#846_16">Set_Menu_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#577_34">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#578_34">Proc</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#850_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#850_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Menu_Term_Hook; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#583_13">Get_Item_Init_Hook</A><FONT COLOR=red><A NAME="857_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#583_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="859_16">Item_Init</A></FONT> (<FONT COLOR=red><A NAME="859_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#859_16">Item_Init</A>, "item_init"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#859_16">Item_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#583_33">Men</A>); - <b>end</b> Get_Item_Init_Hook; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#588_13">Get_Item_Term_Hook</A><FONT COLOR=red><A NAME="865_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#588_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="867_16">Item_Term</A></FONT> (<FONT COLOR=red><A NAME="867_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#867_16">Item_Term</A>, "item_term"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#867_16">Item_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#588_33">Men</A>); - <b>end</b> Get_Item_Term_Hook; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#593_13">Get_Menu_Init_Hook</A><FONT COLOR=red><A NAME="873_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#593_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="875_16">Menu_Init</A></FONT> (<FONT COLOR=red><A NAME="875_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#875_16">Menu_Init</A>, "menu_init"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#875_16">Menu_Init</A> (<A HREF="terminal_interface-curses-menus__ads.htm#593_33">Men</A>); - <b>end</b> Get_Menu_Init_Hook; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#598_13">Get_Menu_Term_Hook</A><FONT COLOR=red><A NAME="881_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#598_33">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="883_16">Menu_Term</A></FONT> (<FONT COLOR=red><A NAME="883_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_9">Menu_Hook_Function</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#883_16">Menu_Term</A>, "menu_term"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#883_16">Menu_Term</A> (<A HREF="terminal_interface-curses-menus__ads.htm#598_33">Men</A>); - <b>end</b> Get_Menu_Term_Hook; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#607_14">Redefine</A><FONT COLOR=red><A NAME="889_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#607_24">Men</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#608_24">Items</A> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Item_Array_Access</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="892_16">Set_Items</A></FONT> (<FONT COLOR=red><A NAME="892_27">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="893_27">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#892_16">Set_Items</A>, "set_menu_items"); - - <FONT COLOR=red><A NAME="896_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A>; - <b>begin</b> - <b>pragma</b> Assert (Items (Items'Last) = Null_Item); - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#608_24">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#608_24">Items</A>'Last) /= <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-menus__adb.htm#896_7">Res</A> := <A HREF="terminal_interface-curses-menus__adb.htm#892_16">Set_Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#607_24">Men</A>, <A HREF="terminal_interface-curses-menus__ads.htm#608_24">Items</A>.<b>all</b>'Address); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#896_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#896_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Redefine; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#623_13">Item_Count</A><FONT COLOR=red><A NAME="909_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#623_25">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> Natural - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="911_16">Count</A></FONT> (<FONT COLOR=red><A NAME="911_23">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#911_16">Count</A>, "item_count"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses-menus__adb.htm#911_16">Count</A> (<A HREF="terminal_interface-curses-menus__ads.htm#623_25">Men</A>)); - <b>end</b> Item_Count; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#617_13">Items</A><FONT COLOR=red><A NAME="917_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#617_20">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#618_20">Index</A> : Positive) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Item</A> - <b>is</b> - <b>use</b> <A HREF="terminal_interface-curses-menus__adb.htm#53_12">I_Array</A>; - - <b>function</b> <FONT COLOR=red><A NAME="922_16">C_Mitems</A></FONT> (<FONT COLOR=red><A NAME="922_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> Pointer; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#922_16">C_Mitems</A>, "menu_items"); - - P : Pointer := <A HREF="terminal_interface-curses-menus__adb.htm#922_16">C_Mitems</A> (<A HREF="terminal_interface-curses-menus__ads.htm#617_20">Men</A>); - <b>begin</b> - <b>if</b> P = <b>null</b> <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-menus__ads.htm#618_20">Index</A> <b>not</b> <b>in</b> 1 .. <A HREF="terminal_interface-curses-menus__ads.htm#623_13">Item_Count</A> (<A HREF="terminal_interface-curses-menus__ads.htm#617_20">Men</A>) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>else</b> - P := P + ptrdiff_t (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#618_20">Index</A>) - 1); - <b>return</b> P.<b>all</b>; - <b>end</b> <b>if</b>; - <b>end</b> Items; - -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#632_13">Create</A><FONT COLOR=red><A NAME="936_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#632_21">Items</A> : <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Item_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="938_16">Newmenu</A></FONT> (<FONT COLOR=red><A NAME="938_25">Items</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#938_16">Newmenu</A>, "new_menu"); - - <FONT COLOR=red><A NAME="941_7">M</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <b>begin</b> - <b>pragma</b> Assert (Items (Items'Last) = Null_Item); - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#632_21">Items</A> (<A HREF="terminal_interface-curses-menus__ads.htm#632_21">Items</A>'Last) /= <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses-menus__adb.htm#941_7">M</A> := <A HREF="terminal_interface-curses-menus__adb.htm#938_16">Newmenu</A> (<A HREF="terminal_interface-curses-menus__ads.htm#632_21">Items</A>.<b>all</b>'Address); - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#941_7">M</A> = <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Menu</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-menus__ads.htm#115_4">Menu_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-menus__adb.htm#941_7">M</A>; - <b>end</b> <b>if</b>; - <b>end</b> Create; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#639_14">Delete</A><FONT COLOR=red><A NAME="955_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#639_22">Men</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="957_16">Free</A></FONT> (<FONT COLOR=red><A NAME="957_22">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#957_16">Free</A>, "free_menu"); - - <FONT COLOR=red><A NAME="960_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#957_16">Free</A> (<A HREF="terminal_interface-curses-menus__ads.htm#639_22">Men</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#960_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#960_7">Res</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__ads.htm#639_22">Men</A> := <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Menu</A>; - <b>end</b> Delete; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#654_13">Driver</A><FONT COLOR=red><A NAME="969_13"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#654_21">Men</A> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#655_21">Key</A> : <A HREF="terminal_interface-curses__ads.htm#67_9">Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#648_9">Driver_Result</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="972_16">Driver</A></FONT> (<FONT COLOR=red><A NAME="972_24">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Menu</A>; - <FONT COLOR=red><A NAME="973_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-menus__adb.htm#972_16">Driver</A>, "menu_driver"); - - <FONT COLOR=red><A NAME="976_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#78_12">Eti_Error</A> := <A HREF="terminal_interface-curses-menus__adb.htm#972_16">Driver</A> (<A HREF="terminal_interface-curses-menus__ads.htm#654_21">Men</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-menus__ads.htm#655_21">Key</A>)); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__adb.htm#976_7">R</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#80_4">E_Ok</A> <b>then</b> - <b>case</b> <A HREF="terminal_interface-curses-menus__adb.htm#976_7">R</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#88_4">E_Unknown_Command</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#650_27">Unknown_Request</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#89_4">E_No_Match</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#651_27">No_Match</A>; - <b>when</b> <A HREF="terminal_interface-curses-aux__ads.htm#92_4">E_Request_Denied</A> | - <A HREF="terminal_interface-curses-aux__ads.htm#90_4">E_Not_Selectable</A> => <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#649_27">Request_Denied</A>; - <b>when</b> <b>others</b> => - <A HREF="terminal_interface-curses-aux__ads.htm#96_14">Eti_Exception</A> (<A HREF="terminal_interface-curses-menus__adb.htm#976_7">R</A>); - <b>end</b> <b>case</b>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#648_27">Menu_Ok</A>; - <b>end</b> Driver; - - <b>procedure</b> <A HREF="terminal_interface-curses-menus__ads.htm#181_14">Free</A><FONT COLOR=red><A NAME="991_14"></A></FONT> (<A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Item_Array_Access</A>; - <A HREF="terminal_interface-curses-menus__ads.htm#182_20">Free_Items</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="994_17">Release</A></FONT> <b>is</b> <b>new</b> Ada.Unchecked_Deallocation - (<A HREF="terminal_interface-curses-menus__ads.htm#176_9">Item_Array</A>, <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Item_Array_Access</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A> /= <b>null</b> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-menus__ads.htm#182_20">Free_Items</A> <b>then</b> - <b>for</b> <FONT COLOR=red><A NAME="998_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A>'First .. (<A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A>'Last - 1) <b>loop</b> - <b>if</b> (<A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A> (<A HREF="terminal_interface-curses-menus__adb.htm#998_14">I</A>) /= <A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A>) <b>then</b> - <A HREF="terminal_interface-curses-menus__ads.htm#639_14">Delete</A> (<A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A> (<A HREF="terminal_interface-curses-menus__adb.htm#998_14">I</A>)); - <b>end</b> <b>if</b>; - <b>end</b> <b>loop</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-menus__adb.htm#994_17">Release</A> (<A HREF="terminal_interface-curses-menus__ads.htm#181_20">IA</A>); - <b>end</b> Free; - -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#146_13">Default_Menu_Options</A><FONT COLOR=red><A NAME="1008_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu_Option_Set</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#353_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Menu</A>); - <b>end</b> Default_Menu_Options; - - <b>function</b> <A HREF="terminal_interface-curses-menus__ads.htm#169_13">Default_Item_Options</A><FONT COLOR=red><A NAME="1014_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item_Option_Set</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#353_13">Get_Options</A> (<A HREF="terminal_interface-curses-menus__ads.htm#61_4">Null_Item</A>); - <b>end</b> Default_Item_Options; -<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Menus; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__ads.htm deleted file mode 100644 index 5a591da..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-menus__ads.htm +++ /dev/null @@ -1,673 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menu --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.21 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- menu binding.</EM></FONT> -<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> -<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> System; -<b>with</b> Ada.Characters.Latin_1; - -<b>package</b> Terminal_Interface.Curses.Menus <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus); - <b>pragma</b> Linker_Options ("-lmenu"); - <b>pragma</b> Linker_Options ("-lncurses"); - - Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; - - <b>type</b> <FONT COLOR=red><A NAME="56_9">Item</A></FONT> <b>is</b> <b>private</b>; - <b>type</b> Menu <b>is</b> <b>private</b>; - - <FONT COLOR=green><EM>---------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Interface constants --</EM></FONT> - <FONT COLOR=green><EM>---------------------------</EM></FONT> - <FONT COLOR=red><A NAME="62_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>; - Null_Menu : <b>constant</b> Menu; - - <b>subtype</b> Menu_Request_Code <b>is</b> Key_Code - <b>range</b> (Key_Max + 1) .. (Key_Max + 17); - - <FONT COLOR=green><EM>-- The prefix M_ stands for "Menu Request"</EM></FONT> - <FONT COLOR=red><A NAME="69_4">M_Left_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 1; - <FONT COLOR=red><A NAME="70_4">M_Right_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 2; - <FONT COLOR=red><A NAME="71_4">M_Up_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 3; - <FONT COLOR=red><A NAME="72_4">M_Down_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 4; - <FONT COLOR=red><A NAME="73_4">M_ScrollUp_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 5; - <FONT COLOR=red><A NAME="74_4">M_ScrollDown_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 6; - <FONT COLOR=red><A NAME="75_4">M_ScrollDown_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 7; - <FONT COLOR=red><A NAME="76_4">M_ScrollUp_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 8; - <FONT COLOR=red><A NAME="77_4">M_First_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 9; - <FONT COLOR=red><A NAME="78_4">M_Last_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 10; - <FONT COLOR=red><A NAME="79_4">M_Next_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 11; - <FONT COLOR=red><A NAME="80_4">M_Previous_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 12; - <FONT COLOR=red><A NAME="81_4">M_Toggle_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 13; - <FONT COLOR=red><A NAME="82_4">M_Clear_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 14; - <FONT COLOR=red><A NAME="83_4">M_Back_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 15; - <FONT COLOR=red><A NAME="84_4">M_Next_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 16; - M_Previous_Match : <b>constant</b> Menu_Request_Code := Key_Max + 17; - - <FONT COLOR=green><EM>-- For those who like the old 'C' names for the request codes</EM></FONT> - <FONT COLOR=red><A NAME="88_4">REQ_LEFT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#69_4">M_Left_Item</A>; - <FONT COLOR=red><A NAME="89_4">REQ_RIGHT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#70_4">M_Right_Item</A>; - <FONT COLOR=red><A NAME="90_4">REQ_UP_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#71_4">M_Up_Item</A>; - <FONT COLOR=red><A NAME="91_4">REQ_DOWN_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#72_4">M_Down_Item</A>; - <FONT COLOR=red><A NAME="92_4">REQ_SCR_ULINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#73_4">M_ScrollUp_Line</A>; - <FONT COLOR=red><A NAME="93_4">REQ_SCR_DLINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#74_4">M_ScrollDown_Line</A>; - <FONT COLOR=red><A NAME="94_4">REQ_SCR_DPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#75_4">M_ScrollDown_Page</A>; - <FONT COLOR=red><A NAME="95_4">REQ_SCR_UPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#76_4">M_ScrollUp_Page</A>; - <FONT COLOR=red><A NAME="96_4">REQ_FIRST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#77_4">M_First_Item</A>; - <FONT COLOR=red><A NAME="97_4">REQ_LAST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#78_4">M_Last_Item</A>; - <FONT COLOR=red><A NAME="98_4">REQ_NEXT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#79_4">M_Next_Item</A>; - <FONT COLOR=red><A NAME="99_4">REQ_PREV_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#80_4">M_Previous_Item</A>; - <FONT COLOR=red><A NAME="100_4">REQ_TOGGLE_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#81_4">M_Toggle_Item</A>; - <FONT COLOR=red><A NAME="101_4">REQ_CLEAR_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#82_4">M_Clear_Pattern</A>; - <FONT COLOR=red><A NAME="102_4">REQ_BACK_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#83_4">M_Back_Pattern</A>; - <FONT COLOR=red><A NAME="103_4">REQ_NEXT_MATCH</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#84_4">M_Next_Match</A>; - REQ_PREV_MATCH : Menu_Request_Code <b>renames</b> M_Previous_Match; - - <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="106_28">Key</A></FONT> : <b>in</b> Menu_Request_Code; - Name : <b>out</b> String); - - <b>function</b> Request_Name (Key : Menu_Request_Code) <b>return</b> String; - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - - <FONT COLOR=green><EM>------------------</EM></FONT> - <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> - <FONT COLOR=green><EM>------------------</EM></FONT> - - Menu_Exception : <b>exception</b>; - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Menu options</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>pragma</b> Warnings (Off); - <b>type</b> Menu_Option_Set <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="123_10">One_Valued</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="124_10">Show_Descriptions</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="125_10">Row_Major_Order</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="126_10">Ignore_Case</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="127_10">Show_Matches</A></FONT> : Boolean; - Non_Cyclic : Boolean; - <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#120_9">;</A> - <b>pragma</b> Pack (Menu_Option_Set); - <b>pragma</b> Convention (C, Menu_Option_Set); - - <b>for</b> Menu_Option_Set <b>use</b> - <b>record</b> - One_Valued <b>at</b> 0 <b>range</b> 0 .. 0; - Show_Descriptions <b>at</b> 0 <b>range</b> 1 .. 1; - Row_Major_Order <b>at</b> 0 <b>range</b> 2 .. 2; - Ignore_Case <b>at</b> 0 <b>range</b> 3 .. 3; - Show_Matches <b>at</b> 0 <b>range</b> 4 .. 4; - Non_Cyclic <b>at</b> 0 <b>range</b> 5 .. 5; - <b>end</b> <b>record</b>; - <b>for</b> Menu_Option_Set'Size <b>use</b> 32; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.</EM></FONT> - <b>pragma</b> Warnings (On); - - <b>function</b> Default_Menu_Options <b>return</b> Menu_Option_Set; - <FONT COLOR=green><EM>-- Initial default options for a menu.</EM></FONT> - <b>pragma</b> Inline (Default_Menu_Options); - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Item options</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>pragma</b> Warnings (Off); - <b>type</b> Item_Option_Set <b>is</b> - <b>record</b> - Selectable : Boolean; - <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#153_9">;</A> - <b>pragma</b> Pack (Item_Option_Set); - <b>pragma</b> Convention (C, Item_Option_Set); - - <b>for</b> Item_Option_Set <b>use</b> - <b>record</b> - Selectable <b>at</b> 0 <b>range</b> 0 .. 0; - <b>end</b> <b>record</b>; - <b>for</b> Item_Option_Set'Size <b>use</b> 32; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.</EM></FONT> - <b>pragma</b> Warnings (On); - - <b>function</b> Default_Item_Options <b>return</b> Item_Option_Set; - <FONT COLOR=green><EM>-- Initial default options for an item.</EM></FONT> - <b>pragma</b> Inline (Default_Item_Options); - - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Item Array</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>type</b> Item_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Item; - <b>pragma</b> Convention (C, Item_Array); - - <b>type</b> Item_Array_Access <b>is</b> <b>access</b> Item_Array; - - <b>procedure</b> Free (<FONT COLOR=red><A NAME="182_20">IA</A></FONT> : <b>in</b> <b>out</b> Item_Array_Access; - Free_Items : Boolean := False); - <FONT COLOR=green><EM>-- Release the memory for an allocated item array</EM></FONT> - <FONT COLOR=green><EM>-- If Free_Items is True, call Delete() for all the items in</EM></FONT> - <FONT COLOR=green><EM>-- the array.</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>function</b> Create (<FONT COLOR=red><A NAME="193_21">Name</A></FONT> : String; - Description : String := "") <b>return</b> Item; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT> - <FONT COLOR=green><EM>-- Not inlined.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>function</b> New_Item (<FONT COLOR=red><A NAME="199_23">Name</A></FONT> : String; - <A HREF="terminal_interface-curses-menus__ads.htm#192_13"> </A> Description : String := "") <b>return</b> Item - <b>renames</b> Create; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>procedure</b> Delete (Itm : <b>in</b> <b>out</b> Item); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A></EM></FONT> - <FONT COLOR=green><EM>-- Resets Itm to Null_Item</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> - <b>procedure</b> Set_Value (<FONT COLOR=red><A NAME="214_25">Itm</A></FONT> : <b>in</b> Item; - Value : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A></EM></FONT> - <b>pragma</b> Inline (Set_Value); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> - <b>function</b> Value (Itm : Item) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A></EM></FONT> - <b>pragma</b> Inline (Value); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> - <b>function</b> Visible (Itm : Item) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A></EM></FONT> - <b>pragma</b> Inline (Visible); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> - <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="238_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>; - Options : <b>in</b> Item_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT> - <FONT COLOR=green><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> - <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="244_30">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>; - <FONT COLOR=red><A NAME="245_30">Options</A></FONT> : <b>in</b> Item_Option_Set; - On : Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: item_opts_off()</EM></FONT> - <FONT COLOR=green><EM>-- An overloaded Switch_Options is defined later.</EM></FONT> - <FONT COLOR=green><EM>-- Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> - <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="253_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>; - Options : <b>out</b> Item_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> - <b>function</b> Get_Options (Itm : Item := Null_Item) <b>return</b> Item_Option_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT> - <FONT COLOR=green><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> - <b>procedure</b> Name (<FONT COLOR=red><A NAME="267_20">Itm</A></FONT> : <b>in</b> Item; - Name : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT> - <b>function</b> Name (Itm : Item) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT> - <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> - <b>pragma</b> Inline (Name); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> - <b>procedure</b> Description (<FONT COLOR=red><A NAME="276_27">Itm</A></FONT> : <b>in</b> Item; - Description : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT> - - <b>function</b> Description (Itm : Item) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT> - <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> - <b>pragma</b> Inline (Description); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> - <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="290_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Menu</A>; - Itm : <b>in</b> Item); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A></EM></FONT> - <b>pragma</b> Inline (Set_Current); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> - <b>function</b> Current (Men : Menu) <b>return</b> Item; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A></EM></FONT> - <b>pragma</b> Inline (Current); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> - <b>procedure</b> Set_Top_Row (<FONT COLOR=red><A NAME="301_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Menu</A>; - Line : <b>in</b> Line_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A></EM></FONT> - <b>pragma</b> Inline (Set_Top_Row); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> - <b>function</b> Top_Row (Men : Menu) <b>return</b> Line_Position; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A></EM></FONT> - <b>pragma</b> Inline (Top_Row); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> - <b>function</b> Get_Index (Itm : Item) <b>return</b> Positive; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A></EM></FONT> - <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of items</EM></FONT> - <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> - <FONT COLOR=green><EM>-- level call.</EM></FONT> - <b>pragma</b> Inline (Get_Index); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> - <b>procedure</b> Post (<FONT COLOR=red><A NAME="324_20">Men</A></FONT> : <b>in</b> Menu; - Post : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: unpost_menu()</EM></FONT> - <b>pragma</b> Inline (Post); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> - <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="335_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>; - Options : <b>in</b> Menu_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT> - <b>pragma</b> Inline (Set_Options); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> - <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="341_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>; - <FONT COLOR=red><A NAME="342_30">Options</A></FONT> : <b>in</b> Menu_Option_Set; - On : Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: menu_opts_off()</EM></FONT> - <b>pragma</b> Inline (Switch_Options); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> - <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="349_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>; - Options : <b>out</b> Menu_Option_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> - <b>function</b> Get_Options (Men : Menu := Null_Menu) <b>return</b> Menu_Option_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT> - <b>pragma</b> Inline (Get_Options); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> - <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="363_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Menu</A>; - Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A></EM></FONT> - <b>pragma</b> Inline (Set_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> - <b>function</b> Get_Window (Men : Menu) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A></EM></FONT> - <b>pragma</b> Inline (Get_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> - <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="374_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Menu</A>; - Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A></EM></FONT> - <b>pragma</b> Inline (Set_Sub_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> - <b>function</b> Get_Sub_Window (Men : Menu) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A></EM></FONT> - <b>pragma</b> Inline (Get_Sub_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> - <b>procedure</b> Scale (<FONT COLOR=red><A NAME="385_21">Men</A></FONT> : <b>in</b> Menu; - <FONT COLOR=red><A NAME="386_21">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_win.3x.html">scale_menu()</A></EM></FONT> - <b>pragma</b> Inline (Scale); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> - <b>procedure</b> Position_Cursor (Men : Menu); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT> - <b>pragma</b> Inline (Position_Cursor); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> - <b>procedure</b> Set_Mark (<FONT COLOR=red><A NAME="405_24">Men</A></FONT> : <b>in</b> Menu; - Mark : <b>in</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT> - <b>pragma</b> Inline (Set_Mark); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> - <b>procedure</b> Mark (<FONT COLOR=red><A NAME="411_20">Men</A></FONT> : <b>in</b> Menu; - Mark : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT> - - <b>function</b> Mark (Men : Menu) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT> - <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> - <b>pragma</b> Inline (Mark); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> - <b>procedure</b> Set_Foreground - (<FONT COLOR=red><A NAME="426_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="427_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A></EM></FONT> - <b>pragma</b> Inline (Set_Foreground); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> - <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="433_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - Fore : <b>out</b> Character_Attribute_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> - <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="438_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="439_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - Color : <b>out</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT> - <b>pragma</b> Inline (Foreground); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> - <b>procedure</b> Set_Background - (<FONT COLOR=red><A NAME="446_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="447_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A></EM></FONT> - <b>pragma</b> Inline (Set_Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> - <b>procedure</b> Background (<FONT COLOR=red><A NAME="453_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - Back : <b>out</b> Character_Attribute_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT> - <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> - - <b>procedure</b> Background (<FONT COLOR=red><A NAME="458_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="459_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - Color : <b>out</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT> - <b>pragma</b> Inline (Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> - <b>procedure</b> Set_Grey - (<FONT COLOR=red><A NAME="466_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="467_7">Grey</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A></EM></FONT> - <b>pragma</b> Inline (Set_Grey); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> - <b>procedure</b> Grey (<FONT COLOR=red><A NAME="473_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - Grey : <b>out</b> Character_Attribute_Set); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> - <b>procedure</b> Grey - (<FONT COLOR=red><A NAME="479_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Menu</A>; - <FONT COLOR=red><A NAME="480_7">Grey</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - Color : <b>out</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT> - <b>pragma</b> Inline (Grey); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> - <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="486_33">Men</A></FONT> : <b>in</b> Menu; - Pad : <b>in</b> Character := Space); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A></EM></FONT> - <b>pragma</b> Inline (Set_Pad_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> - <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="492_29">Men</A></FONT> : <b>in</b> Menu; - Pad : <b>out</b> Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A></EM></FONT> - <b>pragma</b> Inline (Pad_Character); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> - <b>procedure</b> Set_Spacing (<FONT COLOR=red><A NAME="502_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>; - <FONT COLOR=red><A NAME="503_27">Descr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A> := 0; - <FONT COLOR=red><A NAME="504_27">Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := 0; - Col : <b>in</b> Column_Position := 0); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT> - <b>pragma</b> Inline (Set_Spacing); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> - <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>-- 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="546_22">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Menu</A>; - <FONT COLOR=red><A NAME="547_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="560_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_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="566_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_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="572_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_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="578_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#555_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="608_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="613_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#612_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="618_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_new.3x.html">menu_new.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="649_27">Menu_Ok</A></FONT>, - <FONT COLOR=red><A NAME="650_27">Request_Denied</A></FONT>, - <FONT COLOR=red><A NAME="651_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="655_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_new.3x.html">menu_driver()</A></EM></FONT> - <FONT COLOR=green><EM>-- Driver is not inlined</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>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__adb.htm deleted file mode 100644 index f6eeaee..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__adb.htm +++ /dev/null @@ -1,219 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-mouse.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-mouse.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Mouse --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.16 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> System; - -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-mouse__ads.htm#47_35">Mouse</A><FONT COLOR=red><A NAME="47_40"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> System.Bit_Order; - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#91_13">Has_Mouse</A><FONT COLOR=red><A NAME="52_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="54_16">Mouse_Avail</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#54_16">Mouse_Avail</A>, "_nc_has_mouse"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#737_13">Has_Key</A> (<A HREF="terminal_interface-curses__ads.htm#202_4">Key_Mouse</A>) <b>or</b> <b>else</b> <A HREF="terminal_interface-curses-mouse__adb.htm#54_16">Mouse_Avail</A> /= 0 <b>then</b> - <b>return</b> True; - <b>else</b> - <b>return</b> False; - <b>end</b> <b>if</b>; - <b>end</b> Has_Mouse; - - <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#124_13">Get_Mouse</A><FONT COLOR=red><A NAME="64_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A> - <b>is</b> - <b>type</b> Event_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>; - - <b>function</b> <FONT COLOR=red><A NAME="68_16">Getmouse</A></FONT> (Ev : Event_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#68_16">Getmouse</A>, "getmouse"); - - <FONT COLOR=red><A NAME="71_7">Event</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#68_16">Getmouse</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#71_7">Event</A>'<b>Access</b>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-mouse__adb.htm#71_7">Event</A>; - <b>end</b> Get_Mouse; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#94_14">Register_Reportable_Event</A><FONT COLOR=red><A NAME="79_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#95_7">Button</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#96_7">State</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#97_7">Mask</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>) - <b>is</b> - <FONT COLOR=red><A NAME="83_7">Button_Nr</A></FONT> : <b>constant</b> Natural := <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>'Pos (<A HREF="terminal_interface-curses-mouse__ads.htm#95_7">Button</A>); - <FONT COLOR=red><A NAME="84_7">State_Nr</A></FONT> : <b>constant</b> Natural := <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>'Pos (<A HREF="terminal_interface-curses-mouse__ads.htm#96_7">State</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#95_7">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#70_12">Modifier_Keys</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-mouse__ads.htm#96_7">State</A> /= <A HREF="terminal_interface-curses-mouse__ads.htm#73_26">Pressed</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>else</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#95_7">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#69_12">Real_Buttons</A> <b>then</b> - <A HREF="terminal_interface-curses-mouse__ads.htm#97_7">Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#97_7">Mask</A> <b>or</b> ((2 ** (6 * <A HREF="terminal_interface-curses-mouse__adb.htm#83_7">Button_Nr</A>)) ** <A HREF="terminal_interface-curses-mouse__adb.htm#84_7">State_Nr</A>); - <b>else</b> - <A HREF="terminal_interface-curses-mouse__ads.htm#97_7">Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#97_7">Mask</A> <b>or</b> (<A HREF="terminal_interface-curses-mouse__ads.htm#206_4">BUTTON_CTRL</A> ** (<A HREF="terminal_interface-curses-mouse__adb.htm#83_7">Button_Nr</A> - 4)); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Register_Reportable_Event; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#103_14">Register_Reportable_Events</A><FONT COLOR=red><A NAME="97_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Button</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#105_7">State</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#78_9">Button_States</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#106_7">Mask</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>) - <b>is</b> - <b>begin</b> - <b>for</b> <FONT COLOR=red><A NAME="102_11">S</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#78_9">Button_States</A>'<b>Range</b> <b>loop</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__ads.htm#105_7">State</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#102_11">S</A>) <b>then</b> - <A HREF="terminal_interface-curses-mouse__ads.htm#94_14">Register_Reportable_Event</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#104_7">Button</A>, <A HREF="terminal_interface-curses-mouse__adb.htm#102_11">S</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#106_7">Mask</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>loop</b>; - <b>end</b> Register_Reportable_Events; - - <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#114_13">Start_Mouse</A><FONT COLOR=red><A NAME="109_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#114_26">Mask</A> : <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#59_4">All_Events</A>) - <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="112_16">MMask</A></FONT> (<FONT COLOR=red><A NAME="112_23">M</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - O : <b>access</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>) <b>return</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#112_16">MMask</A>, "mousemask"); - <FONT COLOR=red><A NAME="115_7">R</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <FONT COLOR=red><A NAME="116_7">Old</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#115_7">R</A> := <A HREF="terminal_interface-curses-mouse__adb.htm#112_16">MMask</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#114_26">Mask</A>, <A HREF="terminal_interface-curses-mouse__adb.htm#116_7">Old</A>'<b>Access</b>); - <b>return</b> <A HREF="terminal_interface-curses-mouse__adb.htm#116_7">Old</A>; - <b>end</b> Start_Mouse; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#119_14">End_Mouse</A><FONT COLOR=red><A NAME="122_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#119_25">Mask</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#58_4">No_Events</A>) - <b>is</b> - <b>begin</b> - <b>null</b>; - <b>end</b> End_Mouse; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__adb.htm#132_14">Dispatch_Event</A><FONT COLOR=red><A NAME="128_14"></A></FONT> (<FONT COLOR=red><A NAME="128_30">Mask</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <FONT COLOR=red><A NAME="129_30">Button</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>; - <FONT COLOR=red><A NAME="130_30">State</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__adb.htm#128_14">Dispatch_Event</A><FONT COLOR=red><A NAME="132_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>; - <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">State</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>) <b>is</b> - <FONT COLOR=red><A NAME="135_7">L</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#67_26">Alt</A>; <FONT COLOR=green><EM>-- preset to non real button;</EM></FONT> - <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#210_4">BUTTON1_EVENTS</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#61_26">Left</A>; - <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#211_4">BUTTON2_EVENTS</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#62_26">Middle</A>; - <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#212_4">BUTTON3_EVENTS</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#63_26">Right</A>; - <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#213_4">BUTTON4_EVENTS</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#64_26">Button4</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#69_12">Real_Buttons</A> <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#135_7">L</A> := 2 ** (6 * <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>'Pos (<A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A>)); - <b>for</b> <FONT COLOR=red><A NAME="149_14">I</A></FONT> <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>'<b>Range</b> <b>loop</b> - <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__adb.htm#135_7">L</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">State</A> := <A HREF="terminal_interface-curses-mouse__adb.htm#149_14">I</A>; - <b>exit</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-mouse__adb.htm#135_7">L</A> := 2 * <A HREF="terminal_interface-curses-mouse__adb.htm#135_7">L</A>; - <b>end</b> <b>loop</b>; - <b>else</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#130_30">State</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#73_26">Pressed</A>; - <b>if</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#206_4">BUTTON_CTRL</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#65_26">Control</A>; - <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#207_4">BUTTON_SHIFT</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#66_26">Shift</A>; - <b>elsif</b> (<A HREF="terminal_interface-curses-mouse__adb.htm#128_30">Mask</A> <b>and</b> <A HREF="terminal_interface-curses-mouse__ads.htm#208_4">BUTTON_ALT</A>) /= 0 <b>then</b> - <A HREF="terminal_interface-curses-mouse__adb.htm#129_30">Button</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#67_26">Alt</A>; - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Dispatch_Event; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#128_14">Get_Event</A><FONT COLOR=red><A NAME="168_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#128_25">Event</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#129_25">Y</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#130_25">X</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#131_25">Button</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#132_25">State</A> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Button_State</A>) - <b>is</b> - <FONT COLOR=red><A NAME="174_7">Mask</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#128_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#163_10">Bstate</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-mouse__ads.htm#130_25">X</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#128_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#161_10">X</A>); - <A HREF="terminal_interface-curses-mouse__ads.htm#129_25">Y</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#128_25">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#161_13">Y</A>); - <A HREF="terminal_interface-curses-mouse__adb.htm#128_14">Dispatch_Event</A> (<A HREF="terminal_interface-curses-mouse__adb.htm#174_7">Mask</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#131_25">Button</A>, <A HREF="terminal_interface-curses-mouse__ads.htm#132_25">State</A>); - <b>end</b> Get_Event; - - <b>procedure</b> <A HREF="terminal_interface-curses-mouse__ads.htm#138_14">Unget_Mouse</A><FONT COLOR=red><A NAME="181_14"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#138_27">Event</A> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="183_16">Ungetmouse</A></FONT> (<FONT COLOR=red><A NAME="183_28">Ev</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#183_16">Ungetmouse</A>, "ungetmouse"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#183_16">Ungetmouse</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#138_27">Event</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Unget_Mouse; - - <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#143_13">Enclosed_In_Window</A><FONT COLOR=red><A NAME="191_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#143_33">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses-mouse__ads.htm#144_33">Event</A> : <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Mouse_Event</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="194_16">Wenclose</A></FONT> (<FONT COLOR=red><A NAME="194_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="194_40">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; <FONT COLOR=red><A NAME="194_51">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#194_16">Wenclose</A>, "wenclose"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-mouse__adb.htm#194_16">Wenclose</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#143_33">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#144_33">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#161_13">Y</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#144_33">Event</A>.<A HREF="terminal_interface-curses-mouse__ads.htm#161_10">X</A>)) - = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Enclosed_In_Window; - - <b>function</b> <A HREF="terminal_interface-curses-mouse__ads.htm#150_13">Mouse_Interval</A><FONT COLOR=red><A NAME="206_13"></A></FONT> (<A HREF="terminal_interface-curses-mouse__ads.htm#150_29">Msec</A> : Natural := 200) <b>return</b> Natural - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="208_16">Mouseinterval</A></FONT> (<FONT COLOR=red><A NAME="208_31">Msec</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-mouse__adb.htm#208_16">Mouseinterval</A>, "mouseinterval"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses-mouse__adb.htm#208_16">Mouseinterval</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-mouse__ads.htm#150_29">Msec</A>))); - <b>end</b> Mouse_Interval; - -<b>end</b> Terminal_Interface.Curses.Mouse; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__ads.htm deleted file mode 100644 index bfd6fe9..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-mouse__ads.htm +++ /dev/null @@ -1,225 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-mouse.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-mouse.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Mouse --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.19 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- mouse binding.</EM></FONT> -<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> -<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> System; - -<b>package</b> Terminal_Interface.Curses.Mouse <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Mouse); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- Please note, that in ncurses-1.9.9e documentation mouse support</EM></FONT> - <FONT COLOR=green><EM>-- is still marked as experimental. So also this binding will change</EM></FONT> - <FONT COLOR=green><EM>-- if the ncurses methods change.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>type</b> Event_Mask <b>is</b> <b>private</b>; - <FONT COLOR=red><A NAME="59_4">No_Events</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A>; - All_Events : <b>constant</b> Event_Mask; - - <b>type</b> Mouse_Button <b>is</b> (<FONT COLOR=red><A NAME="62_26">Left</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 1</EM></FONT> - <FONT COLOR=red><A NAME="63_26">Middle</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 2</EM></FONT> - <FONT COLOR=red><A NAME="64_26">Right</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 3</EM></FONT> - <FONT COLOR=red><A NAME="65_26">Button4</A></FONT>, <FONT COLOR=green><EM>-- aka: Button 4</EM></FONT> - <FONT COLOR=red><A NAME="66_26">Control</A></FONT>, <FONT COLOR=green><EM>-- Control Key</EM></FONT> - <FONT COLOR=red><A NAME="67_26">Shift</A></FONT>, <FONT COLOR=green><EM>-- Shift Key</EM></FONT> - Alt); <FONT COLOR=green><EM>-- ALT Key</EM></FONT> - - <b>subtype</b> <FONT COLOR=red><A NAME="70_12">Real_Buttons</A></FONT> <b>is</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Mouse_Button</A> <b>range</b> <A HREF="terminal_interface-curses-mouse__ads.htm#65_26">Left</A> .. Button4; - <b>subtype</b> Modifier_Keys <b>is</b> Mouse_Button <b>range</b> Control .. Alt; - - <b>type</b> Button_State <b>is</b> (<FONT COLOR=red><A NAME="73_26">Released</A></FONT>, - <FONT COLOR=red><A NAME="74_26">Pressed</A></FONT>, - Clicked, - <FONT COLOR=red><A NAME="76_26">Double_Clicked</A></FONT>, - Triple_Clicked); - - <b>type</b> Button_States <b>is</b> <b>array</b> (Button_State) <b>of</b> Boolean; - <b>pragma</b> Pack (Button_States); - - All_Clicks : <b>constant</b> Button_States := (Clicked .. Triple_Clicked => True, - <FONT COLOR=red><A NAME="83_4"> </A></FONT> <A HREF="terminal_interface-curses-mouse__ads.htm#78_9"> </A> <b>others</b> => False); - All_States : <b>constant</b> Button_States := (<b>others</b> => True); - - <b>type</b> Mouse_Event <b>is</b> <b>private</b>; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_mouse.3x.html">curs_mouse.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>function</b> Has_Mouse <b>return</b> Boolean; - <FONT COLOR=green><EM>-- Return true if a mouse device is supported, false otherwise.</EM></FONT> - - <b>procedure</b> Register_Reportable_Event - (<FONT COLOR=red><A NAME="96_7">Button</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Mouse_Button</A>; - <FONT COLOR=red><A NAME="97_7">State</A></FONT> : <b>in</b> Button_State; - Mask : <b>in</b> <b>out</b> Event_Mask); - <FONT COLOR=green><EM>-- Stores the event described by the button and the state in the mask.</EM></FONT> - <FONT COLOR=green><EM>-- Before you call this the first time, you should init the mask</EM></FONT> - <FONT COLOR=green><EM>-- with the Empty_Mask constant</EM></FONT> - <b>pragma</b> Inline (Register_Reportable_Event); - - <b>procedure</b> Register_Reportable_Events - (<FONT COLOR=red><A NAME="105_7">Button</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-mouse__ads.htm#78_9">Mouse_Button</A>; - <FONT COLOR=red><A NAME="106_7">State</A></FONT> : <b>in</b> Button_States; - Mask : <b>in</b> <b>out</b> Event_Mask); - <FONT COLOR=green><EM>-- Register all events described by the Button and the State bitmap.</EM></FONT> - <FONT COLOR=green><EM>-- Before you call this the first time, you should init the mask</EM></FONT> - <FONT COLOR=green><EM>-- with the Empty_Mask constant</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <FONT COLOR=green><EM>-- There is one difference to mousmask(): we return the value of the</EM></FONT> - <FONT COLOR=green><EM>-- old mask, that means the event mask value before this call.</EM></FONT> - <b>function</b> Start_Mouse (Mask : <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := All_Events) - <b>return</b> Event_Mask; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">mousemask()</A></EM></FONT> - <b>pragma</b> Inline (Start_Mouse); - - <b>procedure</b> End_Mouse (Mask : <b>in</b> Event_Mask := No_Events); - <FONT COLOR=green><EM>-- Terminates the mouse, restores the specified event mask</EM></FONT> - <b>pragma</b> Inline (End_Mouse); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>function</b> Get_Mouse <b>return</b> Mouse_Event; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">getmouse()</A></EM></FONT> - <b>pragma</b> Inline (Get_Mouse); - - <b>procedure</b> Get_Event (<FONT COLOR=red><A NAME="129_25">Event</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Mouse_Event</A>; - <FONT COLOR=red><A NAME="130_25">Y</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="131_25">X</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#61_9">Column_Position</A>; - <FONT COLOR=red><A NAME="132_25">Button</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-mouse__ads.htm#72_9">Mouse_Button</A>; - State : <b>out</b> Button_State); - <FONT COLOR=green><EM>-- !!! Warning: X and Y are screen coordinates. Due to ripped of lines they</EM></FONT> - <FONT COLOR=green><EM>-- may not be identical to window coordinates.</EM></FONT> - <b>pragma</b> Inline (Get_Event); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>procedure</b> Unget_Mouse (Event : <b>in</b> Mouse_Event); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">ungetmouse()</A></EM></FONT> - <b>pragma</b> Inline (Unget_Mouse); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> - <b>function</b> Enclosed_In_Window (<FONT COLOR=red><A NAME="144_33">Win</A></FONT> : <A HREF="terminal_interface-curses-mouse__ads.htm#85_9">Window</A> := Standard_Window; - Event : Mouse_Event) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">wenclose()</A></EM></FONT> - <FONT COLOR=green><EM>-- But : use event instead of screen coordinates.</EM></FONT> - <b>pragma</b> Inline (Enclosed_In_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> - <b>function</b> Mouse_Interval (Msec : Natural := 200) <b>return</b> Natural; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_mouse.3x.html">mouseinterval()</A></EM></FONT> - <b>pragma</b> Inline (Mouse_Interval); - -<b>private</b> - <b>type</b> Event_Mask <b>is</b> <b>new</b> Interfaces.C.unsigned_long; - - <b>type</b> Mouse_Event <b>is</b> - <b>record</b> - Id : Integer <b>range</b> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short'First) .. - <FONT COLOR=red><A NAME="161_10"> </A></FONT> <FONT COLOR=red><A NAME="161_13"> </A></FONT> <FONT COLOR=red><A NAME="161_16"> </A></FONT> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.short'Last); - X, Y, Z : Integer <b>range</b> Integer (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int'First) .. - <FONT COLOR=red><A NAME="163_10"> </A></FONT> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9"> </A> Integer (Interfaces.C.int'Last); - Bstate : Event_Mask; - <b>end</b> <b>record</b>; - <b>pragma</b> Convention (C, Mouse_Event); - <b>pragma</b> Pack (Mouse_Event); - - <b>for</b> Mouse_Event <b>use</b> - <b>record</b> - Id <b>at</b> 0 <b>range</b> 0 .. 15; - X <b>at</b> 0 <b>range</b> 32 .. 63; - Y <b>at</b> 0 <b>range</b> 64 .. 95; - Z <b>at</b> 0 <b>range</b> 96 .. 127; - Bstate <b>at</b> 0 <b>range</b> 128 .. 159; - <b>end</b> <b>record</b>; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.</EM></FONT> - - Generation_Bit_Order : <b>constant</b> System.Bit_Order := System.Low_Order_First; - <FONT COLOR=green><EM>-- This constant may be different on your system.</EM></FONT> - - <FONT COLOR=red><A NAME="183_4">BUTTON1_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000001#; - <FONT COLOR=red><A NAME="184_4">BUTTON1_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000002#; - <FONT COLOR=red><A NAME="185_4">BUTTON1_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000004#; - <FONT COLOR=red><A NAME="186_4">BUTTON1_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000010#; - <FONT COLOR=red><A NAME="187_4">BUTTON1_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000020#; - <FONT COLOR=red><A NAME="188_4">BUTTON1_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000040#; - <FONT COLOR=red><A NAME="189_4">BUTTON2_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000100#; - <FONT COLOR=red><A NAME="190_4">BUTTON2_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000200#; - <FONT COLOR=red><A NAME="191_4">BUTTON2_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000400#; - <FONT COLOR=red><A NAME="192_4">BUTTON2_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000001000#; - <FONT COLOR=red><A NAME="193_4">BUTTON2_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000002000#; - <FONT COLOR=red><A NAME="194_4">BUTTON2_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000004000#; - <FONT COLOR=red><A NAME="195_4">BUTTON3_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000010000#; - <FONT COLOR=red><A NAME="196_4">BUTTON3_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000020000#; - <FONT COLOR=red><A NAME="197_4">BUTTON3_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000040000#; - <FONT COLOR=red><A NAME="198_4">BUTTON3_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000100000#; - <FONT COLOR=red><A NAME="199_4">BUTTON3_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000200000#; - <FONT COLOR=red><A NAME="200_4">BUTTON3_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000400000#; - <FONT COLOR=red><A NAME="201_4">BUTTON4_RELEASED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00001000000#; - <FONT COLOR=red><A NAME="202_4">BUTTON4_PRESSED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00002000000#; - <FONT COLOR=red><A NAME="203_4">BUTTON4_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00004000000#; - <FONT COLOR=red><A NAME="204_4">BUTTON4_DOUBLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00010000000#; - <FONT COLOR=red><A NAME="205_4">BUTTON4_TRIPLE_CLICKED</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00020000000#; - <FONT COLOR=red><A NAME="206_4">BUTTON4_RESERVED_EVENT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00040000000#; - <FONT COLOR=red><A NAME="207_4">BUTTON_CTRL</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00100000000#; - <FONT COLOR=red><A NAME="208_4">BUTTON_SHIFT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00200000000#; - <FONT COLOR=red><A NAME="209_4">BUTTON_ALT</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00400000000#; - <FONT COLOR=red><A NAME="210_4">ALL_MOUSE_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00777777777#; - <FONT COLOR=red><A NAME="211_4">BUTTON1_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000000077#; - <FONT COLOR=red><A NAME="212_4">BUTTON2_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000007700#; - <FONT COLOR=red><A NAME="213_4">BUTTON3_EVENTS</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := 8#00000770000#; - BUTTON4_EVENTS : <b>constant</b> Event_Mask := 8#00077000000#; - - - <A HREF="terminal_interface-curses-mouse__ads.htm#59_4">No_Events</A> : <b>constant</b> <A HREF="terminal_interface-curses-mouse__ads.htm#57_9">Event_Mask</A> := <A HREF="terminal_interface-curses-mouse__ads.htm#209_4">0</A>; - All_Events : <b>constant</b> Event_Mask := ALL_MOUSE_EVENTS; - -<b>end</b> Terminal_Interface.Curses.Mouse; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm deleted file mode 100644 index 3e77b2e..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__adb.htm +++ /dev/null @@ -1,83 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-panels-user_data.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels-user_data.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels.User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#43_35">Panels</A>; -<b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-panels__ads.htm#43_35">Panels</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Panels.<A HREF="terminal_interface-curses-panels-user_data__ads.htm#45_42">User_Data</A> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#53_14">Set_User_Data</A><FONT COLOR=red><A NAME="51_14"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#53_29">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - Data : <b>in</b> User_Access) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="54_16">Set_Panel_Userptr</A></FONT> (<FONT COLOR=red><A NAME="54_35">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - Addr : User_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels-user_data__adb.htm#54_16">Set_Panel_Userptr</A>, "set_panel_userptr"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels-user_data__adb.htm#54_16">Set_Panel_Userptr</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#53_29">Pan</A>, Data) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_User_Data; - - <b>function</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#64_13">Get_User_Data</A><FONT COLOR=red><A NAME="63_13"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#64_28">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> User_Access - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="65_16">Panel_Userptr</A></FONT> (<FONT COLOR=red><A NAME="65_31">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> User_Access; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels-user_data__adb.htm#65_16">Panel_Userptr</A>, "panel_userptr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-panels-user_data__adb.htm#65_16">Panel_Userptr</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#64_28">Pan</A>); - <b>end</b> Get_User_Data; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels-user_data__ads.htm#59_14">Get_User_Data</A><FONT COLOR=red><A NAME="71_14"></A></FONT> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#59_29">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - Data : <b>out</b> User_Access) - <b>is</b> - <b>begin</b> - Data := <A HREF="terminal_interface-curses-panels-user_data__ads.htm#64_13">Get_User_Data</A> (<A HREF="terminal_interface-curses-panels-user_data__ads.htm#59_29">Pan</A>); - <b>end</b> Get_User_Data; - -<b>end</b> Terminal_Interface.Curses.Panels.User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm deleted file mode 100644 index 27e8d5b..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels-user_data__ads.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-panels-user_data.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels-user_data.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels.User_Data --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - -<b>generic</b> - <b>type</b> User <b>is</b> <b>limited</b> <b>private</b>; - <b>type</b> <A HREF="terminal_interface__ads.htm#41_9">User_Access</A> <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-panels__ads.htm#43_35">User</A>; -<b>package</b> Terminal_Interface.Curses.Panels.User_Data<A HREF="terminal_interface-curses-panels__ads.htm#43_35"> </A><b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Panels.User_Data); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/panel.3x.html">panel.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>procedure</b> Set_User_Data (Pan : <b>in</b> Panel; - Data : <b>in</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">set_panel_userptr</A></EM></FONT> - <b>pragma</b> Inline (Set_User_Data); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Get_User_Data (Pan : <b>in</b> Panel; - Data : <b>out</b> User_Access); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_userptr</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>function</b> Get_User_Data (Pan : <b>in</b> Panel) <b>return</b> User_Access; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_userptr</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Get_User_Data); - -<b>end</b> Terminal_Interface.Curses.Panels.User_Data; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__adb.htm deleted file mode 100644 index e3dca5e..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__adb.htm +++ /dev/null @@ -1,169 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-panels.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; <b>use</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-panels__ads.htm#43_35">Panels</A><FONT COLOR=red><A NAME="44_40"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.int; - - <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#66_13">Create</A><FONT COLOR=red><A NAME="48_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#66_21">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="50_16">Newpanel</A></FONT> (<FONT COLOR=red><A NAME="50_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#50_16">Newpanel</A>, "new_panel"); - - <FONT COLOR=red><A NAME="53_7">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <b>begin</b> - <A HREF="terminal_interface-curses-panels__adb.htm#53_7">Pan</A> := <A HREF="terminal_interface-curses-panels__adb.htm#50_16">Newpanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#66_21">Win</A>); - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#53_7">Pan</A> = <A HREF="terminal_interface-curses-panels__ads.htm#53_4">Null_Panel</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-panels__adb.htm#53_7">Pan</A>; - <b>end</b> Create; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#76_14">Bottom</A><FONT COLOR=red><A NAME="62_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#76_22">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="64_16">Bottompanel</A></FONT> (<FONT COLOR=red><A NAME="64_29">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#64_16">Bottompanel</A>, "bottom_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#64_16">Bottompanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#76_22">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Bottom; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#81_14">Top</A><FONT COLOR=red><A NAME="72_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#81_19">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="74_16">Toppanel</A></FONT> (<FONT COLOR=red><A NAME="74_26">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#74_16">Toppanel</A>, "top_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#74_16">Toppanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#81_19">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Top; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#86_14">Show</A><FONT COLOR=red><A NAME="82_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#86_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="84_16">Showpanel</A></FONT> (<FONT COLOR=red><A NAME="84_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#84_16">Showpanel</A>, "show_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#84_16">Showpanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#86_20">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Show; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#96_14">Hide</A><FONT COLOR=red><A NAME="92_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#96_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="94_16">Hidepanel</A></FONT> (<FONT COLOR=red><A NAME="94_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#94_16">Hidepanel</A>, "hide_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#94_16">Hidepanel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#96_20">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Hide; - - <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#101_13">Get_Window</A><FONT COLOR=red><A NAME="102_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#101_25">Pan</A> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="104_16">Panel_Win</A></FONT> (<FONT COLOR=red><A NAME="104_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#104_16">Panel_Win</A>, "panel_window"); - - <FONT COLOR=red><A NAME="107_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses-panels__adb.htm#104_16">Panel_Win</A> (<A HREF="terminal_interface-curses-panels__ads.htm#101_25">Pan</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#107_7">Win</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-panels__adb.htm#107_7">Win</A>; - <b>end</b> Get_Window; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#110_14">Replace</A><FONT COLOR=red><A NAME="115_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#110_23">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <A HREF="terminal_interface-curses-panels__ads.htm#111_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="118_16">Replace_Pan</A></FONT> (<FONT COLOR=red><A NAME="118_29">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <FONT COLOR=red><A NAME="119_29">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#118_16">Replace_Pan</A>, "replace_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#118_16">Replace_Pan</A> (<A HREF="terminal_interface-curses-panels__ads.htm#110_23">Pan</A>, <A HREF="terminal_interface-curses-panels__ads.htm#111_23">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Replace; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#116_14">Move</A><FONT COLOR=red><A NAME="127_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#116_20">Pan</A> : <b>in</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <A HREF="terminal_interface-curses-panels__ads.htm#117_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses-panels__ads.htm#118_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="131_16">Move</A></FONT> (<FONT COLOR=red><A NAME="131_22">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>; - <FONT COLOR=red><A NAME="132_22">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="133_22">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#131_16">Move</A>, "move_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#131_16">Move</A> (<A HREF="terminal_interface-curses-panels__ads.htm#116_20">Pan</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-panels__ads.htm#117_20">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses-panels__ads.htm#118_20">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Move; - - <b>function</b> <A HREF="terminal_interface-curses-panels__ads.htm#123_13">Is_Hidden</A><FONT COLOR=red><A NAME="141_13"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#123_24">Pan</A> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="143_16">Panel_Hidden</A></FONT> (<FONT COLOR=red><A NAME="143_30">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#143_16">Panel_Hidden</A>, "panel_hidden"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#143_16">Panel_Hidden</A> (<A HREF="terminal_interface-curses-panels__ads.htm#123_24">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Is_Hidden; - - <b>procedure</b> <A HREF="terminal_interface-curses-panels__ads.htm#138_14">Delete</A><FONT COLOR=red><A NAME="153_14"></A></FONT> (<A HREF="terminal_interface-curses-panels__ads.htm#138_22">Pan</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="155_16">Del_Panel</A></FONT> (<FONT COLOR=red><A NAME="155_27">Pan</A></FONT> : <A HREF="terminal_interface-curses-panels__ads.htm#48_9">Panel</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses-panels__adb.htm#155_16">Del_Panel</A>, "del_panel"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-panels__adb.htm#155_16">Del_Panel</A> (<A HREF="terminal_interface-curses-panels__ads.htm#138_22">Pan</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-panels__ads.htm#59_4">Panel_Exception</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-panels__ads.htm#138_22">Pan</A> := <A HREF="terminal_interface-curses-panels__ads.htm#53_4">Null_Panel</A>; - <b>end</b> Delete; - -<b>end</b> Terminal_Interface.Curses.Panels; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__ads.htm deleted file mode 100644 index 5e5c6df..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-panels__ads.htm +++ /dev/null @@ -1,152 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-panels.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-panels.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Panels --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.15 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> System; - -<b>package</b> Terminal_Interface.Curses.Panels <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Panels); - <b>pragma</b> Linker_Options ("-lpanel"); - <b>pragma</b> Linker_Options ("-lncurses"); - - <b>type</b> Panel <b>is</b> <b>private</b>; - - <FONT COLOR=green><EM>---------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Interface constants --</EM></FONT> - <FONT COLOR=green><EM>---------------------------</EM></FONT> - Null_Panel : <b>constant</b> Panel; - - <FONT COLOR=green><EM>-------------------</EM></FONT> - <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> - <FONT COLOR=green><EM>-------------------</EM></FONT> - - Panel_Exception : <b>exception</b>; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/panel.3x.html">panel.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>function</b> Create (Win : Window) <b>return</b> Panel; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">new_panel()</A></EM></FONT> - <b>pragma</b> Inline (Create); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>function</b> New_Panel (Win : Window) <b>return</b> Panel <b>renames</b> Create; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">new_panel()</A></EM></FONT> - <b>pragma</b> Inline (New_Panel); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>procedure</b> Bottom (Pan : <b>in</b> Panel); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">bottom_panel()</A></EM></FONT> - <b>pragma</b> Inline (Bottom); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> - <b>procedure</b> Top (Pan : <b>in</b> Panel); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">top_panel()</A></EM></FONT> - <b>pragma</b> Inline (Top); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> - <b>procedure</b> Show (Pan : <b>in</b> Panel); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">show_panel()</A></EM></FONT> - <b>pragma</b> Inline (Show); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> - <b>procedure</b> Update_Panels; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">update_panels()</A></EM></FONT> - <b>pragma</b> Import (C, Update_Panels, "update_panels"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> - <b>procedure</b> Hide (Pan : <b>in</b> Panel); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">hide_panel()</A></EM></FONT> - <b>pragma</b> Inline (Hide); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> - <b>function</b> Get_Window (Pan : Panel) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_window()</A></EM></FONT> - <b>pragma</b> Inline (Get_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> - <b>function</b> Panel_Window (Pan : Panel) <b>return</b> Window <b>renames</b> Get_Window; - <b>pragma</b> Inline (Panel_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> - <b>procedure</b> Replace (<FONT COLOR=red><A NAME="111_23">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Panel</A>; - Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">replace_panel()</A></EM></FONT> - <b>pragma</b> Inline (Replace); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> - <b>procedure</b> Move (<FONT COLOR=red><A NAME="117_20">Pan</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Panel</A>; - <FONT COLOR=red><A NAME="118_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">move_panel()</A></EM></FONT> - <b>pragma</b> Inline (Move); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> - <b>function</b> Is_Hidden (Pan : Panel) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_hidden()</A></EM></FONT> - <b>pragma</b> Inline (Is_Hidden); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> - <b>function</b> Above (Pan : Panel) <b>return</b> Panel; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_above()</A></EM></FONT> - <b>pragma</b> Import (C, Above, "panel_above"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> - <b>function</b> Below (Pan : Panel) <b>return</b> Panel; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">panel_below()</A></EM></FONT> - <b>pragma</b> Import (C, Below, "panel_below"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> - <b>procedure</b> Delete (Pan : <b>in</b> <b>out</b> Panel); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/panel.3x.html">del_panel()</A></EM></FONT> - <b>pragma</b> Inline (Delete); - -<b>private</b> - <b>type</b> Panel <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; - Null_Panel : <b>constant</b> Panel := 0; - -<b>end</b> Terminal_Interface.Curses.Panels; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm deleted file mode 100644 index 14797f8..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm +++ /dev/null @@ -1,133 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-aux.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-aux.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Aux --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A><FONT COLOR=red><A NAME="41_48"></A></FONT> <b>is</b> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A><FONT COLOR=red><A NAME="43_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A> : <b>in</b> String; - <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>; - <A HREF="terminal_interface-curses-text_io-aux__ads.htm#51_7">Signal</A> : <b>in</b> Boolean := True; - <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Ljust</A> : <b>in</b> Boolean := False) - <b>is</b> - <FONT COLOR=red><A NAME="50_7">L</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>; - <FONT COLOR=red><A NAME="51_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>; - <FONT COLOR=red><A NAME="52_7">W</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#50_7">Width</A>; - <FONT COLOR=red><A NAME="53_7">LC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <FONT COLOR=red><A NAME="54_7">CC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <FONT COLOR=red><A NAME="55_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="56_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#60_17">Output</A><FONT COLOR=red><A NAME="58_17"></A></FONT> (<FONT COLOR=red><A NAME="58_25">From</A></FONT>, <FONT COLOR=red><A NAME="58_31">To</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_17">Output</A><FONT COLOR=red><A NAME="60_17"></A></FONT> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_25">From</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_31">To</A> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>) - <b>is</b> - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> > 0 <b>then</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> = 0 <b>then</b> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> <b>then</b> - <FONT COLOR=green><EM>-- LRM A10.6 (7) says this</EM></FONT> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>; - <b>end</b> <b>if</b>; - - <b>pragma</b> Assert (Len <= W); - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#53_7">LC</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#54_7">CC</A>); - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>) > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#54_7">CC</A> <b>then</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#51_7">Signal</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#134_4">Layout_Error</A>; - <b>else</b> - <b>return</b>; - <b>end</b> <b>if</b>; - <b>else</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> < <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> <b>and</b> <b>then</b> <b>not</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Ljust</A> <b>then</b> - <b>declare</b> - <FONT COLOR=red><A NAME="83_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>)) - := (<b>others</b> => ' '); - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#83_22">Filler</A>); - <b>end</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#55_7">Y</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#56_7">X</A>); - <b>if</b> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#56_7">X</A> + <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>)) > <A HREF="terminal_interface-curses-text_io-aux__adb.htm#54_7">CC</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_25">From</A> .. <A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_31">To</A>)); - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> < <A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Ljust</A> <b>then</b> - <b>declare</b> - <FONT COLOR=red><A NAME="96_22">Filler</A></FONT> : <b>constant</b> String (1 .. (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#52_7">W</A> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>)) - := (<b>others</b> => ' '); - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io-aux__ads.htm#48_7">Win</A>, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#96_22">Filler</A>); - <b>end</b>; - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <b>end</b> Output; - - <b>begin</b> - <b>pragma</b> Assert (Win /= Null_Window); - <b>if</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#52_7">Ljust</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> := 1; - <b>for</b> <FONT COLOR=red><A NAME="110_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A>'Length <b>loop</b> - <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A>) = ' '; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> + 1; - <b>end</b> <b>loop</b>; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> - 1; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_17">Output</A> (1, <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A>); - <b>else</b> <FONT COLOR=green><EM>-- input buffer is not left justified</EM></FONT> - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A>'Length; - <b>for</b> <FONT COLOR=red><A NAME="118_14">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A>'Length <b>loop</b> - <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A>) = ' '; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> := <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> - 1; - <b>end</b> <b>loop</b>; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#51_7">Len</A> := <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A>'Length - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A>; - <A HREF="terminal_interface-curses-text_io-aux__adb.htm#58_17">Output</A> (<A HREF="terminal_interface-curses-text_io-aux__adb.htm#50_7">L</A> + 1, <A HREF="terminal_interface-curses-text_io-aux__ads.htm#49_7">Buf</A>'Length); - <b>end</b> <b>if</b>; - <b>end</b> Put_Buf; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Aux; - -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm deleted file mode 100644 index 32e2e74..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-aux__ads.htm +++ /dev/null @@ -1,60 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-aux.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-aux.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Aux --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>private</b> <b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__adb.htm#41_48">Aux</A><FONT COLOR=red><A NAME="41_51"></A></FONT> <b>is</b> - <FONT COLOR=green><EM>-- pragma Preelaborate (Aux);</EM></FONT> - - <FONT COLOR=green><EM>-- This routine is called from the Text_IO output routines for numeric</EM></FONT> - <FONT COLOR=green><EM>-- and enumeration types.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-aux__adb.htm#43_14">Put_Buf</A><FONT COLOR=red><A NAME="47_14"></A></FONT> - (<FONT COLOR=red><A NAME="48_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=green><EM>-- The output window</EM></FONT> - <FONT COLOR=red><A NAME="49_7">Buf</A></FONT> : <b>in</b> String; <FONT COLOR=green><EM>-- The buffer containing the text</EM></FONT> - <FONT COLOR=red><A NAME="50_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>; <FONT COLOR=green><EM>-- The width of the output field</EM></FONT> - <FONT COLOR=red><A NAME="51_7">Signal</A></FONT> : <b>in</b> Boolean := True; <FONT COLOR=green><EM>-- If true, we raise Layout_Error</EM></FONT> - <FONT COLOR=red><A NAME="52_7">Ljust</A></FONT> : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- The Buf is left justified</EM></FONT> - -<b>end</b> Terminal_Interface.Curses.Text_IO.Aux; - -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm deleted file mode 100644 index 67b5976..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__adb.htm +++ /dev/null @@ -1,78 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-complex_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-complex_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Complex_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#44_43">Float_IO</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#46_43">Complex_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="45_12">FIO</A></FONT> <b>is</b> <b>new</b> - <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#44_43">Float_IO</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#44_17">Complex_Types</A>.Real'Base); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#54_14">Put</A><FONT COLOR=red><A NAME="48_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Item</A> : <b>in</b> Complex; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#50_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Exp</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#54_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A>, '('); - <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#45_12">FIO</A>.Put (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Item</A>.Re, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Exp</A>); - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#54_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A>, ','); - <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#45_12">FIO</A>.Put (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#56_7">Item</A>.Im, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#57_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#58_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#59_7">Exp</A>); - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#54_14">Put</A> (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#55_7">Win</A>, ')'); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#61_14">Put</A><FONT COLOR=red><A NAME="63_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#62_7">Item</A> : <b>in</b> Complex; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#63_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#50_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#64_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#65_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Exp</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#61_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#62_7">Item</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#63_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#64_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#65_7">Exp</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Complex_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm deleted file mode 100644 index 03753a8..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-complex_io__ads.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-complex_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-complex_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Complex_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Numerics.Generic_Complex_Types; - -<b>generic</b> - <b>with</b> <b>package</b> <FONT COLOR=red><A NAME="44_17">Complex_Types</A></FONT> <b>is</b> <b>new</b> Ada.Numerics.Generic_Complex_Types (<>); - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="46_43">Complex_IO</A></FONT> <b>is</b> - - <b>use</b> <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#44_17">Complex_Types</A>; - - <FONT COLOR=red><A NAME="50_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 2; - <FONT COLOR=red><A NAME="51_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := Real'<b>Digits</b> - 1; - <FONT COLOR=red><A NAME="52_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 3; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#48_14">Put</A><FONT COLOR=red><A NAME="54_14"></A></FONT> - (<FONT COLOR=red><A NAME="55_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="56_7">Item</A></FONT> : <b>in</b> Complex; - <FONT COLOR=red><A NAME="57_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#50_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="58_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="59_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Exp</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-complex_io__adb.htm#63_14">Put</A><FONT COLOR=red><A NAME="61_14"></A></FONT> - (<FONT COLOR=red><A NAME="62_7">Item</A></FONT> : <b>in</b> Complex; - <FONT COLOR=red><A NAME="63_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#50_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="64_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#51_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="65_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#52_4">Default_Exp</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-complex_io__ads.htm#61_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Complex_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm deleted file mode 100644 index e458ec2..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__adb.htm +++ /dev/null @@ -1,80 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-decimal_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-decimal_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Decimal_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#44_43">Decimal_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="46_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="47_12">DIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Decimal_IO (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#53_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#54_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Exp</A>) - <b>is</b> - <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <FONT COLOR=red><A NAME="57_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#53_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#54_7">Aft</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Exp</A> > 0 <b>then</b> - <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#57_7">Len</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#57_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Exp</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#47_12">DIO</A>.Put (<A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#54_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#55_7">Exp</A>); - <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#46_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#57_7">Len</A>, False); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#57_14">Put</A><FONT COLOR=red><A NAME="66_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#58_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#59_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#60_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#61_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Exp</A>) <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#57_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#58_7">Item</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#59_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#60_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#61_7">Exp</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Decimal_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm deleted file mode 100644 index ee9138e..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-decimal_io__ads.htm +++ /dev/null @@ -1,71 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-decimal_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-decimal_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Decimal_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Num</A></FONT> <b>is</b> <b>delta</b> <> <b>digits</b> <>; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Decimal_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>'Fore; - <FONT COLOR=red><A NAME="47_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>'Aft; - <FONT COLOR=red><A NAME="48_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 0; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> - (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="53_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="54_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="55_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Exp</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-decimal_io__adb.htm#66_14">Put</A><FONT COLOR=red><A NAME="57_14"></A></FONT> - (<FONT COLOR=red><A NAME="58_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="59_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="60_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="61_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#48_4">Default_Exp</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-decimal_io__ads.htm#57_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Decimal_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm deleted file mode 100644 index 14d2332..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__adb.htm +++ /dev/null @@ -1,85 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-enumeration_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-enumeration_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Enumeration_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#44_43">Enumeration_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="47_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="48_12">EIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Enumeration_IO (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#42_9">Enum</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#49_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#50_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#51_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#42_9">Enum</A>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#52_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Set</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Setting</A>) - <b>is</b> - <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <FONT COLOR=red><A NAME="57_7">Tset</A></FONT> : Ada.Text_IO.Type_Set; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Set</A> /= <A HREF="terminal_interface-curses-text_io__ads.htm#53_46">Mixed_Case</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Tset</A> := Ada.Text_IO.Type_Set'Val (<A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A>'Pos (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Set</A>)); - <b>else</b> - <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Tset</A> := Ada.Text_IO.Lower_Case; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#48_12">EIO</A>.Put (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#51_7">Item</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#57_7">Tset</A>); - <b>if</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#53_7">Set</A> = <A HREF="terminal_interface-curses-text_io__ads.htm#53_46">Mixed_Case</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A>'First) := To_Upper (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A>'First)); - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#47_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#50_7">Win</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#52_7">Width</A>, True, True); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#55_14">Put</A><FONT COLOR=red><A NAME="71_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#56_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#42_9">Enum</A>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#57_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#58_7">Set</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Setting</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#55_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#56_7">Item</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#57_7">Width</A>, <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#58_7">Set</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Enumeration_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm deleted file mode 100644 index 8bb95d8..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-enumeration_io__ads.htm +++ /dev/null @@ -1,68 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-enumeration_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-enumeration_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Enumeration_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Enum</A></FONT> <b>is</b> (<>); - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Enumeration_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 0; - <FONT COLOR=red><A NAME="47_4">Default_Setting</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#53_46">Mixed_Case</A>; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#50_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<FONT COLOR=red><A NAME="50_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="51_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#42_9">Enum</A>; - <FONT COLOR=red><A NAME="52_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="53_7">Set</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Setting</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__adb.htm#71_14">Put</A><FONT COLOR=red><A NAME="55_14"></A></FONT> - (<FONT COLOR=red><A NAME="56_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#42_9">Enum</A>; - <FONT COLOR=red><A NAME="57_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="58_7">Set</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#53_9">Type_Set</A> := <A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#47_4">Default_Setting</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-enumeration_io__ads.htm#55_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Enumeration_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm deleted file mode 100644 index 7e81c22..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__adb.htm +++ /dev/null @@ -1,80 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-fixed_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-fixed_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Fixed_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#44_43">Fixed_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="46_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="47_12">FIXIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Fixed_IO (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#53_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#54_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Exp</A>) - <b>is</b> - <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <FONT COLOR=red><A NAME="57_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#53_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#54_7">Aft</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Exp</A> > 0 <b>then</b> - <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#57_7">Len</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#57_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Exp</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#47_12">FIXIO</A>.Put (<A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#54_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#55_7">Exp</A>); - <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#46_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#57_7">Len</A>, False); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#57_14">Put</A><FONT COLOR=red><A NAME="66_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#58_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#59_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#60_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#61_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Exp</A>) <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#57_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#58_7">Item</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#59_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#60_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#61_7">Exp</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Fixed_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm deleted file mode 100644 index f5ac125..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-fixed_io__ads.htm +++ /dev/null @@ -1,71 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-fixed_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-fixed_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Fixed_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Num</A></FONT> <b>is</b> <b>delta</b> <>; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Fixed_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>'Fore; - <FONT COLOR=red><A NAME="47_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>'Aft; - <FONT COLOR=red><A NAME="48_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 0; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> - (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="53_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="54_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="55_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Exp</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-fixed_io__adb.htm#66_14">Put</A><FONT COLOR=red><A NAME="57_14"></A></FONT> - (<FONT COLOR=red><A NAME="58_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="59_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="60_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="61_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#48_4">Default_Exp</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-fixed_io__ads.htm#57_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Fixed_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm deleted file mode 100644 index d344cec..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__adb.htm +++ /dev/null @@ -1,81 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-float_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-float_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Float_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#44_43">Float_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="46_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="47_12">FIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Float_IO (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#50_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#51_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#52_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#53_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#54_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Exp</A>) - <b>is</b> - <FONT COLOR=red><A NAME="56_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <FONT COLOR=red><A NAME="57_7">Len</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#53_7">Fore</A> + 1 + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#54_7">Aft</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Exp</A> > 0 <b>then</b> - <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#57_7">Len</A> := <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#57_7">Len</A> + 1 + <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Exp</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#47_12">FIO</A>.Put (<A HREF="terminal_interface-curses-text_io-float_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#52_7">Item</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#54_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#55_7">Exp</A>); - <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#46_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#51_7">Win</A>, <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#56_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#57_7">Len</A>, False); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#57_14">Put</A><FONT COLOR=red><A NAME="66_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#58_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#59_7">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#46_4">Default_Fore</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#60_7">Aft</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Aft</A>; - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#61_7">Exp</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Exp</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#57_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#58_7">Item</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#59_7">Fore</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#60_7">Aft</A>, <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#61_7">Exp</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Float_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm deleted file mode 100644 index 3e5a7f0..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-float_io__ads.htm +++ /dev/null @@ -1,71 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-float_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-float_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Float_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Num</A></FONT> <b>is</b> <b>digits</b> <>; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Float_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Fore</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 2; - <FONT COLOR=red><A NAME="47_4">Default_Aft</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>'<b>Digits</b> - 1; - <FONT COLOR=red><A NAME="48_4">Default_Exp</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := 3; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="50_14"></A></FONT> - (<FONT COLOR=red><A NAME="51_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="52_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="53_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="54_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="55_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Exp</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-float_io__adb.htm#66_14">Put</A><FONT COLOR=red><A NAME="57_14"></A></FONT> - (<FONT COLOR=red><A NAME="58_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="59_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#46_4">Default_Fore</A>; - <FONT COLOR=red><A NAME="60_7">Aft</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#47_4">Default_Aft</A>; - <FONT COLOR=red><A NAME="61_7">Exp</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-float_io__ads.htm#48_4">Default_Exp</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-float_io__ads.htm#57_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Float_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm deleted file mode 100644 index 0264fa5..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__adb.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-integer_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-integer_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Integer_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#44_43">Integer_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="46_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="47_12">IIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Integer_IO (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#49_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#50_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#51_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#52_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#53_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Base</A>) - <b>is</b> - <FONT COLOR=red><A NAME="55_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#47_12">IIO</A>.Put (<A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#55_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#51_7">Item</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#53_7">Base</A>); - <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#46_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#50_7">Win</A>, <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#55_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#52_7">Width</A>); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#55_14">Put</A><FONT COLOR=red><A NAME="61_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#56_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#57_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#58_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Base</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#55_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#56_7">Item</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#57_7">Width</A>, <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#58_7">Base</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Integer_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm deleted file mode 100644 index 9816bd2..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-integer_io__ads.htm +++ /dev/null @@ -1,68 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-integer_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-integer_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Integer_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Num</A></FONT> <b>is</b> <b>range</b> <>; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Integer_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>'Width; - <FONT COLOR=red><A NAME="47_4">Default_Base</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := 10; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<FONT COLOR=red><A NAME="50_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="51_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="52_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="53_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Base</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-integer_io__adb.htm#61_14">Put</A><FONT COLOR=red><A NAME="55_14"></A></FONT> - (<FONT COLOR=red><A NAME="56_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="57_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="58_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#47_4">Default_Base</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-integer_io__ads.htm#55_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Integer_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm deleted file mode 100644 index a2535eb..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__adb.htm +++ /dev/null @@ -1,75 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-modular_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-modular_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Modular_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.8 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - -<b>package</b> <b>body</b> Terminal_Interface.Curses.Text_IO.<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#44_43">Modular_IO</A> <b>is</b> - - <b>package</b> <FONT COLOR=red><A NAME="46_12">Aux</A></FONT> <b>renames</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#41_51">Aux</A>; - <b>package</b> <FONT COLOR=red><A NAME="47_12">MIO</A></FONT> <b>is</b> <b>new</b> Ada.Text_IO.Modular_IO (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#49_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#50_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#51_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#52_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#53_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Base</A>) - <b>is</b> - <FONT COLOR=red><A NAME="55_7">Buf</A></FONT> : String (1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A>'Last); - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#47_12">MIO</A>.Put (<A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#55_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#51_7">Item</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#53_7">Base</A>); - <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#46_12">Aux</A>.<A HREF="terminal_interface-curses-text_io-aux__ads.htm#47_14">Put_Buf</A> (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#50_7">Win</A>, <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#55_7">Buf</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#52_7">Width</A>); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#55_14">Put</A><FONT COLOR=red><A NAME="61_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#56_7">Item</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>; - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#57_7">Width</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#46_4">Default_Width</A>; - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#58_7">Base</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Base</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#55_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#56_7">Item</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#57_7">Width</A>, <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#58_7">Base</A>); - <b>end</b> Put; - -<b>end</b> Terminal_Interface.Curses.Text_IO.Modular_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm deleted file mode 100644 index 84bc5ea..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io-modular_io__ads.htm +++ /dev/null @@ -1,68 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io-modular_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io-modular_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO.Modular_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.9 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="42_9">Num</A></FONT> <b>is</b> <b>mod</b> <>; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A>.<FONT COLOR=red><A NAME="44_43">Modular_IO</A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="46_4">Default_Width</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>'Width; - <FONT COLOR=red><A NAME="47_4">Default_Base</A></FONT> : <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := 10; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#49_14">Put</A><FONT COLOR=red><A NAME="49_14"></A></FONT> - (<FONT COLOR=red><A NAME="50_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="51_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="52_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="53_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Base</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io-modular_io__adb.htm#61_14">Put</A><FONT COLOR=red><A NAME="55_14"></A></FONT> - (<FONT COLOR=red><A NAME="56_7">Item</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#42_9">Num</A>; - <FONT COLOR=red><A NAME="57_7">Width</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#50_12">Field</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#46_4">Default_Width</A>; - <FONT COLOR=red><A NAME="58_7">Base</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#51_12">Number_Base</A> := <A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#47_4">Default_Base</A>); - -<b>private</b> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io-modular_io__ads.htm#55_14">Put</A>); - -<b>end</b> Terminal_Interface.Curses.Text_IO.Modular_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__adb.htm deleted file mode 100644 index f38ec16..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__adb.htm +++ /dev/null @@ -1,341 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.12 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <b>body</b> Terminal_Interface.Curses.<A HREF="terminal_interface-curses-text_io__ads.htm#44_35">Text_IO</A><FONT COLOR=red><A NAME="41_40"></A></FONT> <b>is</b> - - <FONT COLOR=red><A NAME="43_4">Default_Window</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A>; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#59_14">Set_Window</A><FONT COLOR=red><A NAME="45_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#59_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__adb.htm#43_4">Default_Window</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#59_26">Win</A>; - <b>end</b> Set_Window; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A><FONT COLOR=red><A NAME="51_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#43_4">Default_Window</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <b>else</b> - <b>return</b> <A HREF="terminal_interface-curses-text_io__adb.htm#43_4">Default_Window</A>; - <b>end</b> <b>if</b>; - <b>end</b> Get_Window; - <b>pragma</b> Inline (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#65_14">Flush</A><FONT COLOR=red><A NAME="62_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#65_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1212_14">Refresh</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#65_21">Win</A>); - <b>end</b> Flush; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#66_14">Flush</A><FONT COLOR=red><A NAME="68_14"></A></FONT> - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#66_14">Flush</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> Flush; - - <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Specification of line and page lengths --</EM></FONT> - <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> - - <FONT COLOR=green><EM>-- There are no set routines in this package. I assume, that you allocate</EM></FONT> - <FONT COLOR=green><EM>-- the window with an appropriate size.</EM></FONT> - <FONT COLOR=green><EM>-- A scroll-window is interpreted as an page with unbounded page length,</EM></FONT> - <FONT COLOR=green><EM>-- i.e. it returns the conventional 0 as page length.</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#77_13">Line_Length</A><FONT COLOR=red><A NAME="83_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#77_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="85_7">N_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <FONT COLOR=red><A NAME="86_7">N_Cols</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#77_26">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#85_7">N_Lines</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#86_7">N_Cols</A>); - <b>if</b> Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#86_7">N_Cols</A>) > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>'Last) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#134_4">Layout_Error</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#86_7">N_Cols</A>); - <b>end</b> Line_Length; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#78_13">Line_Length</A><FONT COLOR=red><A NAME="95_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#78_13">Line_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> Line_Length; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#80_13">Page_Length</A><FONT COLOR=red><A NAME="101_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#80_26">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="103_7">N_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <FONT COLOR=red><A NAME="104_7">N_Cols</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#967_13">Scrolling_Allowed</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#80_26">Win</A>) <b>then</b> - <b>return</b> 0; - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#80_26">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#103_7">N_Lines</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#104_7">N_Cols</A>); - <b>if</b> Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#103_7">N_Lines</A>) > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>'Last) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#134_4">Layout_Error</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#103_7">N_Lines</A>); - <b>end</b> <b>if</b>; - <b>end</b> Page_Length; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A><FONT COLOR=red><A NAME="117_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> Page_Length; - - <FONT COLOR=green><EM>------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Column, Line, and Page Control --</EM></FONT> - <FONT COLOR=green><EM>------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#86_14">New_Line</A><FONT COLOR=red><A NAME="126_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#86_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#86_41">Spacing</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> := 1) - <b>is</b> - <FONT COLOR=red><A NAME="128_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#86_24">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#86_41">Spacing</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - - <b>for</b> <FONT COLOR=red><A NAME="134_11">I</A></FONT> <b>in</b> 1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#86_41">Spacing</A> <b>loop</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#128_7">P_Size</A> > 0 <b>and</b> <b>then</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#86_24">Win</A>) >= <A HREF="terminal_interface-curses-text_io__adb.htm#128_7">P_Size</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#86_24">Win</A>); - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#665_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#86_24">Win</A>, ASCII.LF); - <b>end</b> <b>if</b>; - <b>end</b> <b>loop</b>; - <b>end</b> New_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A><FONT COLOR=red><A NAME="143_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Spacing</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> := 1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#87_24">Spacing</A>); - <b>end</b> New_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#89_14">New_Page</A><FONT COLOR=red><A NAME="149_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#89_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1022_14">Clear</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#89_24">Win</A>); - <b>end</b> New_Page; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A><FONT COLOR=red><A NAME="155_14"></A></FONT> - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> New_Page; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#92_14">Set_Col</A><FONT COLOR=red><A NAME="161_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#92_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#92_41">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>) - <b>is</b> - <FONT COLOR=red><A NAME="163_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="164_7">X1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="165_7">X2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="166_7">N</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#92_41">To</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#92_23">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#163_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#164_7">X1</A>); - <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#92_41">To</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#166_7">N</A> - 1; - <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X2</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#166_7">N</A>); - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#164_7">X1</A> > <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X2</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#92_23">Win</A>, 1); - <A HREF="terminal_interface-curses-text_io__adb.htm#164_7">X1</A> := 0; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#164_7">X1</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X2</A> <b>then</b> - <b>declare</b> - <FONT COLOR=red><A NAME="181_13">Filler</A></FONT> : <b>constant</b> String (Integer (<A HREF="terminal_interface-curses-text_io__adb.htm#164_7">X1</A>) .. (Integer (<A HREF="terminal_interface-curses-text_io__adb.htm#165_7">X2</A>) - 1)) - := (<b>others</b> => ' '); - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#92_23">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#181_13">Filler</A>); - <b>end</b>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Col; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#93_14">Set_Col</A><FONT COLOR=red><A NAME="189_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#93_23">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#93_14">Set_Col</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#93_23">To</A>); - <b>end</b> Set_Col; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#95_14">Set_Line</A><FONT COLOR=red><A NAME="195_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#95_24">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#95_41">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>) - <b>is</b> - <FONT COLOR=red><A NAME="197_7">Y1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="198_7">Y2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="199_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="200_7">N</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__ads.htm#95_41">To</A> <b>not</b> <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#95_24">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#197_7">Y1</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#199_7">X</A>); - <A HREF="terminal_interface-curses-text_io__adb.htm#200_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#95_41">To</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#200_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#200_7">N</A> - 1; - <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y2</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#200_7">N</A>); - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y2</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#197_7">Y1</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#95_24">Win</A>); - <A HREF="terminal_interface-curses-text_io__adb.htm#197_7">Y1</A> := 0; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#197_7">Y1</A> < <A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y2</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#95_24">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#198_7">Y2</A> - <A HREF="terminal_interface-curses-text_io__adb.htm#197_7">Y1</A>)); - <b>end</b> <b>if</b>; - <b>end</b> Set_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#96_14">Set_Line</A><FONT COLOR=red><A NAME="218_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#96_24">To</A> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#96_14">Set_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#96_24">To</A>); - <b>end</b> Set_Line; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#98_13">Col</A><FONT COLOR=red><A NAME="224_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#98_18">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="226_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="227_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="228_7">N</A></FONT> : Natural; - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#98_18">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#226_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#227_7">X</A>); - <A HREF="terminal_interface-curses-text_io__adb.htm#228_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#227_7">X</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#228_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#228_7">N</A> + 1; - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#228_7">N</A> > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>'Last) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#134_4">Layout_Error</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#228_7">N</A>); - <b>end</b> Col; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#99_13">Col</A><FONT COLOR=red><A NAME="238_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#99_13">Col</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> Col; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#101_13">Line</A><FONT COLOR=red><A NAME="244_13"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#101_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="246_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="247_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="248_7">N</A></FONT> : Natural; - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#101_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#246_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#247_7">X</A>); - <A HREF="terminal_interface-curses-text_io__adb.htm#248_7">N</A> := Natural (<A HREF="terminal_interface-curses-text_io__adb.htm#246_7">Y</A>); <A HREF="terminal_interface-curses-text_io__adb.htm#248_7">N</A> := <A HREF="terminal_interface-curses-text_io__adb.htm#248_7">N</A> + 1; - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#248_7">N</A> > Natural (<A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>'Last) <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses-text_io__ads.htm#134_4">Layout_Error</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> (<A HREF="terminal_interface-curses-text_io__adb.htm#248_7">N</A>); - <b>end</b> Line; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A><FONT COLOR=red><A NAME="258_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#102_13">Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>); - <b>end</b> Line; - - <FONT COLOR=green><EM>-----------------------</EM></FONT> - <FONT COLOR=green><EM>-- Characters Output --</EM></FONT> - <FONT COLOR=green><EM>-----------------------</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#108_14">Put</A><FONT COLOR=red><A NAME="268_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#108_37">Item</A> : <b>in</b> Character) - <b>is</b> - <FONT COLOR=red><A NAME="270_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A>); - <FONT COLOR=red><A NAME="271_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="272_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="273_7">L</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <FONT COLOR=red><A NAME="274_7">C</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#270_7">P_Size</A> > 0 <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#271_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#272_7">X</A>); - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#273_7">L</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#274_7">C</A>); - <b>if</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#271_7">Y</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#273_7">L</A> <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#272_7">X</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#274_7">C</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__ads.htm#665_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#108_19">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#108_37">Item</A>); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A><FONT COLOR=red><A NAME="286_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Item</A> : <b>in</b> Character) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#109_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#109_19">Item</A>); - <b>end</b> Put; - - <FONT COLOR=green><EM>--------------------</EM></FONT> - <FONT COLOR=green><EM>-- Strings-Output --</EM></FONT> - <FONT COLOR=green><EM>--------------------</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#115_14">Put</A><FONT COLOR=red><A NAME="296_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <A HREF="terminal_interface-curses-text_io__ads.htm#115_37">Item</A> : <b>in</b> String) - <b>is</b> - <FONT COLOR=red><A NAME="298_7">P_Size</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> := <A HREF="terminal_interface-curses-text_io__ads.htm#81_13">Page_Length</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A>); - <FONT COLOR=red><A NAME="299_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="300_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <FONT COLOR=red><A NAME="301_7">L</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <FONT COLOR=red><A NAME="302_7">C</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses-text_io__adb.htm#298_7">P_Size</A> > 0 <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#299_7">Y</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#300_7">X</A>); - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#301_7">L</A>, <A HREF="terminal_interface-curses-text_io__adb.htm#302_7">C</A>); - <b>if</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#299_7">Y</A> + 1) = <A HREF="terminal_interface-curses-text_io__adb.htm#301_7">L</A> <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses-text_io__adb.htm#300_7">X</A> + 1 + <A HREF="terminal_interface-curses-text_io__ads.htm#115_37">Item</A>'Length) >= <A HREF="terminal_interface-curses-text_io__adb.htm#302_7">C</A> <b>then</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#90_14">New_Page</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A>); - <b>end</b> <b>if</b>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__ads.htm#665_14">Add</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#115_19">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#115_37">Item</A>); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A><FONT COLOR=red><A NAME="314_14"></A></FONT> (<A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Item</A> : <b>in</b> String) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#116_19">Item</A>); - <b>end</b> Put; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#118_14">Put_Line</A><FONT COLOR=red><A NAME="320_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io__ads.htm#119_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses-text_io__ads.htm#120_7">Item</A> : <b>in</b> String) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#116_14">Put</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#119_7">Win</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#120_7">Item</A>); - <A HREF="terminal_interface-curses-text_io__ads.htm#87_14">New_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#119_7">Win</A>, 1); - <b>end</b> Put_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__ads.htm#122_14">Put_Line</A><FONT COLOR=red><A NAME="329_14"></A></FONT> - (<A HREF="terminal_interface-curses-text_io__ads.htm#123_7">Item</A> : <b>in</b> String) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses-text_io__ads.htm#122_14">Put_Line</A> (<A HREF="terminal_interface-curses-text_io__ads.htm#62_13">Get_Window</A>, <A HREF="terminal_interface-curses-text_io__ads.htm#123_7">Item</A>); - <b>end</b> Put_Line; - -<b>end</b> Terminal_Interface.Curses.Text_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__ads.htm deleted file mode 100644 index 4e19b4b..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses-text_io__ads.htm +++ /dev/null @@ -1,141 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses-text_io.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-text_io.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Text_IO --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> Ada.Text_IO; -<b>with</b> Ada.IO_Exceptions; - -<b>package</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-text_io__adb.htm#41_40">Text_IO</A><FONT COLOR=red><A NAME="44_35"></A></FONT> <b>is</b> - - <b>use</b> <b>type</b> Ada.Text_IO.Count; - <b>subtype</b> <FONT COLOR=red><A NAME="47_12">Count</A></FONT> <b>is</b> Ada.Text_IO.Count; - <b>subtype</b> <FONT COLOR=red><A NAME="48_12">Positive_Count</A></FONT> <b>is</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A> <b>range</b> 1 .. <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>'Last; - - <b>subtype</b> <FONT COLOR=red><A NAME="50_12">Field</A></FONT> <b>is</b> Ada.Text_IO.Field; - <b>subtype</b> <FONT COLOR=red><A NAME="51_12">Number_Base</A></FONT> <b>is</b> Integer <b>range</b> 2 .. 16; - - <b>type</b> <FONT COLOR=red><A NAME="53_9">Type_Set</A></FONT> <b>is</b> (Lower_Case, Upper_Case, Mixed_Case); - - <FONT COLOR=green><EM>-- For most of the routines you will see a version without a Window</EM></FONT> - <FONT COLOR=green><EM>-- type parameter. They will operate on a default window, which can</EM></FONT> - <FONT COLOR=green><EM>-- be set by the user. It is initially equal to Standard_Window.</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#45_14">Set_Window</A><FONT COLOR=red><A NAME="59_14"></A></FONT> (<FONT COLOR=red><A NAME="59_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>); - <FONT COLOR=green><EM>-- Set Win as the default window</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#51_13">Get_Window</A><FONT COLOR=red><A NAME="62_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=green><EM>-- Get the current default window</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#62_14">Flush</A><FONT COLOR=red><A NAME="65_14"></A></FONT> (<FONT COLOR=red><A NAME="65_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#68_14">Flush</A><FONT COLOR=red><A NAME="66_14"></A></FONT>; - - <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Specification of line and page lengths --</EM></FONT> - <FONT COLOR=green><EM>--------------------------------------------</EM></FONT> - - <FONT COLOR=green><EM>-- There are no set routines in this package. I assume, that you allocate</EM></FONT> - <FONT COLOR=green><EM>-- the window with an appropriate size.</EM></FONT> - <FONT COLOR=green><EM>-- A scroll-window is interpreted as an page with unbounded page length,</EM></FONT> - <FONT COLOR=green><EM>-- i.e. it returns the conventional 0 as page length.</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#83_13">Line_Length</A><FONT COLOR=red><A NAME="77_13"></A></FONT> (<FONT COLOR=red><A NAME="77_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>; - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#95_13">Line_Length</A><FONT COLOR=red><A NAME="78_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#101_13">Page_Length</A><FONT COLOR=red><A NAME="80_13"></A></FONT> (<FONT COLOR=red><A NAME="80_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>; - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#117_13">Page_Length</A><FONT COLOR=red><A NAME="81_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#47_12">Count</A>; - - <FONT COLOR=green><EM>------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- Column, Line, and Page Control --</EM></FONT> - <FONT COLOR=green><EM>------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#126_14">New_Line</A><FONT COLOR=red><A NAME="86_14"></A></FONT> (<FONT COLOR=red><A NAME="86_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="86_41">Spacing</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> := 1); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#143_14">New_Line</A><FONT COLOR=red><A NAME="87_14"></A></FONT> (<FONT COLOR=red><A NAME="87_24">Spacing</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A> := 1); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#149_14">New_Page</A><FONT COLOR=red><A NAME="89_14"></A></FONT> (<FONT COLOR=red><A NAME="89_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#155_14">New_Page</A><FONT COLOR=red><A NAME="90_14"></A></FONT>; - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#161_14">Set_Col</A><FONT COLOR=red><A NAME="92_14"></A></FONT> (<FONT COLOR=red><A NAME="92_23">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="92_41">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#189_14">Set_Col</A><FONT COLOR=red><A NAME="93_14"></A></FONT> (<FONT COLOR=red><A NAME="93_23">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#195_14">Set_Line</A><FONT COLOR=red><A NAME="95_14"></A></FONT> (<FONT COLOR=red><A NAME="95_24">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="95_41">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#218_14">Set_Line</A><FONT COLOR=red><A NAME="96_14"></A></FONT> (<FONT COLOR=red><A NAME="96_24">To</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>); - - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#224_13">Col</A><FONT COLOR=red><A NAME="98_13"></A></FONT> (<FONT COLOR=red><A NAME="98_18">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>; - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#238_13">Col</A><FONT COLOR=red><A NAME="99_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>; - - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#244_13">Line</A><FONT COLOR=red><A NAME="101_13"></A></FONT> (<FONT COLOR=red><A NAME="101_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>; - <b>function</b> <A HREF="terminal_interface-curses-text_io__adb.htm#258_13">Line</A><FONT COLOR=red><A NAME="102_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses-text_io__ads.htm#48_12">Positive_Count</A>; - - <FONT COLOR=green><EM>-----------------------</EM></FONT> - <FONT COLOR=green><EM>-- Characters-Output --</EM></FONT> - <FONT COLOR=green><EM>-----------------------</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#268_14">Put</A><FONT COLOR=red><A NAME="108_14"></A></FONT> (<FONT COLOR=red><A NAME="108_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="108_37">Item</A></FONT> : <b>in</b> Character); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#286_14">Put</A><FONT COLOR=red><A NAME="109_14"></A></FONT> (<FONT COLOR=red><A NAME="109_19">Item</A></FONT> : <b>in</b> Character); - - <FONT COLOR=green><EM>--------------------</EM></FONT> - <FONT COLOR=green><EM>-- Strings-Output --</EM></FONT> - <FONT COLOR=green><EM>--------------------</EM></FONT> - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#296_14">Put</A><FONT COLOR=red><A NAME="115_14"></A></FONT> (<FONT COLOR=red><A NAME="115_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="115_37">Item</A></FONT> : <b>in</b> String); - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#314_14">Put</A><FONT COLOR=red><A NAME="116_14"></A></FONT> (<FONT COLOR=red><A NAME="116_19">Item</A></FONT> : <b>in</b> String); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#320_14">Put_Line</A><FONT COLOR=red><A NAME="118_14"></A></FONT> - (<FONT COLOR=red><A NAME="119_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="120_7">Item</A></FONT> : <b>in</b> String); - - <b>procedure</b> <A HREF="terminal_interface-curses-text_io__adb.htm#329_14">Put_Line</A><FONT COLOR=red><A NAME="122_14"></A></FONT> - (<FONT COLOR=red><A NAME="123_7">Item</A></FONT> : <b>in</b> String); - - <FONT COLOR=green><EM>-- Exceptions</EM></FONT> - - <FONT COLOR=red><A NAME="127_4">Status_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Status_Error; - <FONT COLOR=red><A NAME="128_4">Mode_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Mode_Error; - <FONT COLOR=red><A NAME="129_4">Name_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Name_Error; - <FONT COLOR=red><A NAME="130_4">Use_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Use_Error; - <FONT COLOR=red><A NAME="131_4">Device_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Device_Error; - <FONT COLOR=red><A NAME="132_4">End_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.End_Error; - <FONT COLOR=red><A NAME="133_4">Data_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Data_Error; - <FONT COLOR=red><A NAME="134_4">Layout_Error</A></FONT> : <b>exception</b> <b>renames</b> Ada.IO_Exceptions.Layout_Error; - -<b>end</b> Terminal_Interface.Curses.Text_IO; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses__adb.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses__adb.htm deleted file mode 100644 index a0be638..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses__adb.htm +++ /dev/null @@ -1,2419 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses.adb</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.adb </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- B O D Y --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.26 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>with</b> System; - -<b>with</b> <A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A>.<A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; <b>use</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Strings; -<b>with</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers; -<b>with</b> Ada.Characters.Handling; <b>use</b> Ada.Characters.Handling; -<b>with</b> Ada.Strings.Fixed; -<b>with</b> Ada.Unchecked_Conversion; - -<b>package</b> <b>body</b> Terminal_Interface.<A HREF="terminal_interface-curses__ads.htm#48_28">Curses</A><FONT COLOR=red><A NAME="51_33"></A></FONT> <b>is</b> - - <b>use</b> <A HREF="terminal_interface-curses-aux__ads.htm#50_35">Aux</A>; - <b>use</b> <b>type</b> System.Bit_Order; - - <b>package</b> <FONT COLOR=red><A NAME="56_12">ASF</A></FONT> <b>renames</b> Ada.Strings.Fixed; - - <b>type</b> <FONT COLOR=red><A NAME="58_9">chtype_array</A></FONT> <b>is</b> <b>array</b> (size_t <b>range</b> <>) - <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses__adb.htm#58_9">chtype_array</A>); - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>generic</b> - <b>type</b> <FONT COLOR=red><A NAME="64_12">Element</A></FONT> <b>is</b> (<>); - <b>function</b> <FONT COLOR=red><A NAME="65_13">W_Get_Element</A></FONT> (<FONT COLOR=red><A NAME="65_28">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="66_28">Offset</A></FONT> : <b>in</b> Natural) <b>return</b> <A HREF="terminal_interface-curses__adb.htm#64_12">Element</A>; - - <b>function</b> <A HREF="terminal_interface-curses__adb.htm#65_13">W_Get_Element</A> (<FONT COLOR=red><A NAME="68_28">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="69_28">Offset</A></FONT> : <b>in</b> Natural) <b>return</b> <A HREF="terminal_interface-curses__adb.htm#64_12">Element</A> <b>is</b> - <b>type</b> <FONT COLOR=red><A NAME="70_12">E_Array</A></FONT> <b>is</b> <b>array</b> (Natural <b>range</b> <>) <b>of</b> <b>aliased</b> <A HREF="terminal_interface-curses__adb.htm#64_12">Element</A>; - <b>package</b> <FONT COLOR=red><A NAME="71_15">C_E_Array</A></FONT> <b>is</b> <b>new</b> - <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.Pointers (Natural, <A HREF="terminal_interface-curses__adb.htm#64_12">Element</A>, <A HREF="terminal_interface-curses__adb.htm#70_12">E_Array</A>, <A HREF="terminal_interface-curses__adb.htm#64_12">Element</A>'Val (0)); - <b>use</b> <A HREF="terminal_interface-curses__adb.htm#71_15">C_E_Array</A>; - - <b>function</b> <FONT COLOR=red><A NAME="75_16">To_Pointer</A></FONT> <b>is</b> <b>new</b> - Ada.Unchecked_Conversion (<A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>, Pointer); - - P : Pointer := <A HREF="terminal_interface-curses__adb.htm#75_16">To_Pointer</A> (<A HREF="terminal_interface-curses__adb.htm#65_28">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#65_28">Win</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>else</b> - P := P + ptrdiff_t (<A HREF="terminal_interface-curses__adb.htm#66_28">Offset</A>); - <b>return</b> P.<b>all</b>; - <b>end</b> <b>if</b>; - <b>end</b> W_Get_Element; - - <b>function</b> <FONT COLOR=red><A NAME="88_13">W_Get_Int</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#65_13">W_Get_Element</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>); - <b>function</b> <FONT COLOR=red><A NAME="89_13">W_Get_Short</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#65_13">W_Get_Element</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>); - <b>function</b> <FONT COLOR=red><A NAME="90_13">W_Get_Byte</A></FONT> <b>is</b> <b>new</b> <A HREF="terminal_interface-curses__adb.htm#65_13">W_Get_Element</A> (<A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.unsigned_char); - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1510_13">Key_Name</A><FONT COLOR=red><A NAME="93_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1510_23">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="95_16">Keyname</A></FONT> (<FONT COLOR=red><A NAME="95_25">K</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#95_16">Keyname</A>, "keyname"); - - <FONT COLOR=red><A NAME="98_7">Ch</A></FONT> : Character; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1510_23">Key</A> <= Character'Pos (Character'Last) <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#98_7">Ch</A> := Character'Val (<A HREF="terminal_interface-curses__ads.htm#1510_23">Key</A>); - <b>if</b> Is_Control (<A HREF="terminal_interface-curses__adb.htm#98_7">Ch</A>) <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1521_13">Un_Control</A> (<A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__adb.htm#98_7">Ch</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>elsif</b> Is_Graphic (<A HREF="terminal_interface-curses__adb.htm#98_7">Ch</A>) <b>then</b> - <b>declare</b> - <FONT COLOR=red><A NAME="108_16">S</A></FONT> : String (1 .. 1); - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#108_16">S</A> (1) := <A HREF="terminal_interface-curses__adb.htm#98_7">Ch</A>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#108_16">S</A>; - <b>end</b>; - <b>else</b> - <b>return</b> ""; - <b>end</b> <b>if</b>; - <b>else</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#95_16">Keyname</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1510_23">Key</A>))); - <b>end</b> <b>if</b>; - <b>end</b> Key_Name; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1504_14">Key_Name</A><FONT COLOR=red><A NAME="121_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1504_24">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A>; - <A HREF="terminal_interface-curses__ads.htm#1505_24">Name</A> : <b>out</b> String) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#56_12">ASF</A>.Move (<A HREF="terminal_interface-curses__ads.htm#1510_13">Key_Name</A> (<A HREF="terminal_interface-curses__ads.htm#1504_24">Key</A>), <A HREF="terminal_interface-curses__ads.htm#1505_24">Name</A>); - <b>end</b> Key_Name; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#478_14">Init_Screen</A><FONT COLOR=red><A NAME="129_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="131_16">Initscr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#131_16">Initscr</A>, "initscr"); - - <FONT COLOR=red><A NAME="134_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#134_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#131_16">Initscr</A>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#134_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Init_Screen; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#487_14">End_Windows</A><FONT COLOR=red><A NAME="142_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="144_16">Endwin</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#144_16">Endwin</A>, "endwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#144_16">Endwin</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> End_Windows; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#494_13">Is_End_Window</A><FONT COLOR=red><A NAME="152_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="154_16">Isendwin</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#154_16">Isendwin</A>, "isendwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#154_16">Isendwin</A> = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Is_End_Window; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A><FONT COLOR=red><A NAME="164_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#503_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#504_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#505_27">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="168_16">Wmove</A></FONT> (<FONT COLOR=red><A NAME="168_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="169_23">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="170_23">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> - ) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#168_16">Wmove</A>, "wmove"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#168_16">Wmove</A> (<A HREF="terminal_interface-curses__ads.htm#503_27">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#504_27">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#505_27">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Move_Cursor; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#514_14">Add</A><FONT COLOR=red><A NAME="179_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#514_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#515_19">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="182_16">Waddch</A></FONT> (<FONT COLOR=red><A NAME="182_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="183_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#182_16">Waddch</A>, "waddch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#182_16">Waddch</A> (<A HREF="terminal_interface-curses__ads.htm#514_19">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#515_19">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#518_14">Add</A><FONT COLOR=red><A NAME="191_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#518_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#519_19">Ch</A> : <b>in</b> Character) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#518_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#518_19">Win</A>, - <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#519_19">Ch</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#524_14">Add</A><FONT COLOR=red><A NAME="201_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#525_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#526_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#527_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#528_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="207_16">mvwaddch</A></FONT> (<FONT COLOR=red><A NAME="207_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="208_26">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="209_26">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="210_26">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#207_16">mvwaddch</A>, "mvwaddch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#207_16">mvwaddch</A> (<A HREF="terminal_interface-curses__ads.htm#525_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#526_7">Line</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#527_7">Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#528_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#531_14">Add</A><FONT COLOR=red><A NAME="220_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#532_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#533_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#534_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#535_7">Ch</A> : <b>in</b> Character) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#531_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#532_7">Win</A>, - <A HREF="terminal_interface-curses__ads.htm#533_7">Line</A>, - <A HREF="terminal_interface-curses__ads.htm#534_7">Column</A>, - <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#535_7">Ch</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#540_14">Add_With_Immediate_Echo</A><FONT COLOR=red><A NAME="235_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#541_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#542_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="239_16">Wechochar</A></FONT> (<FONT COLOR=red><A NAME="239_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="240_27">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#239_16">Wechochar</A>, "wechochar"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#239_16">Wechochar</A> (<A HREF="terminal_interface-curses__ads.htm#541_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#542_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add_With_Immediate_Echo; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#545_14">Add_With_Immediate_Echo</A><FONT COLOR=red><A NAME="248_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#546_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#547_7">Ch</A> : <b>in</b> Character) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#545_14">Add_With_Immediate_Echo</A> - (<A HREF="terminal_interface-curses__ads.htm#546_7">Win</A>, - <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#547_7">Ch</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>end</b> Add_With_Immediate_Echo; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#556_13">Create</A><FONT COLOR=red><A NAME="260_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#557_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#558_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#559_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#560_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="265_16">Newwin</A></FONT> (<FONT COLOR=red><A NAME="265_24">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="266_24">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="267_24">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="268_24">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#265_16">Newwin</A>, "newwin"); - - <FONT COLOR=red><A NAME="271_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#271_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#265_16">Newwin</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#557_7">Number_Of_Lines</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#558_7">Number_Of_Columns</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#559_7">First_Line_Position</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#560_7">First_Column_Position</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#271_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#271_7">W</A>; - <b>end</b> Create; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#573_14">Delete</A><FONT COLOR=red><A NAME="283_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#573_22">Win</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="285_16">Wdelwin</A></FONT> (<FONT COLOR=red><A NAME="285_25">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#285_16">Wdelwin</A>, "delwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#285_16">Wdelwin</A> (<A HREF="terminal_interface-curses__ads.htm#573_22">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__ads.htm#573_22">Win</A> := <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A>; - <b>end</b> Delete; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#579_13">Sub_Window</A><FONT COLOR=red><A NAME="294_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#580_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#581_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#582_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#583_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#584_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="301_16">Subwin</A></FONT> - (<FONT COLOR=red><A NAME="302_10">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="303_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="304_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="305_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="306_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#301_16">Subwin</A>, "subwin"); - - <FONT COLOR=red><A NAME="309_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#309_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#301_16">Subwin</A> (<A HREF="terminal_interface-curses__ads.htm#580_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#581_7">Number_Of_Lines</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#582_7">Number_Of_Columns</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#583_7">First_Line_Position</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#584_7">First_Column_Position</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#309_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#309_7">W</A>; - <b>end</b> Sub_Window; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#589_13">Derived_Window</A><FONT COLOR=red><A NAME="322_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#590_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#591_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#592_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#593_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#594_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="329_16">Derwin</A></FONT> - (<FONT COLOR=red><A NAME="330_10">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="331_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="332_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="333_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="334_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#329_16">Derwin</A>, "derwin"); - - <FONT COLOR=red><A NAME="337_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#337_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#329_16">Derwin</A> (<A HREF="terminal_interface-curses__ads.htm#590_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#591_7">Number_Of_Lines</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#592_7">Number_Of_Columns</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#593_7">First_Line_Position</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#594_7">First_Column_Position</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#337_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#337_7">W</A>; - <b>end</b> Derived_Window; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#599_13">Duplicate</A><FONT COLOR=red><A NAME="350_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#599_24">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="352_16">Dupwin</A></FONT> (<FONT COLOR=red><A NAME="352_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#352_16">Dupwin</A>, "dupwin"); - - <FONT COLOR=red><A NAME="355_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__adb.htm#352_16">Dupwin</A> (<A HREF="terminal_interface-curses__ads.htm#599_24">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#355_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#355_7">W</A>; - <b>end</b> Duplicate; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#604_14">Move_Window</A><FONT COLOR=red><A NAME="363_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#604_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#605_27">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#606_27">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="367_16">Mvwin</A></FONT> (<FONT COLOR=red><A NAME="367_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="368_23">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="369_23">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#367_16">Mvwin</A>, "mvwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#367_16">Mvwin</A> (<A HREF="terminal_interface-curses__ads.htm#604_27">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#605_27">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#606_27">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Move_Window; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#611_14">Move_Derived_Window</A><FONT COLOR=red><A NAME="377_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#611_35">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#612_35">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#613_35">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="381_16">Mvderwin</A></FONT> (<FONT COLOR=red><A NAME="381_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="382_26">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="383_26">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#381_16">Mvderwin</A>, "mvderwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#381_16">Mvderwin</A> (<A HREF="terminal_interface-curses__ads.htm#611_35">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#612_35">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#613_35">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Move_Derived_Window; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#628_14">Set_Synch_Mode</A><FONT COLOR=red><A NAME="391_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#628_30">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#629_30">Mode</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="394_16">Syncok</A></FONT> (<FONT COLOR=red><A NAME="394_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="395_24">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#394_16">Syncok</A>, "syncok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#394_16">Syncok</A> (<A HREF="terminal_interface-curses__ads.htm#628_30">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#629_30">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Synch_Mode; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#638_14">Add</A><FONT COLOR=red><A NAME="403_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#638_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#639_19">Str</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#640_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="408_16">Waddnstr</A></FONT> (<FONT COLOR=red><A NAME="408_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Str : Char_Ptr; - <FONT COLOR=red><A NAME="410_26">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#408_16">Waddnstr</A>, "waddnstr"); - - <FONT COLOR=red><A NAME="413_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#639_19">Str</A>'Length); - <FONT COLOR=red><A NAME="414_7">Length</A></FONT> : size_t; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses__ads.htm#639_19">Str</A>, <A HREF="terminal_interface-curses__adb.htm#413_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#414_7">Length</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#408_16">Waddnstr</A> (<A HREF="terminal_interface-curses__ads.htm#638_19">Win</A>, <A HREF="terminal_interface-curses__adb.htm#413_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#413_7">Txt</A>'First)'<b>Access</b>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#640_19">Len</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#645_14">Add</A><FONT COLOR=red><A NAME="422_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#645_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#646_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#647_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#648_19">Str</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#649_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#645_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#646_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#647_19">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#645_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#645_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#648_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#649_19">Len</A>); - <b>end</b> Add; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#658_14">Add</A><FONT COLOR=red><A NAME="434_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#658_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#659_19">Str</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Attributed_String</A>; - <A HREF="terminal_interface-curses__ads.htm#660_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>type</b> Chtype_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <b>function</b> <FONT COLOR=red><A NAME="440_16">Waddchnstr</A></FONT> (<FONT COLOR=red><A NAME="440_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Str : Chtype_Ptr; - <FONT COLOR=red><A NAME="442_28">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#440_16">Waddchnstr</A>, "waddchnstr"); - - <FONT COLOR=red><A NAME="445_7">Txt</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#58_9">chtype_array</A> (0 .. <A HREF="terminal_interface-curses__ads.htm#659_19">Str</A>'Length); - <b>begin</b> - <b>for</b> <FONT COLOR=red><A NAME="447_11">Length</A></FONT> <b>in</b> 1 .. size_t (<A HREF="terminal_interface-curses__ads.htm#659_19">Str</A>'Length) <b>loop</b> - <A HREF="terminal_interface-curses__adb.htm#445_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#447_11">Length</A> - 1) := <A HREF="terminal_interface-curses__ads.htm#659_19">Str</A> (Natural (<A HREF="terminal_interface-curses__adb.htm#447_11">Length</A>)); - <b>end</b> <b>loop</b>; - <A HREF="terminal_interface-curses__adb.htm#445_7">Txt</A> (<A HREF="terminal_interface-curses__ads.htm#659_19">Str</A>'Length) := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#440_16">Waddchnstr</A> (<A HREF="terminal_interface-curses__ads.htm#658_19">Win</A>, - <A HREF="terminal_interface-curses__adb.htm#445_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#445_7">Txt</A>'First)'<b>Access</b>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#660_19">Len</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#665_14">Add</A><FONT COLOR=red><A NAME="458_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#665_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#666_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#667_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#668_19">Str</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Attributed_String</A>; - <A HREF="terminal_interface-curses__ads.htm#669_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#665_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#666_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#667_19">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#665_14">Add</A> (<A HREF="terminal_interface-curses__ads.htm#665_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#668_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#669_19">Len</A>); - <b>end</b> Add; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#679_14">Border</A><FONT COLOR=red><A NAME="470_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#680_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#681_7">Left_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#682_7">Right_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#683_7">Top_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#684_7">Bottom_Side_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#685_7">Upper_Left_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#686_7">Upper_Right_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#687_7">Lower_Left_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#688_7">Lower_Right_Corner_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="481_16">Wborder</A></FONT> (<FONT COLOR=red><A NAME="481_25">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="482_25">LS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="483_25">RS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="484_25">TS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="485_25">BS</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="486_25">ULC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="487_25">URC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="488_25">LLC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="489_25">LRC</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#481_16">Wborder</A>, "wborder"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#481_16">Wborder</A> (<A HREF="terminal_interface-curses__ads.htm#680_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#681_7">Left_Side_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#682_7">Right_Side_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#683_7">Top_Side_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#684_7">Bottom_Side_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#685_7">Upper_Left_Corner_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#686_7">Upper_Right_Corner_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#687_7">Lower_Left_Corner_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#688_7">Lower_Right_Corner_Symbol</A>) - ) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> - <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Border; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#694_14">Box</A><FONT COLOR=red><A NAME="507_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#695_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#696_7">Vertical_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#697_7">Horizontal_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#679_14">Border</A> (<A HREF="terminal_interface-curses__ads.htm#695_7">Win</A>, - <A HREF="terminal_interface-curses__ads.htm#696_7">Vertical_Symbol</A>, <A HREF="terminal_interface-curses__ads.htm#696_7">Vertical_Symbol</A>, - <A HREF="terminal_interface-curses__ads.htm#697_7">Horizontal_Symbol</A>, <A HREF="terminal_interface-curses__ads.htm#697_7">Horizontal_Symbol</A>); - <b>end</b> Box; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#702_14">Horizontal_Line</A><FONT COLOR=red><A NAME="518_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#703_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#704_7">Line_Size</A> : <b>in</b> Natural; - <A HREF="terminal_interface-curses__ads.htm#705_7">Line_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="523_16">Whline</A></FONT> (<FONT COLOR=red><A NAME="523_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="524_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="525_24">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#523_16">Whline</A>, "whline"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#523_16">Whline</A> (<A HREF="terminal_interface-curses__ads.htm#703_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#705_7">Line_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#704_7">Line_Size</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Horizontal_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#710_14">Vertical_Line</A><FONT COLOR=red><A NAME="535_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#711_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#712_7">Line_Size</A> : <b>in</b> Natural; - <A HREF="terminal_interface-curses__ads.htm#713_7">Line_Symbol</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="540_16">Wvline</A></FONT> (<FONT COLOR=red><A NAME="540_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="541_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <FONT COLOR=red><A NAME="542_24">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#540_16">Wvline</A>, "wvline"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#540_16">Wvline</A> (<A HREF="terminal_interface-curses__ads.htm#711_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#713_7">Line_Symbol</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#712_7">Line_Size</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Vertical_Line; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#722_13">Get_Keystroke</A><FONT COLOR=red><A NAME="553_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#722_28">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="556_16">Wgetch</A></FONT> (<FONT COLOR=red><A NAME="556_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#556_16">Wgetch</A>, "wgetch"); - - <FONT COLOR=red><A NAME="559_7">C</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#556_16">Wgetch</A> (<A HREF="terminal_interface-curses__ads.htm#722_28">Win</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#559_7">C</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#86_4">Key_None</A>; - <b>else</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A> (<A HREF="terminal_interface-curses__adb.htm#559_7">C</A>); - <b>end</b> <b>if</b>; - <b>end</b> Get_Keystroke; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#732_14">Undo_Keystroke</A><FONT COLOR=red><A NAME="568_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#732_30">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="570_16">Ungetch</A></FONT> (<FONT COLOR=red><A NAME="570_25">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#570_16">Ungetch</A>, "ungetch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#570_16">Ungetch</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#732_30">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Undo_Keystroke; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#737_13">Has_Key</A><FONT COLOR=red><A NAME="578_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#737_22">Key</A> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="580_16">Haskey</A></FONT> (<FONT COLOR=red><A NAME="580_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#580_16">Haskey</A>, "has_key"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#580_16">Haskey</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#737_22">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Has_Key; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#744_13">Is_Function_Key</A><FONT COLOR=red><A NAME="590_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#744_30">Key</A> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A>) <b>return</b> Boolean - <b>is</b> - <FONT COLOR=red><A NAME="592_7">L</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> (Natural (<A HREF="terminal_interface-curses__ads.htm#96_4">Key_F0</A>) + - Natural (<A HREF="terminal_interface-curses__ads.htm#748_12">Function_Key_Number</A>'Last)); - <b>begin</b> - <b>if</b> (<A HREF="terminal_interface-curses__ads.htm#744_30">Key</A> >= <A HREF="terminal_interface-curses__ads.htm#96_4">Key_F0</A>) <b>and</b> <b>then</b> (<A HREF="terminal_interface-curses__ads.htm#744_30">Key</A> <= <A HREF="terminal_interface-curses__adb.htm#592_7">L</A>) <b>then</b> - <b>return</b> True; - <b>else</b> - <b>return</b> False; - <b>end</b> <b>if</b>; - <b>end</b> Is_Function_Key; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#751_13">Function_Key</A><FONT COLOR=red><A NAME="602_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#751_27">Key</A> : <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#748_12">Function_Key_Number</A> - <b>is</b> - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#744_13">Is_Function_Key</A> (<A HREF="terminal_interface-curses__ads.htm#751_27">Key</A>) <b>then</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#748_12">Function_Key_Number</A> (<A HREF="terminal_interface-curses__ads.htm#751_27">Key</A> - <A HREF="terminal_interface-curses__ads.htm#96_4">Key_F0</A>); - <b>else</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <b>end</b> Function_Key; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#756_13">Function_Key_Code</A><FONT COLOR=red><A NAME="613_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#756_32">Key</A> : <A HREF="terminal_interface-curses__ads.htm#748_12">Function_Key_Number</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A> - <b>is</b> - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#71_12">Real_Key_Code</A> (Natural (<A HREF="terminal_interface-curses__ads.htm#96_4">Key_F0</A>) + Natural (<A HREF="terminal_interface-curses__ads.htm#756_32">Key</A>)); - <b>end</b> Function_Key_Code; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#765_14">Switch_Character_Attribute</A><FONT COLOR=red><A NAME="619_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#766_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#767_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses__ads.htm#768_7">On</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="624_16">Wattron</A></FONT> (<FONT COLOR=red><A NAME="624_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="625_25">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#624_16">Wattron</A>, "wattr_on"); - <b>function</b> <FONT COLOR=red><A NAME="627_16">Wattroff</A></FONT> (<FONT COLOR=red><A NAME="627_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="628_26">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#627_16">Wattroff</A>, "wattr_off"); - <FONT COLOR=green><EM>-- In Ada we use the On Boolean to control whether or not we want to</EM></FONT> - <FONT COLOR=green><EM>-- switch on or off the attributes in the set.</EM></FONT> - <FONT COLOR=red><A NAME="632_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="633_7">AC</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#767_7">Attr</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#768_7">On</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#632_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#624_16">Wattron</A> (<A HREF="terminal_interface-curses__ads.htm#766_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#108_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#633_7">AC</A>)); - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#632_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#627_16">Wattroff</A> (<A HREF="terminal_interface-curses__ads.htm#766_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#108_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#633_7">AC</A>)); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#632_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Switch_Character_Attribute; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#773_14">Set_Character_Attributes</A><FONT COLOR=red><A NAME="647_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#774_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#775_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses__ads.htm#776_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="652_16">Wattrset</A></FONT> (<FONT COLOR=red><A NAME="652_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="653_26">C_Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#652_16">Wattrset</A>, "wattrset"); <FONT COLOR=green><EM>-- ??? wattr_set</EM></FONT> - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#652_16">Wattrset</A> (<A HREF="terminal_interface-curses__ads.htm#774_7">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#108_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>' - (Ch => Character'First, - Color => <A HREF="terminal_interface-curses__ads.htm#776_7">Color</A>, - Attr => <A HREF="terminal_interface-curses__ads.htm#775_7">Attr</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Character_Attributes; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#781_13">Get_Character_Attribute</A><FONT COLOR=red><A NAME="665_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#782_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="668_16">Wattrget</A></FONT> (<FONT COLOR=red><A NAME="668_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Atr : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>; - Col : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="671_26">Opt</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#668_16">Wattrget</A>, "wattr_get"); - - <FONT COLOR=red><A NAME="674_7">Attr</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>; - <FONT COLOR=red><A NAME="675_7">Col</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="676_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#668_16">Wattrget</A> (<A HREF="terminal_interface-curses__ads.htm#782_7">Win</A>, <A HREF="terminal_interface-curses__adb.htm#674_7">Attr</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#675_7">Col</A>'<b>Access</b>, - System.Null_Address); - <FONT COLOR=red><A NAME="678_7">Ch</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#676_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#71_4">Curses_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#678_7">Ch</A> := <A HREF="terminal_interface-curses-aux__ads.htm#112_13">AttrType_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#674_7">Attr</A>); - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#678_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>else</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Get_Character_Attribute; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#786_13">Get_Character_Attribute</A><FONT COLOR=red><A NAME="688_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#787_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="691_16">Wattrget</A></FONT> (<FONT COLOR=red><A NAME="691_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Atr : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>; - Col : <b>access</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="694_26">Opt</A></FONT> : System.Address) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#691_16">Wattrget</A>, "wattr_get"); - - <FONT COLOR=red><A NAME="697_7">Attr</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>; - <FONT COLOR=red><A NAME="698_7">Col</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="699_7">Res</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#691_16">Wattrget</A> (<A HREF="terminal_interface-curses__ads.htm#787_7">Win</A>, <A HREF="terminal_interface-curses__adb.htm#697_7">Attr</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#698_7">Col</A>'<b>Access</b>, - System.Null_Address); - <FONT COLOR=red><A NAME="701_7">Ch</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#699_7">Res</A> = <A HREF="terminal_interface-curses-aux__ads.htm#71_4">Curses_Ok</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#701_7">Ch</A> := <A HREF="terminal_interface-curses-aux__ads.htm#112_13">AttrType_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#697_7">Attr</A>); - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#701_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>else</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Get_Character_Attribute; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#792_14">Set_Color</A><FONT COLOR=red><A NAME="711_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#792_25">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#793_25">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="714_16">Wset_Color</A></FONT> (<FONT COLOR=red><A NAME="714_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="715_28">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="716_28">Opts</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#62_12">C_Void_Ptr</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#714_16">Wset_Color</A>, "wcolor_set"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#714_16">Wset_Color</A> (<A HREF="terminal_interface-curses__ads.htm#792_25">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#793_25">Pair</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#62_12">C_Void_Ptr</A> (System.Null_Address)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Color; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#798_14">Change_Attributes</A><FONT COLOR=red><A NAME="726_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#799_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#800_7">Count</A> : <b>in</b> Integer := -1; - <A HREF="terminal_interface-curses__ads.htm#801_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses__ads.htm#802_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="732_16">Wchgat</A></FONT> (<FONT COLOR=red><A NAME="732_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="733_24">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="734_24">Attr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#64_12">C_AttrType</A>; - <FONT COLOR=red><A NAME="735_24">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="736_24">Opts</A></FONT> : System.Address := System.Null_Address) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#732_16">Wchgat</A>, "wchgat"); - - <FONT COLOR=red><A NAME="740_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := - (Ch => Character'First, Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, Attr => <A HREF="terminal_interface-curses__ads.htm#801_7">Attr</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#732_16">Wchgat</A> (<A HREF="terminal_interface-curses__ads.htm#799_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#800_7">Count</A>), <A HREF="terminal_interface-curses-aux__ads.htm#108_13">AttrChar_To_AttrType</A> (<A HREF="terminal_interface-curses__adb.htm#740_7">Ch</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#802_7">Color</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Change_Attributes; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#806_14">Change_Attributes</A><FONT COLOR=red><A NAME="749_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#807_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#808_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>'First; - <A HREF="terminal_interface-curses__ads.htm#809_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>'First; - <A HREF="terminal_interface-curses__ads.htm#810_7">Count</A> : <b>in</b> Integer := -1; - <A HREF="terminal_interface-curses__ads.htm#811_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses__ads.htm#812_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#807_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#808_7">Line</A>, <A HREF="terminal_interface-curses__ads.htm#809_7">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#806_14">Change_Attributes</A> (<A HREF="terminal_interface-curses__ads.htm#807_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#810_7">Count</A>, <A HREF="terminal_interface-curses__ads.htm#811_7">Attr</A>, <A HREF="terminal_interface-curses__ads.htm#812_7">Color</A>); - <b>end</b> Change_Attributes; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#821_14">Beep</A><FONT COLOR=red><A NAME="762_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="764_16">Beeper</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#764_16">Beeper</A>, "beep"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#764_16">Beeper</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Beep; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#826_14">Flash_Screen</A><FONT COLOR=red><A NAME="772_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="774_16">Flash</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#774_16">Flash</A>, "flash"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#774_16">Flash</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Flash_Screen; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#837_14">Set_Cbreak_Mode</A><FONT COLOR=red><A NAME="782_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#837_31">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="784_16">Cbreak</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#784_16">Cbreak</A>, "cbreak"); - <b>function</b> <FONT COLOR=red><A NAME="786_16">NoCbreak</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#786_16">NoCbreak</A>, "nocbreak"); - - <FONT COLOR=red><A NAME="789_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#837_31">SwitchOn</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#789_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#784_16">Cbreak</A>; - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#789_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#786_16">NoCbreak</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#789_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Cbreak_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#843_14">Set_Raw_Mode</A><FONT COLOR=red><A NAME="801_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#843_28">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="803_16">Raw</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#803_16">Raw</A>, "raw"); - <b>function</b> <FONT COLOR=red><A NAME="805_16">NoRaw</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#805_16">NoRaw</A>, "noraw"); - - <FONT COLOR=red><A NAME="808_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#843_28">SwitchOn</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#808_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#803_16">Raw</A>; - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#808_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#805_16">NoRaw</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#808_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Raw_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#849_14">Set_Echo_Mode</A><FONT COLOR=red><A NAME="820_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#849_29">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="822_16">Echo</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#822_16">Echo</A>, "echo"); - <b>function</b> <FONT COLOR=red><A NAME="824_16">NoEcho</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#824_16">NoEcho</A>, "noecho"); - - <FONT COLOR=red><A NAME="827_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#849_29">SwitchOn</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#827_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#822_16">Echo</A>; - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#827_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#824_16">NoEcho</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#827_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Echo_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#855_14">Set_Meta_Mode</A><FONT COLOR=red><A NAME="839_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#855_29">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#856_29">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="842_16">Meta</A></FONT> (<FONT COLOR=red><A NAME="842_22">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="842_34">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#842_16">Meta</A>, "meta"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#842_16">Meta</A> (<A HREF="terminal_interface-curses__ads.htm#855_29">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#856_29">SwitchOn</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Meta_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#861_14">Set_KeyPad_Mode</A><FONT COLOR=red><A NAME="850_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#861_31">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#862_31">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="853_16">Keypad</A></FONT> (<FONT COLOR=red><A NAME="853_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="853_36">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#853_16">Keypad</A>, "keypad"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#853_16">Keypad</A> (<A HREF="terminal_interface-curses__ads.htm#861_31">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#862_31">SwitchOn</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_KeyPad_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#869_14">Half_Delay</A><FONT COLOR=red><A NAME="861_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#869_26">Amount</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#866_9">Half_Delay_Amount</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="863_16">Halfdelay</A></FONT> (<FONT COLOR=red><A NAME="863_27">Amount</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#863_16">Halfdelay</A>, "halfdelay"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#863_16">Halfdelay</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#869_26">Amount</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Half_Delay; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#874_14">Set_Flush_On_Interrupt_Mode</A><FONT COLOR=red><A NAME="871_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#875_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#876_7">Mode</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="875_16">Intrflush</A></FONT> (<FONT COLOR=red><A NAME="875_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="875_41">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#875_16">Intrflush</A>, "intrflush"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#875_16">Intrflush</A> (<A HREF="terminal_interface-curses__ads.htm#875_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#876_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Flush_On_Interrupt_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#881_14">Set_Queue_Interrupt_Mode</A><FONT COLOR=red><A NAME="883_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#882_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#883_7">Flush</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="887_17">Qiflush</A></FONT>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#887_17">Qiflush</A>, "qiflush"); - <b>procedure</b> <FONT COLOR=red><A NAME="889_17">No_Qiflush</A></FONT>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#889_17">No_Qiflush</A>, "noqiflush"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#883_7">Flush</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#887_17">Qiflush</A>; - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#889_17">No_Qiflush</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Queue_Interrupt_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#889_14">Set_NoDelay_Mode</A><FONT COLOR=red><A NAME="899_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#890_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#891_7">Mode</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="903_16">Nodelay</A></FONT> (<FONT COLOR=red><A NAME="903_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="903_39">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#903_16">Nodelay</A>, "nodelay"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#903_16">Nodelay</A> (<A HREF="terminal_interface-curses__ads.htm#890_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#891_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_NoDelay_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#898_14">Set_Timeout_Mode</A><FONT COLOR=red><A NAME="911_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#898_32">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#899_32">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#895_9">Timeout_Mode</A>; - <A HREF="terminal_interface-curses__ads.htm#900_32">Amount</A> : <b>in</b> Natural) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="915_16">Wtimeout</A></FONT> (<FONT COLOR=red><A NAME="915_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="915_40">Amount</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#915_16">Wtimeout</A>, "wtimeout"); - - <FONT COLOR=red><A NAME="918_7">Time</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>case</b> <A HREF="terminal_interface-curses__ads.htm#899_32">Mode</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#895_26">Blocking</A> => <A HREF="terminal_interface-curses__adb.htm#918_7">Time</A> := -1; - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#895_36">Non_Blocking</A> => <A HREF="terminal_interface-curses__adb.htm#918_7">Time</A> := 0; - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#895_50">Delayed</A> => - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#900_32">Amount</A> = 0 <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__adb.htm#918_7">Time</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#900_32">Amount</A>); - <b>end</b> <b>case</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#915_16">Wtimeout</A> (<A HREF="terminal_interface-curses__ads.htm#898_32">Win</A>, <A HREF="terminal_interface-curses__adb.htm#918_7">Time</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Timeout_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#909_14">Set_Escape_Timer_Mode</A><FONT COLOR=red><A NAME="934_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#910_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#911_7">Timer_Off</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="938_16">Notimeout</A></FONT> (<FONT COLOR=red><A NAME="938_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="938_41">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#938_16">Notimeout</A>, "notimeout"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#938_16">Notimeout</A> (<A HREF="terminal_interface-curses__ads.htm#910_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#911_7">Timer_Off</A>))) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Escape_Timer_Mode; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#920_14">Set_NL_Mode</A><FONT COLOR=red><A NAME="948_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#920_27">SwitchOn</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="950_16">NL</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#950_16">NL</A>, "nl"); - <b>function</b> <FONT COLOR=red><A NAME="952_16">NoNL</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#952_16">NoNL</A>, "nonl"); - - <FONT COLOR=red><A NAME="955_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#920_27">SwitchOn</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#955_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#950_16">NL</A>; - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#955_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#952_16">NoNL</A>; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#955_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_NL_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#926_14">Clear_On_Next_Update</A><FONT COLOR=red><A NAME="967_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#927_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#928_7">Do_Clear</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="971_16">Clear_Ok</A></FONT> (<FONT COLOR=red><A NAME="971_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="971_38">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#971_16">Clear_Ok</A>, "clearok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#971_16">Clear_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#927_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#928_7">Do_Clear</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Clear_On_Next_Update; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#933_14">Use_Insert_Delete_Line</A><FONT COLOR=red><A NAME="979_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#934_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#935_7">Do_Idl</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="983_16">IDL_Ok</A></FONT> (<FONT COLOR=red><A NAME="983_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="983_36">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#983_16">IDL_Ok</A>, "idlok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#983_16">IDL_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#934_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#935_7">Do_Idl</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Use_Insert_Delete_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#940_14">Use_Insert_Delete_Character</A><FONT COLOR=red><A NAME="991_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#941_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#942_7">Do_Idc</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="995_16">IDC_Ok</A></FONT> (<FONT COLOR=red><A NAME="995_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="995_36">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#995_16">IDC_Ok</A>, "idcok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#995_16">IDC_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#941_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#942_7">Do_Idc</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Use_Insert_Delete_Character; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#947_14">Leave_Cursor_After_Update</A><FONT COLOR=red><A NAME="1003_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#948_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#949_7">Do_Leave</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1007_16">Leave_Ok</A></FONT> (<FONT COLOR=red><A NAME="1007_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1007_38">Flag</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1007_16">Leave_Ok</A>, "leaveok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1007_16">Leave_Ok</A> (<A HREF="terminal_interface-curses__ads.htm#948_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#949_7">Do_Leave</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Leave_Cursor_After_Update; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#954_14">Immediate_Update_Mode</A><FONT COLOR=red><A NAME="1015_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#955_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#956_7">Mode</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1019_16">Immedok</A></FONT> (<FONT COLOR=red><A NAME="1019_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1019_39">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1019_16">Immedok</A>, "immedok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1019_16">Immedok</A> (<A HREF="terminal_interface-curses__ads.htm#955_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#956_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Immediate_Update_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#961_14">Allow_Scrolling</A><FONT COLOR=red><A NAME="1027_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#962_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#963_7">Mode</A> : <b>in</b> Boolean := False) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1031_16">Scrollok</A></FONT> (<FONT COLOR=red><A NAME="1031_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1031_40">Mode</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1031_16">Scrollok</A>, "scrollok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1031_16">Scrollok</A> (<A HREF="terminal_interface-curses__ads.htm#962_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#963_7">Mode</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Allow_Scrolling; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#967_13">Scrolling_Allowed</A><FONT COLOR=red><A NAME="1039_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#967_32">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) <b>return</b> Boolean - <b>is</b> - <FONT COLOR=red><A NAME="1041_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1732_4">Sizeof_bool</A> <b>is</b> - <b>when</b> 1 => <A HREF="terminal_interface-curses__adb.htm#1041_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#90_13">W_Get_Byte</A> (<A HREF="terminal_interface-curses__ads.htm#967_32">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1731_4">Offset_scroll</A>)); - <b>when</b> 2 => <A HREF="terminal_interface-curses__adb.htm#1041_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#967_32">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1731_4">Offset_scroll</A>)); - <b>when</b> 4 => <A HREF="terminal_interface-curses__adb.htm#1041_7">Res</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#88_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__ads.htm#967_32">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1731_4">Offset_scroll</A>)); - <b>when</b> <b>others</b> => <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>case</b>; - - <b>case</b> <A HREF="terminal_interface-curses__adb.htm#1041_7">Res</A> <b>is</b> - <b>when</b> 0 => <b>return</b> False; - <b>when</b> <b>others</b> => <b>return</b> True; - <b>end</b> <b>case</b>; - <b>end</b> Scrolling_Allowed; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#972_14">Set_Scroll_Region</A><FONT COLOR=red><A NAME="1056_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#973_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#974_7">Top_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#975_7">Bottom_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1061_16">Wsetscrreg</A></FONT> (<FONT COLOR=red><A NAME="1061_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1062_28">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1063_28">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1061_16">Wsetscrreg</A>, "wsetscrreg"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1061_16">Wsetscrreg</A> (<A HREF="terminal_interface-curses__ads.htm#973_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#974_7">Top_Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#975_7">Bottom_Line</A>)) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Scroll_Region; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#984_14">Update_Screen</A><FONT COLOR=red><A NAME="1072_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1074_16">Do_Update</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1074_16">Do_Update</A>, "doupdate"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1074_16">Do_Update</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Update_Screen; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#989_14">Refresh</A><FONT COLOR=red><A NAME="1082_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#989_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1084_16">Wrefresh</A></FONT> (<FONT COLOR=red><A NAME="1084_26">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1084_16">Wrefresh</A>, "wrefresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1084_16">Wrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#989_23">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#995_14">Refresh_Without_Update</A><FONT COLOR=red><A NAME="1092_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#996_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1095_16">Wnoutrefresh</A></FONT> (<FONT COLOR=red><A NAME="1095_30">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1095_16">Wnoutrefresh</A>, "wnoutrefresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1095_16">Wnoutrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#996_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh_Without_Update; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1002_14">Redraw</A><FONT COLOR=red><A NAME="1103_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1002_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1105_16">Redrawwin</A></FONT> (<FONT COLOR=red><A NAME="1105_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1105_16">Redrawwin</A>, "redrawwin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1105_16">Redrawwin</A> (<A HREF="terminal_interface-curses__ads.htm#1002_22">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Redraw; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1006_14">Redraw</A><FONT COLOR=red><A NAME="1113_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1006_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1007_22">Begin_Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1008_22">Line_Count</A> : <b>in</b> Positive) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1118_16">Wredrawln</A></FONT> (<FONT COLOR=red><A NAME="1118_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1118_41">First</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; <FONT COLOR=red><A NAME="1118_56">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1118_16">Wredrawln</A>, "wredrawln"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1118_16">Wredrawln</A> (<A HREF="terminal_interface-curses__ads.htm#1006_22">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1007_22">Begin_Line</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1008_22">Line_Count</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Redraw; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1017_14">Erase</A><FONT COLOR=red><A NAME="1130_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1017_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1132_16">Werase</A></FONT> (<FONT COLOR=red><A NAME="1132_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1132_16">Werase</A>, "werase"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1132_16">Werase</A> (<A HREF="terminal_interface-curses__ads.htm#1017_21">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Erase; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1022_14">Clear</A><FONT COLOR=red><A NAME="1140_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1023_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1142_16">Wclear</A></FONT> (<FONT COLOR=red><A NAME="1142_24">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1142_16">Wclear</A>, "wclear"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1142_16">Wclear</A> (<A HREF="terminal_interface-curses__ads.htm#1023_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Clear; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1028_14">Clear_To_End_Of_Screen</A><FONT COLOR=red><A NAME="1150_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1029_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1152_16">Wclearbot</A></FONT> (<FONT COLOR=red><A NAME="1152_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1152_16">Wclearbot</A>, "wclrtobot"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1152_16">Wclearbot</A> (<A HREF="terminal_interface-curses__ads.htm#1029_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Clear_To_End_Of_Screen; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1034_14">Clear_To_End_Of_Line</A><FONT COLOR=red><A NAME="1160_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1035_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1162_16">Wcleareol</A></FONT> (<FONT COLOR=red><A NAME="1162_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1162_16">Wcleareol</A>, "wclrtoeol"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1162_16">Wcleareol</A> (<A HREF="terminal_interface-curses__ads.htm#1035_7">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Clear_To_End_Of_Line; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1044_14">Set_Background</A><FONT COLOR=red><A NAME="1170_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1045_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1046_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>procedure</b> <FONT COLOR=red><A NAME="1174_17">WBackground</A></FONT> (<FONT COLOR=red><A NAME="1174_30">W</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1174_45">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>); - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1174_17">WBackground</A>, "wbkgdset"); - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#1174_17">WBackground</A> (<A HREF="terminal_interface-curses__ads.htm#1045_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1046_7">Ch</A>)); - <b>end</b> Set_Background; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1051_14">Change_Background</A><FONT COLOR=red><A NAME="1180_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1052_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1053_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1184_16">WChangeBkgd</A></FONT> (<FONT COLOR=red><A NAME="1184_29">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1184_41">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1184_16">WChangeBkgd</A>, "wbkgd"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1184_16">WChangeBkgd</A> (<A HREF="terminal_interface-curses__ads.htm#1052_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1053_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Change_Background; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1058_13">Get_Background</A><FONT COLOR=red><A NAME="1192_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1058_29">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1195_16">Wgetbkgd</A></FONT> (<FONT COLOR=red><A NAME="1195_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1195_16">Wgetbkgd</A>, "getbkgd"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1195_16">Wgetbkgd</A> (<A HREF="terminal_interface-curses__ads.htm#1058_29">Win</A>)); - <b>end</b> Get_Background; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1084_14">Change_Lines_Status</A><FONT COLOR=red><A NAME="1201_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1084_35">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1085_35">Start</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1086_35">Count</A> : <b>in</b> Positive; - <A HREF="terminal_interface-curses__ads.htm#1087_35">State</A> : <b>in</b> Boolean) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1206_16">Wtouchln</A></FONT> (<FONT COLOR=red><A NAME="1206_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1207_26">Sta</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1208_26">Cnt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1209_26">Chg</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1206_16">Wtouchln</A>, "wtouchln"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1206_16">Wtouchln</A> (<A HREF="terminal_interface-curses__ads.htm#1084_35">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1085_35">Start</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1086_35">Count</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1087_35">State</A>))) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Change_Lines_Status; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1073_14">Touch</A><FONT COLOR=red><A NAME="1218_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1073_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <FONT COLOR=red><A NAME="1220_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1221_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses__ads.htm#1073_21">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1220_7">Y</A>, <A HREF="terminal_interface-curses__adb.htm#1221_7">X</A>); - <A HREF="terminal_interface-curses__ads.htm#1084_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1073_21">Win</A>, 0, Positive (<A HREF="terminal_interface-curses__adb.htm#1220_7">Y</A>), True); - <b>end</b> Touch; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1068_14">Untouch</A><FONT COLOR=red><A NAME="1227_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1068_23">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <FONT COLOR=red><A NAME="1229_7">Y</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1230_7">X</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A> (<A HREF="terminal_interface-curses__ads.htm#1068_23">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1229_7">Y</A>, <A HREF="terminal_interface-curses__adb.htm#1230_7">X</A>); - <A HREF="terminal_interface-curses__ads.htm#1084_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1068_23">Win</A>, 0, Positive (<A HREF="terminal_interface-curses__adb.htm#1229_7">Y</A>), False); - <b>end</b> Untouch; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1077_14">Touch</A><FONT COLOR=red><A NAME="1236_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1077_21">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1078_21">Start</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1079_21">Count</A> : <b>in</b> Positive) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1084_14">Change_Lines_Status</A> (<A HREF="terminal_interface-curses__ads.htm#1077_21">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1078_21">Start</A>, <A HREF="terminal_interface-curses__ads.htm#1079_21">Count</A>, True); - <b>end</b> Touch; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1092_13">Is_Touched</A><FONT COLOR=red><A NAME="1244_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1092_25">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1093_25">Line</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1248_16">WLineTouched</A></FONT> (<FONT COLOR=red><A NAME="1248_30">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1248_42">L</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1248_16">WLineTouched</A>, "is_linetouched"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1248_16">WLineTouched</A> (<A HREF="terminal_interface-curses__ads.htm#1092_25">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1093_25">Line</A>)) = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Is_Touched; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1097_13">Is_Touched</A><FONT COLOR=red><A NAME="1258_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1097_25">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1261_16">WWinTouched</A></FONT> (<FONT COLOR=red><A NAME="1261_29">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1261_16">WWinTouched</A>, "is_wintouched"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1261_16">WWinTouched</A> (<A HREF="terminal_interface-curses__ads.htm#1097_25">Win</A>) = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Is_Touched; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1106_14">Copy</A><FONT COLOR=red><A NAME="1271_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1107_7">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1108_7">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1109_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1110_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1111_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1112_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1113_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1114_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1115_7">Non_Destructive_Mode</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1282_16">Copywin</A></FONT> (<FONT COLOR=red><A NAME="1282_25">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1283_25">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1284_25">Str</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1285_25">Slc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1286_25">Dtr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1287_25">Dlc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1288_25">Dbr</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1289_25">Drc</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1290_25">Ndm</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1282_16">Copywin</A>, "copywin"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1282_16">Copywin</A> (<A HREF="terminal_interface-curses__ads.htm#1107_7">Source_Window</A>, - <A HREF="terminal_interface-curses__ads.htm#1108_7">Destination_Window</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1109_7">Source_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1110_7">Source_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1111_7">Destination_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1112_7">Destination_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1113_7">Destination_Bottom_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1114_7">Destination_Right_Column</A>), - Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1115_7">Non_Destructive_Mode</A>) - ) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Copy; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1120_14">Overwrite</A><FONT COLOR=red><A NAME="1307_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1120_25">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1121_25">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1311_16">Overwrite</A></FONT> (<FONT COLOR=red><A NAME="1311_27">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1311_41">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1311_16">Overwrite</A>, "overwrite"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1311_16">Overwrite</A> (<A HREF="terminal_interface-curses__ads.htm#1120_25">Source_Window</A>, <A HREF="terminal_interface-curses__ads.htm#1121_25">Destination_Window</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Overwrite; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1126_14">Overlay</A><FONT COLOR=red><A NAME="1319_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1126_23">Source_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1127_23">Destination_Window</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1323_16">Overlay</A></FONT> (<FONT COLOR=red><A NAME="1323_25">Src</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1323_39">Dst</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1323_16">Overlay</A>, "overlay"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1323_16">Overlay</A> (<A HREF="terminal_interface-curses__ads.htm#1126_23">Source_Window</A>, <A HREF="terminal_interface-curses__ads.htm#1127_23">Destination_Window</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Overlay; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1136_14">Insert_Delete_Lines</A><FONT COLOR=red><A NAME="1332_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1137_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1138_7">Lines</A> : <b>in</b> Integer := 1) <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1336_16">Winsdelln</A></FONT> (<FONT COLOR=red><A NAME="1336_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1336_39">N</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1336_16">Winsdelln</A>, "winsdelln"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1336_16">Winsdelln</A> (<A HREF="terminal_interface-curses__ads.htm#1137_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1138_7">Lines</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Insert_Delete_Lines; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1143_14">Delete_Line</A><FONT COLOR=red><A NAME="1344_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1143_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1136_14">Insert_Delete_Lines</A> (<A HREF="terminal_interface-curses__ads.htm#1143_27">Win</A>, -1); - <b>end</b> Delete_Line; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1148_14">Insert_Line</A><FONT COLOR=red><A NAME="1350_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1148_27">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1136_14">Insert_Delete_Lines</A> (<A HREF="terminal_interface-curses__ads.htm#1148_27">Win</A>, 1); - <b>end</b> Insert_Line; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1157_14">Get_Size</A><FONT COLOR=red><A NAME="1358_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1158_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1159_7">Number_Of_Lines</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#1160_7">Number_Of_Columns</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) - <b>is</b> - <FONT COLOR=green><EM>-- Please note: in ncurses they are one off.</EM></FONT> - <FONT COLOR=green><EM>-- This might be different in other implementations of curses</EM></FONT> - <FONT COLOR=red><A NAME="1365_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1158_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1722_4">Offset_maxy</A>)) + <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1733_4">Offset_XY</A>); - <FONT COLOR=red><A NAME="1366_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1158_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1723_4">Offset_maxx</A>)) + <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1733_4">Offset_XY</A>); - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1159_7">Number_Of_Lines</A> := <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses__adb.htm#1365_7">Y</A>); - <A HREF="terminal_interface-curses__ads.htm#1160_7">Number_Of_Columns</A> := <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses__adb.htm#1366_7">X</A>); - <b>end</b> Get_Size; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1165_14">Get_Window_Position</A><FONT COLOR=red><A NAME="1372_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1166_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1167_7">Top_Left_Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1168_7">Top_Left_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <FONT COLOR=red><A NAME="1377_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1166_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1724_4">Offset_begy</A>); - <FONT COLOR=red><A NAME="1378_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1166_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1725_4">Offset_begx</A>); - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1167_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1377_7">Y</A>); - <A HREF="terminal_interface-curses__ads.htm#1168_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1378_7">X</A>); - <b>end</b> Get_Window_Position; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1173_14">Get_Cursor_Position</A><FONT COLOR=red><A NAME="1384_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1174_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1175_7">Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1176_7">Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <FONT COLOR=red><A NAME="1389_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1174_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1726_4">Offset_cury</A>); - <FONT COLOR=red><A NAME="1390_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> := <A HREF="terminal_interface-curses__adb.htm#89_13">W_Get_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1174_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1727_4">Offset_curx</A>); - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1175_7">Line</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1389_7">Y</A>); - <A HREF="terminal_interface-curses__ads.htm#1176_7">Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1390_7">X</A>); - <b>end</b> Get_Cursor_Position; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1181_14">Get_Origin_Relative_To_Parent</A><FONT COLOR=red><A NAME="1396_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1182_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1183_7">Top_Left_Line</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1184_7">Top_Left_Column</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1185_7">Is_Not_A_Subwindow</A> : <b>out</b> Boolean) - <b>is</b> - <FONT COLOR=red><A NAME="1402_7">Y</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#88_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1182_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1729_4">Offset_pary</A>); - <FONT COLOR=red><A NAME="1403_7">X</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses__adb.htm#88_13">W_Get_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1182_7">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1730_4">Offset_parx</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1402_7">Y</A> = -1 <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1183_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>'Last; - <A HREF="terminal_interface-curses__ads.htm#1184_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>'Last; - <A HREF="terminal_interface-curses__ads.htm#1185_7">Is_Not_A_Subwindow</A> := True; - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#1183_7">Top_Left_Line</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1402_7">Y</A>); - <A HREF="terminal_interface-curses__ads.htm#1184_7">Top_Left_Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#1403_7">X</A>); - <A HREF="terminal_interface-curses__ads.htm#1185_7">Is_Not_A_Subwindow</A> := False; - <b>end</b> <b>if</b>; - <b>end</b> Get_Origin_Relative_To_Parent; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1196_13">New_Pad</A><FONT COLOR=red><A NAME="1416_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1196_22">Lines</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#1197_22">Columns</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1419_16">Newpad</A></FONT> (<FONT COLOR=red><A NAME="1419_24">Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; <FONT COLOR=red><A NAME="1419_39">Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1419_16">Newpad</A>, "newpad"); - - <FONT COLOR=red><A NAME="1422_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#1422_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#1419_16">Newpad</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1196_22">Lines</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1197_22">Columns</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1422_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#1422_7">W</A>; - <b>end</b> New_Pad; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1202_13">Sub_Pad</A><FONT COLOR=red><A NAME="1431_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1203_7">Pad</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1204_7">Number_Of_Lines</A> : <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#1205_7">Number_Of_Columns</A> : <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A>; - <A HREF="terminal_interface-curses__ads.htm#1206_7">First_Line_Position</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1207_7">First_Column_Position</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1438_16">Subpad</A></FONT> - (<FONT COLOR=red><A NAME="1439_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1440_10">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1441_10">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1442_10">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1443_10">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1438_16">Subpad</A>, "subpad"); - - <FONT COLOR=red><A NAME="1446_7">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#1446_7">W</A> := <A HREF="terminal_interface-curses__adb.htm#1438_16">Subpad</A> (<A HREF="terminal_interface-curses__ads.htm#1203_7">Pad</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1204_7">Number_Of_Lines</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1205_7">Number_Of_Columns</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1206_7">First_Line_Position</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1207_7">First_Column_Position</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1446_7">W</A> = <A HREF="terminal_interface-curses__ads.htm#57_4">Null_Window</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#1446_7">W</A>; - <b>end</b> Sub_Pad; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1212_14">Refresh</A><FONT COLOR=red><A NAME="1459_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1213_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1214_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1215_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1216_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1217_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1218_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1219_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1468_16">Prefresh</A></FONT> - (<FONT COLOR=red><A NAME="1469_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1470_10">Source_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1471_10">Source_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1472_10">Destination_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1473_10">Destination_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1474_10">Destination_Bottom_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1475_10">Destination_Right_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1468_16">Prefresh</A>, "prefresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1468_16">Prefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1213_7">Pad</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1214_7">Source_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1215_7">Source_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1216_7">Destination_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1217_7">Destination_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1218_7">Destination_Bottom_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1219_7">Destination_Right_Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1224_14">Refresh_Without_Update</A><FONT COLOR=red><A NAME="1489_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1225_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1226_7">Source_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1227_7">Source_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1228_7">Destination_Top_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1229_7">Destination_Left_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1230_7">Destination_Bottom_Row</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1231_7">Destination_Right_Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1498_16">Pnoutrefresh</A></FONT> - (<FONT COLOR=red><A NAME="1499_10">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1500_10">Source_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1501_10">Source_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1502_10">Destination_Top_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1503_10">Destination_Left_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1504_10">Destination_Bottom_Row</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1505_10">Destination_Right_Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1498_16">Pnoutrefresh</A>, "pnoutrefresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1498_16">Pnoutrefresh</A> (<A HREF="terminal_interface-curses__ads.htm#1225_7">Pad</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1226_7">Source_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1227_7">Source_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1228_7">Destination_Top_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1229_7">Destination_Left_Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1230_7">Destination_Bottom_Row</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1231_7">Destination_Right_Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh_Without_Update; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1236_14">Add_Character_To_Pad_And_Echo_It</A><FONT COLOR=red><A NAME="1519_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1237_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1238_7">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1523_16">Pechochar</A></FONT> (<FONT COLOR=red><A NAME="1523_27">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1523_41">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1523_16">Pechochar</A>, "pechochar"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1523_16">Pechochar</A> (<A HREF="terminal_interface-curses__ads.htm#1237_7">Pad</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1238_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Add_Character_To_Pad_And_Echo_It; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1241_14">Add_Character_To_Pad_And_Echo_It</A><FONT COLOR=red><A NAME="1532_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1242_7">Pad</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1243_7">Ch</A> : <b>in</b> Character) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#1241_14">Add_Character_To_Pad_And_Echo_It</A> - (<A HREF="terminal_interface-curses__ads.htm#1242_7">Pad</A>, - <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>'(Ch => <A HREF="terminal_interface-curses__ads.htm#1243_7">Ch</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>end</b> Add_Character_To_Pad_And_Echo_It; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1251_14">Scroll</A><FONT COLOR=red><A NAME="1544_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1251_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1252_22">Amount</A> : <b>in</b> Integer := 1) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1547_16">Wscrl</A></FONT> (<FONT COLOR=red><A NAME="1547_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1547_37">N</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1547_16">Wscrl</A>, "wscrl"); - - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1547_16">Wscrl</A> (<A HREF="terminal_interface-curses__ads.htm#1251_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1252_22">Amount</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Scroll; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1261_14">Delete_Character</A><FONT COLOR=red><A NAME="1557_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1261_32">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1559_16">Wdelch</A></FONT> (<FONT COLOR=red><A NAME="1559_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1559_16">Wdelch</A>, "wdelch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1559_16">Wdelch</A> (<A HREF="terminal_interface-curses__ads.htm#1261_32">Win</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Delete_Character; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1265_14">Delete_Character</A><FONT COLOR=red><A NAME="1567_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1266_7">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1267_7">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1268_7">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1572_16">Mvwdelch</A></FONT> (<FONT COLOR=red><A NAME="1572_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1573_26">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1574_26">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1572_16">Mvwdelch</A>, "mvwdelch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1572_16">Mvwdelch</A> (<A HREF="terminal_interface-curses__ads.htm#1266_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1267_7">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1268_7">Column</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Delete_Character; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1277_13">Peek</A><FONT COLOR=red><A NAME="1582_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1277_19">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>) - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1585_16">Winch</A></FONT> (<FONT COLOR=red><A NAME="1585_23">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1585_16">Winch</A>, "winch"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1585_16">Winch</A> (<A HREF="terminal_interface-curses__ads.htm#1277_19">Win</A>)); - <b>end</b> Peek; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1282_13">Peek</A><FONT COLOR=red><A NAME="1591_13"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1283_7">Win</A> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1284_7">Line</A> : <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1285_7">Column</A> : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1596_16">Mvwinch</A></FONT> (<FONT COLOR=red><A NAME="1596_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1597_25">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1598_25">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1596_16">Mvwinch</A>, "mvwinch"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1596_16">Mvwinch</A> (<A HREF="terminal_interface-curses__ads.htm#1283_7">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1284_7">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1285_7">Column</A>))); - <b>end</b> Peek; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1294_14">Insert</A><FONT COLOR=red><A NAME="1604_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1294_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1295_22">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1607_16">Winsch</A></FONT> (<FONT COLOR=red><A NAME="1607_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; <FONT COLOR=red><A NAME="1607_38">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1607_16">Winsch</A>, "winsch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1607_16">Winsch</A> (<A HREF="terminal_interface-curses__ads.htm#1294_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1295_22">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Insert; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1299_14">Insert</A><FONT COLOR=red><A NAME="1615_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1299_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1300_22">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1301_22">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1302_22">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1621_16">Mvwinsch</A></FONT> (<FONT COLOR=red><A NAME="1621_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1622_26">Lin</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1623_26">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1624_26">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1621_16">Mvwinsch</A>, "mvwinsch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1621_16">Mvwinsch</A> (<A HREF="terminal_interface-curses__ads.htm#1299_22">Win</A>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1300_22">Line</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1301_22">Column</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1302_22">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Insert; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1310_14">Insert</A><FONT COLOR=red><A NAME="1635_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1310_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1311_22">Str</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#1312_22">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="1640_16">Winsnstr</A></FONT> (<FONT COLOR=red><A NAME="1640_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Str : Char_Ptr; - <FONT COLOR=red><A NAME="1642_26">Len</A></FONT> : Integer := -1) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1640_16">Winsnstr</A>, "winsnstr"); - - <FONT COLOR=red><A NAME="1645_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1311_22">Str</A>'Length); - <FONT COLOR=red><A NAME="1646_7">Length</A></FONT> : size_t; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses__ads.htm#1311_22">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1645_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1646_7">Length</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1640_16">Winsnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1310_22">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1645_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#1645_7">Txt</A>'First)'<b>Access</b>, <A HREF="terminal_interface-curses__ads.htm#1312_22">Len</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Insert; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1317_14">Insert</A><FONT COLOR=red><A NAME="1654_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1317_22">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1318_22">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1319_22">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1320_22">Str</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#1321_22">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="1662_16">Mvwinsnstr</A></FONT> (<FONT COLOR=red><A NAME="1662_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1663_28">Line</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1664_28">Column</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - Str : Char_Ptr; - <FONT COLOR=red><A NAME="1666_28">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1662_16">Mvwinsnstr</A>, "mvwinsnstr"); - - <FONT COLOR=red><A NAME="1669_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1320_22">Str</A>'Length); - <FONT COLOR=red><A NAME="1670_7">Length</A></FONT> : size_t; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses__ads.htm#1320_22">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1669_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1670_7">Length</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1662_16">Mvwinsnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1317_22">Win</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1318_22">Line</A>), <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1319_22">Column</A>), - <A HREF="terminal_interface-curses__adb.htm#1669_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#1669_7">Txt</A>'First)'<b>Access</b>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1321_22">Len</A>)) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Insert; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1331_14">Peek</A><FONT COLOR=red><A NAME="1680_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1331_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A> : <b>out</b> String; - <A HREF="terminal_interface-curses__ads.htm#1333_20">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1684_16">Winnstr</A></FONT> (<FONT COLOR=red><A NAME="1684_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1685_25">Str</A></FONT> : char_array; - <FONT COLOR=red><A NAME="1686_25">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1684_16">Winnstr</A>, "winnstr"); - - <FONT COLOR=red><A NAME="1689_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1333_20">Len</A>; - <FONT COLOR=red><A NAME="1690_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'Length); - <FONT COLOR=red><A NAME="1691_7">Cnt</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1689_7">N</A> < 0 <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#1689_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'Length; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1689_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'Length <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__adb.htm#1690_7">Txt</A> (0) := <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char'First; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1684_16">Winnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1331_20">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1690_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1689_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - To_Ada (<A HREF="terminal_interface-curses__adb.htm#1690_7">Txt</A>, <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1691_7">Cnt</A>, True); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1691_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'Length <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1691_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1332_20">Str</A>'Last) := (<b>others</b> => ' '); - <b>end</b> <b>if</b>; - <b>end</b> Peek; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1338_14">Peek</A><FONT COLOR=red><A NAME="1709_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1338_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1339_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1340_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1341_20">Str</A> : <b>out</b> String; - <A HREF="terminal_interface-curses__ads.htm#1342_20">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1338_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1339_20">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1340_20">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#1338_14">Peek</A> (<A HREF="terminal_interface-curses__ads.htm#1338_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1341_20">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1342_20">Len</A>); - <b>end</b> Peek; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1351_14">Peek</A><FONT COLOR=red><A NAME="1721_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1351_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Attributed_String</A>; - <A HREF="terminal_interface-curses__ads.htm#1353_20">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>type</b> Chtype_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <b>function</b> <FONT COLOR=red><A NAME="1727_16">Winchnstr</A></FONT> (<FONT COLOR=red><A NAME="1727_27">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Str : Chtype_Ptr; - <FONT COLOR=red><A NAME="1729_27">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1727_16">Winchnstr</A>, "winchnstr"); - - <FONT COLOR=red><A NAME="1732_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1353_20">Len</A>; - <FONT COLOR=red><A NAME="1733_7">Txt</A></FONT> : <A HREF="terminal_interface-curses__adb.htm#58_9">chtype_array</A> (0 .. <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'Length); - <FONT COLOR=red><A NAME="1734_7">Cnt</A></FONT> : Natural := 0; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1732_7">N</A> < 0 <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#1732_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'Length; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1732_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'Length <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1727_16">Winchnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1351_20">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1733_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#1733_7">Txt</A>'First)'<b>Access</b>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1732_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>for</b> <FONT COLOR=red><A NAME="1745_11">To</A></FONT> <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'<b>Range</b> <b>loop</b> - <b>exit</b> <b>when</b> <A HREF="terminal_interface-curses__adb.htm#1733_7">Txt</A> (size_t (<A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A>)) = <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A> (<A HREF="terminal_interface-curses__adb.htm#1745_11">To</A>) := <A HREF="terminal_interface-curses__adb.htm#1733_7">Txt</A> (size_t (<A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A>)); - <A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A> := <A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A> + 1; - <b>end</b> <b>loop</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'Length <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1734_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1352_20">Str</A>'Last) := - (<b>others</b> => (Ch => ' ', - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>)); - <b>end</b> <b>if</b>; - <b>end</b> Peek; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1358_14">Peek</A><FONT COLOR=red><A NAME="1758_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1358_20">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1359_20">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1360_20">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1361_20">Str</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Attributed_String</A>; - <A HREF="terminal_interface-curses__ads.htm#1362_20">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1358_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1359_20">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1360_20">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#1358_14">Peek</A> (<A HREF="terminal_interface-curses__ads.htm#1358_20">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1361_20">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1362_20">Len</A>); - <b>end</b> Peek; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1372_14">Get</A><FONT COLOR=red><A NAME="1770_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1372_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A> : <b>out</b> String; - <A HREF="terminal_interface-curses__ads.htm#1374_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1774_16">Wgetnstr</A></FONT> (<FONT COLOR=red><A NAME="1774_26">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1775_26">Str</A></FONT> : char_array; - <FONT COLOR=red><A NAME="1776_26">Len</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1774_16">Wgetnstr</A>, "wgetnstr"); - - <FONT COLOR=red><A NAME="1779_7">N</A></FONT> : Integer := <A HREF="terminal_interface-curses__ads.htm#1374_19">Len</A>; - <FONT COLOR=red><A NAME="1780_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'Length); - <FONT COLOR=red><A NAME="1781_7">Cnt</A></FONT> : Natural; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1779_7">N</A> < 0 <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#1779_7">N</A> := <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'Length; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1779_7">N</A> > <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'Length <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__adb.htm#1780_7">Txt</A> (0) := <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char'First; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1774_16">Wgetnstr</A> (<A HREF="terminal_interface-curses__ads.htm#1372_19">Win</A>, <A HREF="terminal_interface-curses__adb.htm#1780_7">Txt</A>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__adb.htm#1779_7">N</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - To_Ada (<A HREF="terminal_interface-curses__adb.htm#1780_7">Txt</A>, <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>, <A HREF="terminal_interface-curses__adb.htm#1781_7">Cnt</A>, True); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1781_7">Cnt</A> < <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'Length <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A> ((<A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'First + <A HREF="terminal_interface-curses__adb.htm#1781_7">Cnt</A>) .. <A HREF="terminal_interface-curses__ads.htm#1373_19">Str</A>'Last) := (<b>others</b> => ' '); - <b>end</b> <b>if</b>; - <b>end</b> Get; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1378_14">Get</A><FONT COLOR=red><A NAME="1799_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1378_19">Win</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1379_19">Line</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1380_19">Column</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1381_19">Str</A> : <b>out</b> String; - <A HREF="terminal_interface-curses__ads.htm#1382_19">Len</A> : <b>in</b> Integer := -1) - <b>is</b> - <b>begin</b> - <A HREF="terminal_interface-curses__ads.htm#503_14">Move_Cursor</A> (<A HREF="terminal_interface-curses__ads.htm#1378_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1379_19">Line</A>, <A HREF="terminal_interface-curses__ads.htm#1380_19">Column</A>); - <A HREF="terminal_interface-curses__ads.htm#1378_14">Get</A> (<A HREF="terminal_interface-curses__ads.htm#1378_19">Win</A>, <A HREF="terminal_interface-curses__ads.htm#1381_19">Str</A>, <A HREF="terminal_interface-curses__ads.htm#1382_19">Len</A>); - <b>end</b> Get; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1400_14">Init_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1811_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1401_7">Format</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1392_9">Soft_Label_Key_Format</A> := <A HREF="terminal_interface-curses__ads.htm#1392_35">Three_Two_Three</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1814_16">Slk_Init</A></FONT> (<FONT COLOR=red><A NAME="1814_26">Fmt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1814_16">Slk_Init</A>, "slk_init"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1814_16">Slk_Init</A> (<A HREF="terminal_interface-curses__ads.htm#1392_9">Soft_Label_Key_Format</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1401_7">Format</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Init_Soft_Label_Keys; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1406_14">Set_Soft_Label_Key</A><FONT COLOR=red><A NAME="1822_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1406_34">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1396_9">Label_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1407_34">Text</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#1408_34">Fmt</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1397_9">Label_Justification</A> := <A HREF="terminal_interface-curses__ads.htm#1397_33">Left</A>) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="1827_16">Slk_Set</A></FONT> (<FONT COLOR=red><A NAME="1827_25">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - Txt : Char_Ptr; - <FONT COLOR=red><A NAME="1829_25">Fmt</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1827_16">Slk_Set</A>, "slk_set"); - - <FONT COLOR=red><A NAME="1832_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1407_34">Text</A>'Length); - <FONT COLOR=red><A NAME="1833_7">Len</A></FONT> : size_t; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses__ads.htm#1407_34">Text</A>, <A HREF="terminal_interface-curses__adb.htm#1832_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#1833_7">Len</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1827_16">Slk_Set</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1406_34">Label</A>), - <A HREF="terminal_interface-curses__adb.htm#1832_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#1832_7">Txt</A>'First)'<b>Access</b>, - <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1397_9">Label_Justification</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1408_34">Fmt</A>))) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Soft_Label_Key; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1413_14">Refresh_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1844_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1846_16">Slk_Refresh</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1846_16">Slk_Refresh</A>, "slk_refresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1846_16">Slk_Refresh</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh_Soft_Label_Keys; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1418_14">Refresh_Soft_Label_Keys_Without_Update</A><FONT COLOR=red><A NAME="1854_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1856_16">Slk_Noutrefresh</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1856_16">Slk_Noutrefresh</A>, "slk_noutrefresh"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1856_16">Slk_Noutrefresh</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Refresh_Soft_Label_Keys_Without_Update; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1423_14">Get_Soft_Label_Key</A><FONT COLOR=red><A NAME="1864_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1423_34">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1396_9">Label_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1424_34">Text</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1867_16">Slk_Label</A></FONT> (<FONT COLOR=red><A NAME="1867_27">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1867_16">Slk_Label</A>, "slk_label"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#1867_16">Slk_Label</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1423_34">Label</A>)), <A HREF="terminal_interface-curses__ads.htm#1424_34">Text</A>); - <b>end</b> Get_Soft_Label_Key; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1428_13">Get_Soft_Label_Key</A><FONT COLOR=red><A NAME="1873_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1428_33">Label</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1396_9">Label_Number</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1875_16">Slk_Label</A></FONT> (<FONT COLOR=red><A NAME="1875_27">Label</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1875_16">Slk_Label</A>, "slk_label"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#1875_16">Slk_Label</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1428_33">Label</A>))); - <b>end</b> Get_Soft_Label_Key; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1434_14">Clear_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1881_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1883_16">Slk_Clear</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1883_16">Slk_Clear</A>, "slk_clear"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1883_16">Slk_Clear</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Clear_Soft_Label_Keys; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1439_14">Restore_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1891_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1893_16">Slk_Restore</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1893_16">Slk_Restore</A>, "slk_restore"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1893_16">Slk_Restore</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Restore_Soft_Label_Keys; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1444_14">Touch_Soft_Label_Keys</A><FONT COLOR=red><A NAME="1901_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1903_16">Slk_Touch</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1903_16">Slk_Touch</A>, "slk_touch"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1903_16">Slk_Touch</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Touch_Soft_Label_Keys; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1449_14">Switch_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1911_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1450_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A>; - <A HREF="terminal_interface-curses__ads.htm#1451_7">On</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1915_16">Slk_Attron</A></FONT> (<FONT COLOR=red><A NAME="1915_28">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1915_16">Slk_Attron</A>, "slk_attron"); - <b>function</b> <FONT COLOR=red><A NAME="1917_16">Slk_Attroff</A></FONT> (<FONT COLOR=red><A NAME="1917_29">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1917_16">Slk_Attroff</A>, "slk_attroff"); - - <FONT COLOR=red><A NAME="1920_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1921_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#1450_7">Attr</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1451_7">On</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#1920_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#1915_16">Slk_Attron</A> (<A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1921_7">Ch</A>)); - <b>else</b> - <A HREF="terminal_interface-curses__adb.htm#1920_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#1917_16">Slk_Attroff</A> (<A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1921_7">Ch</A>)); - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1920_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Switch_Soft_Label_Key_Attributes; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1457_14">Set_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1935_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1458_7">Attr</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#348_4">Normal_Video</A>; - <A HREF="terminal_interface-curses__ads.htm#1459_7">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>'First) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1939_16">Slk_Attrset</A></FONT> (<FONT COLOR=red><A NAME="1939_29">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1939_16">Slk_Attrset</A>, "slk_attrset"); - - <FONT COLOR=red><A NAME="1942_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := (Ch => Character'First, - Attr => <A HREF="terminal_interface-curses__ads.htm#1458_7">Attr</A>, - Color => <A HREF="terminal_interface-curses__ads.htm#1459_7">Color</A>); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1939_16">Slk_Attrset</A> (<A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__adb.htm#1942_7">Ch</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Soft_Label_Key_Attributes; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1464_13">Get_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1951_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1953_16">Slk_Attr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1953_16">Slk_Attr</A>, "slk_attr"); - - <FONT COLOR=red><A NAME="1956_7">Attr</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A> := <A HREF="terminal_interface-curses__adb.htm#1953_16">Slk_Attr</A>; - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1956_7">Attr</A>).<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Get_Soft_Label_Key_Attributes; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1468_13">Get_Soft_Label_Key_Attributes</A><FONT COLOR=red><A NAME="1961_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1963_16">Slk_Attr</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1963_16">Slk_Attr</A>, "slk_attr"); - - <FONT COLOR=red><A NAME="1966_7">Attr</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A> := <A HREF="terminal_interface-curses__adb.htm#1963_16">Slk_Attr</A>; - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#1966_7">Attr</A>).<A HREF="terminal_interface-curses__ads.htm#353_10">Color</A>; - <b>end</b> Get_Soft_Label_Key_Attributes; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1473_14">Set_Soft_Label_Key_Color</A><FONT COLOR=red><A NAME="1971_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1473_40">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1973_16">Slk_Color</A></FONT> (<FONT COLOR=red><A NAME="1973_27">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1973_16">Slk_Color</A>, "slk_color"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1973_16">Slk_Color</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1473_40">Pair</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Set_Soft_Label_Key_Color; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1482_14">Enable_Key</A><FONT COLOR=red><A NAME="1982_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1482_26">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A>; - <A HREF="terminal_interface-curses__ads.htm#1483_26">Enable</A> : <b>in</b> Boolean := True) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="1985_16">Keyok</A></FONT> (<FONT COLOR=red><A NAME="1985_23">Keycode</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="1986_23">On_Off</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1985_16">Keyok</A>, "keyok"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1985_16">Keyok</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1482_26">Key</A>), <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> (Boolean'Pos (<A HREF="terminal_interface-curses__ads.htm#1483_26">Enable</A>))) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Enable_Key; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1492_14">Define_Key</A><FONT COLOR=red><A NAME="1995_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1492_26">Definition</A> : <b>in</b> String; - <A HREF="terminal_interface-curses__ads.htm#1493_26">Key</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A>) - <b>is</b> - <b>type</b> Char_Ptr <b>is</b> <b>access</b> <b>all</b> <A HREF="interfac__ads.htm#23_9">Interfaces</A>.C.char; - <b>function</b> <FONT COLOR=red><A NAME="1999_16">Defkey</A></FONT> (Def : Char_Ptr; - <FONT COLOR=red><A NAME="2000_24">Key</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#1999_16">Defkey</A>, "define_key"); - - <FONT COLOR=red><A NAME="2003_7">Txt</A></FONT> : char_array (0 .. <A HREF="terminal_interface-curses__ads.htm#1492_26">Definition</A>'Length); - <FONT COLOR=red><A NAME="2004_7">Length</A></FONT> : size_t; - <b>begin</b> - To_C (<A HREF="terminal_interface-curses__ads.htm#1492_26">Definition</A>, <A HREF="terminal_interface-curses__adb.htm#2003_7">Txt</A>, <A HREF="terminal_interface-curses__adb.htm#2004_7">Length</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#1999_16">Defkey</A> (<A HREF="terminal_interface-curses__adb.htm#2003_7">Txt</A> (<A HREF="terminal_interface-curses__adb.htm#2003_7">Txt</A>'First)'<b>Access</b>, <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1493_26">Key</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Define_Key; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1516_14">Un_Control</A><FONT COLOR=red><A NAME="2012_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1516_26">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>; - <A HREF="terminal_interface-curses__ads.htm#1517_26">Str</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2015_16">Unctrl</A></FONT> (<FONT COLOR=red><A NAME="2015_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2015_16">Unctrl</A>, "unctrl"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2015_16">Unctrl</A> (<A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1516_26">Ch</A>)), <A HREF="terminal_interface-curses__ads.htm#1517_26">Str</A>); - <b>end</b> Un_Control; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1521_13">Un_Control</A><FONT COLOR=red><A NAME="2021_13"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1521_25">Ch</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A>) <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2023_16">Unctrl</A></FONT> (<FONT COLOR=red><A NAME="2023_24">Ch</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>) <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2023_16">Unctrl</A>, "unctrl"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2023_16">Unctrl</A> (<A HREF="terminal_interface-curses-aux__ads.htm#104_13">AttrChar_To_Chtype</A> (<A HREF="terminal_interface-curses__ads.htm#1521_25">Ch</A>))); - <b>end</b> Un_Control; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1527_14">Delay_Output</A><FONT COLOR=red><A NAME="2029_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1527_28">Msecs</A> : <b>in</b> Natural) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2031_16">Delayoutput</A></FONT> (<FONT COLOR=red><A NAME="2031_29">Msecs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2031_16">Delayoutput</A>, "delay_output"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2031_16">Delayoutput</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1527_28">Msecs</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Delay_Output; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1532_14">Flush_Input</A><FONT COLOR=red><A NAME="2039_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2041_16">Flushinp</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2041_16">Flushinp</A>, "flushinp"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2041_16">Flushinp</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> <FONT COLOR=green><EM>-- docu says that never happens, but...</EM></FONT> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Flush_Input; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1541_13">Baudrate</A><FONT COLOR=red><A NAME="2049_13"></A></FONT> <b>return</b> Natural - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2051_16">Baud</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2051_16">Baud</A>, "baudrate"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2051_16">Baud</A>); - <b>end</b> Baudrate; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1546_13">Erase_Character</A><FONT COLOR=red><A NAME="2057_13"></A></FONT> <b>return</b> Character - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2059_16">Erasechar</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2059_16">Erasechar</A>, "erasechar"); - <b>begin</b> - <b>return</b> Character'Val (<A HREF="terminal_interface-curses__adb.htm#2059_16">Erasechar</A>); - <b>end</b> Erase_Character; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1551_13">Kill_Character</A><FONT COLOR=red><A NAME="2065_13"></A></FONT> <b>return</b> Character - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2067_16">Killchar</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2067_16">Killchar</A>, "killchar"); - <b>begin</b> - <b>return</b> Character'Val (<A HREF="terminal_interface-curses__adb.htm#2067_16">Killchar</A>); - <b>end</b> Kill_Character; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1556_13">Has_Insert_Character</A><FONT COLOR=red><A NAME="2073_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2075_16">Has_Ic</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2075_16">Has_Ic</A>, "has_ic"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2075_16">Has_Ic</A> = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Has_Insert_Character; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1561_13">Has_Insert_Line</A><FONT COLOR=red><A NAME="2085_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2087_16">Has_Il</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2087_16">Has_Il</A>, "has_il"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2087_16">Has_Il</A> = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Has_Insert_Line; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1566_13">Supported_Attributes</A><FONT COLOR=red><A NAME="2097_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Character_Attribute_Set</A> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2099_16">Termattrs</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#63_12">C_Chtype</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2099_16">Termattrs</A>, "termattrs"); - - <FONT COLOR=red><A NAME="2102_7">Ch</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses-aux__ads.htm#101_13">Chtype_To_AttrChar</A> (<A HREF="terminal_interface-curses__adb.htm#2099_16">Termattrs</A>); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#2102_7">Ch</A>.<A HREF="terminal_interface-curses__ads.htm#352_10">Attr</A>; - <b>end</b> Supported_Attributes; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1571_14">Long_Name</A><FONT COLOR=red><A NAME="2107_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1571_25">Name</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2109_16">Longname</A></FONT> <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2109_16">Longname</A>, "longname"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2109_16">Longname</A>, <A HREF="terminal_interface-curses__ads.htm#1571_25">Name</A>); - <b>end</b> Long_Name; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1575_13">Long_Name</A><FONT COLOR=red><A NAME="2115_13"></A></FONT> <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2117_16">Longname</A></FONT> <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2117_16">Longname</A>, "longname"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2117_16">Longname</A>); - <b>end</b> Long_Name; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1581_14">Terminal_Name</A><FONT COLOR=red><A NAME="2123_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1581_29">Name</A> : <b>out</b> String) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2125_16">Termname</A></FONT> <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2125_16">Termname</A>, "termname"); - <b>begin</b> - <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2125_16">Termname</A>, <A HREF="terminal_interface-curses__ads.htm#1581_29">Name</A>); - <b>end</b> Terminal_Name; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1585_13">Terminal_Name</A><FONT COLOR=red><A NAME="2131_13"></A></FONT> <b>return</b> String - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2133_16">Termname</A></FONT> <b>return</b> chars_ptr; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2133_16">Termname</A>, "termname"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#121_13">Fill_String</A> (<A HREF="terminal_interface-curses__adb.htm#2133_16">Termname</A>); - <b>end</b> Terminal_Name; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1600_14">Init_Pair</A><FONT COLOR=red><A NAME="2139_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1600_25">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#298_12">Redefinable_Color_Pair</A>; - <A HREF="terminal_interface-curses__ads.htm#1601_25">Fore</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1602_25">Back</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2143_16">Initpair</A></FONT> (<FONT COLOR=red><A NAME="2143_26">Pair</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="2144_26">Fore</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="2145_26">Back</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2143_16">Initpair</A>, "init_pair"); - <b>begin</b> - <b>if</b> Integer (<A HREF="terminal_interface-curses__ads.htm#1600_25">Pair</A>) >= <A HREF="terminal_interface-curses__ads.htm#422_13">Number_Of_Color_Pairs</A> <b>then</b> - <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <b>if</b> Integer (<A HREF="terminal_interface-curses__ads.htm#1601_25">Fore</A>) >= <A HREF="terminal_interface-curses__ads.htm#419_13">Number_Of_Colors</A> <b>or</b> <b>else</b> - Integer (<A HREF="terminal_interface-curses__ads.htm#1602_25">Back</A>) >= <A HREF="terminal_interface-curses__ads.htm#419_13">Number_Of_Colors</A> <b>then</b> <b>raise</b> Constraint_Error; - <b>end</b> <b>if</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2143_16">Initpair</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1600_25">Pair</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1601_25">Fore</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1602_25">Back</A>)) - = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Init_Pair; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1607_14">Pair_Content</A><FONT COLOR=red><A NAME="2160_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1607_28">Pair</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Color_Pair</A>; - <A HREF="terminal_interface-curses__ads.htm#1608_28">Fore</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1609_28">Back</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>) - <b>is</b> - <b>type</b> C_Short_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <b>function</b> <FONT COLOR=red><A NAME="2165_16">Paircontent</A></FONT> (<FONT COLOR=red><A NAME="2165_29">Pair</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - Fp : C_Short_Access; - Bp : C_Short_Access) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2165_16">Paircontent</A>, "pair_content"); - - <FONT COLOR=red><A NAME="2170_7">F</A></FONT>, <FONT COLOR=red><A NAME="2170_10">B</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2165_16">Paircontent</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1607_28">Pair</A>), <A HREF="terminal_interface-curses__adb.htm#2170_7">F</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2170_10">B</A>'<b>Access</b>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#1608_28">Fore</A> := <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> (<A HREF="terminal_interface-curses__adb.htm#2170_7">F</A>); - <A HREF="terminal_interface-curses__ads.htm#1609_28">Back</A> := <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> (<A HREF="terminal_interface-curses__adb.htm#2170_10">B</A>); - <b>end</b> <b>if</b>; - <b>end</b> Pair_Content; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1614_13">Has_Colors</A><FONT COLOR=red><A NAME="2180_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2182_16">Hascolors</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2182_16">Hascolors</A>, "has_colors"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2182_16">Hascolors</A> = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Has_Colors; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1619_14">Init_Color</A><FONT COLOR=red><A NAME="2192_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1619_26">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1620_26">Red</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <A HREF="terminal_interface-curses__ads.htm#1621_26">Green</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <A HREF="terminal_interface-curses__ads.htm#1622_26">Blue</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2197_16">Initcolor</A></FONT> (<FONT COLOR=red><A NAME="2197_27">Col</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="2198_27">Red</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="2199_27">Green</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <FONT COLOR=red><A NAME="2200_27">Blue</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2197_16">Initcolor</A>, "init_color"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2197_16">Initcolor</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1619_26">Color</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1620_26">Red</A>), <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1621_26">Green</A>), - <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1622_26">Blue</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Init_Color; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#1627_13">Can_Change_Color</A><FONT COLOR=red><A NAME="2209_13"></A></FONT> <b>return</b> Boolean - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2211_16">Canchangecolor</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2211_16">Canchangecolor</A>, "can_change_color"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2211_16">Canchangecolor</A> = <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A> <b>then</b> - <b>return</b> False; - <b>else</b> - <b>return</b> True; - <b>end</b> <b>if</b>; - <b>end</b> Can_Change_Color; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1632_14">Color_Content</A><FONT COLOR=red><A NAME="2221_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1632_29">Color</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - <A HREF="terminal_interface-curses__ads.htm#1633_29">Red</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <A HREF="terminal_interface-curses__ads.htm#1634_29">Green</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <A HREF="terminal_interface-curses__ads.htm#1635_29">Blue</A> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>) - <b>is</b> - <b>type</b> C_Short_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - - <b>function</b> <FONT COLOR=red><A NAME="2228_16">Colorcontent</A></FONT> (<FONT COLOR=red><A NAME="2228_30">Color</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; R, G, B : C_Short_Access) - <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2228_16">Colorcontent</A>, "color_content"); - - <FONT COLOR=red><A NAME="2232_7">R</A></FONT>, <FONT COLOR=red><A NAME="2232_10">G</A></FONT>, <FONT COLOR=red><A NAME="2232_13">B</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2228_16">Colorcontent</A> (<A HREF="terminal_interface-curses-aux__ads.htm#56_12">C_Short</A> (<A HREF="terminal_interface-curses__ads.htm#1632_29">Color</A>), <A HREF="terminal_interface-curses__adb.htm#2232_7">R</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2232_10">G</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2232_13">B</A>'<b>Access</b>) = - <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#1633_29">Red</A> := <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2232_7">R</A>); - <A HREF="terminal_interface-curses__ads.htm#1634_29">Green</A> := <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2232_10">G</A>); - <A HREF="terminal_interface-curses__ads.htm#1635_29">Blue</A> := <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A> (<A HREF="terminal_interface-curses__adb.htm#2232_13">B</A>); - <b>end</b> <b>if</b>; - <b>end</b> Color_Content; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1648_14">Save_Curses_Mode</A><FONT COLOR=red><A NAME="2245_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1648_32">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1645_9">Curses_Mode</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2247_16">Def_Prog_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2247_16">Def_Prog_Mode</A>, "def_prog_mode"); - <b>function</b> <FONT COLOR=red><A NAME="2249_16">Def_Shell_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2249_16">Def_Shell_Mode</A>, "def_shell_mode"); - - <FONT COLOR=red><A NAME="2252_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1648_32">Mode</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1645_25">Curses</A> => <A HREF="terminal_interface-curses__adb.htm#2252_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2247_16">Def_Prog_Mode</A>; - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1645_33">Shell</A> => <A HREF="terminal_interface-curses__adb.htm#2252_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2249_16">Def_Shell_Mode</A>; - <b>end</b> <b>case</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2252_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Save_Curses_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1654_14">Reset_Curses_Mode</A><FONT COLOR=red><A NAME="2263_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1654_33">Mode</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1645_9">Curses_Mode</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2265_16">Reset_Prog_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2265_16">Reset_Prog_Mode</A>, "reset_prog_mode"); - <b>function</b> <FONT COLOR=red><A NAME="2267_16">Reset_Shell_Mode</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2267_16">Reset_Shell_Mode</A>, "reset_shell_mode"); - - <FONT COLOR=red><A NAME="2270_7">Err</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>case</b> <A HREF="terminal_interface-curses__ads.htm#1654_33">Mode</A> <b>is</b> - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1645_25">Curses</A> => <A HREF="terminal_interface-curses__adb.htm#2270_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2265_16">Reset_Prog_Mode</A>; - <b>when</b> <A HREF="terminal_interface-curses__ads.htm#1645_33">Shell</A> => <A HREF="terminal_interface-curses__adb.htm#2270_7">Err</A> := <A HREF="terminal_interface-curses__adb.htm#2267_16">Reset_Shell_Mode</A>; - <b>end</b> <b>case</b>; - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2270_7">Err</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Reset_Curses_Mode; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1660_14">Save_Terminal_State</A><FONT COLOR=red><A NAME="2281_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2283_16">Savetty</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2283_16">Savetty</A>, "savetty"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2283_16">Savetty</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Save_Terminal_State; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1665_14">Reset_Terminal_State</A><FONT COLOR=red><A NAME="2291_14"></A></FONT> - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2293_16">Resetty</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2293_16">Resetty</A>, "resetty"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2293_16">Resetty</A> = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Reset_Terminal_State; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1678_14">Rip_Off_Lines</A><FONT COLOR=red><A NAME="2301_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1678_29">Lines</A> : <b>in</b> Integer; - <A HREF="terminal_interface-curses__ads.htm#1679_29">Proc</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1669_9">Stdscr_Init_Proc</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2304_16">Ripoffline</A></FONT> (<FONT COLOR=red><A NAME="2304_28">Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <FONT COLOR=red><A NAME="2305_28">Proc</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1669_9">Stdscr_Init_Proc</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2304_16">Ripoffline</A>, "_nc_ripoffline"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2304_16">Ripoffline</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1678_29">Lines</A>), <A HREF="terminal_interface-curses__ads.htm#1679_29">Proc</A>) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Rip_Off_Lines; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1690_14">Set_Cursor_Visibility</A><FONT COLOR=red><A NAME="2313_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1690_37">Visibility</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#1687_9">Cursor_Visibility</A>) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2315_16">Curs_Set</A></FONT> (<FONT COLOR=red><A NAME="2315_26">Curs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2315_16">Curs_Set</A>, "curs_set"); - - <FONT COLOR=red><A NAME="2318_7">Res</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <A HREF="terminal_interface-curses__adb.htm#2318_7">Res</A> := <A HREF="terminal_interface-curses__adb.htm#2315_16">Curs_Set</A> (<A HREF="terminal_interface-curses__ads.htm#1687_9">Cursor_Visibility</A>'Pos (<A HREF="terminal_interface-curses__ads.htm#1690_37">Visibility</A>)); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2318_7">Res</A> /= <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <A HREF="terminal_interface-curses__ads.htm#1690_37">Visibility</A> := <A HREF="terminal_interface-curses__ads.htm#1687_9">Cursor_Visibility</A>'Val (<A HREF="terminal_interface-curses__adb.htm#2318_7">Res</A>); - <b>end</b> <b>if</b>; - <b>end</b> Set_Cursor_Visibility; - - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1695_14">Nap_Milli_Seconds</A><FONT COLOR=red><A NAME="2326_14"></A></FONT> (<A HREF="terminal_interface-curses__ads.htm#1695_33">Ms</A> : <b>in</b> Natural) - <b>is</b> - <b>function</b> <FONT COLOR=red><A NAME="2328_16">Napms</A></FONT> (<FONT COLOR=red><A NAME="2328_23">Ms</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2328_16">Napms</A>, "napms"); - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2328_16">Napms</A> (<A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1695_33">Ms</A>)) = <A HREF="terminal_interface-curses-aux__ads.htm#72_4">Curses_Err</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>end</b> <b>if</b>; - <b>end</b> Nap_Milli_Seconds; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A><FONT COLOR=red><A NAME="2337_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> - <b>is</b> - <FONT COLOR=red><A NAME="2339_7">Stdscr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2339_7">Stdscr</A>, "stdscr"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses__adb.htm#2339_7">Stdscr</A>; - <b>end</b> Standard_Window; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#410_13">Lines</A><FONT COLOR=red><A NAME="2345_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="2347_7">C_Lines</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2347_7">C_Lines</A>, "LINES"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Line_Count</A> (<A HREF="terminal_interface-curses__adb.htm#2347_7">C_Lines</A>); - <b>end</b> Lines; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#413_13">Columns</A><FONT COLOR=red><A NAME="2353_13"></A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> - <b>is</b> - <FONT COLOR=red><A NAME="2355_7">C_Columns</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2355_7">C_Columns</A>, "COLS"); - <b>begin</b> - <b>return</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Column_Count</A> (<A HREF="terminal_interface-curses__adb.htm#2355_7">C_Columns</A>); - <b>end</b> Columns; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#416_13">Tab_Size</A><FONT COLOR=red><A NAME="2361_13"></A></FONT> <b>return</b> Natural - <b>is</b> - <FONT COLOR=red><A NAME="2363_7">C_Tab_Size</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2363_7">C_Tab_Size</A>, "TABSIZE"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2363_7">C_Tab_Size</A>); - <b>end</b> Tab_Size; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#419_13">Number_Of_Colors</A><FONT COLOR=red><A NAME="2369_13"></A></FONT> <b>return</b> Natural - <b>is</b> - <FONT COLOR=red><A NAME="2371_7">C_Number_Of_Colors</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2371_7">C_Number_Of_Colors</A>, "COLORS"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2371_7">C_Number_Of_Colors</A>); - <b>end</b> Number_Of_Colors; - - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#422_13">Number_Of_Color_Pairs</A><FONT COLOR=red><A NAME="2377_13"></A></FONT> <b>return</b> Natural - <b>is</b> - <FONT COLOR=red><A NAME="2379_7">C_Number_Of_Color_Pairs</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2379_7">C_Number_Of_Color_Pairs</A>, "COLOR_PAIRS"); - <b>begin</b> - <b>return</b> Natural (<A HREF="terminal_interface-curses__adb.htm#2379_7">C_Number_Of_Color_Pairs</A>); - <b>end</b> Number_Of_Color_Pairs; -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - <b>procedure</b> <A HREF="terminal_interface-curses__ads.htm#1703_14">Transform_Coordinates</A><FONT COLOR=red><A NAME="2385_14"></A></FONT> - (<A HREF="terminal_interface-curses__ads.htm#1704_7">W</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#473_13">Standard_Window</A>; - <A HREF="terminal_interface-curses__ads.htm#1705_7">Line</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1706_7">Column</A> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>; - <A HREF="terminal_interface-curses__ads.htm#1707_7">Dir</A> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1702_9">Transform_Direction</A> := <A HREF="terminal_interface-curses__ads.htm#1702_33">From_Screen</A>) - <b>is</b> - <b>type</b> Int_Access <b>is</b> <b>access</b> <b>all</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>function</b> <FONT COLOR=red><A NAME="2392_16">Transform</A></FONT> (<FONT COLOR=red><A NAME="2392_27">W</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Y, X : Int_Access; - <FONT COLOR=red><A NAME="2394_27">Dir</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A>) <b>return</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__adb.htm#2392_16">Transform</A>, "wmouse_trafo"); - - <FONT COLOR=red><A NAME="2397_7">X</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1706_7">Column</A>); - <FONT COLOR=red><A NAME="2398_7">Y</A></FONT> : <b>aliased</b> <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> := <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A> (<A HREF="terminal_interface-curses__ads.htm#1705_7">Line</A>); - <FONT COLOR=red><A NAME="2399_7">D</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#1735_9">Curses_Bool</A> := <A HREF="terminal_interface-curses__ads.htm#1736_4">Curses_Bool_False</A>; - <FONT COLOR=red><A NAME="2400_7">R</A></FONT> : <A HREF="terminal_interface-curses-aux__ads.htm#55_12">C_Int</A>; - <b>begin</b> - <b>if</b> <A HREF="terminal_interface-curses__ads.htm#1707_7">Dir</A> = <A HREF="terminal_interface-curses__ads.htm#1702_46">To_Screen</A> <b>then</b> - <A HREF="terminal_interface-curses__adb.htm#2399_7">D</A> := 1; - <b>end</b> <b>if</b>; - <A HREF="terminal_interface-curses__adb.htm#2400_7">R</A> := <A HREF="terminal_interface-curses__adb.htm#2392_16">Transform</A> (<A HREF="terminal_interface-curses__ads.htm#1704_7">W</A>, <A HREF="terminal_interface-curses__adb.htm#2398_7">Y</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2397_7">X</A>'<b>Access</b>, <A HREF="terminal_interface-curses__adb.htm#2399_7">D</A>); - <b>if</b> <A HREF="terminal_interface-curses__adb.htm#2400_7">R</A> = <A HREF="terminal_interface-curses-aux__ads.htm#75_4">Curses_False</A> <b>then</b> - <b>raise</b> <A HREF="terminal_interface-curses__ads.htm#381_4">Curses_Exception</A>; - <b>else</b> - <A HREF="terminal_interface-curses__ads.htm#1705_7">Line</A> := <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A> (<A HREF="terminal_interface-curses__adb.htm#2398_7">Y</A>); - <A HREF="terminal_interface-curses__ads.htm#1706_7">Column</A> := <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> (<A HREF="terminal_interface-curses__adb.htm#2397_7">X</A>); - <b>end</b> <b>if</b>; - <b>end</b> Transform_Coordinates; - -<b>end</b> Terminal_Interface.Curses; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface-curses__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface-curses__ads.htm deleted file mode 100644 index bc66508..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface-curses__ads.htm +++ /dev/null @@ -1,1744 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR> -<PRE> - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.28 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- curses binding.</EM></FONT> -<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> -<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> -<FONT COLOR=green><EM>-- |</EM></FONT> -<b>with</b> <A HREF="interfac__ads.htm#23_9">System</A>.Storage_Elements; -<b>with</b> Interfaces.C; <FONT COLOR=green><EM>-- We need this for some assertions.</EM></FONT> - -<b>package</b> Terminal_Interface.Curses <b>is</b> - <b>pragma</b> Preelaborate (Terminal_Interface.Curses); - <b>pragma</b> Linker_Options ("-lncurses"); - - <FONT COLOR=red><A NAME="53_4">NC_Major_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>-- Major version of the library</EM></FONT> - <FONT COLOR=red><A NAME="54_4">NC_Minor_Version</A></FONT> : <b>constant</b> := 2; <FONT COLOR=green><EM>-- Minor version of the library</EM></FONT> - NC_Version : <b>constant</b> String := "5.2"; <FONT COLOR=green><EM>-- Version of library</EM></FONT> - - <b>type</b> Window <b>is</b> <b>private</b>; - Null_Window : <b>constant</b> Window; - - <b>type</b> <FONT COLOR=red><A NAME="60_9">Line_Position</A></FONT> <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- line coordinate</EM></FONT> - <b>type</b> Column_Position <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- column coordinate</EM></FONT> - - <b>subtype</b> Line_Count <b>is</b> Line_Position <b>range</b> 1 .. Line_Position'Last; - <FONT COLOR=green><EM>-- Type to count lines. We do not allow null windows, so must be positive</EM></FONT> - <b>subtype</b> Column_Count <b>is</b> Column_Position <b>range</b> 1 .. Column_Position'Last; - <FONT COLOR=green><EM>-- Type to count columns. We do not allow null windows, so must be positive</EM></FONT> - - <b>type</b> Key_Code <b>is</b> <b>new</b> Natural; - <FONT COLOR=green><EM>-- That is anything including real characters, special keys and logical</EM></FONT> - <FONT COLOR=green><EM>-- request codes.</EM></FONT> - - <b>subtype</b> Real_Key_Code <b>is</b> Key_Code <b>range</b> 0 .. 8#777#; - <FONT COLOR=green><EM>-- This are the codes that potentially represent a real keystroke.</EM></FONT> - <FONT COLOR=green><EM>-- Not all codes may be possible on a specific terminal. To check the</EM></FONT> - <FONT COLOR=green><EM>-- availability of a special key, the Has_Key function is provided.</EM></FONT> - - <b>subtype</b> Special_Key_Code <b>is</b> Real_Key_Code - <b>range</b> 8#400# .. Real_Key_Code'Last; - <FONT COLOR=green><EM>-- Type for a function- or special key number</EM></FONT> - - <b>subtype</b> Normal_Key_Code <b>is</b> Real_Key_Code <b>range</b> - Character'Pos (Character'First) .. Character'Pos (Character'Last); - <FONT COLOR=green><EM>-- This are the codes for regular (incl. non-graphical) characters.</EM></FONT> - - <FONT COLOR=green><EM>-- Constants for function- and special keys</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=red><A NAME="87_4">Key_None</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#400#; - <FONT COLOR=red><A NAME="88_4">Key_Code_Yes</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#400#; - <FONT COLOR=red><A NAME="89_4">Key_Min</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#401#; - <FONT COLOR=red><A NAME="90_4">Key_Break</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#401#; - <FONT COLOR=red><A NAME="91_4">Key_Cursor_Down</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#402#; - <FONT COLOR=red><A NAME="92_4">Key_Cursor_Up</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#403#; - <FONT COLOR=red><A NAME="93_4">Key_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#404#; - <FONT COLOR=red><A NAME="94_4">Key_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#405#; - <FONT COLOR=red><A NAME="95_4">Key_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#406#; - <FONT COLOR=red><A NAME="96_4">Key_Backspace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#407#; - <FONT COLOR=red><A NAME="97_4">Key_F0</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#410#; - <FONT COLOR=red><A NAME="98_4">Key_F1</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#411#; - <FONT COLOR=red><A NAME="99_4">Key_F2</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#412#; - <FONT COLOR=red><A NAME="100_4">Key_F3</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#413#; - <FONT COLOR=red><A NAME="101_4">Key_F4</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#414#; - <FONT COLOR=red><A NAME="102_4">Key_F5</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#415#; - <FONT COLOR=red><A NAME="103_4">Key_F6</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#416#; - <FONT COLOR=red><A NAME="104_4">Key_F7</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#417#; - <FONT COLOR=red><A NAME="105_4">Key_F8</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#420#; - <FONT COLOR=red><A NAME="106_4">Key_F9</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#421#; - <FONT COLOR=red><A NAME="107_4">Key_F10</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#422#; - <FONT COLOR=red><A NAME="108_4">Key_F11</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#423#; - <FONT COLOR=red><A NAME="109_4">Key_F12</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#424#; - <FONT COLOR=red><A NAME="110_4">Key_F13</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#425#; - <FONT COLOR=red><A NAME="111_4">Key_F14</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#426#; - <FONT COLOR=red><A NAME="112_4">Key_F15</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#427#; - <FONT COLOR=red><A NAME="113_4">Key_F16</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#430#; - <FONT COLOR=red><A NAME="114_4">Key_F17</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#431#; - <FONT COLOR=red><A NAME="115_4">Key_F18</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#432#; - <FONT COLOR=red><A NAME="116_4">Key_F19</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#433#; - <FONT COLOR=red><A NAME="117_4">Key_F20</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#434#; - <FONT COLOR=red><A NAME="118_4">Key_F21</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#435#; - <FONT COLOR=red><A NAME="119_4">Key_F22</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#436#; - <FONT COLOR=red><A NAME="120_4">Key_F23</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#437#; - <FONT COLOR=red><A NAME="121_4">Key_F24</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#440#; - <FONT COLOR=red><A NAME="122_4">Key_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#510#; - <FONT COLOR=red><A NAME="123_4">Key_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#511#; - <FONT COLOR=red><A NAME="124_4">Key_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#512#; - <FONT COLOR=red><A NAME="125_4">Key_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#513#; - <FONT COLOR=red><A NAME="126_4">Key_Exit_Insert_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#514#; - <FONT COLOR=red><A NAME="127_4">Key_Clear_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#515#; - <FONT COLOR=red><A NAME="128_4">Key_Clear_End_Of_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#516#; - <FONT COLOR=red><A NAME="129_4">Key_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#517#; - <FONT COLOR=red><A NAME="130_4">Key_Scroll_1_Forward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#520#; - <FONT COLOR=red><A NAME="131_4">Key_Scroll_1_Backward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#521#; - <FONT COLOR=red><A NAME="132_4">Key_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#522#; - <FONT COLOR=red><A NAME="133_4">Key_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#523#; - <FONT COLOR=red><A NAME="134_4">Key_Set_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#524#; - <FONT COLOR=red><A NAME="135_4">Key_Clear_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#525#; - <FONT COLOR=red><A NAME="136_4">Key_Clear_All_Tabs</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#526#; - <FONT COLOR=red><A NAME="137_4">Key_Enter_Or_Send</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#527#; - <FONT COLOR=red><A NAME="138_4">Key_Soft_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#530#; - <FONT COLOR=red><A NAME="139_4">Key_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#531#; - <FONT COLOR=red><A NAME="140_4">Key_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#532#; - <FONT COLOR=red><A NAME="141_4">Key_Bottom</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#533#; - <FONT COLOR=red><A NAME="142_4">Key_Upper_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#534#; - <FONT COLOR=red><A NAME="143_4">Key_Upper_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#535#; - <FONT COLOR=red><A NAME="144_4">Key_Center_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#536#; - <FONT COLOR=red><A NAME="145_4">Key_Lower_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#537#; - <FONT COLOR=red><A NAME="146_4">Key_Lower_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#540#; - <FONT COLOR=red><A NAME="147_4">Key_Back_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#541#; - <FONT COLOR=red><A NAME="148_4">Key_Beginning</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#542#; - <FONT COLOR=red><A NAME="149_4">Key_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#543#; - <FONT COLOR=red><A NAME="150_4">Key_Close</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#544#; - <FONT COLOR=red><A NAME="151_4">Key_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#545#; - <FONT COLOR=red><A NAME="152_4">Key_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#546#; - <FONT COLOR=red><A NAME="153_4">Key_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#547#; - <FONT COLOR=red><A NAME="154_4">Key_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#550#; - <FONT COLOR=red><A NAME="155_4">Key_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#551#; - <FONT COLOR=red><A NAME="156_4">Key_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#552#; - <FONT COLOR=red><A NAME="157_4">Key_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#553#; - <FONT COLOR=red><A NAME="158_4">Key_Mark</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#554#; - <FONT COLOR=red><A NAME="159_4">Key_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#555#; - <FONT COLOR=red><A NAME="160_4">Key_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#556#; - <FONT COLOR=red><A NAME="161_4">Key_Next</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#557#; - <FONT COLOR=red><A NAME="162_4">Key_Open</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#560#; - <FONT COLOR=red><A NAME="163_4">Key_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#561#; - <FONT COLOR=red><A NAME="164_4">Key_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#562#; - <FONT COLOR=red><A NAME="165_4">Key_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#563#; - <FONT COLOR=red><A NAME="166_4">Key_Reference</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#564#; - <FONT COLOR=red><A NAME="167_4">Key_Refresh</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#565#; - <FONT COLOR=red><A NAME="168_4">Key_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#566#; - <FONT COLOR=red><A NAME="169_4">Key_Restart</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#567#; - <FONT COLOR=red><A NAME="170_4">Key_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#570#; - <FONT COLOR=red><A NAME="171_4">Key_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#571#; - <FONT COLOR=red><A NAME="172_4">Key_Shift_Begin</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#572#; - <FONT COLOR=red><A NAME="173_4">Key_Shift_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#573#; - <FONT COLOR=red><A NAME="174_4">Key_Shift_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#574#; - <FONT COLOR=red><A NAME="175_4">Key_Shift_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#575#; - <FONT COLOR=red><A NAME="176_4">Key_Shift_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#576#; - <FONT COLOR=red><A NAME="177_4">Key_Shift_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#577#; - <FONT COLOR=red><A NAME="178_4">Key_Shift_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#600#; - <FONT COLOR=red><A NAME="179_4">Key_Select</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#601#; - <FONT COLOR=red><A NAME="180_4">Key_Shift_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#602#; - <FONT COLOR=red><A NAME="181_4">Key_Shift_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#603#; - <FONT COLOR=red><A NAME="182_4">Key_Shift_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#604#; - <FONT COLOR=red><A NAME="183_4">Key_Shift_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#605#; - <FONT COLOR=red><A NAME="184_4">Key_Shift_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#606#; - <FONT COLOR=red><A NAME="185_4">Key_Shift_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#607#; - <FONT COLOR=red><A NAME="186_4">Key_Shift_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#610#; - <FONT COLOR=red><A NAME="187_4">Key_Shift_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#611#; - <FONT COLOR=red><A NAME="188_4">Key_Shift_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#612#; - <FONT COLOR=red><A NAME="189_4">Key_Shift_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#613#; - <FONT COLOR=red><A NAME="190_4">Key_Shift_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#614#; - <FONT COLOR=red><A NAME="191_4">Key_Shift_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#615#; - <FONT COLOR=red><A NAME="192_4">Key_Shift_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#616#; - <FONT COLOR=red><A NAME="193_4">Key_Shift_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#617#; - <FONT COLOR=red><A NAME="194_4">Key_Shift_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#620#; - <FONT COLOR=red><A NAME="195_4">Key_Shift_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#621#; - <FONT COLOR=red><A NAME="196_4">Key_Shift_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#622#; - <FONT COLOR=red><A NAME="197_4">Key_Shift_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#623#; - <FONT COLOR=red><A NAME="198_4">Key_Shift_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#624#; - <FONT COLOR=red><A NAME="199_4">Key_Shift_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#625#; - <FONT COLOR=red><A NAME="200_4">Key_Shift_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#626#; - <FONT COLOR=red><A NAME="201_4">Key_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#627#; - <FONT COLOR=red><A NAME="202_4">Key_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#630#; - <FONT COLOR=red><A NAME="203_4">Key_Mouse</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#631#; - Key_Resize : <b>constant</b> Special_Key_Code := 8#632#; - - Key_Max : <b>constant</b> Special_Key_Code - := Special_Key_Code'Last; - - <b>subtype</b> User_Key_Code <b>is</b> Key_Code - <b>range</b> (Key_Max + 129) .. Key_Code'Last; - <FONT COLOR=green><EM>-- This is reserved for user defined key codes. The range between Key_Max</EM></FONT> - <FONT COLOR=green><EM>-- and the first user code is reserved for subsystems like menu and forms.</EM></FONT> - - <FONT COLOR=green><EM>-- For those who like to use the original key names we produce them were</EM></FONT> - <FONT COLOR=green><EM>-- they differ from the original. Please note that they may differ in</EM></FONT> - <FONT COLOR=green><EM>-- lower/upper case.</EM></FONT> - <FONT COLOR=red><A NAME="217_4">KEY_DOWN</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#91_4">Key_Cursor_Down</A>; - <FONT COLOR=red><A NAME="218_4">KEY_UP</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#92_4">Key_Cursor_Up</A>; - <FONT COLOR=red><A NAME="219_4">KEY_LEFT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#93_4">Key_Cursor_Left</A>; - <FONT COLOR=red><A NAME="220_4">KEY_RIGHT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#121_4">Key_Cursor_Right</A>; - <FONT COLOR=red><A NAME="221_4">KEY_DL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#122_4">Key_Delete_Line</A>; - <FONT COLOR=red><A NAME="222_4">KEY_IL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#123_4">Key_Insert_Line</A>; - <FONT COLOR=red><A NAME="223_4">KEY_DC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#124_4">Key_Delete_Char</A>; - <FONT COLOR=red><A NAME="224_4">KEY_IC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#125_4">Key_Insert_Char</A>; - <FONT COLOR=red><A NAME="225_4">KEY_EIC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#126_4">Key_Exit_Insert_Mode</A>; - <FONT COLOR=red><A NAME="226_4">KEY_CLEAR</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#127_4">Key_Clear_Screen</A>; - <FONT COLOR=red><A NAME="227_4">KEY_EOS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#128_4">Key_Clear_End_Of_Screen</A>; - <FONT COLOR=red><A NAME="228_4">KEY_EOL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#129_4">Key_Clear_End_Of_Line</A>; - <FONT COLOR=red><A NAME="229_4">KEY_SF</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#130_4">Key_Scroll_1_Forward</A>; - <FONT COLOR=red><A NAME="230_4">KEY_SR</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#131_4">Key_Scroll_1_Backward</A>; - <FONT COLOR=red><A NAME="231_4">KEY_NPAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#132_4">Key_Next_Page</A>; - <FONT COLOR=red><A NAME="232_4">KEY_PPAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#133_4">Key_Previous_Page</A>; - <FONT COLOR=red><A NAME="233_4">KEY_STAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#134_4">Key_Set_Tab</A>; - <FONT COLOR=red><A NAME="234_4">KEY_CTAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#135_4">Key_Clear_Tab</A>; - <FONT COLOR=red><A NAME="235_4">KEY_CATAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#136_4">Key_Clear_All_Tabs</A>; - <FONT COLOR=red><A NAME="236_4">KEY_ENTER</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#137_4">Key_Enter_Or_Send</A>; - <FONT COLOR=red><A NAME="237_4">KEY_SRESET</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#140_4">Key_Soft_Reset</A>; - <FONT COLOR=red><A NAME="238_4">KEY_LL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#141_4">Key_Bottom</A>; - <FONT COLOR=red><A NAME="239_4">KEY_A1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#142_4">Key_Upper_Left_Of_Keypad</A>; - <FONT COLOR=red><A NAME="240_4">KEY_A3</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#143_4">Key_Upper_Right_Of_Keypad</A>; - <FONT COLOR=red><A NAME="241_4">KEY_B2</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#144_4">Key_Center_Of_Keypad</A>; - <FONT COLOR=red><A NAME="242_4">KEY_C1</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#145_4">Key_Lower_Left_Of_Keypad</A>; - <FONT COLOR=red><A NAME="243_4">KEY_C3</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#146_4">Key_Lower_Right_Of_Keypad</A>; - <FONT COLOR=red><A NAME="244_4">KEY_BTAB</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#147_4">Key_Back_Tab</A>; - <FONT COLOR=red><A NAME="245_4">KEY_BEG</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#171_4">Key_Beginning</A>; - <FONT COLOR=red><A NAME="246_4">KEY_SBEG</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#172_4">Key_Shift_Begin</A>; - <FONT COLOR=red><A NAME="247_4">KEY_SCANCEL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#173_4">Key_Shift_Cancel</A>; - <FONT COLOR=red><A NAME="248_4">KEY_SCOMMAND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#174_4">Key_Shift_Command</A>; - <FONT COLOR=red><A NAME="249_4">KEY_SCOPY</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#175_4">Key_Shift_Copy</A>; - <FONT COLOR=red><A NAME="250_4">KEY_SCREATE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#176_4">Key_Shift_Create</A>; - <FONT COLOR=red><A NAME="251_4">KEY_SDC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#177_4">Key_Shift_Delete_Char</A>; - <FONT COLOR=red><A NAME="252_4">KEY_SDL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#179_4">Key_Shift_Delete_Line</A>; - <FONT COLOR=red><A NAME="253_4">KEY_SEND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#180_4">Key_Shift_End</A>; - <FONT COLOR=red><A NAME="254_4">KEY_SEOL</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#181_4">Key_Shift_Clear_End_Of_Line</A>; - <FONT COLOR=red><A NAME="255_4">KEY_SEXIT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#182_4">Key_Shift_Exit</A>; - <FONT COLOR=red><A NAME="256_4">KEY_SFIND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#183_4">Key_Shift_Find</A>; - <FONT COLOR=red><A NAME="257_4">KEY_SHELP</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#184_4">Key_Shift_Help</A>; - <FONT COLOR=red><A NAME="258_4">KEY_SHOME</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#185_4">Key_Shift_Home</A>; - <FONT COLOR=red><A NAME="259_4">KEY_SIC</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#186_4">Key_Shift_Insert_Char</A>; - <FONT COLOR=red><A NAME="260_4">KEY_SLEFT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#187_4">Key_Shift_Cursor_Left</A>; - <FONT COLOR=red><A NAME="261_4">KEY_SMESSAGE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#188_4">Key_Shift_Message</A>; - <FONT COLOR=red><A NAME="262_4">KEY_SMOVE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#189_4">Key_Shift_Move</A>; - <FONT COLOR=red><A NAME="263_4">KEY_SNEXT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#190_4">Key_Shift_Next_Page</A>; - <FONT COLOR=red><A NAME="264_4">KEY_SOPTIONS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#191_4">Key_Shift_Options</A>; - <FONT COLOR=red><A NAME="265_4">KEY_SPREVIOUS</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#192_4">Key_Shift_Previous_Page</A>; - <FONT COLOR=red><A NAME="266_4">KEY_SPRINT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#193_4">Key_Shift_Print</A>; - <FONT COLOR=red><A NAME="267_4">KEY_SREDO</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#194_4">Key_Shift_Redo</A>; - <FONT COLOR=red><A NAME="268_4">KEY_SREPLACE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#195_4">Key_Shift_Replace</A>; - <FONT COLOR=red><A NAME="269_4">KEY_SRIGHT</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#196_4">Key_Shift_Cursor_Right</A>; - <FONT COLOR=red><A NAME="270_4">KEY_SRSUME</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#197_4">Key_Shift_Resume</A>; - <FONT COLOR=red><A NAME="271_4">KEY_SSAVE</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#198_4">Key_Shift_Save</A>; - <FONT COLOR=red><A NAME="272_4">KEY_SSUSPEND</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#199_4">Key_Shift_Suspend</A>; - KEY_SUNDO : Special_Key_Code <b>renames</b> Key_Shift_Undo; - -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> - - <b>type</b><A HREF="terminal_interface-curses__ads.htm#276_9"> </A>Color_Number <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>0 .. Integer (Interfaces.C.short'Last); - <b>for</b> Color_Number'Size <b>use</b> Interfaces.C.short'Size; - <FONT COLOR=green><EM>-- (n)curses uses a short for the color index</EM></FONT> - <FONT COLOR=green><EM>-- The model is, that a Color_Number is an index into an array of</EM></FONT> - <FONT COLOR=green><EM>-- (potentially) definable colors. Some of those indices are</EM></FONT> - <FONT COLOR=green><EM>-- predefined (see below), although they may not really exist.</EM></FONT> - - <FONT COLOR=red><A NAME="284_4">Black</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 0; - <FONT COLOR=red><A NAME="285_4">Red</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 1; - <FONT COLOR=red><A NAME="286_4">Green</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 2; - <FONT COLOR=red><A NAME="287_4">Yellow</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 3; - <FONT COLOR=red><A NAME="288_4">Blue</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 4; - <FONT COLOR=red><A NAME="289_4">Magenta</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 5; - <FONT COLOR=red><A NAME="290_4">Cyan</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 6; - White : <b>constant</b> Color_Number := 7; - - <b>type</b><A HREF="terminal_interface-curses__ads.htm#292_9"> </A>RGB_Value <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>0 .. Integer (Interfaces.C.short'Last); - <b>for</b> RGB_Value'Size <b>use</b> Interfaces.C.short'Size; - <FONT COLOR=green><EM>-- Some system may allow to redefine a color by setting RGB values.</EM></FONT> - - <b>type</b><A HREF="terminal_interface-curses__ads.htm#296_9"> </A>Color_Pair <b>is</b> <b>range</b> 0 .. 255; - <b>for</b> Color_Pair'Size <b>use</b> 8; - <b>subtype</b> Redefinable_Color_Pair <b>is</b> Color_Pair <b>range</b> 1 .. 255; - <FONT COLOR=green><EM>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT> - <FONT COLOR=green><EM>-- is fixed (Black & White). A color pair is simply a combination of</EM></FONT> - <FONT COLOR=green><EM>-- two colors described by Color_Numbers, one for the foreground and</EM></FONT> - <FONT COLOR=green><EM>-- the other for the background</EM></FONT> - - <b>type</b> Character_Attribute_Set <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="307_10">Stand_Out</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="308_10">Under_Line</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="309_10">Reverse_Video</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="310_10">Blink</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="311_10">Dim_Character</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="312_10">Bold_Character</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="313_10">Alternate_Character_Set</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="314_10">Invisible_Character</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="315_10">Protected_Character</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="316_10">Horizontal</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="317_10">Left</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="318_10">Low</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="319_10">Right</A></FONT> : Boolean; - <FONT COLOR=red><A NAME="320_10">Top</A></FONT> : Boolean; - Vertical : Boolean; - <b>end</b> <b>record</b><A HREF="terminal_interface-curses__ads.htm#304_9">;</A> - <b>pragma</b> Pack (Character_Attribute_Set); - <b>pragma</b> Convention (C, Character_Attribute_Set); - - <b>for</b> Character_Attribute_Set <b>use</b> - <b>record</b> - Stand_Out <b>at</b> 0 <b>range</b> 0 .. 0; - Under_Line <b>at</b> 0 <b>range</b> 1 .. 1; - Reverse_Video <b>at</b> 0 <b>range</b> 2 .. 2; - Blink <b>at</b> 0 <b>range</b> 3 .. 3; - Dim_Character <b>at</b> 0 <b>range</b> 4 .. 4; - Bold_Character <b>at</b> 0 <b>range</b> 5 .. 5; - Alternate_Character_Set <b>at</b> 0 <b>range</b> 6 .. 6; - Invisible_Character <b>at</b> 0 <b>range</b> 7 .. 7; - Protected_Character <b>at</b> 0 <b>range</b> 8 .. 8; - Horizontal <b>at</b> 0 <b>range</b> 9 .. 9; - Left <b>at</b> 0 <b>range</b> 10 .. 10; - Low <b>at</b> 0 <b>range</b> 11 .. 11; - Right <b>at</b> 0 <b>range</b> 12 .. 12; - Top <b>at</b> 0 <b>range</b> 13 .. 13; - Vertical <b>at</b> 0 <b>range</b> 14 .. 14; - <b>end</b> <b>record</b>; - <b>for</b> Character_Attribute_Set'Size <b>use</b> 16; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.</EM></FONT> - <FONT COLOR=green><EM>-- (n)curses uses all but the lowest 16 Bits for Attributes.</EM></FONT> - - Normal_Video : <b>constant</b> Character_Attribute_Set := (<b>others</b> => False); - - <b>type</b> Attributed_Character <b>is</b> - <b>record</b> - <FONT COLOR=red><A NAME="353_10">Attr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>; - <FONT COLOR=red><A NAME="354_10">Color</A></FONT> : Color_Pair; - Ch : Character; - <b>end</b> <b>record</b>; - <b>pragma</b> Convention (C, Attributed_Character); - <FONT COLOR=green><EM>-- This is the counterpart for the chtype in C.</EM></FONT> - - <b>for</b> Attributed_Character <b>use</b> - <b>record</b> - Ch <b>at</b> 0 <b>range</b> 0 .. 7; - Color <b>at</b> 0 <b>range</b> 8 .. 15; - Attr <b>at</b> 0 <b>range</b> 16 .. 31; - <b>end</b> <b>record</b>; - <b>for</b> Attributed_Character'Size <b>use</b> 32; - <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> - <FONT COLOR=green><EM>-- different on your system.</EM></FONT> - - Default_Character : <b>constant</b> Attributed_Character - := (Ch => <A HREF="terminal_interface-curses__ads.htm#296_9">Character</A>'First, - Color => Color_Pair'First, - Attr => (<b>others</b> => False)); <FONT COLOR=green><EM>-- preelaboratable Normal_Video</EM></FONT> - - <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> Attributed_Character; - <b>pragma</b> Pack (Attributed_String); - <FONT COLOR=green><EM>-- In this binding we allow strings of attributed characters.</EM></FONT> - - <FONT COLOR=green><EM>------------------</EM></FONT> - <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> - <FONT COLOR=green><EM>------------------</EM></FONT> - <FONT COLOR=red><A NAME="382_4">Curses_Exception</A></FONT> : <b>exception</b>; - Wrong_Curses_Version : <b>exception</b>; - - <FONT COLOR=green><EM>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT> - <FONT COLOR=green><EM>-- subpackets for Menu and Forms handling.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=red><A NAME="388_4">Eti_System_Error</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="389_4">Eti_Bad_Argument</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="390_4">Eti_Posted</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="391_4">Eti_Connected</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="392_4">Eti_Bad_State</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="393_4">Eti_No_Room</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="394_4">Eti_Not_Posted</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="395_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="396_4">Eti_No_Match</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="397_4">Eti_Not_Selectable</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="398_4">Eti_Not_Connected</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="399_4">Eti_Request_Denied</A></FONT> : <b>exception</b>; - <FONT COLOR=red><A NAME="400_4">Eti_Invalid_Field</A></FONT> : <b>exception</b>; - Eti_Current : <b>exception</b>; - - <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> - <FONT COLOR=green><EM>-- External C variables</EM></FONT> - <FONT COLOR=green><EM>-- Conceptually even in C this are kind of constants, but they are</EM></FONT> - <FONT COLOR=green><EM>-- initialized and sometimes changed by the library routines at runtime</EM></FONT> - <FONT COLOR=green><EM>-- depending on the type of terminal. I believe the best way to model</EM></FONT> - <FONT COLOR=green><EM>-- this is to use functions.</EM></FONT> - <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> - - <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#410_13"> </A> <b>return</b> Line_Count; - <b>pragma</b> Inline (Lines); - - <b>function</b> Columns <b>return</b> Column_Count; - <b>pragma</b> Inline (Columns); - - <b>function</b> Tab_Size <b>return</b> Natural; - <b>pragma</b> Inline (Tab_Size); - - <b>function</b> Number_Of_Colors <b>return</b> Natural; - <b>pragma</b> Inline (Number_Of_Colors); - - <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural; - <b>pragma</b> Inline (Number_Of_Color_Pairs); - - ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b> - Attributed_Character; - <b>pragma</b> Import (C, ACS_Map, "acs_map"); - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- Constants for several characters from the Alternate Character Set</EM></FONT> - <FONT COLOR=green><EM>-- You must use this constants as indices into the ACS_Map array</EM></FONT> - <FONT COLOR=green><EM>-- to get the corresponding attributed character at runtime.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=red><A NAME="435_4">ACS_Upper_Left_Corner</A></FONT> : <b>constant</b> Character := 'l'; - <FONT COLOR=red><A NAME="436_4">ACS_Lower_Left_Corner</A></FONT> : <b>constant</b> Character := 'm'; - <FONT COLOR=red><A NAME="437_4">ACS_Upper_Right_Corner</A></FONT> : <b>constant</b> Character := 'k'; - <FONT COLOR=red><A NAME="438_4">ACS_Lower_Right_Corner</A></FONT> : <b>constant</b> Character := 'j'; - <FONT COLOR=red><A NAME="439_4">ACS_Left_Tee</A></FONT> : <b>constant</b> Character := 't'; - <FONT COLOR=red><A NAME="440_4">ACS_Right_Tee</A></FONT> : <b>constant</b> Character := 'u'; - <FONT COLOR=red><A NAME="441_4">ACS_Bottom_Tee</A></FONT> : <b>constant</b> Character := 'v'; - <FONT COLOR=red><A NAME="442_4">ACS_Top_Tee</A></FONT> : <b>constant</b> Character := 'w'; - <FONT COLOR=red><A NAME="443_4">ACS_Horizontal_Line</A></FONT> : <b>constant</b> Character := 'q'; - <FONT COLOR=red><A NAME="444_4">ACS_Vertical_Line</A></FONT> : <b>constant</b> Character := 'x'; - <FONT COLOR=red><A NAME="445_4">ACS_Plus_Symbol</A></FONT> : <b>constant</b> Character := 'n'; - <FONT COLOR=red><A NAME="446_4">ACS_Scan_Line_1</A></FONT> : <b>constant</b> Character := 'o'; - <FONT COLOR=red><A NAME="447_4">ACS_Scan_Line_9</A></FONT> : <b>constant</b> Character := 's'; - <FONT COLOR=red><A NAME="448_4">ACS_Diamond</A></FONT> : <b>constant</b> Character := Character'Val (96); - <FONT COLOR=red><A NAME="449_4">ACS_Checker_Board</A></FONT> : <b>constant</b> Character := 'a'; - <FONT COLOR=red><A NAME="450_4">ACS_Degree</A></FONT> : <b>constant</b> Character := 'f'; - <FONT COLOR=red><A NAME="451_4">ACS_Plus_Minus</A></FONT> : <b>constant</b> Character := 'g'; - <FONT COLOR=red><A NAME="452_4">ACS_Bullet</A></FONT> : <b>constant</b> Character := '~'; - <FONT COLOR=red><A NAME="453_4">ACS_Left_Arrow</A></FONT> : <b>constant</b> Character := ','; - <FONT COLOR=red><A NAME="454_4">ACS_Right_Arrow</A></FONT> : <b>constant</b> Character := '+'; - <FONT COLOR=red><A NAME="455_4">ACS_Down_Arrow</A></FONT> : <b>constant</b> Character := '.'; - <FONT COLOR=red><A NAME="456_4">ACS_Up_Arrow</A></FONT> : <b>constant</b> Character := '-'; - <FONT COLOR=red><A NAME="457_4">ACS_Board_Of_Squares</A></FONT> : <b>constant</b> Character := 'h'; - <FONT COLOR=red><A NAME="458_4">ACS_Lantern</A></FONT> : <b>constant</b> Character := 'i'; - <FONT COLOR=red><A NAME="459_4">ACS_Solid_Block</A></FONT> : <b>constant</b> Character := '0'; - <FONT COLOR=red><A NAME="460_4">ACS_Scan_Line_3</A></FONT> : <b>constant</b> Character := 'p'; - <FONT COLOR=red><A NAME="461_4">ACS_Scan_Line_7</A></FONT> : <b>constant</b> Character := 'r'; - <FONT COLOR=red><A NAME="462_4">ACS_Less_Or_Equal</A></FONT> : <b>constant</b> Character := 'y'; - <FONT COLOR=red><A NAME="463_4">ACS_Greater_Or_Equal</A></FONT> : <b>constant</b> Character := 'z'; - <FONT COLOR=red><A NAME="464_4">ACS_PI</A></FONT> : <b>constant</b> Character := '{'; - <FONT COLOR=red><A NAME="465_4">ACS_Not_Equal</A></FONT> : <b>constant</b> Character := '|'; - ACS_Sterling : <b>constant</b> Character := '}'; - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Not implemented: newterm, set_term, delscreen</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> - <b>function</b> Standard_Window <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></EM></FONT> - <b>pragma</b> Inline (Standard_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> - <b>procedure</b> Init_Screen; - - <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> - <b>procedure</b> Init_Windows <b>renames</b> Init_Screen; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></EM></FONT> - <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#481_14">Init_Screen</A>); - <b>pragma</b> Inline (Init_Windows); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> - <b>procedure</b> End_Windows; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></EM></FONT> - <b>procedure</b> End_Screen <b>renames</b> End_Windows; - <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#489_14">End_Windows</A>); - <b>pragma</b> Inline (End_Screen); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> - <b>function</b> Is_End_Window <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></EM></FONT> - <b>pragma</b> Inline (Is_End_Window); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> - <b>procedure</b> Move_Cursor (<FONT COLOR=red><A NAME="504_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="505_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></EM></FONT> - <b>pragma</b> Inline (Move_Cursor); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> - <b>procedure</b> Add (<FONT COLOR=red><A NAME="515_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></EM></FONT> - - <b>procedure</b> Add (<FONT COLOR=red><A NAME="519_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Ch : <b>in</b> Character); - <FONT COLOR=green><EM>-- Add a single character at the current logical cursor position to</EM></FONT> - <FONT COLOR=green><EM>-- the window. Use the current windows attributes.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> - <b>procedure</b> Add - (<FONT COLOR=red><A NAME="526_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="527_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="528_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Column_Position</A>; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></EM></FONT> - - <b>procedure</b> Add - (<FONT COLOR=red><A NAME="533_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="534_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="535_7">Column</A></FONT> : <b>in</b> Column_Position; - Ch : <b>in</b> Character); - <FONT COLOR=green><EM>-- Move to the position and add a single character into the window</EM></FONT> - <FONT COLOR=green><EM>-- There are more Add routines, so the Inline pragma follows later</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> - <b>procedure</b> Add_With_Immediate_Echo - (<FONT COLOR=red><A NAME="542_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></EM></FONT> - - <b>procedure</b> Add_With_Immediate_Echo - (<FONT COLOR=red><A NAME="547_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Ch : <b>in</b> Character); - <FONT COLOR=green><EM>-- Add a character and do an immediate refresh of the screen.</EM></FONT> - <b>pragma</b> Inline (Add_With_Immediate_Echo); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> - <b>function</b> Create - (<FONT COLOR=red><A NAME="558_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="559_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="560_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - First_Column_Position : Column_Position) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></EM></FONT> - <b>pragma</b> Inline (Create); - - <b>function</b> New_Window - (<FONT COLOR=red><A NAME="566_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="567_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="568_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - First_Column_Position : Column_Position) <b>return</b> Window - <b>renames</b> Create; - <b>pragma</b> Inline (New_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> - <b>procedure</b> Delete (Win : <b>in</b> <b>out</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></EM></FONT> - <FONT COLOR=green><EM>-- Reset Win to Null_Window</EM></FONT> - <b>pragma</b> Inline (Delete); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> - <b>function</b> Sub_Window - (<FONT COLOR=red><A NAME="581_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="582_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="583_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="584_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - First_Column_Position : Column_Position) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></EM></FONT> - <b>pragma</b> Inline (Sub_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> - <b>function</b> Derived_Window - (<FONT COLOR=red><A NAME="591_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="592_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="593_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="594_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - First_Column_Position : Column_Position) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></EM></FONT> - <b>pragma</b> Inline (Derived_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> - <b>function</b> Duplicate (Win : Window) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></EM></FONT> - <b>pragma</b> Inline (Duplicate); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> - <b>procedure</b> Move_Window (<FONT COLOR=red><A NAME="605_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="606_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></EM></FONT> - <b>pragma</b> Inline (Move_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> - <b>procedure</b> Move_Derived_Window (<FONT COLOR=red><A NAME="612_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="613_35">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></EM></FONT> - <b>pragma</b> Inline (Move_Derived_Window); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> - <b>procedure</b> Synchronize_Upwards (Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></EM></FONT> - <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> - <b>procedure</b> Synchronize_Downwards (Win : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></EM></FONT> - <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> - <b>procedure</b> Set_Synch_Mode (<FONT COLOR=red><A NAME="629_30">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Mode : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></EM></FONT> - <b>pragma</b> Inline (Set_Synch_Mode); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> - <b>procedure</b> Add (<FONT COLOR=red><A NAME="639_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="640_19">Str</A></FONT> : <b>in</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: waddstr()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> - <b>procedure</b> Add (<FONT COLOR=red><A NAME="646_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="647_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="648_19">Column</A></FONT> : <b>in</b> Column_Position; - <FONT COLOR=red><A NAME="649_19">Str</A></FONT> : <b>in</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: mvwaddstr()</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> - <b>procedure</b> Add (<FONT COLOR=red><A NAME="659_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="660_19">Str</A></FONT> : <b>in</b> Attributed_String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: waddchstr()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> - <b>procedure</b> Add (<FONT COLOR=red><A NAME="666_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="667_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="668_19">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Column_Position</A>; - <FONT COLOR=red><A NAME="669_19">Str</A></FONT> : <b>in</b> Attributed_String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: mvwaddchstr()</EM></FONT> - <b>pragma</b> Inline (Add); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> - <b>procedure</b> Border - (<FONT COLOR=red><A NAME="681_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="682_7">Left_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="683_7">Right_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="684_7">Top_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="685_7">Bottom_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="686_7">Upper_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="687_7">Upper_Right_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - <FONT COLOR=red><A NAME="688_7">Lower_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - Lower_Right_Corner_Symbol : <b>in</b> Attributed_Character := Default_Character - ); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></EM></FONT> - <b>pragma</b> Inline (Border); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> - <b>procedure</b> Box - (<FONT COLOR=red><A NAME="696_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="697_7">Vertical_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>; - Horizontal_Symbol : <b>in</b> Attributed_Character := Default_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">box()</A></EM></FONT> - <b>pragma</b> Inline (Box); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> - <b>procedure</b> Horizontal_Line - (<FONT COLOR=red><A NAME="704_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="705_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Natural</A>; - Line_Symbol : <b>in</b> Attributed_Character := Default_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">whline()</A></EM></FONT> - <b>pragma</b> Inline (Horizontal_Line); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> - <b>procedure</b> Vertical_Line - (<FONT COLOR=red><A NAME="712_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="713_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Natural</A>; - Line_Symbol : <b>in</b> Attributed_Character := Default_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></EM></FONT> - <b>pragma</b> Inline (Vertical_Line); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> - <b>function</b> Get_Keystroke (Win : Window := Standard_Window) - <b>return</b> Real_Key_Code; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></EM></FONT> - <FONT COLOR=green><EM>-- Get a character from the keyboard and echo it - if enabled - to the</EM></FONT> - <FONT COLOR=green><EM>-- window.</EM></FONT> - <FONT COLOR=green><EM>-- If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT> - <FONT COLOR=green><EM>-- returned keycode is Key_None.</EM></FONT> - <b>pragma</b> Inline (Get_Keystroke); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> - <b>procedure</b> Undo_Keystroke (Key : <b>in</b> Real_Key_Code); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></EM></FONT> - <b>pragma</b> Inline (Undo_Keystroke); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> - <b>function</b> Has_Key (Key : Special_Key_Code) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></EM></FONT> - <b>pragma</b> Inline (Has_Key); - - <FONT COLOR=green><EM>-- |</EM></FONT> - <FONT COLOR=green><EM>-- | Some helper functions</EM></FONT> - <FONT COLOR=green><EM>-- |</EM></FONT> - <b>function</b> Is_Function_Key (Key : Special_Key_Code) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT> - <b>pragma</b> Inline (Is_Function_Key); - - <b>subtype</b> Function_Key_Number <b>is</b> Integer <b>range</b> 0 .. 63; - <FONT COLOR=green><EM>-- (n)curses allows for 64 function keys.</EM></FONT> - - <b>function</b> Function_Key (Key : Real_Key_Code) <b>return</b> Function_Key_Number; - <FONT COLOR=green><EM>-- Return the number of the function key. If the code is not a</EM></FONT> - <FONT COLOR=green><EM>-- function key, a CONSTRAINT_ERROR will be raised.</EM></FONT> - <b>pragma</b> Inline (Function_Key); - - <b>function</b> Function_Key_Code (Key : Function_Key_Number) <b>return</b> Real_Key_Code; - <FONT COLOR=green><EM>-- Return the key code for a given function-key number.</EM></FONT> - <b>pragma</b> Inline (Function_Key_Code); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> - <b>procedure</b> Switch_Character_Attribute - (<FONT COLOR=red><A NAME="767_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="768_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set := Normal_Video; - On : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- if False we switch Off.</EM></FONT> - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: wattroff()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> - <b>procedure</b> Set_Character_Attributes - (<FONT COLOR=red><A NAME="775_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="776_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></EM></FONT> - <b>pragma</b> Inline (Set_Character_Attributes); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> - <b>function</b> Get_Character_Attribute - (Win : <b>in</b> Window := Standard_Window) <b>return</b> Character_Attribute_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> - <b>function</b> Get_Character_Attribute - (Win : <b>in</b> Window := Standard_Window) <b>return</b> Color_Pair; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> - <b>pragma</b> Inline (Get_Character_Attribute); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> - <b>procedure</b> Set_Color (<FONT COLOR=red><A NAME="793_25">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Window</A> := Standard_Window; - Pair : <b>in</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></EM></FONT> - <b>pragma</b> Inline (Set_Color); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> - <b>procedure</b> Change_Attributes - (<FONT COLOR=red><A NAME="800_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="801_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Integer</A> := -1; - <FONT COLOR=red><A NAME="802_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> - <b>procedure</b> Change_Attributes - (<FONT COLOR=red><A NAME="808_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="809_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := Line_Position'First; - <FONT COLOR=red><A NAME="810_7">Column</A></FONT> : <b>in</b> Column_Position := Column_Position'First; - <FONT COLOR=red><A NAME="811_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Integer</A> := -1; - <FONT COLOR=red><A NAME="812_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></EM></FONT> - <b>pragma</b> Inline (Change_Attributes); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> - <b>procedure</b> Beep; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></EM></FONT> - <b>pragma</b> Inline (Beep); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> - <b>procedure</b> Flash_Screen; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></EM></FONT> - <b>pragma</b> Inline (Flash_Screen); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- | Not implemented : typeahead</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> - <b>procedure</b> Set_Cbreak_Mode (SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: nocbreak()</EM></FONT> - <b>pragma</b> Inline (Set_Cbreak_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> - <b>procedure</b> Set_Raw_Mode (SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: noraw()</EM></FONT> - <b>pragma</b> Inline (Set_Raw_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> - <b>procedure</b> Set_Echo_Mode (SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: noecho()</EM></FONT> - <b>pragma</b> Inline (Set_Echo_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> - <b>procedure</b> Set_Meta_Mode (<FONT COLOR=red><A NAME="856_29">Win</A></FONT> : <b>in</b> Window := Standard_Window; - SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></EM></FONT> - <b>pragma</b> Inline (Set_Meta_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> - <b>procedure</b> Set_KeyPad_Mode (<FONT COLOR=red><A NAME="862_31">Win</A></FONT> : <b>in</b> Window := Standard_Window; - SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></EM></FONT> - <b>pragma</b> Inline (Set_KeyPad_Mode); - - <b>type</b> Half_Delay_Amount <b>is</b> <b>range</b> 1 .. 255; - - <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> - <b>procedure</b> Half_Delay (Amount : <b>in</b> Half_Delay_Amount); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></EM></FONT> - <b>pragma</b> Inline (Half_Delay); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> - <b>procedure</b> Set_Flush_On_Interrupt_Mode - (<FONT COLOR=red><A NAME="876_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Mode : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></EM></FONT> - <b>pragma</b> Inline (Set_Flush_On_Interrupt_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> - <b>procedure</b> Set_Queue_Interrupt_Mode - (<FONT COLOR=red><A NAME="883_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Flush : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: noqiflush()</EM></FONT> - <b>pragma</b> Inline (Set_Queue_Interrupt_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> - <b>procedure</b> Set_NoDelay_Mode - (<FONT COLOR=red><A NAME="891_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Mode : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></EM></FONT> - <b>pragma</b> Inline (Set_NoDelay_Mode); - - <b>type</b> Timeout_Mode <b>is</b> (Blocking, Non_Blocking, Delayed); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> - <b>procedure</b> Set_Timeout_Mode (<FONT COLOR=red><A NAME="899_32">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#895_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="900_32">Mode</A></FONT> : <b>in</b> Timeout_Mode; - Amount : <b>in</b> Natural); <FONT COLOR=green><EM>-- in Milliseconds</EM></FONT> - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></EM></FONT> - <FONT COLOR=green><EM>-- Instead of overloading the semantic of the sign of amount, we</EM></FONT> - <FONT COLOR=green><EM>-- introduce the Timeout_Mode parameter. This should improve</EM></FONT> - <FONT COLOR=green><EM>-- readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT> - <FONT COLOR=green><EM>-- evaluated.</EM></FONT> - <FONT COLOR=green><EM>-- We don't inline this procedure.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> - <b>procedure</b> Set_Escape_Timer_Mode - (<FONT COLOR=red><A NAME="911_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Timer_Off : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></EM></FONT> - <b>pragma</b> Inline (Set_Escape_Timer_Mode); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> - <b>procedure</b> Set_NL_Mode (SwitchOn : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: nonl()</EM></FONT> - <b>pragma</b> Inline (Set_NL_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> - <b>procedure</b> Clear_On_Next_Update - (<FONT COLOR=red><A NAME="928_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Do_Clear : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></EM></FONT> - <b>pragma</b> Inline (Clear_On_Next_Update); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> - <b>procedure</b> Use_Insert_Delete_Line - (<FONT COLOR=red><A NAME="935_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Do_Idl : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></EM></FONT> - <b>pragma</b> Inline (Use_Insert_Delete_Line); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> - <b>procedure</b> Use_Insert_Delete_Character - (<FONT COLOR=red><A NAME="942_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Do_Idc : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></EM></FONT> - <b>pragma</b> Inline (Use_Insert_Delete_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> - <b>procedure</b> Leave_Cursor_After_Update - (<FONT COLOR=red><A NAME="949_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Do_Leave : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></EM></FONT> - <b>pragma</b> Inline (Leave_Cursor_After_Update); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> - <b>procedure</b> Immediate_Update_Mode - (<FONT COLOR=red><A NAME="956_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Mode : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></EM></FONT> - <b>pragma</b> Inline (Immediate_Update_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> - <b>procedure</b> Allow_Scrolling - (<FONT COLOR=red><A NAME="963_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Mode : <b>in</b> Boolean := False); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></EM></FONT> - <b>pragma</b> Inline (Allow_Scrolling); - - <b>function</b> Scrolling_Allowed (Win : Window := Standard_Window) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- There is no such function in the C interface.</EM></FONT> - <b>pragma</b> Inline (Scrolling_Allowed); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> - <b>procedure</b> Set_Scroll_Region - (<FONT COLOR=red><A NAME="974_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="975_7">Top_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>; - Bottom_Line : <b>in</b> Line_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT> - <b>pragma</b> Inline (Set_Scroll_Region); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> - <b>procedure</b> Update_Screen; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></EM></FONT> - <b>pragma</b> Inline (Update_Screen); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> - <b>procedure</b> Refresh (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></EM></FONT> - <FONT COLOR=green><EM>-- There is an overloaded Refresh for Pads.</EM></FONT> - <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> - <b>procedure</b> Refresh_Without_Update - (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT> - <FONT COLOR=green><EM>-- There is an overloaded Refresh_Without_Update for Pads.</EM></FONT> - <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> - <b>procedure</b> Redraw (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> - <b>procedure</b> Redraw (<FONT COLOR=red><A NAME="1007_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1008_22">Begin_Line</A></FONT> : <b>in</b> Line_Position; - Line_Count : <b>in</b> Positive); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></EM></FONT> - <b>pragma</b> Inline (Redraw); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_64"#2|</EM></FONT> - <b>procedure</b> Erase (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></EM></FONT> - <b>pragma</b> Inline (Erase); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_65"#2|</EM></FONT> - <b>procedure</b> Clear - (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></EM></FONT> - <b>pragma</b> Inline (Clear); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_66"#2|</EM></FONT> - <b>procedure</b> Clear_To_End_Of_Screen - (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></EM></FONT> - <b>pragma</b> Inline (Clear_To_End_Of_Screen); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_67"#2|</EM></FONT> - <b>procedure</b> Clear_To_End_Of_Line - (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT> - <b>pragma</b> Inline (Clear_To_End_Of_Line); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_68"#2|</EM></FONT> - <b>procedure</b> Set_Background - (<FONT COLOR=red><A NAME="1046_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT> - <b>pragma</b> Inline (Set_Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_69"#2|</EM></FONT> - <b>procedure</b> Change_Background - (<FONT COLOR=red><A NAME="1053_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT> - <b>pragma</b> Inline (Change_Background); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_70"#2|</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Get_Background</A> (Win : Window := Standard_Window) - <b>return</b> Attributed_Character; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT> - <b>pragma</b> Inline (Get_Background); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_71"#2|</EM></FONT> - <b>procedure</b> Untouch (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></EM></FONT> - <b>pragma</b> Inline (Untouch); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_72"#2|</EM></FONT> - <b>procedure</b> Touch (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_73"#2|</EM></FONT> - <b>procedure</b> Touch (<FONT COLOR=red><A NAME="1078_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1079_21">Start</A></FONT> : <b>in</b> Line_Position; - Count : <b>in</b> Positive); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></EM></FONT> - <b>pragma</b> Inline (Touch); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_74"#2|</EM></FONT> - <b>procedure</b> Change_Lines_Status (<FONT COLOR=red><A NAME="1085_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1086_35">Start</A></FONT> : <b>in</b> Line_Position; - <FONT COLOR=red><A NAME="1087_35">Count</A></FONT> : <b>in</b> Positive; - State : <b>in</b> Boolean); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></EM></FONT> - <b>pragma</b> Inline (Change_Lines_Status); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_75"#2|</EM></FONT> - <b>function</b> Is_Touched (<FONT COLOR=red><A NAME="1093_25">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - Line : Line_Position) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_76"#2|</EM></FONT> - <b>function</b> Is_Touched (Win : Window := Standard_Window) <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></EM></FONT> - <b>pragma</b> Inline (Is_Touched); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_77"#2|</EM></FONT> - <b>procedure</b> Copy - (<FONT COLOR=red><A NAME="1108_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - <FONT COLOR=red><A NAME="1109_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="1110_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1111_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1112_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1113_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1114_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1115_7">Destination_Right_Column</A></FONT> : <b>in</b> Column_Position; - Non_Destructive_Mode : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></EM></FONT> - <b>pragma</b> Inline (Copy); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_78"#2|</EM></FONT> - <b>procedure</b> Overwrite (<FONT COLOR=red><A NAME="1121_25">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Destination_Window : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></EM></FONT> - <b>pragma</b> Inline (Overwrite); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_79"#2|</EM></FONT> - <b>procedure</b> Overlay (<FONT COLOR=red><A NAME="1127_23">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>; - Destination_Window : <b>in</b> Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></EM></FONT> - <b>pragma</b> Inline (Overlay); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_80"#2|</EM></FONT> - <b>procedure</b> Insert_Delete_Lines - (<FONT COLOR=red><A NAME="1138_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Lines : <b>in</b> Integer := 1); <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsdelln()</A></EM></FONT> - <b>pragma</b> Inline (Insert_Delete_Lines); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_81"#2|</EM></FONT> - <b>procedure</b> Delete_Line (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">wdeleteln()</A></EM></FONT> - <b>pragma</b> Inline (Delete_Line); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_82"#2|</EM></FONT> - <b>procedure</b> Insert_Line (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsertln()</A></EM></FONT> - <b>pragma</b> Inline (Insert_Line); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_83"#2|</EM></FONT> - <b>procedure</b> Get_Size - (<FONT COLOR=red><A NAME="1159_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1160_7">Number_Of_Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - Number_Of_Columns : <b>out</b> Column_Count); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getmaxyx()</A></EM></FONT> - <b>pragma</b> Inline (Get_Size); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_84"#2|</EM></FONT> - <b>procedure</b> Get_Window_Position - (<FONT COLOR=red><A NAME="1167_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1168_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Top_Left_Column : <b>out</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getbegyx()</A></EM></FONT> - <b>pragma</b> Inline (Get_Window_Position); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_85"#2|</EM></FONT> - <b>procedure</b> Get_Cursor_Position - (<FONT COLOR=red><A NAME="1175_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1176_7">Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>out</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getyx()</A></EM></FONT> - <b>pragma</b> Inline (Get_Cursor_Position); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_86"#2|</EM></FONT> - <b>procedure</b> Get_Origin_Relative_To_Parent - (<FONT COLOR=red><A NAME="1183_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="1184_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1185_7">Top_Left_Column</A></FONT> : <b>out</b> Column_Position; - Is_Not_A_Subwindow : <b>out</b> Boolean); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getparyx()</A></EM></FONT> - <FONT COLOR=green><EM>-- Instead of placing -1 in the coordinates as return, we use a boolean</EM></FONT> - <FONT COLOR=green><EM>-- to return the info that the window has no parent.</EM></FONT> - <b>pragma</b> Inline (Get_Origin_Relative_To_Parent); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_87"#2|</EM></FONT> - <b>function</b> New_Pad (<FONT COLOR=red><A NAME="1197_22">Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - Columns : Column_Count) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">newpad()</A></EM></FONT> - <b>pragma</b> Inline (New_Pad); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_88"#2|</EM></FONT> - <b>function</b> Sub_Pad - (<FONT COLOR=red><A NAME="1204_7">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A>; - <FONT COLOR=red><A NAME="1205_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>; - <FONT COLOR=red><A NAME="1206_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>; - <FONT COLOR=red><A NAME="1207_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - First_Column_Position : Column_Position) <b>return</b> Window; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">subpad()</A></EM></FONT> - <b>pragma</b> Inline (Sub_Pad); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_89"#2|</EM></FONT> - <b>procedure</b> Refresh - (<FONT COLOR=red><A NAME="1214_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="1215_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1216_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1217_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1218_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1219_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Destination_Right_Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">prefresh()</A></EM></FONT> - <b>pragma</b> Inline (Refresh); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_90"#2|</EM></FONT> - <b>procedure</b> Refresh_Without_Update - (<FONT COLOR=red><A NAME="1226_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>; - <FONT COLOR=red><A NAME="1227_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1228_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1229_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1230_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1231_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Destination_Right_Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pnoutrefresh()</A></EM></FONT> - <b>pragma</b> Inline (Refresh_Without_Update); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_91"#2|</EM></FONT> - <b>procedure</b> Add_Character_To_Pad_And_Echo_It - (<FONT COLOR=red><A NAME="1238_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A>; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pechochar()</A></EM></FONT> - - <b>procedure</b> Add_Character_To_Pad_And_Echo_It - (<FONT COLOR=red><A NAME="1243_7">Pad</A></FONT> : <b>in</b> Window; - Ch : <b>in</b> Character); - <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_92"#2|</EM></FONT> - <b>procedure</b> Scroll (<FONT COLOR=red><A NAME="1252_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; - Amount : <b>in</b> Integer := 1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scroll.3x.html">wscrl()</A></EM></FONT> - <b>pragma</b> Inline (Scroll); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_93"#2|</EM></FONT> - <b>procedure</b> Delete_Character (Win : <b>in</b> Window := Standard_Window); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">wdelch()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_94"#2|</EM></FONT> - <b>procedure</b> Delete_Character - (<FONT COLOR=red><A NAME="1267_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1268_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : <b>in</b> Column_Position); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">mvwdelch()</A></EM></FONT> - <b>pragma</b> Inline (Delete_Character); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_95"#2|</EM></FONT> - <b>function</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Peek</A> (Win : Window := Standard_Window) - <b>return</b> Attributed_Character; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">winch()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_96"#2|</EM></FONT> - <b>function</b> Peek - (<FONT COLOR=red><A NAME="1284_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1285_7">Line</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - Column : Column_Position) <b>return</b> Attributed_Character; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">mvwinch()</A></EM></FONT> - <FONT COLOR=green><EM>-- More Peek's follow, pragma Inline appears later.</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_97"#2|</EM></FONT> - <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1295_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_winch.3x.html">winsch()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_98"#2|</EM></FONT> - <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1300_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1301_22">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1302_22">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Column_Position</A>; - Ch : <b>in</b> Attributed_Character); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_winch.3x.html">mvwinsch()</A></EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_99"#2|</EM></FONT> - <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1311_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1312_22">Str</A></FONT> : <b>in</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_winch.3x.html">winsnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: winsstr()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_100"#2|</EM></FONT> - <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1318_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1319_22">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1320_22">Column</A></FONT> : <b>in</b> Column_Position; - <FONT COLOR=red><A NAME="1321_22">Str</A></FONT> : <b>in</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_winch.3x.html">mvwinsnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: mvwinsstr()</EM></FONT> - <b>pragma</b> Inline (Insert); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_101"#2|</EM></FONT> - <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1332_20">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1333_20">Str</A></FONT> : <b>out</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">winnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: winstr()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_102"#2|</EM></FONT> - <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1339_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1340_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1341_20">Column</A></FONT> : <b>in</b> Column_Position; - <FONT COLOR=red><A NAME="1342_20">Str</A></FONT> : <b>out</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">mvwinnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: mvwinstr()</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_103"#2|</EM></FONT> - <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1352_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1353_20">Str</A></FONT> : <b>out</b> Attributed_String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">winchnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: winchstr()</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_104"#2|</EM></FONT> - <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1359_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1360_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1361_20">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Column_Position</A>; - <FONT COLOR=red><A NAME="1362_20">Str</A></FONT> : <b>out</b> Attributed_String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">mvwinchnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: mvwinchstr()</EM></FONT> - <FONT COLOR=green><EM>-- We don't inline the Peek procedures</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_105"#2|</EM></FONT> - <b>procedure</b> Get (<FONT COLOR=red><A NAME="1373_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1374_19">Str</A></FONT> : <b>out</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: wgetstr()</EM></FONT> - - <b>procedure</b> Get (<FONT COLOR=red><A NAME="1379_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window; - <FONT COLOR=red><A NAME="1380_19">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1381_19">Column</A></FONT> : <b>in</b> Column_Position; - <FONT COLOR=red><A NAME="1382_19">Str</A></FONT> : <b>out</b> String; - Len : <b>in</b> Integer := -1); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT> - <FONT COLOR=green><EM>-- not specified in ncurses, should be: mvwgetnstr()</EM></FONT> - <FONT COLOR=green><EM>-- and mvwgetstr() (which exists)</EM></FONT> - <FONT COLOR=green><EM>-- Get is not inlined</EM></FONT> - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <b>type</b> Soft_Label_Key_Format <b>is</b> (Three_Two_Three, - Four_Four, - PC_Style, <FONT COLOR=green><EM>-- ncurses specific</EM></FONT> - <FONT COLOR=red><A NAME="1396_9"> </A></FONT> PC_Style_With_Index); <FONT COLOR=green><EM>-- "</EM></FONT> - <b>type</b> <FONT COLOR=red><A NAME="1397_9">Label_Number</A></FONT> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. 12; - <b>type</b> Label_Justification <b>is</b> (Left, Centered, Right); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_106"#2|</EM></FONT> - <b>procedure</b> Init_Soft_Label_Keys - (Format : <b>in</b> Soft_Label_Key_Format := Three_Two_Three); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_init()</A></EM></FONT> - <b>pragma</b> Inline (Init_Soft_Label_Keys); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_107"#2|</EM></FONT> - <b>procedure</b> Set_Soft_Label_Key (<FONT COLOR=red><A NAME="1407_34">Label</A></FONT> : <b>in</b> Label_Number; - <FONT COLOR=red><A NAME="1408_34">Text</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1397_9">String</A>; - Fmt : <b>in</b> Label_Justification := Left); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_set()</A></EM></FONT> - <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_108"#2|</EM></FONT> - <b>procedure</b> Refresh_Soft_Label_Keys; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_refresh()</A></EM></FONT> - <b>pragma</b> Inline (Refresh_Soft_Label_Keys); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_109"#2|</EM></FONT> - <b>procedure</b> Refresh_Soft_Label_Keys_Without_Update; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_noutrefresh()</A></EM></FONT> - <b>pragma</b> Inline (Refresh_Soft_Label_Keys_Without_Update); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_110"#2|</EM></FONT> - <b>procedure</b> Get_Soft_Label_Key (<FONT COLOR=red><A NAME="1424_34">Label</A></FONT> : <b>in</b> Label_Number; - Text : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_111"#2|</EM></FONT> - <b>function</b> Get_Soft_Label_Key (Label : <b>in</b> Label_Number) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Get_Soft_Label_Key); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_112"#2|</EM></FONT> - <b>procedure</b> Clear_Soft_Label_Keys; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_clear()</A></EM></FONT> - <b>pragma</b> Inline (Clear_Soft_Label_Keys); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_113"#2|</EM></FONT> - <b>procedure</b> Restore_Soft_Label_Keys; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_restore()</A></EM></FONT> - <b>pragma</b> Inline (Restore_Soft_Label_Keys); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_114"#2|</EM></FONT> - <b>procedure</b> Touch_Soft_Label_Keys; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_touch()</A></EM></FONT> - <b>pragma</b> Inline (Touch_Soft_Label_Keys); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_115"#2|</EM></FONT> - <b>procedure</b> Switch_Soft_Label_Key_Attributes - (<FONT COLOR=red><A NAME="1451_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set; - On : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attron()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: slk_attroff()</EM></FONT> - <b>pragma</b> Inline (Switch_Soft_Label_Key_Attributes); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_116"#2|</EM></FONT> - <b>procedure</b> Set_Soft_Label_Key_Attributes - (<FONT COLOR=red><A NAME="1459_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video; - Color : <b>in</b> Color_Pair := Color_Pair'First); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attrset()</A></EM></FONT> - <b>pragma</b> Inline (Set_Soft_Label_Key_Attributes); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_117"#2|</EM></FONT> - <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Character_Attribute_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_118"#2|</EM></FONT> - <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Color_Pair; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> - <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_119"#2|</EM></FONT> - <b>procedure</b> Set_Soft_Label_Key_Color (Pair : <b>in</b> Color_Pair); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_color()</A></EM></FONT> - <b>pragma</b> Inline (Set_Soft_Label_Key_Color); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/keyok.3x.html">keyok.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_120"#2|</EM></FONT> - <b>procedure</b> Enable_Key (<FONT COLOR=red><A NAME="1483_26">Key</A></FONT> : <b>in</b> Special_Key_Code; - Enable : <b>in</b> Boolean := True); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/keyok.3x.html">keyok()</A></EM></FONT> - <b>pragma</b> Inline (Enable_Key); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/define_key.3x.html">define_key.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_121"#2|</EM></FONT> - <b>procedure</b> Define_Key (<FONT COLOR=red><A NAME="1493_26">Definition</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#76_12">String</A>; - Key : <b>in</b> Special_Key_Code); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/define_key.3x.html">define_key()</A></EM></FONT> - <b>pragma</b> Inline (Define_Key); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_util.3x.html">curs_util.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- | Not implemented : filter, use_env, putwin, getwin</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=green><EM>-- #1A NAME="AFU_122"#2|</EM></FONT> - <b>procedure</b> Key_Name (<FONT COLOR=red><A NAME="1505_24">Key</A></FONT> : <b>in</b> Real_Key_Code; - Name : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> - <FONT COLOR=green><EM>-- The external name for a real keystroke.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_123"#2|</EM></FONT> - <b>function</b> Key_Name (Key : <b>in</b> Real_Key_Code) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <FONT COLOR=green><EM>-- We don't inline this routine</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_124"#2|</EM></FONT> - <b>procedure</b> Un_Control (<FONT COLOR=red><A NAME="1517_26">Ch</A></FONT> : <b>in</b> Attributed_Character; - Str : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_125"#2|</EM></FONT> - <b>function</b> Un_Control (Ch : <b>in</b> Attributed_Character) <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Un_Control); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_126"#2|</EM></FONT> - <b>procedure</b> Delay_Output (Msecs : <b>in</b> Natural); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">delay_output()</A></EM></FONT> - <b>pragma</b> Inline (Delay_Output); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_127"#2|</EM></FONT> - <b>procedure</b> Flush_Input; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">flushinp()</A></EM></FONT> - <b>pragma</b> Inline (Flush_Input); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_128"#2|</EM></FONT> - <b>function</b> Baudrate <b>return</b> Natural; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">baudrate()</A></EM></FONT> - <b>pragma</b> Inline (Baudrate); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_129"#2|</EM></FONT> - <b>function</b> Erase_Character <b>return</b> Character; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">erasechar()</A></EM></FONT> - <b>pragma</b> Inline (Erase_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_130"#2|</EM></FONT> - <b>function</b> Kill_Character <b>return</b> Character; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">killchar()</A></EM></FONT> - <b>pragma</b> Inline (Kill_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_131"#2|</EM></FONT> - <b>function</b> Has_Insert_Character <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_ic()</A></EM></FONT> - <b>pragma</b> Inline (Has_Insert_Character); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_132"#2|</EM></FONT> - <b>function</b> Has_Insert_Line <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_il()</A></EM></FONT> - <b>pragma</b> Inline (Has_Insert_Line); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_133"#2|</EM></FONT> - <b>function</b> Supported_Attributes <b>return</b> Character_Attribute_Set; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termattrs()</A></EM></FONT> - <b>pragma</b> Inline (Supported_Attributes); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_134"#2|</EM></FONT> - <b>procedure</b> Long_Name (Name : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_135"#2|</EM></FONT> - <b>function</b> Long_Name <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Long_Name); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_136"#2|</EM></FONT> - <b>procedure</b> Terminal_Name (Name : <b>out</b> String); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_137"#2|</EM></FONT> - <b>function</b> Terminal_Name <b>return</b> String; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> - <FONT COLOR=green><EM>-- Same as function</EM></FONT> - <b>pragma</b> Inline (Terminal_Name); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_color.3x.html">curs_color.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_138"#2|</EM></FONT> - <b>procedure</b> Start_Color; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">start_color()</A></EM></FONT> - <b>pragma</b> Import (C, Start_Color, "start_color"); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_139"#2|</EM></FONT> - <b>procedure</b> Init_Pair (<FONT COLOR=red><A NAME="1601_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Redefinable_Color_Pair</A>; - <FONT COLOR=red><A NAME="1602_25">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - Back : <b>in</b> Color_Number); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_pair()</A></EM></FONT> - <b>pragma</b> Inline (Init_Pair); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_140"#2|</EM></FONT> - <b>procedure</b> Pair_Content (<FONT COLOR=red><A NAME="1608_28">Pair</A></FONT> : <b>in</b> Color_Pair; - <FONT COLOR=red><A NAME="1609_28">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>; - Back : <b>out</b> Color_Number); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">pair_content()</A></EM></FONT> - <b>pragma</b> Inline (Pair_Content); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_141"#2|</EM></FONT> - <b>function</b> Has_Colors <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">has_colors()</A></EM></FONT> - <b>pragma</b> Inline (Has_Colors); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_142"#2|</EM></FONT> - <b>procedure</b> Init_Color (<FONT COLOR=red><A NAME="1620_26">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">Color_Number</A>; - <FONT COLOR=red><A NAME="1621_26">Red</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <FONT COLOR=red><A NAME="1622_26">Green</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - Blue : <b>in</b> RGB_Value); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_color()</A></EM></FONT> - <b>pragma</b> Inline (Init_Color); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_143"#2|</EM></FONT> - <b>function</b> Can_Change_Color <b>return</b> Boolean; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">can_change_color()</A></EM></FONT> - <b>pragma</b> Inline (Can_Change_Color); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_144"#2|</EM></FONT> - <b>procedure</b> Color_Content (<FONT COLOR=red><A NAME="1633_29">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">Color_Number</A>; - <FONT COLOR=red><A NAME="1634_29">Red</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - <FONT COLOR=red><A NAME="1635_29">Green</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>; - Blue : <b>out</b> RGB_Value); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">color_content()</A></EM></FONT> - <b>pragma</b> Inline (Color_Content); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - - <FONT COLOR=green><EM>-- | Not implemented: getsyx, setsyx</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <b>type</b> Curses_Mode <b>is</b> (Curses, Shell); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_145"#2|</EM></FONT> - <b>procedure</b> Save_Curses_Mode (Mode : <b>in</b> Curses_Mode); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">def_prog_mode()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: def_shell_mode()</EM></FONT> - <b>pragma</b> Inline (Save_Curses_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_146"#2|</EM></FONT> - <b>procedure</b> Reset_Curses_Mode (Mode : <b>in</b> Curses_Mode); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">reset_prog_mode()</A></EM></FONT> - <FONT COLOR=green><EM>-- AKA: reset_shell_mode()</EM></FONT> - <b>pragma</b> Inline (Reset_Curses_Mode); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_147"#2|</EM></FONT> - <b>procedure</b> Save_Terminal_State; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">savetty()</A></EM></FONT> - <b>pragma</b> Inline (Save_Terminal_State); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_148"#2|</EM></FONT> - <b>procedure</b> Reset_Terminal_State; - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">resetty();</A></EM></FONT> - <b>pragma</b> Inline (Reset_Terminal_State); - - <b>type</b> Stdscr_Init_Proc <b>is</b> <b>access</b> - <b>function</b> (<FONT COLOR=red><A NAME="1671_17">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#64_12">Window</A>; - Columns :<A HREF="terminal_interface-curses__ads.htm#1669_9"> </A>Column_Count) <b>return</b> Integer; - <b>pragma</b> Convention (C, Stdscr_Init_Proc); - <FONT COLOR=green><EM>-- N.B.: the return value is actually ignored, but it seems to be</EM></FONT> - <FONT COLOR=green><EM>-- a good practice to return 0 if you think all went fine</EM></FONT> - <FONT COLOR=green><EM>-- and -1 otherwise.</EM></FONT> - - <FONT COLOR=green><EM>-- #1A NAME="AFU_149"#2|</EM></FONT> - <b>procedure</b> Rip_Off_Lines (<FONT COLOR=red><A NAME="1679_29">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1669_9">Integer</A>; - Proc : <b>in</b> Stdscr_Init_Proc); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">ripoffline()</A></EM></FONT> - <FONT COLOR=green><EM>-- N.B.: to be more precise, this uses a ncurses specific enhancement of</EM></FONT> - <FONT COLOR=green><EM>-- ripoffline(), in which the Lines argument absolute value is the</EM></FONT> - <FONT COLOR=green><EM>-- number of lines to be ripped of. The official ripoffline() only</EM></FONT> - <FONT COLOR=green><EM>-- uses the sign of Lines to rip of a single line from bottom or top.</EM></FONT> - <b>pragma</b> Inline (Rip_Off_Lines); - - <b>type</b> Cursor_Visibility <b>is</b> (Invisible, Normal, Very_Visible); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_150"#2|</EM></FONT> - <b>procedure</b> Set_Cursor_Visibility (Visibility : <b>in</b> <b>out</b> Cursor_Visibility); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">curs_set()</A></EM></FONT> - <b>pragma</b> Inline (Set_Cursor_Visibility); - - <FONT COLOR=green><EM>-- #1A NAME="AFU_151"#2|</EM></FONT> - <b>procedure</b> Nap_Milli_Seconds (Ms : <b>in</b> Natural); - <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">napms()</A></EM></FONT> - <b>pragma</b> Inline (Nap_Milli_Seconds); - - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <FONT COLOR=green><EM>-- | Some useful helpers.</EM></FONT> - <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> - <b>type</b> Transform_Direction <b>is</b> (From_Screen, To_Screen); - <b>procedure</b> Transform_Coordinates - (<FONT COLOR=red><A NAME="1705_7">W</A></FONT> : <b>in</b> Window := Standard_Window; - <FONT COLOR=red><A NAME="1706_7">Line</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>; - <FONT COLOR=red><A NAME="1707_7">Column</A></FONT> : <b>in</b> <b>out</b> Column_Position; - Dir : <b>in</b> Transform_Direction := From_Screen); - <FONT COLOR=green><EM>-- This procedure transforms screen coordinates into coordinates relative</EM></FONT> - <FONT COLOR=green><EM>-- to the window and vice versa, depending on the Dir parameter.</EM></FONT> - <FONT COLOR=green><EM>-- Screen coordinates are the position informations on the physical device.</EM></FONT> - <FONT COLOR=green><EM>-- An Curses_Exception will be raised if Line and Column are not in the</EM></FONT> - <FONT COLOR=green><EM>-- Window or if you pass the Null_Window as argument.</EM></FONT> - <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> - -<b>private</b> - <b>type</b> Window <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; - Null_Window : <b>constant</b> Window := 0; - - <FONT COLOR=green><EM>-- The next constants are generated and may be different on your</EM></FONT> - <FONT COLOR=green><EM>-- architecture.</EM></FONT> - <FONT COLOR=green><EM>--</EM></FONT> - <FONT COLOR=red><A NAME="1723_4">Offset_maxy</A></FONT> : <b>constant</b> Natural := 2; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1724_4">Offset_maxx</A></FONT> : <b>constant</b> Natural := 3; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1725_4">Offset_begy</A></FONT> : <b>constant</b> Natural := 4; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1726_4">Offset_begx</A></FONT> : <b>constant</b> Natural := 5; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1727_4">Offset_cury</A></FONT> : <b>constant</b> Natural := 0; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1728_4">Offset_curx</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1729_4">Offset_yoffset</A></FONT> : <b>constant</b> Natural := 36; <FONT COLOR=green><EM>-- short</EM></FONT> - <FONT COLOR=red><A NAME="1730_4">Offset_pary</A></FONT> : <b>constant</b> Natural := 13; <FONT COLOR=green><EM>-- int</EM></FONT> - <FONT COLOR=red><A NAME="1731_4">Offset_parx</A></FONT> : <b>constant</b> Natural := 12; <FONT COLOR=green><EM>-- int</EM></FONT> - <FONT COLOR=red><A NAME="1732_4">Offset_scroll</A></FONT> : <b>constant</b> Natural := 27; <FONT COLOR=green><EM>-- char</EM></FONT> - <FONT COLOR=red><A NAME="1733_4">Sizeof_bool</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- bool</EM></FONT> - Offset_XY : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- int</EM></FONT> - - <b>type</b> Curses_Bool <b>is</b> <b>mod</b> 2 ** <A HREF="terminal_interface-curses__ads.htm#1735_9">Interfaces</A>.C.char'Size; - Curses_Bool_False : <b>constant</b> Curses_Bool := 0; - -<b>end</b> Terminal_Interface.Curses; -</PRE></BODY></HTML>
\ No newline at end of file diff --git a/ncurses-5.2/doc/html/ada/terminal_interface__ads.htm b/ncurses-5.2/doc/html/ada/terminal_interface__ads.htm deleted file mode 100644 index a930f21..0000000 --- a/ncurses-5.2/doc/html/ada/terminal_interface__ads.htm +++ /dev/null @@ -1,53 +0,0 @@ -<HTML><HEAD><TITLE>terminal_interface.ads</TITLE></HEAD> -<BODY> -<HR><DIV ALIGN="center"><H1> File : terminal_interface.ads </H1></DIV><HR> -<PRE> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Terminal_Interface --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- S P E C --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> -<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> -<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> -<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> -<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> -<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> -<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> -<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> -<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> -<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> -<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> -<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> -<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> -<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> -<FONT COLOR=green><EM>-- --</EM></FONT> -<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> -<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> -<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> -<FONT COLOR=green><EM>-- authorization. --</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<FONT COLOR=green><EM>-- Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> <<A HREF="mailto:juergen.pfeifer@gmx.net"><juergen.pfeifer@gmx.net></A>> 1996</EM></FONT> -<FONT COLOR=green><EM>-- Version Control:</EM></FONT> -<FONT COLOR=green><EM>-- @Revision: 1.10 @</EM></FONT> -<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> -<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> -<b>package</b> <FONT COLOR=red><A NAME="41_9">Terminal_Interface</A></FONT> <b>is</b> - <b>pragma</b> Pure (<A HREF="terminal_interface__ads.htm#41_9">Terminal_Interface</A>); -<FONT COLOR=green><EM>--</EM></FONT> -<FONT COLOR=green><EM>-- Everything is in the child units</EM></FONT> -<FONT COLOR=green><EM>--</EM></FONT> -<b>end</b> Terminal_Interface; - - -</PRE></BODY></HTML>
\ No newline at end of file |