30 lines
552 B
C
Executable File
30 lines
552 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_init.c 1.2 92/07/14 SMI" /* SVr4.0 1.1 */
|
|
|
|
#include "utility.h"
|
|
|
|
/******************
|
|
* set_form_init *
|
|
******************/
|
|
|
|
int set_form_init (f, func)
|
|
FORM * f;
|
|
PTF_void func;
|
|
{
|
|
Form (f) -> forminit = func;
|
|
return E_OK;
|
|
}
|
|
|
|
PTF_void form_init (f)
|
|
FORM * f;
|
|
{
|
|
return Form (f) -> forminit;
|
|
}
|
|
|