|
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: Case.uil /main/7 1995/07/13 20:39:19 drk $
|
|
Packit |
b099d7 |
!* (c) Copyright 1989, DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
|
|
Packit |
b099d7 |
!******************************************************************************
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
module case
|
|
Packit |
b099d7 |
version = 'v1.0'
|
|
Packit |
b099d7 |
names = case_insensitive
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
PROCEDURE
|
|
Packit |
b099d7 |
HEllOworLD_button_ACtivaTE();
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
object
|
|
Packit |
b099d7 |
heLlominIMAL_maIn : XmBulletinBoard {
|
|
Packit |
b099d7 |
contROLS {
|
|
Packit |
b099d7 |
XmLabel helloworld_label;
|
|
Packit |
b099d7 |
XmPushButton helloworld_button;
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
OBJECT
|
|
Packit |
b099d7 |
HELLOworld_buTTon : XmPushButton {
|
|
Packit |
b099d7 |
arguments {
|
|
Packit |
b099d7 |
XmNx = 45;
|
|
Packit |
b099d7 |
XmNy = 90;
|
|
Packit |
b099d7 |
XmNlabelString = compound_string('Hello',separate=true) & 'Minimal!';
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
callBACKS {
|
|
Packit |
b099d7 |
XmNactivateCallback = procedure heLLOWORld_button_activate();
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
objECT
|
|
Packit |
b099d7 |
heLLoworld_label : XmLabel {
|
|
Packit |
b099d7 |
ARGUMENTS {
|
|
Packit |
b099d7 |
XmNlabelString =
|
|
Packit |
b099d7 |
COMPOUND_STRING
|
|
Packit |
b099d7 |
('Case Insensative',separate=true) &
|
|
Packit |
b099d7 |
compound_string
|
|
Packit |
b099d7 |
('version of HelloMotif,',separate=true) &
|
|
Packit |
b099d7 |
compound_stRING
|
|
Packit |
b099d7 |
('Press button as usual.');
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
};
|
|
Packit |
b099d7 |
|
|
Packit |
b099d7 |
end MODULE;
|