! 

! 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: ProcDef.uil /main/6 1995/07/13 20:41:13 drk $

!*  (c) Copyright 1989, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

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

module lab18

  version = 'v1.0'

  names = case_sensitive

include file 'foo.uil'

procedure

    lab18_proc(string);

identifier

    lab18_string;

value

    red: color('Red', foreground);

value

    green: color('Green');

object

  lab18_main: XmBulletinBoard {

    controls {

	XmLabel		lab18_label;

	XmPushButton	lab18_button;

	XmText		lab18_text;

    };

  };

object

  lab18_button: XmPushButton {

    arguments {

	XmNx =	25;

	XmNy = 80;

	XmNlabelString =

	  compound_string('Hi',

	    separate = true) & 'World!';

    };

    callbacks {

	XmNactivateCallback = procedure lab18_proc("hello");

    };

  };

object

  lab18_label: XmLabel {

    arguments {

	XmNlabelString = 

	  'please press the button';

    };

  };

object

  lab18_text: XmText {

    arguments {

	XmNx = 200;

	XmNy = 300;

	XmNhighlightColor = red;

	XmNforeground = red;

	XmNbackground = green;

    };

  };

end module;