1 <!DOCTYPE HTML PUBLIC
"-//W3C//DTD HTML 4.01 Transitional//EN">
2 <HTML><HEAD><TITLE>terminal_interface-curses-panels.adb
</TITLE></HEAD>
4 <HR><DIV ALIGN=
"center"><H1> File : terminal_interface-curses-panels.adb
</H1></DIV><HR>
6 <FONT COLOR=green
><EM>------------------------------------------------------------------------------
</EM></FONT>
7 <FONT COLOR=green
><EM>-- --
</EM></FONT>
8 <FONT COLOR=green
><EM>--
<A HREF=
"http://www.gnat.com">GNAT
</A> ncurses Binding --
</EM></FONT>
9 <FONT COLOR=green
><EM>-- --
</EM></FONT>
10 <FONT COLOR=green
><EM>-- Terminal_Interface.Curses.Panels --
</EM></FONT>
11 <FONT COLOR=green
><EM>-- --
</EM></FONT>
12 <FONT COLOR=green
><EM>-- B O D Y --
</EM></FONT>
13 <FONT COLOR=green
><EM>-- --
</EM></FONT>
14 <FONT COLOR=green
><EM>------------------------------------------------------------------------------
</EM></FONT>
15 <FONT COLOR=green
><EM>-- Copyright (c)
1998-
2004,
2009 Free Software Foundation, Inc. --
</EM></FONT>
16 <FONT COLOR=green
><EM>-- --
</EM></FONT>
17 <FONT COLOR=green
><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --
</EM></FONT>
18 <FONT COLOR=green
><EM>-- copy of this software and associated documentation files (the --
</EM></FONT>
19 <FONT COLOR=green
><EM>--
"Software"), to deal in the Software without restriction, including --
</EM></FONT>
20 <FONT COLOR=green
><EM>-- without limitation the rights to use, copy, modify, merge, publish, --
</EM></FONT>
21 <FONT COLOR=green
><EM>-- distribute, distribute with modifications, sublicense, and/or sell --
</EM></FONT>
22 <FONT COLOR=green
><EM>-- copies of the Software, and to permit persons to whom the Software is --
</EM></FONT>
23 <FONT COLOR=green
><EM>-- furnished to do so, subject to the following conditions: --
</EM></FONT>
24 <FONT COLOR=green
><EM>-- --
</EM></FONT>
25 <FONT COLOR=green
><EM>-- The above copyright notice and this permission notice shall be included --
</EM></FONT>
26 <FONT COLOR=green
><EM>-- in all copies or substantial portions of the Software. --
</EM></FONT>
27 <FONT COLOR=green
><EM>-- --
</EM></FONT>
28 <FONT COLOR=green
><EM>-- THE SOFTWARE IS PROVIDED
"AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
</EM></FONT>
29 <FONT COLOR=green
><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
</EM></FONT>
30 <FONT COLOR=green
><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
</EM></FONT>
31 <FONT COLOR=green
><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
</EM></FONT>
32 <FONT COLOR=green
><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
</EM></FONT>
33 <FONT COLOR=green
><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
</EM></FONT>
34 <FONT COLOR=green
><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
</EM></FONT>
35 <FONT COLOR=green
><EM>-- --
</EM></FONT>
36 <FONT COLOR=green
><EM>-- Except as contained in this notice, the name(s) of the above copyright --
</EM></FONT>
37 <FONT COLOR=green
><EM>-- holders shall not be used in advertising or otherwise to promote the --
</EM></FONT>
38 <FONT COLOR=green
><EM>-- sale, use or other dealings in this Software without prior written --
</EM></FONT>
39 <FONT COLOR=green
><EM>-- authorization. --
</EM></FONT>
40 <FONT COLOR=green
><EM>------------------------------------------------------------------------------
</EM></FONT>
41 <FONT COLOR=green
><EM>-- Author: Juergen Pfeifer,
1996</EM></FONT>
42 <FONT COLOR=green
><EM>-- Version Control:
</EM></FONT>
43 <FONT COLOR=green
><EM>-- @Revision:
1.14 @
</EM></FONT>
44 <FONT COLOR=green
><EM>-- @Date:
2009/
12/
26 17:
38:
58 @
</EM></FONT>
45 <FONT COLOR=green
><EM>-- Binding Version
01.00</EM></FONT>
46 <FONT COLOR=green
><EM>------------------------------------------------------------------------------
</EM></FONT>
47 <b>with
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_49_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_35">Aux
</A>;
<b>use
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_49_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_35">Aux
</A>;
48 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_38_9">Interfaces
</A>.C;
50 <b>package
</b> <b>body
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_49_28">Curses
</A>.
<FONT COLOR=red
><A NAME=
"ref_45_40" HREF=
"terminal_interface-curses-panels__ads.htm#ref_44_35">Panels
</A></FONT> <b>is
</b>
52 <b>use
</b> <b>type
</b> <A HREF=
"interfac__ads.htm#ref_38_9">Interfaces
</A>.C.int;
54 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_49_13" HREF=
"terminal_interface-curses-panels__ads.htm#ref_67_13">Create
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_49_21" HREF=
"terminal_interface-curses-panels__ads.htm#ref_67_21">Win
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>
56 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_51_16">Newpanel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_51_26" HREF=
"terminal_interface-curses-panels__adb.htm#ref_51_16">Win
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
57 <b>pragma
</b> Import (C, Newpanel,
"new_panel");
59 <FONT COLOR=red
><A NAME=
"ref_54_7">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
61 <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_54_7">Pan
</A> :=
<A HREF=
"terminal_interface-curses-panels__adb.htm#ref_51_16">Newpanel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_67_21">Win
</A>);
62 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_54_7">Pan
</A> =
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_54_4">Null_Panel
</A> <b>then
</b>
63 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
65 <b>return
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_54_7">Pan
</A>;
66 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_67_13">Create
</A>;
68 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_63_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_77_14">Bottom
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_63_22" HREF=
"terminal_interface-curses-panels__ads.htm#ref_77_22">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
70 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_65_16">Bottompanel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_65_29" HREF=
"terminal_interface-curses-panels__adb.htm#ref_65_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
71 <b>pragma
</b> Import (C, Bottompanel,
"bottom_panel");
73 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_65_16">Bottompanel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_77_22">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
74 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
76 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_77_14">Bottom
</A>;
78 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_73_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_82_14">Top
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_73_19" HREF=
"terminal_interface-curses-panels__ads.htm#ref_82_19">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
80 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_75_16">Toppanel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_75_26" HREF=
"terminal_interface-curses-panels__adb.htm#ref_75_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
81 <b>pragma
</b> Import (C, Toppanel,
"top_panel");
83 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_75_16">Toppanel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_82_19">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
84 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
86 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_82_14">Top
</A>;
88 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_83_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_87_14">Show
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_83_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_87_20">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
90 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_85_16">Showpanel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_85_27" HREF=
"terminal_interface-curses-panels__adb.htm#ref_85_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
91 <b>pragma
</b> Import (C, Showpanel,
"show_panel");
93 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_85_16">Showpanel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_87_20">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
94 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
96 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_87_14">Show
</A>;
98 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_93_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_97_14">Hide
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_93_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_97_20">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
100 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_95_16">Hidepanel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_95_27" HREF=
"terminal_interface-curses-panels__adb.htm#ref_95_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
101 <b>pragma
</b> Import (C, Hidepanel,
"hide_panel");
103 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_95_16">Hidepanel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_97_20">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
104 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
105 <b>end
</b> <b>if
</b>;
106 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_97_14">Hide
</A>;
108 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_103_13" HREF=
"terminal_interface-curses-panels__ads.htm#ref_102_13">Get_Window
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_103_25" HREF=
"terminal_interface-curses-panels__ads.htm#ref_102_25">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>
110 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_105_16">Panel_Win
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_105_27" HREF=
"terminal_interface-curses-panels__adb.htm#ref_105_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>;
111 <b>pragma
</b> Import (C, Panel_Win,
"panel_window");
113 <FONT COLOR=red
><A NAME=
"ref_108_7">Win
</A></FONT> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A> :=
<A HREF=
"terminal_interface-curses-panels__adb.htm#ref_105_16">Panel_Win
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_102_25">Pan
</A>);
115 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_108_7">Win
</A> =
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_4">Null_Window
</A> <b>then
</b>
116 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
117 <b>end
</b> <b>if
</b>;
118 <b>return
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_108_7">Win
</A>;
119 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_102_13">Get_Window
</A>;
121 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_116_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_111_14">Replace
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_116_23" HREF=
"terminal_interface-curses-panels__ads.htm#ref_111_23">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
122 <FONT COLOR=red
><A NAME=
"ref_117_23" HREF=
"terminal_interface-curses-panels__ads.htm#ref_112_23">Win
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>)
124 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_119_16">Replace_Pan
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_119_29" HREF=
"terminal_interface-curses-panels__adb.htm#ref_119_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
125 <FONT COLOR=red
><A NAME=
"ref_120_29" HREF=
"terminal_interface-curses-panels__adb.htm#ref_119_16">Win
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_57_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
126 <b>pragma
</b> Import (C, Replace_Pan,
"replace_panel");
128 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_119_16">Replace_Pan
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_111_23">Pan
</A>,
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_112_23">Win
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
129 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
130 <b>end
</b> <b>if
</b>;
131 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_111_14">Replace
</A>;
133 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_128_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_117_14">Move
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_128_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_117_20">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
134 <FONT COLOR=red
><A NAME=
"ref_129_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_118_20">Line
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_60_9">Line_Position
</A>;
135 <FONT COLOR=red
><A NAME=
"ref_130_20" HREF=
"terminal_interface-curses-panels__ads.htm#ref_119_20">Column
</A></FONT> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_9">Column_Position
</A>)
137 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_132_16">Move
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_132_22" HREF=
"terminal_interface-curses-panels__adb.htm#ref_132_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>;
138 <FONT COLOR=red
><A NAME=
"ref_133_22" HREF=
"terminal_interface-curses-panels__adb.htm#ref_132_16">Line
</A></FONT> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
139 <FONT COLOR=red
><A NAME=
"ref_134_22" HREF=
"terminal_interface-curses-panels__adb.htm#ref_132_16">Column
</A></FONT> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
140 <b>pragma
</b> Import (C, Move,
"move_panel");
142 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_132_16">Move
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_117_20">Pan
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_118_20">Line
</A>),
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_119_20">Column
</A>)) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
143 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
144 <b>end
</b> <b>if
</b>;
145 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_117_14">Move
</A>;
147 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_142_13" HREF=
"terminal_interface-curses-panels__ads.htm#ref_124_13">Is_Hidden
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_142_24" HREF=
"terminal_interface-curses-panels__ads.htm#ref_124_24">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> Boolean
149 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_144_16">Panel_Hidden
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_144_30" HREF=
"terminal_interface-curses-panels__adb.htm#ref_144_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
150 <b>pragma
</b> Import (C, Panel_Hidden,
"panel_hidden");
152 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_144_16">Panel_Hidden
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_124_24">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_75_4">Curses_False
</A> <b>then
</b>
156 <b>end
</b> <b>if
</b>;
157 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_124_13">Is_Hidden
</A>;
159 <b>procedure
</b> <FONT COLOR=red
><A NAME=
"ref_154_14" HREF=
"terminal_interface-curses-panels__ads.htm#ref_139_14">Delete
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_154_22" HREF=
"terminal_interface-curses-panels__ads.htm#ref_139_22">Pan
</A></FONT> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
161 <b>function
</b> <FONT COLOR=red
><A NAME=
"ref_156_16">Del_Panel
</A></FONT> (
<FONT COLOR=red
><A NAME=
"ref_156_27" HREF=
"terminal_interface-curses-panels__adb.htm#ref_156_16">Pan
</A></FONT> :
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_49_9">Panel
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_55_12">C_Int
</A>;
162 <b>pragma
</b> Import (C, Del_Panel,
"del_panel");
164 <b>if
</b> <A HREF=
"terminal_interface-curses-panels__adb.htm#ref_156_16">Del_Panel
</A> (
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_139_22">Pan
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_72_4">Curses_Err
</A> <b>then
</b>
165 <b>raise
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception
</A>;
166 <b>end
</b> <b>if
</b>;
167 <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_139_22">Pan
</A> :=
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_54_4">Null_Panel
</A>;
168 <b>end
</b> <A HREF=
"terminal_interface-curses-panels__ads.htm#ref_139_14">Delete
</A>;
170 <b>end
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_49_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-panels__ads.htm#ref_44_35">Panels
</A>;