! SCCS_data:    @(#) Form 1.2 92/12/04 13:35:40
!
! Demostrate the use of forms.
!
Mri.wcPopups:		dialog_popup
Mri.wcChildren: 	form

! Popup dialog, initially unseen
!
*dialog_popup.wcCreate:		XmDialogShell
*dialog_popup.wcChildren:	dialog
*dialog.wcCreate:		XmForm
*dialog.wcManaged:		False

*form.wcCreate:			XmForm

! form in appShell (Mri) and form in dialog are identical
!
*XmForm.wcAfterChildren:	WcSetValue(\
	(*nw.bottomAttachment:	Attach_Widget)\
	(*nw.bottomWidget:	^.sw)\
	(*nw.rightAttachment:	Attach_Widget)\
	(*nw.rightWidget:	^.ne)\
	(*ne.bottomAttachment:	Attach_Widget)\
	(*ne.bottomWidget:	^.se)\
	(*sw.rightAttachment:	Attach_Widget)\
	(*sw.rightWidget:	^.se)\
	)

*XmForm.wcChildren:	nw,ne,sw,se

*XmForm*WcCreate:	XmPushButton

*nw.topAttachment:	ATTACH_FORM
*nw.leftAttachment:	attach_Form

*ne.topAttachment:	Attach_Form
*ne.rightAttachment:	Attach_Form

*sw.leftAttachment:	Attach_Form
*sw.bottomAttachment:	Attach_Form

*se.bottomAttachment:	Attach_Form
*se.rightAttachment:	Attach_Form

! push any button in main form to popup,
! any button in dialog to pop down.
!
*form*activateCallback:		WcManage(*dialog)
*dialog*activateCallback:	WcUnmanage(*dialog)
