! 
! @OPENGROUP_COPYRIGHT@
! COPYRIGHT NOTICE
! Copyright (c) 1990, 1991, 1992, 1993 Open Software Foundation, Inc.
! Copyright (c) 1996, 1997, 1998, 1999, 2000 The Open Group
! ALL RIGHTS RESERVED (MOTIF). See the file named COPYRIGHT.MOTIF for
! the full copyright text.
! 
! This software is subject to an open license. It may only be
! used on, with or for operating systems which are themselves open
! source systems. You must contact The Open Group for a license
! allowing distribution and sublicensing of this software on, with,
! or for operating systems which are not Open Source programs.
! 
! See http://www.opengroup.org/openmotif/license for full
! details of the license agreement. Any use, reproduction, or
! distribution of the program constitutes recipient's acceptance of
! this agreement.
! 
! EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, THE PROGRAM IS
! PROVIDED ON AN "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
! KIND, EITHER EXPRESS OR IMPLIED INCLUDING, WITHOUT LIMITATION, ANY
! WARRANTIES OR CONDITIONS OF TITLE, NON-INFRINGEMENT, MERCHANTABILITY
! OR FITNESS FOR A PARTICULAR PURPOSE
! 
! EXCEPT AS EXPRESSLY SET FORTH IN THIS AGREEMENT, NEITHER RECIPIENT
! NOR ANY CONTRIBUTORS SHALL HAVE ANY LIABILITY FOR ANY DIRECT,
! INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
! DAMAGES (INCLUDING WITHOUT LIMITATION LOST PROFITS), HOWEVER CAUSED
! AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
! LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
! ANY WAY OUT OF THE USE OR DISTRIBUTION OF THE PROGRAM OR THE
! EXERCISE OF ANY RIGHTS GRANTED HEREUNDER, EVEN IF ADVISED OF THE
! POSSIBILITY OF SUCH DAMAGES.
! 
! 
! HISTORY
! 
!   $XConsortium: ForRef3.uil /main/7 1995/07/13 20:29:57 drk $
!******************************************************************************
module Test
        version = 'v1.0'
        names = case_sensitive

  include file "ForRef3.msg";
  
  procedure
          exit_test();
	  Report_Callback(string);

  value
	  wheat			     : color('wheat');

  object                                  ! The main window widget.
          TopManager : XmBulletinBoard {
  
              arguments {
                  XmNx = 0;
                  XmNy = 0;
              };
    	      controls {
                  XmList    			List;
    	      };
  	  };

  value
        red: color ('red');
	variable: font('variable');

  object
        List :  XmList {
            arguments {
		XmNautomaticSelection = true;
                XmNwidth =  150;
                XmNheight =  200;
		XmNlistMarginWidth = 50;
		XmNlistMarginHeight = 50;
		XmNfontList = variable;
                XmNbackground =  navy;
                XmNforeground =  red;
                mylabelstring =  string_table(item1, item2, item3, item4, item5);
		XmNselectionPolicy = XmBROWSE_SELECT;
                XmNitemCount =  5;
                XmNvisibleItemCount =  5;
            };
            callbacks {
		XmNdefaultActionCallback = procedure Report_Callback
				('defaultActionCallback');
		reason(reason_name) = procedure Report_Callback
				('browseSelectionCallback');
            };
        };

value
	item1 :	"item1";
	item2 : "item2";
	item3 : "item3";
	item4 : "item4";
	item5 : "item5";

value
	reason_name : 'browseSelectionCallback';

value
	mylabelstring : argument(item_name,string_table);
	item_name : 'items';

value
	navy: color('navy');

end module;