150276Speter/****************************************************************************
2262629Sdelphij * Copyright (c) 1998-2009,2010 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/****************************************************************************
30262629Sdelphij *   Author:  Juergen Pfeifer, 1995-1997,2009                               *
3150276Speter ****************************************************************************/
3250276Speter
3350276Speter#include "form.priv.h"
3450276Speter
35262629SdelphijMODULE_ID("$Id: frm_sub.c,v 1.12 2010/01/23 21:14:36 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{
49262629Sdelphij  T((T_CALLED("set_form_sub(%p,%p)"), (void *)form, (void *)win));
50166124Srafan
51166124Srafan  if (form && (form->status & _POSTED))
5250276Speter    RETURN(E_POSTED);
53262629Sdelphij  else
54262629Sdelphij    {
55262629Sdelphij#if NCURSES_SP_FUNCS
56262629Sdelphij      FORM *f = Normalize_Form(form);
5750276Speter
58262629Sdelphij      f->sub = win ? win : StdScreen(Get_Form_Screen(f));
59262629Sdelphij      RETURN(E_OK);
60262629Sdelphij#else
61262629Sdelphij      Normalize_Form(form)->sub = win;
62262629Sdelphij      RETURN(E_OK);
63262629Sdelphij#endif
64262629Sdelphij    }
65166124Srafan}
6650276Speter
6750276Speter/*---------------------------------------------------------------------------
6850276Speter|   Facility      :  libnform
6950276Speter|   Function      :  WINDOW *form_sub(const FORM *)
7050276Speter|
7150276Speter|   Description   :  Retrieve the window of the form.
7250276Speter|
7350276Speter|   Return Values :  The pointer to the Subwindow.
7450276Speter+--------------------------------------------------------------------------*/
7576726SpeterNCURSES_EXPORT(WINDOW *)
76166124Srafanform_sub(const FORM *form)
7750276Speter{
78166124Srafan  const FORM *f;
79166124Srafan
80262629Sdelphij  T((T_CALLED("form_sub(%p)"), (const void *)form));
81166124Srafan
82166124Srafan  f = Normalize_Form(form);
83166124Srafan  returnWin(Get_Form_Window(f));
8450276Speter}
8550276Speter
8650276Speter/* frm_sub.c ends here */
87