! 
! Motif
!
! Copyright (c) 1987-2012, The Open Group. All rights reserved.
!
! These libraries and programs are free software; you can
! redistribute them and/or modify them under the terms of the GNU
! Lesser General Public License as published by the Free Software
! Foundation; either version 2 of the License, or (at your option)
! any later version.
!
! These libraries and programs are distributed in the hope that
! they will be useful, but WITHOUT ANY WARRANTY; without even the
! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
! PURPOSE. See the GNU Lesser General Public License for more
! details.
!
! You should have received a copy of the GNU Lesser General Public
! License along with these librararies and programs; if not, write
! to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
! Floor, Boston, MA 02110-1301 USA
! 
! 
! HISTORY
! 
!   $XConsortium: main.uil /main/8 1995/07/14 10:53:57 drk $
!******************************************************************************

!
! Callback routines
!

procedure
	continue_proc();
	exit_proc();
	help_proc();

value
	nyi_default_label :	"This utility is not yet implemented";

!
! The main MessageBox widget.
!

object
	S_MAIN_WIDGET : XmMessageBox
	{
		arguments
		{ 
			XmNx			= 0;
			XmNy			= 0;
			XmNautoUnmanage		= false;
			XmNcancelLabelString	= "exit";
			XmNokLabelString	= "continue";
		};
		callbacks
		{
			XmNcancelCallback	= procedure exit_proc;
			XmNhelpCallback		= procedure help_proc;
			XmNokCallback		= procedure continue_proc;
		};
	};

!
! A popup dialog box called by any routine not yet implemented
!

object
        nyi : XmInformationDialog
	{
		arguments
		{
			XmNmessageString = nyi_default_label;
			XmNdefaultPosition = true;
			XmNautoUnmanage = true;
		};
        };