33 lines
587 B
C
Executable File
33 lines
587 B
C
Executable File
/* Copyright (c) 1988 AT&T */
|
|
/* All Rights Reserved */
|
|
|
|
/* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T */
|
|
/* The copyright notice above does not evidence any */
|
|
/* actual or intended publication of such source code. */
|
|
|
|
#ident "@(#)form_sub.c 1.2 92/07/14 SMI" /* SVr4.0 1.1 */
|
|
|
|
#include "utility.h"
|
|
|
|
/*****************
|
|
* set_form_sub *
|
|
*****************/
|
|
|
|
int set_form_sub (f, window)
|
|
FORM * f;
|
|
WINDOW * window;
|
|
{
|
|
if (Status (f, POSTED))
|
|
return E_POSTED;
|
|
|
|
Form (f) -> sub = window;
|
|
return E_OK;
|
|
}
|
|
|
|
WINDOW * form_sub (f)
|
|
FORM * f;
|
|
{
|
|
return Form (f) -> sub;
|
|
}
|
|
|