|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! Motif
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! Copyright (c) 1987-2012, The Open Group. All rights reserved.
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! These libraries and programs are free software; you can
|
|
Packit |
b099d7 |
! redistribute them and/or modify them under the terms of the GNU
|
|
Packit |
b099d7 |
! Lesser General Public License as published by the Free Software
|
|
Packit |
b099d7 |
! Foundation; either version 2 of the License, or (at your option)
|
|
Packit |
b099d7 |
! any later version.
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! These libraries and programs are distributed in the hope that
|
|
Packit |
b099d7 |
! they will be useful, but WITHOUT ANY WARRANTY; without even the
|
|
Packit |
b099d7 |
! implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
Packit |
b099d7 |
! PURPOSE. See the GNU Lesser General Public License for more
|
|
Packit |
b099d7 |
! details.
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! You should have received a copy of the GNU Lesser General Public
|
|
Packit |
b099d7 |
! License along with these librararies and programs; if not, write
|
|
Packit |
b099d7 |
! to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
|
|
Packit |
b099d7 |
! Floor, Boston, MA 02110-1301 USA
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! HISTORY
|
|
Packit |
b099d7 |
!
|
|
Packit |
b099d7 |
! $XConsortium: menuBar.uil /main/8 1995/07/13 20:48:28 drk $
|
|
Packit |
b099d7 |
!******************************************************************************
|
|
Packit |
b099d7 |
module Test
|
|
Packit |
b099d7 |
version = 'v1.0'
|
|
Packit |
b099d7 |
names = case_sensitive
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
include file "menuBar.msg";
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
procedure
|
|
Packit |
b099d7 |
exit_test();
|
|
Packit |
b099d7 |
Report_Callback(string);
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
value
|
|
Packit |
b099d7 |
wheat : color('wheat');
|
|
Packit |
b099d7 |
navy : color('navy');
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object ! The main window widget.
|
|
Packit |
b099d7 |
S_MAIN_WIDGET : XmBulletinBoard {
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 0;
|
|
Packit |
b099d7 |
XmNy = 0;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmBulletinBoardDialog explanation;
|
|
Packit |
b099d7 |
XmMenuBar Menu_Bar;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
value
|
|
Packit |
b099d7 |
green: color ('green');
|
|
Packit |
b099d7 |
MediumBlue: color ('MediumBlue');
|
|
Packit |
b099d7 |
black: color ('black');
|
|
Packit |
b099d7 |
navy_blue: color ('navy blue');
|
|
Packit |
b099d7 |
red: color('red');
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
Menu_Bar : XmMenuBar {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNborderWidth = 50;
|
|
Packit |
b099d7 |
XmNbackground = green;
|
|
Packit |
b099d7 |
XmNwidth = 200;
|
|
Packit |
b099d7 |
XmNheight = 100;
|
|
Packit |
b099d7 |
XmNborderColor = MediumBlue;
|
|
Packit |
b099d7 |
XmNshadowThickness = 5;
|
|
Packit |
b099d7 |
XmNbottomShadowColor = navy_blue;
|
|
Packit |
b099d7 |
XmNmarginWidth = 10;
|
|
Packit |
b099d7 |
XmNmarginHeight = 10;
|
|
Packit |
b099d7 |
XmNpacking = XmPACK_COLUMN;
|
|
Packit |
b099d7 |
XmNentryAlignment = XmALIGNMENT_CENTER;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmCascadeButton cb1;
|
|
Packit |
b099d7 |
XmCascadeButton cb2;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
! Create Two Pulldown Menus -
|
|
Packit |
b099d7 |
! One with two toggle buttons - valueChangedCallback ON
|
|
Packit |
b099d7 |
! Another with two Pushbuttons - armCallback ON
|
|
Packit |
b099d7 |
! Both Pulldowns are controls off of CascadeButtons.
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
cb1 : XmCascadeButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('PullDown 1');
|
|
Packit |
b099d7 |
XmNborderWidth = 2;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmPulldownMenu pdm1;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
cb2 : XmCascadeButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('PullDown 2');
|
|
Packit |
b099d7 |
XmNborderWidth = 2;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmPulldownMenu pdm2;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
pdm1 : XmPulldownMenu {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNtearOffModel = XmTEAR_OFF_ENABLED;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNtearOffMenuActivateCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('Pulldown1: tearOffMenuActivateCallback called');
|
|
Packit |
b099d7 |
XmNtearOffMenuDeactivateCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('Pulldown1: XmNtearOffMenuDeactivateCallback called');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmToggleButton tb1;
|
|
Packit |
b099d7 |
XmToggleButton tb2;
|
|
Packit |
b099d7 |
Xm_TearOffControl {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNbackground = wheat;
|
|
Packit |
b099d7 |
XmNshadowThickness = 2;
|
|
Packit |
b099d7 |
XmNseparatorType = XmDOUBLE_DASHED_LINE;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
pdm2 : XmPulldownMenu {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNtearOffModel = XmTEAR_OFF_ENABLED;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNtearOffMenuActivateCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('Pulldown2: tearOffMenuActivateCallback called');
|
|
Packit |
b099d7 |
XmNtearOffMenuDeactivateCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('Pulldown2: XmNtearOffMenuDeactivateCallback called');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmPushButton pb1;
|
|
Packit |
b099d7 |
XmPushButton pb2;
|
|
Packit |
b099d7 |
Xm_TearOffControl {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNbackground = red;
|
|
Packit |
b099d7 |
XmNshadowThickness = 2;
|
|
Packit |
b099d7 |
XmNseparatorType = XmDOUBLE_DASHED_LINE;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
tb1 : XmToggleButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('Toggle 1');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNvalueChangedCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('valueChangedCallback - Toggle Button 1');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
tb2 : XmToggleButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('Toggle 2');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNvalueChangedCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback
|
|
Packit |
b099d7 |
('valueChangedCallback - Toggle Button 2');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
pb1: XmPushButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('Push_Button 1');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNarmCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback('armCallback - Push Button 1');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
pb2: XmPushButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('Push_Button 2');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNarmCallback = procedure
|
|
Packit |
b099d7 |
Report_Callback('armCallback - Push Button 2');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
explanation : XmBulletinBoardDialog {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 500;
|
|
Packit |
b099d7 |
XmNy = 0;
|
|
Packit |
b099d7 |
XmNdefaultPosition = false;
|
|
Packit |
b099d7 |
XmNbackground = wheat;
|
|
Packit |
b099d7 |
XmNforeground = navy;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
controls {
|
|
Packit |
b099d7 |
XmPushButton pushb1;
|
|
Packit |
b099d7 |
XmLabel label1;
|
|
Packit |
b099d7 |
XmText text1;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
pushb1 : XmPushButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 0;
|
|
Packit |
b099d7 |
XmNy = 0;
|
|
Packit |
b099d7 |
XmNbackground = wheat;
|
|
Packit |
b099d7 |
XmNforeground = navy;
|
|
Packit |
b099d7 |
XmNlabelString = compound_string("Exit");
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callbacks {
|
|
Packit |
b099d7 |
XmNarmCallback = procedure exit_test();
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
label1 : XmLabel {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 60;
|
|
Packit |
b099d7 |
XmNy = 0;
|
|
Packit |
b099d7 |
XmNbackground = wheat;
|
|
Packit |
b099d7 |
XmNforeground = navy;
|
|
Packit |
b099d7 |
XmNlabelString = compound_string("Explanation of Widget Displayed");
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
text1 : XmText {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 0;
|
|
Packit |
b099d7 |
XmNy = 40;
|
|
Packit |
b099d7 |
XmNheight = 480;
|
|
Packit |
b099d7 |
XmNwidth = 300;
|
|
Packit |
b099d7 |
XmNwordWrap = true;
|
|
Packit |
b099d7 |
XmNeditMode = XmMULTI_LINE_EDIT;
|
|
Packit |
b099d7 |
XmNeditable = false;
|
|
Packit |
b099d7 |
XmNbackground = wheat;
|
|
Packit |
b099d7 |
XmNforeground = navy;
|
|
Packit |
b099d7 |
XmNvalue = message;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
end module;
|