Ada95/html/terminal_interface-curses-panels_s.html

   1 <HTML>
   2 <HEAD>
   3 <TITLE></TITLE>
   4 </HEAD>
   5 <BODY BGCOLOR="#99ccbb" TEXT="#000000" LINK="#4060b0" VLINK="#000080" ALINK="#ff4040">
   6 <PRE>
   7
   8 <I>------------------------------------------------------------------------------</I>
   9 <I>--                                                                          --</I>
  10 <I>--                           <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding                           --</I>
  11 <I>--                                                                          --</I>
  12 <I>--                      Terminal_Interface.Curses.Panels                    --</I>
  13 <I>--                                                                          --</I>
  14 <I>--                                 S P E C                                  --</I>
  15 <I>--                                                                          --</I>
  16 <I>--  Version 00.92                                                           --</I>
  17 <I>--                                                                          --</I>
  18 <I>--  The ncurses Ada95 binding is copyrighted 1996 by                        --</I>
  19 <I>--  <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">J&uuml;rgen Pfeifer</A>, Email: <A HREF="mailto:Juergen.Pfeifer@T-Online.de">Juergen.Pfeifer@T-Online.de</A>                      --</I>
  20 <I>--                                                                          --</I>
  21 <I>--  Permission is hereby granted to reproduce and distribute this           --</I>
  22 <I>--  binding by any means and for any fee, whether alone or as part          --</I>
  23 <I>--  of a larger distribution, in source or in binary form, PROVIDED         --</I>
  24 <I>--  this notice is included with any such distribution, and is not          --</I>
  25 <I>--  removed from any of its header files. Mention of ncurses and the        --</I>
  26 <I>--  author of this binding in any applications linked with it is            --</I>
  27 <I>--  highly appreciated.                                                     --</I>
  28 <I>--                                                                          --</I>
  29 <I>--  This binding comes AS IS with no warranty, implied or expressed.        --</I>
  30 <I>------------------------------------------------------------------------------</I>
  31 <I>--  Version Control:</I>
  32 <I>--  @Revision: 1.2 @</I>
  33 <I>------------------------------------------------------------------------------</I>
  34 <B>with</B> System;
  35
  36 <B>package</B> Terminal_Interface.Curses.Panels <B>is</B>
  37
  38    <B>pragma</B> Linker_Options ("-lpanel");
  39
  40
  41    type Panel <B>is</B> <B>private</B>;
  42
  43    <I>---------------------------</I>
  44    <I>--  Interface constants  --</I>
  45    <I>---------------------------</I>
  46    Null_Panel : <B>constant</B> Panel;
  47
  48    <I>-------------------</I>
  49    <I>--  Exceptions   --</I>
  50    <I>-------------------</I>
  51
  52    Panel_Exception : <B>exception</B>;
  53
  54    <I>--  |=====================================================================</I>
  55    <I>--  | Man page <A HREF="panel.3x.html">panel.3x</A></I>
  56    <I>--  |=====================================================================</I>
  57
  58    <I>--  <A NAME="AFU_1">|</I>
  59    <B>function</B> Create (Win : Window) <B>return</B> Panel;
  60    <I>--  AKA: <A HREF="panel.3x.html">new_panel()</A></I>
  61
  62    <I>--  <A NAME="AFU_2">|</I>
  63    <B>function</B> New_Panel (Win : Window) <B>return</B> Panel <B>renames</B> Create;
  64    <I>--  AKA: <A HREF="panel.3x.html">new_panel()</A></I>
  65
  66    <I>--  <A NAME="AFU_3">|</I>
  67    <B>procedure</B> Bottom (Pan : <B>in</B> Panel);
  68    <I>--  AKA: <A HREF="panel.3x.html">bottom_panel()</A></I>
  69
  70    <I>--  <A NAME="AFU_4">|</I>
  71    <B>procedure</B> Top (Pan : <B>in</B> Panel);
  72    <I>--  AKA: <A HREF="panel.3x.html">top_panel()</A></I>
  73
  74    <I>--  <A NAME="AFU_5">|</I>
  75    <B>procedure</B> Show (Pan : <B>in</B> Panel);
  76    <I>--  AKA: <A HREF="panel.3x.html">show_panel()</A></I>
  77
  78    <I>--  <A NAME="AFU_6">|</I>
  79    <B>procedure</B> Update_Panels;
  80    <I>--  AKA: <A HREF="panel.3x.html">update_panels()</A></I>
  81    <B>pragma</B> Import (C, Update_Panels, "update_panels");
  82
  83    <I>--  <A NAME="AFU_7">|</I>
  84    <B>procedure</B> Hide (Pan : <B>in</B> Panel);
  85    <I>--  AKA: <A HREF="panel.3x.html">hide_panel()</A></I>
  86
  87    <I>--  <A NAME="AFU_8">|</I>
  88    <B>function</B> Get_Window (Pan : Panel) <B>return</B> Window;
  89    <I>--  AKA: <A HREF="panel.3x.html">panel_window()</A></I>
  90
  91    <I>--  <A NAME="AFU_9">|</I>
  92    <B>function</B> Panel_Window (Pan : Panel) <B>return</B> Window <B>renames</B> Get_Window;
  93
  94    <I>--  <A NAME="AFU_10">|</I>
  95    <B>procedure</B> Replace (Pan : <B>in</B> Panel;
  96                       Win : <B>in</B> Window);
  97    <I>--  AKA: <A HREF="panel.3x.html">replace_panel()</A></I>
  98
  99    <I>--  <A NAME="AFU_11">|</I>
 100    <B>procedure</B> Move (Pan    : <B>in</B> Panel;
 101                    Line   : <B>in</B> Line_Position;
 102                    Column : <B>in</B> Column_Position);
 103    <I>--  AKA: <A HREF="panel.3x.html">move_panel()</A></I>
 104
 105    <I>--  <A NAME="AFU_12">|</I>
 106    <B>function</B> Is_Hidden (Pan : Panel) <B>return</B> Boolean;
 107    <I>--  AKA: <A HREF="panel.3x.html">panel_hidden()</A></I>
 108
 109    <I>--  <A NAME="AFU_13">|</I>
 110    <B>function</B> Above (Pan : Panel) <B>return</B> Panel;
 111    <I>--  AKA: <A HREF="panel.3x.html">panel_above()</A></I>
 112    <B>pragma</B> Import (C, Above, "panel_above");
 113
 114    <I>--  <A NAME="AFU_14">|</I>
 115    <B>function</B> Below (Pan : Panel) <B>return</B> Panel;
 116    <I>--  AKA: <A HREF="panel.3x.html">panel_below()</A></I>
 117    <B>pragma</B> Import (C, Below, "panel_below");
 118
 119    <I>--  <A NAME="AFU_15">|</I>
 120    <B>procedure</B> Delete (Pan : <B>in</B> <B>out</B> Panel);
 121    <I>--  AKA: <A HREF="panel.3x.html">del_panel()</A></I>
 122
 123    <B>private</B>
 124       type Panel <B>is</B> <B>new</B> System.Address;
 125       Null_Panel : <B>constant</B> Panel := Panel (System.Null_Address);
 126
 127 <B>end</B> Terminal_Interface.Curses.Panels;
 128
 129 </PRE>
 130
 131 <P><HR><P>
 132 <P>
 133 This is BETA software. The interface is subject to change without notice.<P>
 134 <!-- Do NOT delete my name or the tool name from below; -->
 135 <!-- giving me credit is a condition of use of ada2html -->
 136 <P><I>This hypertext format was generated by <A HREF="http://www.adahome.com/Tutorials/Lovelace/dwheeler.htm">David A. Wheeler</A>'s <A HREF="http://www.adahome.com/Resources/Tools/ada2html/ada2html.htm">ada2html</A></I>
 137 </BODY>
 138 </HTML>
 139