Gitiles
Code Review Sign In
gerrit.omnirom.org / android_external_libncurses / 9b9f5e71c18a5d2317f7871a472b47d3d7efc0c4 / . / doc / html / ada / terminal_interface-curses-panels__adb.htm
blob: 096d7fed682c503ccb8740761c953406d682e605 [file] [log] [blame]
Steve Kondikae271bc2015-11-15 02:50:53 +0100[diff] [blame]1<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]2<html>
3<head>
4<title>terminal_interface-curses-panels.adb</title>
Steve Kondikae271bc2015-11-15 02:50:53 +0100[diff] [blame]5<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6<style type="text/css">
7*.comment {
8 color: green;
9}
10*.symbol {
11 color: red;
12}
13</style>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]14</head>
15<body>
16<hr><div style="text-align:center"><h1> File : terminal_interface-curses-panels.adb </h1></div><hr>
17<pre>
18<span class="comment"><em>------------------------------------------------------------------------------</em></span>
19<span class="comment"><em>-- --</em></span>
20<span class="comment"><em>-- <strong>GNAT</strong> 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>-- B O D Y --</em></span>
25<span class="comment"><em>-- --</em></span>
26<span class="comment"><em>------------------------------------------------------------------------------</em></span>
27<span class="comment"><em>-- Copyright 2020 Thomas E. Dickey --</em></span>
28<span class="comment"><em>-- Copyright 1999-2004,2009 Free Software Foundation, Inc. --</em></span>
29<span class="comment"><em>-- --</em></span>
30<span class="comment"><em>-- Permission is hereby granted, free of charge, to any person obtaining a --</em></span>
31<span class="comment"><em>-- copy of this software and associated documentation files (the --</em></span>
32<span class="comment"><em>-- "Software"), to deal in the Software without restriction, including --</em></span>
33<span class="comment"><em>-- without limitation the rights to use, copy, modify, merge, publish, --</em></span>
34<span class="comment"><em>-- distribute, distribute with modifications, sublicense, and/or sell --</em></span>
35<span class="comment"><em>-- copies of the Software, and to permit persons to whom the Software is --</em></span>
36<span class="comment"><em>-- furnished to do so, subject to the following conditions: --</em></span>
37<span class="comment"><em>-- --</em></span>
38<span class="comment"><em>-- The above copyright notice and this permission notice shall be included --</em></span>
39<span class="comment"><em>-- in all copies or substantial portions of the Software. --</em></span>
40<span class="comment"><em>-- --</em></span>
41<span class="comment"><em>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</em></span>
42<span class="comment"><em>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</em></span>
43<span class="comment"><em>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</em></span>
44<span class="comment"><em>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</em></span>
45<span class="comment"><em>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</em></span>
46<span class="comment"><em>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</em></span>
47<span class="comment"><em>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</em></span>
48<span class="comment"><em>-- --</em></span>
49<span class="comment"><em>-- Except as contained in this notice, the name(s) of the above copyright --</em></span>
50<span class="comment"><em>-- holders shall not be used in advertising or otherwise to promote the --</em></span>
51<span class="comment"><em>-- sale, use or other dealings in this Software without prior written --</em></span>
52<span class="comment"><em>-- authorization. --</em></span>
53<span class="comment"><em>------------------------------------------------------------------------------</em></span>
54<span class="comment"><em>-- Author: Juergen Pfeifer, 1996</em></span>
55<span class="comment"><em>-- Version Control:</em></span>
56<span class="comment"><em>-- @Revision: 1.15 @</em></span>
57<span class="comment"><em>-- @Date: 2020/02/02 23:34:34 @</em></span>
58<span class="comment"><em>-- Binding Version 01.00</em></span>
59<span class="comment"><em>------------------------------------------------------------------------------</em></span>
60<b>with</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>.<a href="terminal_interface-curses-aux__ads.htm#ref_46_35">Aux</a>; <b>use</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>.<a href="terminal_interface-curses-aux__ads.htm#ref_46_35">Aux</a>;
61<b>with</b> <a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]62
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]63<b>package</b> <b>body</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>.<span class="symbol"><a name="ref_46_40" href="terminal_interface-curses-panels__ads.htm#ref_45_35">Panels</a></span> <b>is</b>
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]64
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]65 <b>use</b> <b>type</b> <a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C.int;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]66
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]67 <b>function</b> <span class="symbol"><a name="ref_50_13" href="terminal_interface-curses-panels__ads.htm#ref_67_13">Create</a></span> (<span class="symbol"><a name="ref_50_21" href="terminal_interface-curses-panels__ads.htm#ref_67_21">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>) <b>return</b> <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]68 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]69 <b>function</b> <span class="symbol"><a name="ref_52_16">Newpanel</a></span> (<span class="symbol"><a name="ref_52_26">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>) <b>return</b> <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]70 <b>pragma</b> Import (C, Newpanel, "new_panel");
71
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]72 <span class="symbol"><a name="ref_55_7">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]73 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]74 <a href="terminal_interface-curses-panels__adb.htm#ref_55_7">Pan</a> := <a href="terminal_interface-curses-panels__adb.htm#ref_52_16">Newpanel</a> (<a href="terminal_interface-curses-panels__ads.htm#ref_67_21">Win</a>);
75 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_55_7">Pan</a> = <a href="terminal_interface-curses-panels__ads.htm#ref_54_4">Null_Panel</a> <b>then</b>
76 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]77 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]78 <b>return</b> <a href="terminal_interface-curses-panels__adb.htm#ref_55_7">Pan</a>;
79 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_67_13">Create</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]80
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]81 <b>procedure</b> <span class="symbol"><a name="ref_64_14" href="terminal_interface-curses-panels__ads.htm#ref_77_14">Bottom</a></span> (<span class="symbol"><a name="ref_64_22" href="terminal_interface-curses-panels__ads.htm#ref_77_22">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]82 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]83 <b>function</b> <span class="symbol"><a name="ref_66_16">Bottompanel</a></span> (<span class="symbol"><a name="ref_66_29">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]84 <b>pragma</b> Import (C, Bottompanel, "bottom_panel");
85 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]86 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_66_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_64_4">Curses_Err</a> <b>then</b>
87 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]88 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]89 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_77_14">Bottom</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]90
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]91 <b>procedure</b> <span class="symbol"><a name="ref_74_14" href="terminal_interface-curses-panels__ads.htm#ref_82_14">Top</a></span> (<span class="symbol"><a name="ref_74_19" href="terminal_interface-curses-panels__ads.htm#ref_82_19">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]92 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]93 <b>function</b> <span class="symbol"><a name="ref_76_16">Toppanel</a></span> (<span class="symbol"><a name="ref_76_26">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]94 <b>pragma</b> Import (C, Toppanel, "top_panel");
95 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]96 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_76_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_64_4">Curses_Err</a> <b>then</b>
97 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]98 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]99 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_82_14">Top</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]100
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]101 <b>procedure</b> <span class="symbol"><a name="ref_84_14" href="terminal_interface-curses-panels__ads.htm#ref_87_14">Show</a></span> (<span class="symbol"><a name="ref_84_20" href="terminal_interface-curses-panels__ads.htm#ref_87_20">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]102 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]103 <b>function</b> <span class="symbol"><a name="ref_86_16">Showpanel</a></span> (<span class="symbol"><a name="ref_86_27">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]104 <b>pragma</b> Import (C, Showpanel, "show_panel");
105 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]106 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_86_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_64_4">Curses_Err</a> <b>then</b>
107 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]108 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]109 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_87_14">Show</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]110
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]111 <b>procedure</b> <span class="symbol"><a name="ref_94_14" href="terminal_interface-curses-panels__ads.htm#ref_97_14">Hide</a></span> (<span class="symbol"><a name="ref_94_20" href="terminal_interface-curses-panels__ads.htm#ref_97_20">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]112 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]113 <b>function</b> <span class="symbol"><a name="ref_96_16">Hidepanel</a></span> (<span class="symbol"><a name="ref_96_27">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]114 <b>pragma</b> Import (C, Hidepanel, "hide_panel");
115 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]116 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_96_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_64_4">Curses_Err</a> <b>then</b>
117 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]118 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]119 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_97_14">Hide</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]120
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]121 <b>function</b> <span class="symbol"><a name="ref_104_13" href="terminal_interface-curses-panels__ads.htm#ref_102_13">Get_Window</a></span> (<span class="symbol"><a name="ref_104_25" href="terminal_interface-curses-panels__ads.htm#ref_102_25">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]122 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]123 <b>function</b> <span class="symbol"><a name="ref_106_16">Panel_Win</a></span> (<span class="symbol"><a name="ref_106_27">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]124 <b>pragma</b> Import (C, Panel_Win, "panel_window");
125
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]126 <span class="symbol"><a name="ref_109_7">Win</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses-panels__adb.htm#ref_106_16">Panel_Win</a> (<a href="terminal_interface-curses-panels__ads.htm#ref_102_25">Pan</a>);
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]127 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]128 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_109_7">Win</a> = <a href="terminal_interface-curses__ads.htm#ref_57_4">Null_Window</a> <b>then</b>
129 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]130 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]131 <b>return</b> <a href="terminal_interface-curses-panels__adb.htm#ref_109_7">Win</a>;
132 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_102_13">Get_Window</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]133
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]134 <b>procedure</b> <span class="symbol"><a name="ref_117_14" href="terminal_interface-curses-panels__ads.htm#ref_111_14">Replace</a></span> (<span class="symbol"><a name="ref_117_23" href="terminal_interface-curses-panels__ads.htm#ref_111_23">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
135 <span class="symbol"><a name="ref_118_23" href="terminal_interface-curses-panels__ads.htm#ref_112_23">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]136 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]137 <b>function</b> <span class="symbol"><a name="ref_120_16">Replace_Pan</a></span> (<span class="symbol"><a name="ref_120_29">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
138 <span class="symbol"><a name="ref_121_29">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>) <b>return</b> <a href="terminal_interface-curses-aux__ads.htm#ref_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]139 <b>pragma</b> Import (C, Replace_Pan, "replace_panel");
140 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]141 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_120_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_64_4">Curses_Err</a> <b>then</b>
142 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]143 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]144 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_111_14">Replace</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]145
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]146 <b>procedure</b> <span class="symbol"><a name="ref_129_14" href="terminal_interface-curses-panels__ads.htm#ref_117_14">Move</a></span> (<span class="symbol"><a name="ref_129_20" href="terminal_interface-curses-panels__ads.htm#ref_117_20">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
147 <span class="symbol"><a name="ref_130_20" href="terminal_interface-curses-panels__ads.htm#ref_118_20">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>;
148 <span class="symbol"><a name="ref_131_20" href="terminal_interface-curses-panels__ads.htm#ref_119_20">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]149 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]150 <b>function</b> <span class="symbol"><a name="ref_133_16">Move</a></span> (<span class="symbol"><a name="ref_133_22">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>;
151 <span class="symbol"><a name="ref_134_22">Line</a></span> : <a href="terminal_interface-curses-aux__ads.htm#ref_49_12">C_Int</a>;
152 <span class="symbol"><a name="ref_135_22">Column</a></span> : <a href="terminal_interface-curses-aux__ads.htm#ref_49_12">C_Int</a>) <b>return</b> <a href="terminal_interface-curses-aux__ads.htm#ref_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]153 <b>pragma</b> Import (C, Move, "move_panel");
154 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]155 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_133_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_49_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_49_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_64_4">Curses_Err</a> <b>then</b>
156 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]157 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]158 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_117_14">Move</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]159
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]160 <b>function</b> <span class="symbol"><a name="ref_143_13" href="terminal_interface-curses-panels__ads.htm#ref_124_13">Is_Hidden</a></span> (<span class="symbol"><a name="ref_143_24" href="terminal_interface-curses-panels__ads.htm#ref_124_24">Pan</a></span> : <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>) <b>return</b> Boolean
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]161 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]162 <b>function</b> <span class="symbol"><a name="ref_145_16">Panel_Hidden</a></span> (<span class="symbol"><a name="ref_145_30">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]163 <b>pragma</b> Import (C, Panel_Hidden, "panel_hidden");
164 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]165 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_145_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_67_4">Curses_False</a> <b>then</b>
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]166 <b>return</b> False;
167 <b>else</b>
168 <b>return</b> True;
169 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]170 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_124_13">Is_Hidden</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]171
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]172 <b>procedure</b> <span class="symbol"><a name="ref_155_14" href="terminal_interface-curses-panels__ads.htm#ref_139_14">Delete</a></span> (<span class="symbol"><a name="ref_155_22" href="terminal_interface-curses-panels__ads.htm#ref_139_22">Pan</a></span> : <b>in</b> <b>out</b> <a href="terminal_interface-curses-panels__ads.htm#ref_49_9">Panel</a>)
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]173 <b>is</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]174 <b>function</b> <span class="symbol"><a name="ref_157_16">Del_Panel</a></span> (<span class="symbol"><a name="ref_157_27">Pan</a></span> : <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_49_12">C_Int</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]175 <b>pragma</b> Import (C, Del_Panel, "del_panel");
176 <b>begin</b>
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]177 <b>if</b> <a href="terminal_interface-curses-panels__adb.htm#ref_157_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_64_4">Curses_Err</a> <b>then</b>
178 <b>raise</b> <a href="terminal_interface-curses-panels__ads.htm#ref_60_4">Panel_Exception</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]179 <b>end</b> <b>if</b>;
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]180 <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>;
181 <b>end</b> <a href="terminal_interface-curses-panels__ads.htm#ref_139_14">Delete</a>;
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]182
micky3879b9f5e72025-07-08 18:04:53 -0400[diff] [blame^]183<b>end</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>.<a href="terminal_interface-curses-panels__ads.htm#ref_45_35">Panels</a>;
184</pre></body></html>