1 <!DOCTYPE html PUBLIC
"-//W3C//DTD HTML 4.01//EN">
4 <TITLE>terminal_interface-curses-panels.ads
</TITLE>
5 <meta http-equiv=
"Content-Type" content=
"text/html; charset=iso-8859-1">
6 <style type=
"text/css">
16 <HR><DIV style=
"text-align:center"><H1> File : terminal_interface-curses-panels.ads
</H1></DIV><HR>
18 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
19 <span class=
"comment"><EM>-- --
</EM></span>
20 <span class=
"comment"><EM>--
<A HREF=
"http://www.gnat.com">GNAT
</A> ncurses Binding --
</EM></span>
21 <span class=
"comment"><EM>-- --
</EM></span>
22 <span class=
"comment"><EM>-- Terminal_Interface.Curses.Panels --
</EM></span>
23 <span class=
"comment"><EM>-- --
</EM></span>
24 <span class=
"comment"><EM>-- S P E C --
</EM></span>
25 <span class=
"comment"><EM>-- --
</EM></span>
26 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
27 <span class=
"comment"><EM>-- Copyright (c)
1998-
2009,
2014 Free Software Foundation, Inc. --
</EM></span>
28 <span class=
"comment"><EM>-- --
</EM></span>
29 <span class=
"comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --
</EM></span>
30 <span class=
"comment"><EM>-- copy of this software and associated documentation files (the --
</EM></span>
31 <span class=
"comment"><EM>--
"Software"), to deal in the Software without restriction, including --
</EM></span>
32 <span class=
"comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --
</EM></span>
33 <span class=
"comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --
</EM></span>
34 <span class=
"comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --
</EM></span>
35 <span class=
"comment"><EM>-- furnished to do so, subject to the following conditions: --
</EM></span>
36 <span class=
"comment"><EM>-- --
</EM></span>
37 <span class=
"comment"><EM>-- The above copyright notice and this permission notice shall be included --
</EM></span>
38 <span class=
"comment"><EM>-- in all copies or substantial portions of the Software. --
</EM></span>
39 <span class=
"comment"><EM>-- --
</EM></span>
40 <span class=
"comment"><EM>-- THE SOFTWARE IS PROVIDED
"AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
</EM></span>
41 <span class=
"comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
</EM></span>
42 <span class=
"comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
</EM></span>
43 <span class=
"comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
</EM></span>
44 <span class=
"comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
</EM></span>
45 <span class=
"comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
</EM></span>
46 <span class=
"comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
</EM></span>
47 <span class=
"comment"><EM>-- --
</EM></span>
48 <span class=
"comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --
</EM></span>
49 <span class=
"comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --
</EM></span>
50 <span class=
"comment"><EM>-- sale, use or other dealings in this Software without prior written --
</EM></span>
51 <span class=
"comment"><EM>-- authorization. --
</EM></span>
52 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
53 <span class=
"comment"><EM>-- Author: Juergen Pfeifer,
1996</EM></span>
54 <span class=
"comment"><EM>-- Version Control:
</EM></span>
55 <span class=
"comment"><EM>-- @Revision:
1.22 @
</EM></span>
56 <span class=
"comment"><EM>-- @Date:
2014/
05/
24 21:
31:
57 @
</EM></span>
57 <span class=
"comment"><EM>-- Binding Version
01.00</EM></span>
58 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
61 <b>package
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<span class=
"symbol"><A NAME=
"ref_44_35" HREF=
"terminal_interface-curses-panels__adb.htm#ref_45_40">Panels
</A></span> <b>is
</b>
62 <b>pragma
</b> Preelaborate (
<A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_44_35">Panels
</A>);
63 <b>pragma
</b> Linker_Options (
"-lpanel" & <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_9_4">DFT_ARG_SUFFIX
</A>);
65 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_48_9">Panel
</A></span> <b>is
</b> <b>private
</b>;
67 <span class=
"comment"><EM>---------------------------
</EM></span>
68 <span class=
"comment"><EM>-- Interface constants --
</EM></span>
69 <span class=
"comment"><EM>---------------------------
</EM></span>
70 <span class=
"symbol"><A NAME=
"ref_53_4">Null_Panel
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
72 <span class=
"comment"><EM>-------------------
</EM></span>
73 <span class=
"comment"><EM>-- Exceptions --
</EM></span>
74 <span class=
"comment"><EM>-------------------
</EM></span>
76 <span class=
"symbol"><A NAME=
"ref_59_4">Panel_Exception
</A></span> :
<b>exception
</b>;
78 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
79 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/panel.3x.html">panel
.3x
</A></EM></span>
80 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
82 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_1"#
2|
</EM></span>
83 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_66_13" HREF=
"terminal_interface-curses-panels__adb.htm#ref_49_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_66_21" HREF=
"terminal_interface-curses-panels__adb.htm#ref_49_21">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
84 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">new_panel()
</A></EM></span>
85 <b>pragma
</b> Inline (Create);
87 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_2"#
2|
</EM></span>
88 <b>function
</b> New_Panel (
<span class=
"symbol"><A NAME=
"ref_71_24">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_66_13">Create
</A>;
89 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">new_panel()
</A></EM></span>
90 <span class=
"comment"><EM>-- pragma Inline (New_Panel);
</EM></span>
92 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_3"#
2|
</EM></span>
93 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_76_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_63_14">Bottom
</A></span> (
<span class=
"symbol"><A NAME=
"ref_76_22" HREF=
"terminal_interface-curses-panels__adb.htm#ref_63_22">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>);
94 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">bottom_panel()
</A></EM></span>
95 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_76_14">Bottom
</A>);
97 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_4"#
2|
</EM></span>
98 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_81_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_73_14">Top
</A></span> (
<span class=
"symbol"><A NAME=
"ref_81_19" HREF=
"terminal_interface-curses-panels__adb.htm#ref_73_19">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>);
99 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">top_panel()
</A></EM></span>
100 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_81_14">Top
</A>);
102 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_5"#
2|
</EM></span>
103 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_86_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_83_14">Show
</A></span> (
<span class=
"symbol"><A NAME=
"ref_86_20" HREF=
"terminal_interface-curses-panels__adb.htm#ref_83_20">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>);
104 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">show_panel()
</A></EM></span>
105 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_86_14">Show
</A>);
107 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_6"#
2|
</EM></span>
108 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_91_14">Update_Panels
</A></span>;
109 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">update_panels()
</A></EM></span>
110 <b>pragma
</b> Import (C, Update_Panels,
"update_panels");
112 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_7"#
2|
</EM></span>
113 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_96_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_93_14">Hide
</A></span> (
<span class=
"symbol"><A NAME=
"ref_96_20" HREF=
"terminal_interface-curses-panels__adb.htm#ref_93_20">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>);
114 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">hide_panel()
</A></EM></span>
115 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_96_14">Hide
</A>);
117 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_8"#
2|
</EM></span>
118 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_101_13" HREF=
"terminal_interface-curses-panels__adb.htm#ref_103_13">Get_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_101_25" HREF=
"terminal_interface-curses-panels__adb.htm#ref_103_25">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>;
119 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">panel_window()
</A></EM></span>
120 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_101_13">Get_Window
</A>);
122 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_9"#
2|
</EM></span>
123 <b>function
</b> Panel_Window (
<span class=
"symbol"><A NAME=
"ref_106_27">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_101_13">Get_Window
</A>;
124 <span class=
"comment"><EM>-- pragma Inline (Panel_Window);
</EM></span>
126 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_10"#
2|
</EM></span>
127 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_110_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_116_14">Replace
</A></span> (
<span class=
"symbol"><A NAME=
"ref_110_23" HREF=
"terminal_interface-curses-panels__adb.htm#ref_116_23">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
128 <span class=
"symbol"><A NAME=
"ref_111_23" HREF=
"terminal_interface-curses-panels__adb.htm#ref_117_23">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>);
129 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">replace_panel()
</A></EM></span>
130 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_110_14">Replace
</A>);
132 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_11"#
2|
</EM></span>
133 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_116_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_128_14">Move
</A></span> (
<span class=
"symbol"><A NAME=
"ref_116_20" HREF=
"terminal_interface-curses-panels__adb.htm#ref_128_20">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
134 <span class=
"symbol"><A NAME=
"ref_117_20" HREF=
"terminal_interface-curses-panels__adb.htm#ref_129_20">Line
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
135 <span class=
"symbol"><A NAME=
"ref_118_20" HREF=
"terminal_interface-curses-panels__adb.htm#ref_130_20">Column
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>);
136 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">move_panel()
</A></EM></span>
137 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_116_14">Move
</A>);
139 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_12"#
2|
</EM></span>
140 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_123_13" HREF=
"terminal_interface-curses-panels__adb.htm#ref_142_13">Is_Hidden
</A></span> (
<span class=
"symbol"><A NAME=
"ref_123_24" HREF=
"terminal_interface-curses-panels__adb.htm#ref_142_24">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>)
<b>return
</b> Boolean;
141 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">panel_hidden()
</A></EM></span>
142 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_123_13">Is_Hidden
</A>);
144 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_13"#
2|
</EM></span>
145 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_128_13">Above
</A></span> (
<span class=
"symbol"><A NAME=
"ref_128_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_128_13">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
146 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">panel_above()
</A></EM></span>
147 <b>pragma
</b> Import (C, Above,
"panel_above");
149 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_14"#
2|
</EM></span>
150 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_133_13">Below
</A></span> (
<span class=
"symbol"><A NAME=
"ref_133_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_133_13">Pan
</A></span> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>;
151 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">panel_below()
</A></EM></span>
152 <b>pragma
</b> Import (C, Below,
"panel_below");
154 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_15"#
2|
</EM></span>
155 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_138_14" HREF=
"terminal_interface-curses-panels__adb.htm#ref_154_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_138_22" HREF=
"terminal_interface-curses-panels__adb.htm#ref_154_22">Pan
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A>);
156 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/panel.3x.html">del_panel()
</A></EM></span>
157 <b>pragma
</b> Inline (Delete);
160 <b>type
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A> <b>is
</b> <b>new
</b> System.Storage_Elements.Integer_Address;
161 <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_53_4">Null_Panel
</A> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_48_9">Panel
</A> :=
0;
163 <b>end
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_44_35">Panels
</A>;