! 
! 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: Case.uil /main/7 1995/07/13 20:39:19 drk $
!*  (c) Copyright 1989, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!******************************************************************************

module case
    version = 'v1.0'
    names = case_insensitive

PROCEDURE
    HEllOworLD_button_ACtivaTE();

object
    heLlominIMAL_maIn : XmBulletinBoard {
	contROLS {
	    XmLabel		helloworld_label;
	    XmPushButton	helloworld_button;
	};
    };

OBJECT
    HELLOworld_buTTon : XmPushButton {
	arguments { 
	    XmNx = 45;
	    XmNy = 90;
	    XmNlabelString = compound_string('Hello',separate=true) & 'Minimal!';
	};
	callBACKS { 
	    XmNactivateCallback = procedure heLLOWORld_button_activate();
	};
    };

objECT
    heLLoworld_label : XmLabel {
	ARGUMENTS {
	    XmNlabelString =
		COMPOUND_STRING
		    ('Case Insensative',separate=true) &
	        compound_string
		    ('version of HelloMotif,',separate=true) &
		compound_stRING
		    ('Press button as usual.');
	};
    };

end MODULE;