!
! 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: ForRef2.uil /main/7 1995/07/13 20:29:34 drk $
!******************************************************************************
module Test
version = 'v1.0'
names = case_sensitive
include file "ForRef2.msg";
!
! Colors used in tests
!
value
yellow : exported color(yellow_string, foreground);
red : exported color('red', background);
blue : exported color('blue', background);
value
yellow_string : 'yellow';
!
! Color table for icons
!
value
button_ct : color_table( yellow='o',
red='.',
blue='~',
background color = 'b',
foreground color = 'f');
!
! Icon declarations
!
test_icon: exported test_icon2;
test_icon2: exported icon(color_table=button_ct,
'...........................',
'...........................',
'..oooo..ooooo.o...o..ooo...',
'..o...o...o...oo..o.o...o..',
'..oooo....o...o.o.o....o...',
'..o...o...o...o..oo...o....',
'..oooo....o...o...o.ooooo..',
'...........................',
'...........................',
'...........................',
'..ooooo.ooooo.ooooo.ooooo..',
'....o...o.....o.......o....',
'....o...ooo...ooooo...o....',
'....o...o.........o...o....',
'....o...ooooo.ooooo...o....',
'...........................',
'...........................',
'...........................',
'............~~~............',
'...........~...~...........',
'..............~............',
'.............~.............',
'...........~~~~~...........',
'...........................',
'...........................');
procedure
exit_test();
Report_Callback(string);
value
wheat : color('wheat');
navy : color('navy');
object ! The main window widget.
TopManager : XmBulletinBoard {
arguments {
XmNx = 0;
XmNy = 0;
};
controls {
XmDrawnButton Drawn_Button;
XmLabel font_test;
XmLabel font_test2;
};
};
value
sky_blue: color ('sky blue');
object
Drawn_Button : XmDrawnButton {
arguments {
XmNx = 0;
XmNy = 0;
XmNwidth = 118;
XmNheight = 118;
XmNborderWidth = 4;
XmNhighlightThickness = 1;
XmNmarginWidth = 50;
XmNmarginHeight = 50;
XmNmarginLeft = 50;
XmNmarginRight = 50;
XmNmarginTop = 50;
XmNmarginBottom = 50;
XmNpushButtonEnabled = true;
XmNbackgroundPixmap = test_icon;
};
};
value
boolean1: true;
object
font_test : XmLabel {
arguments {
XmNx = 10;
XmNy = 150;
XmNfontList = bold_font;
XmNlabelString =
compound_string(text_string1, separate=boolean1) &
text_string2;
};
};
value
bold_font: font('8x13bold');
text_string1: "Bold";
text_string2: "font";
object
font_test2 : XmLabel {
arguments {
XmNx = 10;
XmNy = 180;
XmNfontList = font_table(bold_font);
XmNlabelString =
compound_string("forward reference test");
};
};
end module;