!
! 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: GSyntax2.uil /main/8 1995/07/13 20:39:59 drk $
!******************************************************************************
module Test
version = 'v1.0'
names = case_sensitive
objects = {
XmSeparator = gadget ;
XmLabel = gadget ;
XmPushButton = gadget ;
XmToggleButton = gadget ;
XmArrowButton = gadget ;
XmCascadeButton = gadget ;
}
include file "GSyntax2.msg";
procedure
exit_test();
Report_Callback(string);
CreateCallback();
value
wheat : color('wheat');
navy : color('navy');
object ! The main window widget.
S_MAIN_WIDGET : XmBulletinBoard {
arguments {
XmNx = 0;
XmNy = 0;
XmNdialogTitle = compound_string ("Gadget Syntax Test");
};
controls {
XmBulletinBoardDialog explanation;
XmBulletinBoard Bulletin_Board;
};
callbacks {
MrmNcreateCallback = procedure CreateCallback();
};
};
value
sky_blue: color ('SkyBlue');
black: color ('black');
align_value: XmALIGNMENT_END;
object
Bulletin_Board : XmBulletinBoard {
arguments {
XmNborderWidth = 1;
XmNbackground = sky_blue;
XmNmarginWidth = 20;
XmNmarginHeight = 20;
XmNdefaultPosition = false;
XmNnoResize = true;
XmNresizePolicy = XmRESIZE_GROW;
XmNshadowType = XmSHADOW_ETCHED_OUT;
XmNshadowThickness = 10;
};
controls {
XmArrowButton ArrowButton1;
XmArrowButtonGadget ArrowButton2;
XmMenuBar MenuBar;
XmLabel Label1;
XmLabelGadget Label2;
XmPushButton PushButton1;
XmPushButtonGadget PushButton2;
XmSeparator Sep1;
XmSeparatorGadget Sep2;
XmToggleButton ToggleButton1;
XmToggleButtonGadget ToggleButton2;
};
};
ArrowButton1 : XmArrowButton {
arguments {
XmNx = 30;
XmNy = 30;
};
};
ArrowButton2 : XmArrowButtonGadget {
arguments {
XmNx = 300;
XmNy = 30;
};
};
MenuBar : XmMenuBar {
arguments {
XmNx = 30;
XmNy = 57;
};
controls {
XmCascadeButton CascadeButton1;
XmCascadeButtonGadget CascadeButton2;
};
};
CascadeButton1 : XmCascadeButton gadget {
arguments {
XmNborderWidth = 2;
XmNlabelString = "XmCascadeButton gadget ";
};
};
CascadeButton2 : XmCascadeButtonGadget {
arguments {
XmNborderWidth = 2;
XmNlabelString = "XmCascadeButtonGadget";
};
};
Label1 : XmLabel {
arguments {
XmNx = 30;
XmNy = 90;
XmNborderWidth = 2;
XmNlabelString = "XmLabel (gadget in header)";
};
};
Label2 : XmLabelGadget {
arguments {
XmNx = 300;
XmNy = 90;
XmNborderWidth = 2;
XmNlabelString = "XmLabelGadget";
};
};
PushButton1 : XmPushButton {
arguments {
XmNx = 30;
XmNy = 120;
XmNshadowThickness = 2;
XmNlabelString = "XmPushButton (gadget in header)";
};
};
PushButton2 : XmPushButtonGadget {
arguments {
XmNx = 300;
XmNy = 120;
XmNshadowThickness = 2;
XmNlabelString = "XmPushButtonGadget";
};
};
Sep1 : XmSeparator {
arguments {
XmNx = 30;
XmNy = 160;
XmNwidth = 220;
XmNshadowThickness = 2;
};
};
Sep2 : XmSeparatorGadget {
arguments {
XmNx = 300;
XmNy = 160;
XmNwidth = 120;
XmNshadowThickness = 2;
};
};
ToggleButton1 : XmToggleButton {
arguments {
XmNx = 30;
XmNy = 180;
XmNshadowThickness = 2;
XmNlabelString = "XmToggleButton (gadget in header)";
};
};
ToggleButton2 : XmToggleButtonGadget {
arguments {
XmNx = 300;
XmNy = 180;
XmNshadowThickness = 2;
XmNlabelString = "XmToggleButtonGadget";
};
};
object
explanation : XmBulletinBoardDialog {
arguments {
XmNx = 550;
XmNy = 0;
XmNdefaultPosition = false;
XmNbackground = wheat;
XmNforeground = navy;
};
controls {
XmPushButton pushb1;
XmLabel label1;
XmText text1;
};
};
object
pushb1 : XmPushButton widget {
arguments {
XmNx = 0;
XmNy = 0;
XmNbackground = wheat;
XmNforeground = navy;
XmNlabelString = compound_string("Exit");
};
callbacks {
XmNarmCallback = procedure exit_test();
};
};
object
label1 : XmLabel widget {
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 = 300;
XmNwidth = 400;
XmNwordWrap = true;
XmNeditMode = XmMULTI_LINE_EDIT;
XmNeditable = false;
XmNbackground = wheat;
XmNforeground = navy;
XmNvalue = message;
};
};
end module;