!
! 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: icccm.uil /main/7 1995/07/13 17:57:54 drk $
!******************************************************************************
module test
version = 'v1.0'
names = case_sensitive
character_set=iso_latin1
objects = {
XmSeparator = gadget;
XmLabel = gadget;
XmPushButton = gadget;
XmToggleButton = gadget;
}
procedure
targets_proc();
formats_proc();
multiple_proc();
timestamp_proc();
owner_proc();
quit_proc();
value
! app_font : font('courier_bold14', character_set=iso_latin1);
app_font : font('variable', character_set=iso_latin1);
object app_main : XmRowColumn {
arguments {
XmNx = 0;
XmNy = 0;
XmNwidth = 350;
XmNheight = 250;
};
controls {
XmPushButton targets_pb;
XmPushButton formats_pb;
XmPushButton multiple_pb;
XmSeparator { arguments { XmNwidth=4; }; };
XmPushButton timestamp_pb;
XmSeparator { arguments { XmNwidth=4; }; };
XmPushButton owner_pb;
XmSeparator { arguments { XmNwidth=4; }; };
XmPushButton quit_pb;
};
};
object targets_pb : XmPushButton {
arguments {
XmNlabelString = 'Request TARGETS';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure targets_proc();
};
};
object formats_pb : XmPushButton {
arguments {
XmNlabelString = 'Request formats';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure formats_proc();
};
};
object multiple_pb : XmPushButton {
arguments {
XmNlabelString = 'Request MULTIPLE';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure multiple_proc();
};
};
object timestamp_pb : XmPushButton {
arguments {
XmNlabelString = 'Request TIMESTAMP';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure timestamp_proc();
};
};
object owner_pb : XmPushButton {
arguments {
XmNlabelString = 'Own CLIPBOARD';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure owner_proc();
};
};
object quit_pb : XmPushButton {
arguments {
XmNlabelString = 'Quit';
XmNfontList = app_font;
};
callbacks {
XmNactivateCallback = procedure quit_proc();
};
};
end module;