150276Speter/****************************************************************************
2166124Srafan * Copyright (c) 1998-2003,2004 Free Software Foundation, Inc.              *
350276Speter *                                                                          *
450276Speter * Permission is hereby granted, free of charge, to any person obtaining a  *
550276Speter * copy of this software and associated documentation files (the            *
650276Speter * "Software"), to deal in the Software without restriction, including      *
750276Speter * without limitation the rights to use, copy, modify, merge, publish,      *
850276Speter * distribute, distribute with modifications, sublicense, and/or sell       *
950276Speter * copies of the Software, and to permit persons to whom the Software is    *
1050276Speter * furnished to do so, subject to the following conditions:                 *
1150276Speter *                                                                          *
1250276Speter * The above copyright notice and this permission notice shall be included  *
1350276Speter * in all copies or substantial portions of the Software.                   *
1450276Speter *                                                                          *
1550276Speter * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
1650276Speter * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
1750276Speter * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
1850276Speter * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
1950276Speter * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
2050276Speter * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
2150276Speter * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
2250276Speter *                                                                          *
2350276Speter * Except as contained in this notice, the name(s) of the above copyright   *
2450276Speter * holders shall not be used in advertising or otherwise to promote the     *
2550276Speter * sale, use or other dealings in this Software without prior written       *
2650276Speter * authorization.                                                           *
2750276Speter ****************************************************************************/
2850276Speter
2950276Speter/****************************************************************************
30166124Srafan *   Author:  Juergen Pfeifer, 1995,1997                                    *
3150276Speter ****************************************************************************/
3250276Speter
3350276Speter#include "form.priv.h"
3450276Speter
35166124SrafanMODULE_ID("$Id: frm_sub.c,v 1.9 2004/12/11 22:13:39 tom Exp $")
3650276Speter
3750276Speter/*---------------------------------------------------------------------------
3850276Speter|   Facility      :  libnform
3950276Speter|   Function      :  int set_form_sub(FORM *form, WINDOW *win)
4050276Speter|
4150276Speter|   Description   :  Set the subwindow of the form to win.
4250276Speter|
4350276Speter|   Return Values :  E_OK       - success
4450276Speter|                    E_POSTED   - form is posted
4550276Speter+--------------------------------------------------------------------------*/
4676726SpeterNCURSES_EXPORT(int)
47166124Srafanset_form_sub(FORM *form, WINDOW *win)
4850276Speter{
49166124Srafan  T((T_CALLED("set_form_sub(%p,%p)"), form, win));
50166124Srafan
51166124Srafan  if (form && (form->status & _POSTED))
5250276Speter    RETURN(E_POSTED);
5350276Speter
54166124Srafan  Normalize_Form(form)->sub = win;
5550276Speter  RETURN(E_OK);
56166124Srafan}
5750276Speter
5850276Speter/*---------------------------------------------------------------------------
5950276Speter|   Facility      :  libnform
6050276Speter|   Function      :  WINDOW *form_sub(const FORM *)
6150276Speter|
6250276Speter|   Description   :  Retrieve the window of the form.
6350276Speter|
6450276Speter|   Return Values :  The pointer to the Subwindow.
6550276Speter+--------------------------------------------------------------------------*/
6676726SpeterNCURSES_EXPORT(WINDOW *)
67166124Srafanform_sub(const FORM *form)
6850276Speter{
69166124Srafan  const FORM *f;
70166124Srafan
71166124Srafan  T((T_CALLED("form_sub(%p)"), form));
72166124Srafan
73166124Srafan  f = Normalize_Form(form);
74166124Srafan  returnWin(Get_Form_Window(f));
7550276Speter}
7650276Speter
7750276Speter/* frm_sub.c ends here */
78