! ! @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: Names.uil /main/7 1995/07/13 20:40:46 drk $ !****************************************************************************** module Test version = 'v1.0' names = case_sensitive include file "Names.msg"; procedure exit_test(); Report_Callback(string); value wheat : color('wheat'); navy : color('navy'); object ! The main window widget. S_MAIN_WIDGET : XmBulletinBoard { arguments { XmNx = 0; XmNy = 0; }; controls { XmBulletinBoardDialog explanation; XmForm Form; }; }; value sky_blue: color ('sky blue'); coral: color ('coral'); black: color ('black'); variable: font('variable'); object Form : XmForm { arguments { XmNwidth = 150; XmNheight = 350; XmNborderWidth = 5; XmNdefaultPosition = false; XmNrubberPositioning = true; }; controls { XmPushButton RPush; LPush: XmPushButton { arguments { XmNleftAttachment = XmATTACH_FORM; XmNbottomAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; }; callbacks { XmNactivateCallback = procedure Report_Callback ('activateCallback LeftPushButton'); }; }; TForm: XmForm { arguments { XmNtopAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_WIDGET; XmNrightWidget = RPush; XmNleftAttachment = XmATTACH_WIDGET; XmNleftWidget = LPush; XmNheight = 200; XmNbackground = coral; XmNforeground = black; XmNborderWidth = 5; XmNdefaultPosition = false; XmNrubberPositioning = true; }; controls { XmPushButton Tpush; Tlabel : XmLabel { arguments { XmNfontList = variable; XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = Tpush; XmNlabelString = compound_string("Label"); }; }; Ttext : XmText { arguments { XmNleftAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNbottomAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_WIDGET; XmNtopWidget = Tlabel; XmNresizeWidth = true; XmNwordWrap = true; XmNeditMode = XmMULTI_LINE_EDIT; XmNeditable = true; XmNvalue = "With a little text on the side"; }; }; }; }; BPush: XmPushButton { arguments { XmNbottomAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNleftAttachment = XmATTACH_FORM; }; callbacks { XmNactivateCallback = procedure Report_Callback ('activateCallback BottomPushButton'); }; }; }; }; object RPush: XmPushButton { arguments { XmNrightAttachment = XmATTACH_FORM; XmNbottomAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; }; callbacks { XmNactivateCallback = procedure Report_Callback ('activateCallback RightPushButton'); }; }; object Tpush : XmPushButton { arguments { XmNleftAttachment = XmATTACH_FORM; XmNtopAttachment = XmATTACH_FORM; XmNrightAttachment = XmATTACH_FORM; XmNbackground = wheat; XmNforeground = navy; XmNlabelString = compound_string("Try Me"); }; callbacks { XmNactivateCallback = procedure Report_Callback ('activateCallback TopPushButton'); }; }; object explanation : XmBulletinBoardDialog { arguments { XmNx = 500; XmNy = 0; XmNdefaultPosition = false; XmNbackground = wheat; XmNforeground = navy; }; controls { XmPushButton pushb1; XmLabel label1; XmText text1; }; }; object pushb1 : XmPushButton { arguments { XmNx = 0; XmNy = 0; XmNbackground = wheat; XmNforeground = navy; XmNlabelString = compound_string("Exit"); }; callbacks { XmNarmCallback = procedure exit_test(); }; }; object label1 : XmLabel { arguments { XmNx = 60; XmNy = 0; XmNbackground = wheat; XmNforeground = navy; XmNlabelString = compound_string("Explanation of Widget Displayed"); }; }; object text1 : XmText { arguments { XmNx = 0; XmNy = 40; XmNheight = 350; XmNwidth = 300; XmNwordWrap = true; XmNeditMode = XmMULTI_LINE_EDIT; XmNeditable = false; XmNbackground = wheat; XmNforeground = navy; XmNvalue = message; }; }; end module;