2 define(`HTMLNAME',`terminal_interface-curses-panels_s.html')dnl
4 ------------------------------------------------------------------------------
6 -- GNAT ncurses Binding --
8 -- Terminal_Interface.Curses.Panels --
14 -- The ncurses Ada95 binding is copyrighted 1996 by --
15 -- Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de --
17 -- Permission is hereby granted to reproduce and distribute this --
18 -- binding by any means and for any fee, whether alone or as part --
19 -- of a larger distribution, in source or in binary form, PROVIDED --
20 -- this notice is included with any such distribution, and is not --
21 -- removed from any of its header files. Mention of ncurses and the --
22 -- author of this binding in any applications linked with it is --
23 -- highly appreciated. --
25 -- This binding comes AS IS with no warranty, implied or expressed. --
26 ------------------------------------------------------------------------------
29 ------------------------------------------------------------------------------
32 package Terminal_Interface.Curses.Panels is
34 include(`Panel_Linker_Options')
36 type Panel is private;
38 ---------------------------
39 -- Interface constants --
40 ---------------------------
41 Null_Panel : constant Panel;
47 Panel_Exception : exception;
49 -- MANPAGE(`panel.3x')
51 -- ANCHOR(`new_panel()',`Create')
52 function Create (Win : Window) return Panel;
55 -- ANCHOR(`new_panel()',`New_Panel')
56 function New_Panel (Win : Window) return Panel renames Create;
59 -- ANCHOR(`bottom_panel()',`Bottom')
60 procedure Bottom (Pan : in Panel);
63 -- ANCHOR(`top_panel()',`Top')
64 procedure Top (Pan : in Panel);
67 -- ANCHOR(`show_panel()',`Show')
68 procedure Show (Pan : in Panel);
71 -- ANCHOR(`update_panels()',`Update_Panels')
72 procedure Update_Panels;
74 pragma Import (C, Update_Panels, "update_panels");
76 -- ANCHOR(`hide_panel()',`Hide')
77 procedure Hide (Pan : in Panel);
80 -- ANCHOR(`panel_window()',`Get_Window')
81 function Get_Window (Pan : Panel) return Window;
84 -- ANCHOR(`panel_window()',`Panel_Window')
85 function Panel_Window (Pan : Panel) return Window renames Get_Window;
87 -- ANCHOR(`replace_panel()',`Replace')
88 procedure Replace (Pan : in Panel;
92 -- ANCHOR(`move_panel()',`Move')
93 procedure Move (Pan : in Panel;
94 Line : in Line_Position;
95 Column : in Column_Position);
98 -- ANCHOR(`panel_hidden()',`Is_Hidden')
99 function Is_Hidden (Pan : Panel) return Boolean;
102 -- ANCHOR(`panel_above()',`Above')
103 function Above (Pan : Panel) return Panel;
105 pragma Import (C, Above, "panel_above");
107 -- ANCHOR(`panel_below()',`Below')
108 function Below (Pan : Panel) return Panel;
110 pragma Import (C, Below, "panel_below");
112 -- ANCHOR(`del_panel()',`Delete')
113 procedure Delete (Pan : in out Panel);
117 type Panel is new System.Address;
118 Null_Panel : constant Panel := Panel (System.Null_Address);
120 end Terminal_Interface.Curses.Panels;