static XmFontList motFontCreateRenderTable(XFontStruct* fontstruct, int is_underline, int is_strikeout)
{
XmFontList fontlist;
XmRendition rendition;
Arg args[10];
int num_args = 0;
iupmotSetArg(args[num_args++], XmNfontType, XmFONT_IS_FONT);
iupmotSetArg(args[num_args++], XmNfont, (XtPointer)fontstruct);
iupmotSetArg(args[num_args++], XmNloadModel, XmLOAD_IMMEDIATE);
if (is_underline)
iupmotSetArg(args[num_args++], XmNunderlineType, XmSINGLE_LINE)
else
iupmotSetArg(args[num_args++], XmNunderlineType, XmNO_LINE)
if (is_strikeout)
iupmotSetArg(args[num_args++], XmNstrikethruType, XmSINGLE_LINE)
else
iupmotSetArg(args[num_args++], XmNstrikethruType, XmNO_LINE)
rendition = XmRenditionCreate(NULL, "", args, num_args);
fontlist = XmRenderTableAddRenditions(NULL, &rendition, 1, XmDUPLICATE);
XmRenditionFree(rendition);
return fontlist;
}
// Find an existing, or create a new, XFontStruct
// based on this wxFont and the given scale. Append the
// font to list in the private data for future reference.
wxXFont* wxFont::GetInternalFont(double scale, WXDisplay* display) const
{
if ( !Ok() )
return NULL;
long intScale = long(scale * 100.0 + 0.5); // key for wxXFont
int pointSize = (M_FONTDATA->m_pointSize * 10 * intScale) / 100;
// search existing fonts first
wxList::compatibility_iterator node = M_FONTDATA->m_fonts.GetFirst();
while (node)
{
wxXFont* f = (wxXFont*) node->GetData();
if ((!display || (f->m_display == display)) && (f->m_scale == intScale))
return f;
node = node->GetNext();
}
// not found, create a new one
wxString xFontSpec;
XFontStruct *font = (XFontStruct *)
wxLoadQueryNearestFont(pointSize,
M_FONTDATA->m_family,
M_FONTDATA->m_style,
M_FONTDATA->m_weight,
M_FONTDATA->m_underlined,
wxT(""),
M_FONTDATA->m_encoding,
&xFontSpec);
if ( !font )
{
wxFAIL_MSG( wxT("Could not allocate even a default font -- something is wrong.") );
return NULL;
}
wxXFont* f = new wxXFont;
#if wxMOTIF_NEW_FONT_HANDLING
XFreeFont( (Display*) display, font );
#else
f->m_fontStruct = (WXFontStructPtr)font;
#endif
f->m_display = ( display ? display : wxGetDisplay() );
f->m_scale = intScale;
#if wxMOTIF_USE_RENDER_TABLE
XmRendition rendition;
XmRenderTable renderTable;
Arg args[5];
int count = 0;
#if wxMOTIF_NEW_FONT_HANDLING
char* fontSpec = wxStrdup(xFontSpec.mb_str());
XtSetArg( args[count], XmNfontName, fontSpec ); ++count;
XtSetArg( args[count], XmNfontType, XmFONT_IS_FONTSET ); ++count;
#else
XtSetArg( args[count], XmNfont, font ); ++count;
#endif
XtSetArg( args[count], XmNunderlineType,
GetUnderlined() ? XmSINGLE_LINE : XmNO_LINE ); ++count;
rendition = XmRenditionCreate( XmGetXmDisplay( (Display*)f->m_display ),
(XmStringTag)"",
args, count );
renderTable = XmRenderTableAddRenditions( NULL, &rendition, 1,
XmMERGE_REPLACE );
f->m_renderTable = (WXRenderTable)renderTable;
f->m_rendition = (WXRendition)rendition;
wxASSERT( f->m_renderTable != NULL );
#else // if !wxMOTIF_USE_RENDER_TABLE
f->m_fontList = XmFontListCreate ((XFontStruct*) font, XmSTRING_DEFAULT_CHARSET);
wxASSERT( f->m_fontList != NULL );
#endif
M_FONTDATA->m_fonts.Append(f);
return f;
}
int
main(int argc, char **argv)
{
Widget toplevel, one, d;
XtAppContext app;
XmFontList fontlist;
XmString xms;
Arg args[10];
XmTab tabs[MAX_COLUMNS];
XmTabList tablist;
XmRendition renditions[MAX_COLUMNS];
XmRenderTable rendertable;
XmStringTable xmstring_table;
int xmstring_count;
Pixel pixels[MAX_COLUMNS];
int n, i;
XtSetLanguageProc(NULL, NULL, NULL);
toplevel = XtVaAppInitialize(&app, "Label", NULL, 0, &argc, argv, NULL, NULL);
d = XmGetXmDisplay(XtDisplay(toplevel));
XtAddCallback(d, XmNnoFontCallback, NoFontCB, NULL);
XtAddCallback(d, XmNnoRenditionCallback, NoRenditionCB, NULL);
/* Create some colors */
for (i = 0 ; i < MAX_COLUMNS ; i++) {
pixels[i] = ConvertStringToPixel (toplevel, rendition_data[i].color) ;
}
/* Create tab stops for columnar output */
for (i = 0 ; i < MAX_COLUMNS ; i++) {
tabs[i] = XmTabCreate ((float) 1.5,
XmINCHES,
((i == 0) ? XmABSOLUTE : XmRELATIVE),
XmALIGNMENT_BEGINNING,
".") ;
}
/* Create a tablist table which contains the tabs */
tablist = XmTabListInsertTabs (NULL, tabs, XtNumber (tabs), 0) ;
/* Create some multi-font/color renditions, and use the tablist */
/* This will be inherited if we use it on the first rendition */
for (i = 0 ; i < MAX_COLUMNS ; i++) {
n = 0 ;
if (i == 0) {
XtSetArg (args[n], XmNtabList, tablist); n++;
}
XtSetArg (args[n], XmNrenditionForeground, pixels[i]); n++;
XtSetArg (args[n], XmNfontName, rendition_data[i].font); n++;
XtSetArg (args[n], XmNfontType, XmFONT_IS_FONT); n++;
renditions[i] = XmRenditionCreate (toplevel, rendition_data[i].tag, args, n);
}
/* Create the Render Table */
rendertable = XmRenderTableAddRenditions (NULL, renditions, XtNumber (renditions), XmMERGE_NEW) ;
/* Create the multi-column data for the list */
xmstring_table = CreateListData(&xmstring_count) ;
xms = xmstring_table[0];
for (i=1; i<xmstring_count; i++) {
XmString s, x;
s = XmStringSeparatorCreate();
x = XmStringConcat(xms, s);
xms = XmStringConcat(x, xmstring_table[i]);
}
one = XtVaCreateManagedWidget("One", xmLabelWidgetClass, toplevel,
XmNalignment, XmALIGNMENT_BEGINNING,
XmNrenderTable, rendertable,
XmNlabelString, xms,
NULL);
XtRealizeWidget(toplevel);
#if 0
/* Note: the following values are the result of
* querying the current geometry.
*/
{
static XtWidgetGeometry Expected[] = {
{CWWidth | CWHeight , 0, 0, 112, 58, 0,0,0}, /* One */
};
/* toplevel should be replaced with to correct applicationShell */
PrintDetails(toplevel, Expected);
}
#endif
LessTifTestMainLoop(toplevel);
exit(0);
}
