!

! 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: pulldown2.uil /main/4 1995/07/13 20:51:05 drk $

!******************************************************************************

! 

!  Developed by RAS Group, Inc. for HaL Computers 

! 

! Motif Release 1.2

! 

!****************************************************************************

module Test

        version = 'v1.0'

        names = case_sensitive

  include file "pulldown2.msg";

  procedure

          exit_test();

	  Report_Callback(string);

  value

	  wheat			     : color('wheat');

	  navy			     : color('navy');

	  forest_green		     : color('forestgreen');

	  black			     : color('black');

  object                                  ! The main window widget.

          S_MAIN_WIDGET : XmBulletinBoard {

              arguments {

                  XmNx = 0;

                  XmNy = 0;

              };

    	      controls {

                  XmBulletinBoardDialog 	explanation;

		  XmMenuBar 			menu_bar;

  	      };

  	  };

  object

	menu_bar :	XmMenuBar {

	     controls {

                  XmCascadeButton Cascade_Button;

		  XmPulldownMenu  pdm1;

	     };

	};

  object

	pdm1 :	XmPulldownMenu {

		arguments {

			XmNmarginWidth = 10;

			XmNmarginHeight = 10;

			XmNspacing = 5;

			XmNentryAlignment = XmALIGNMENT_CENTER;

			XmNforeground = black;

			XmNbackground = forest_green;

			XmNshadowThickness = 15;

			};

		controls {

			XmPushButton p_btn1;

			XmToggleButton tb_1;

			XmSeparator gadget {};

			XmPushButton p_btn2;

		};

		callbacks {

			XmNmapCallback =  procedure Report_Callback 

					('mapCallback');

			XmNunmapCallback =  procedure Report_Callback 

					('unmapCallback');

		};

	};

  object

        Cascade_Button :  XmCascadeButton {

            arguments {

                XmNlabelString =  compound_string ("Pulldown Menu");

		XmNsubMenuId   =  pdm1;

            };

        };

  object

 	p_btn1 : XmPushButton {

 		arguments {	

 			XmNlabelString = compound_string

 					("Push_Button1");

 		};

 		callbacks {

 			XmNarmCallback = procedure Report_Callback

 					('armCallback - Push_Button1');

 		};

 	};

  object

  	p_btn2 : XmPushButton {

  		arguments {	

  			XmNlabelString = compound_string

  					("Push_Button2");

  		};

  		callbacks {

  			XmNarmCallback = procedure Report_Callback

  					('armCallback - PushButton2');

  		};

  	};

  object

  	tb_1 : XmToggleButton {

  		arguments {	

  			XmNlabelString = compound_string

  					("Toggle_Button");

  		};

  		callbacks {

  			XmNvalueChangedCallback = procedure Report_Callback

  					('valueChangedCallback Toggle_button');

  		};

  	};

  object

  	explanation : XmBulletinBoardDialog {

  			arguments { 

  				  XmNx = 500;

  				  XmNy  = 0;

  				  XmNdefaultPosition = false;

  				  XmNbackground = wheat;

  				  XmNforeground = navy;

  				  };

  			controls  {

  				  XmPushButton	pushb1;

        				  XmLabel	        label1;

  				  XmText		text1;

  			    	  };

                   };

  object

  	pushb1 :	XmPushButton {

  			arguments {

  				  XmNx = 0;

  				  XmNy = 0;

  				  XmNbackground = wheat;

  				  XmNforeground = navy;

  			 	  XmNlabelString = compound_string("Exit");

  				  };

  			callbacks {

  				  XmNarmCallback = procedure exit_test();

  				  };

  		};

  object

  	label1 : XmLabel {

  			arguments {

  				  XmNx = 60;

  				  XmNy = 0;

  				  XmNbackground = wheat;

  				  XmNforeground = navy;

  				  XmNlabelString = compound_string("Explanation of Widget Displayed");

  				  };

  		};

  object

  	text1 : XmText {

  			arguments {

  				  XmNx = 0;

  				  XmNy = 40;  

  				  XmNheight = 300;

  				  XmNwidth = 300;

  				  XmNwordWrap = true;

  				  XmNeditMode = XmMULTI_LINE_EDIT;

  				  XmNeditable = false;

  				  XmNbackground = wheat;

  				  XmNforeground = navy;

  				  XmNvalue = message;

  				  };

  		};

  end module;