! 
! 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: 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;