!
! 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: helpDialog.uil /main/1 1996/08/12 15:44:27 jakku $
!******************************************************************************
module Test
        version = 'v1.0'
        names = case_sensitive

  procedure
	Report_Dtcallback();
  value
	  wheat			     : color('wheat');
	  navy			     : color('navy');

  object                                  ! The main window widget.
          S_MAIN_WIDGET : XmBulletinBoard {
  
              arguments {
                  XmNx = 0;
                  XmNy = 0;
              };
    	      controls {
                  DtHelpDialog    		Help_Dialog;
   	      };
  	  };

  value
        turquoise: color ('turquoise');
        black: color ('black');
        violet: color ('violet');

  object
        Help_Dialog :  DtHelpDialog {
            arguments {
		DtNhelpType = DtHELP_TYPE_FILE;
		DtNhelpFile = "/usr/dt/copyright";
		DtNtopicTitle = "Testing DtHelpWidget";
		DtNscrollBarPolicy = DtHELP_AS_NEEDED_SCROLLBARS;
		DtNhelpPrint = "/usr/dt/bin/dthelpprint";
		DtNprinter = "xpress";
                XmNbackground =  turquoise;
		XmNheight = 200;
		XmNwidth = 200;
            };
	    callbacks {
		DtNcloseCallback = procedure Report_Dtcallback();
			};

        };


end module;
