Conference noted::motif

#include <stdio.h>
#include <stdlib.h>
#include <unixlib.h>

#include <Mrm/MrmAppl.h>
#include <Mrm/MrmPublic.h>
#include <X11/StringDefs.h>
#include <X11/Xlib.h>
#include <X11/Xutil.h>
#include <Xm/Xm.h>
#include <Xm/Text.h>
#include <locale.h>
                   
static Widget	eWidget[10] ;

void create_proc(Widget w ,int *tag ){ eWidget[*tag] = w ; }   

void manageCB(Widget w , int *tag) 
{
  XtManageChild(eWidget[*tag]) ;
}

void unmanageCB(Widget w , int *tag) 
{
  XtUnmanageChild(eWidget[*tag]) ;
}

void exitCB(void) { exit(1) ; }

static MRMRegisterArg reglist[] = {
	{"create_proc"	,(XtPointer)create_proc},
	{"manageCB"	,(XtPointer)manageCB} ,
	{"exitCB"	,(XtPointer)exitCB} ,
	{"unmanageCB"	,(XtPointer)unmanageCB}
};                                               
                                       
static int 	reglist_num 	= sizeof(reglist) / sizeof(MRMRegisterArg) ;
static char 	*filename_list[]= {"test2.uid" };
static int  	fnum 		= sizeof(filename_list)/sizeof(char *) ;

int main ( int argc, char **argv)          
{
  XtAppContext	app_context;
  MrmHierarchy 	hierarchy;                                     
  MrmCode 	class;
  Widget 	toplevel ;
  Widget 	fm;

  MrmInitialize();
  XtSetLanguageProc(NULL,NULL,NULL) ;
  toplevel =XtAppInitialize(&app_context,"jbxdtp",NULL,0,&argc,argv,NULL,NULL,0) ;
  if ( MrmOpenHierarchy ( fnum,filename_list,NULL, &hierarchy ) != MrmSUCCESS ){
	printf("%s: can't open mrm hierarchy, exiting...\n", argv[0]);
	exit (-1);
  }                                                      
  if ( MrmRegisterNames ( reglist, reglist_num ) != MrmSUCCESS ) {
	printf("%s: can't register mrm names, exiting...\n", argv[0]);
	exit (-1);                           
  }                              
  MrmFetchWidget ( hierarchy, "fm_main", toplevel, &fm, &class );

  XtManageChild(fm) ;  
  XtRealizeWidget (toplevel);                
  XtAppMainLoop (app_context);               
}                                        

module XApplication

    version 		= 'v1.0'
    names 		= case_sensitive

procedure 
	create_proc (integer);
	manageCB(integer) ;
	unmanageCB(integer) ;
	exitCB;


include file "XmAppl.uil";

object fm_main : XmForm {
	controls{
		XmPushButton		pb_manage;
		XmPushButton		pb_unmanage;      
                XmForm			fm_test ;
		XmPushButton		pb_exit ;
	};
	arguments {
		XmNautoUnmanage 	= false;
		XmNnoResize		= true ;
		XmNresizePolicy		= XmRESIZE_ANY ;
 	};
	callbacks {
        	MrmNcreateCallback	= procedure create_proc(0) ;
	} ;                                                
};


object pb_manage : XmPushButton {
	arguments {
 		XmNtopAttachment   	= XmATTACH_FORM;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_FORM;
		XmNleftOffset 	   	= 10 ;
	};
	callbacks {
		XmNactivateCallback	= procedure  manageCB(2);
	} ;
};


object pb_unmanage : XmPushButton {
	arguments {
 		XmNtopAttachment   	= XmATTACH_FORM;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_WIDGET;
		XmNleftWidget 	   	= XmPushButton	pb_manage ;
		XmNleftOffset 	   	= 10 ;
		XmNrightAttachment 	= XmATTACH_FORM;         
		XmNrightOffset 	   	= 10 ;
	};
	callbacks {
		XmNactivateCallback	= procedure  unmanageCB(2);
	} ;
};

object fm_test : XmForm {
	controls{
		XmLabel		lb_test1 ;
		XmLabel		lb_test2 ;
	};
	arguments {
 		XmNtopAttachment   	= XmATTACH_WIDGET ;
		XmNtopWidget 	   	= XmPushButton	pb_manage ;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_FORM;
		XmNleftOffset 	   	= 10 ;
		XmNrightAttachment 	= XmATTACH_FORM;
		XmNrightOffset 	   	= 10 ;
		XmNshadowThickness	= 2 ;
		XmNshadowType		= XmSHADOW_IN ;
	};
	callbacks {
        	MrmNcreateCallback	= procedure create_proc(1) ;
	} ;
};


object lb_test1 : XmLabel {
	arguments {
		XmNlabelString		= " TEST - 01 " ;
 		XmNtopAttachment   	= XmATTACH_FORM;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_FORM;
		XmNleftOffset 	   	= 10 ;
		XmNrightAttachment 	= XmATTACH_FORM;
	};
	callbacks {
	} ;
};

object lb_test2 : XmLabel {
	arguments {
		XmNlabelString		= " TEST - 02 " ;
 		XmNtopAttachment   	= XmATTACH_WIDGET ;
		XmNtopWidget 	   	= XmLabel lb_test1 ;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_FORM;
		XmNleftOffset 	   	= 10 ;
		XmNrightAttachment 	= XmATTACH_FORM;
		XmNrightOffset 	   	= 10 ;
		XmNbottomAttachment	= XmATTACH_FORM;
		XmNbottomOffset    	= 10 ;
	};
	callbacks {
        	MrmNcreateCallback	= procedure create_proc(2) ;
	} ;
};

object pb_exit : XmPushButton {
	arguments {
		XmNlabelString		= " exit  " ;
 		XmNtopAttachment   	= XmATTACH_WIDGET ;
		XmNtopWidget 	   	= XmForm	fm_test ;
		XmNtopOffset 	   	= 10;
		XmNleftAttachment  	= XmATTACH_FORM;
		XmNleftOffset 	   	= 10 ;
		XmNrightAttachment 	= XmATTACH_FORM;
		XmNrightOffset 	   	= 10 ;
		XmNbottomAttachment	= XmATTACH_FORM;
		XmNbottomOffset    	= 10 ;
	};
	callbacks {
		XmNactivateCallback	= procedure  exitCB;
	} ;
};

end module;