]> git.saurik.com Git - wxWidgets.git/blob - src/motif/font.cpp
Wait() doesn't cancel the thread any longer
[wxWidgets.git] / src / motif / font.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/motif/font.cpp
3 // Purpose: wxFont class
4 // Author: Julian Smart
5 // Modified by:
6 // Created: 17/09/98
7 // RCS-ID: $Id$
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19
20 #ifdef __GNUG__
21 #pragma implementation "font.h"
22 #endif
23
24 #include "wx/defs.h"
25
26 #ifdef __VMS
27 #pragma message disable nosimpint
28 #include "wx/vms_x_fix.h"
29 #endif
30 #include <Xm/Xm.h>
31 #ifdef __VMS
32 #pragma message enable nosimpint
33 #endif
34
35 #include "wx/string.h"
36 #include "wx/font.h"
37 #include "wx/gdicmn.h"
38 #include "wx/utils.h" // for wxGetDisplay()
39 #include "wx/fontutil.h" // for wxNativeFontInfo
40 #include "wx/tokenzr.h"
41 #include "wx/settings.h"
42 #include "wx/motif/private.h"
43
44 IMPLEMENT_DYNAMIC_CLASS(wxFont, wxGDIObject)
45
46 // ----------------------------------------------------------------------------
47 // private classes
48 // ----------------------------------------------------------------------------
49
50 // For every wxFont, there must be a font for each display and scale requested.
51 // So these objects are stored in wxFontRefData::m_fonts
52 class wxXFont : public wxObject
53 {
54 public:
55 wxXFont();
56 ~wxXFont();
57
58 WXFontStructPtr m_fontStruct; // XFontStruct
59 WXFontList m_fontList; // Motif XmFontList
60 #if wxCHECK_MOTIF_VERSION( 2, 0 )
61 WXRenderTable m_renderTable; // Motif XmRenderTable
62 #endif
63 WXDisplay* m_display; // XDisplay
64 int m_scale; // Scale * 100
65 };
66
67 class wxFontRefData: public wxGDIRefData
68 {
69 friend class wxFont;
70
71 public:
72 wxFontRefData(int size = wxDEFAULT,
73 int family = wxDEFAULT,
74 int style = wxDEFAULT,
75 int weight = wxDEFAULT,
76 bool underlined = FALSE,
77 const wxString& faceName = wxEmptyString,
78 wxFontEncoding encoding = wxFONTENCODING_DEFAULT)
79 {
80 Init(size, family, style, weight, underlined, faceName, encoding);
81 }
82
83 wxFontRefData(const wxFontRefData& data)
84 {
85 Init(data.m_pointSize, data.m_family, data.m_style, data.m_weight,
86 data.m_underlined, data.m_faceName, data.m_encoding);
87 }
88
89 ~wxFontRefData();
90
91 protected:
92 // common part of all ctors
93 void Init(int size,
94 int family,
95 int style,
96 int weight,
97 bool underlined,
98 const wxString& faceName,
99 wxFontEncoding encoding);
100
101 // font attributes
102 int m_pointSize;
103 int m_family;
104 int m_style;
105 int m_weight;
106 bool m_underlined;
107 wxString m_faceName;
108 wxFontEncoding m_encoding;
109
110 wxNativeFontInfo m_nativeFontInfo;
111
112 // A list of wxXFonts
113 wxList m_fonts;
114 };
115
116 // ============================================================================
117 // implementation
118 // ============================================================================
119
120 // ----------------------------------------------------------------------------
121 // wxXFont
122 // ----------------------------------------------------------------------------
123
124 wxXFont::wxXFont()
125 {
126 m_fontStruct = (WXFontStructPtr) 0;
127 m_fontList = (WXFontList) 0;
128 #if wxCHECK_MOTIF_VERSION( 2, 0 )
129 m_renderTable = (WXRenderTable) 0;
130 #endif
131 m_display = (WXDisplay*) 0;
132 m_scale = 100;
133 }
134
135 wxXFont::~wxXFont()
136 {
137 XmFontList fontList = (XmFontList) m_fontList;
138 XmFontListFree (fontList);
139
140 #if wxCHECK_MOTIF_VERSION( 2, 0 ) && !wxCHECK_LESSTIF()
141 XmRenderTable renderTable = (XmRenderTable) m_renderTable;
142 XmRenderTableFree (renderTable);
143 #endif
144
145 // TODO: why does freeing the font produce a segv???
146 // Note that XFreeFont wasn't called in wxWin 1.68 either.
147 // XFontStruct* fontStruct = (XFontStruct*) m_fontStruct;
148 // XFreeFont((Display*) m_display, fontStruct);
149 }
150
151 // ----------------------------------------------------------------------------
152 // wxFontRefData
153 // ----------------------------------------------------------------------------
154
155 void wxFontRefData::Init(int pointSize,
156 int family,
157 int style,
158 int weight,
159 bool underlined,
160 const wxString& faceName,
161 wxFontEncoding encoding)
162 {
163 if (family == wxDEFAULT)
164 m_family = wxSWISS;
165 else
166 m_family = family;
167
168 m_faceName = faceName;
169
170 if (style == wxDEFAULT)
171 m_style = wxNORMAL;
172 else
173 m_style = style;
174
175 if (weight == wxDEFAULT)
176 m_weight = wxNORMAL;
177 else
178 m_weight = weight;
179
180 if (pointSize == wxDEFAULT)
181 m_pointSize = 12;
182 else
183 m_pointSize = pointSize;
184
185 m_underlined = underlined;
186 m_encoding = encoding;
187 }
188
189 wxFontRefData::~wxFontRefData()
190 {
191 wxList::Node* node = m_fonts.GetFirst();
192 while (node)
193 {
194 wxXFont* f = (wxXFont*) node->GetData();
195 delete f;
196 node = node->GetNext();
197 }
198 m_fonts.Clear();
199 }
200
201 // ----------------------------------------------------------------------------
202 // wxFont
203 // ----------------------------------------------------------------------------
204
205 wxFont::wxFont(const wxNativeFontInfo& info)
206 {
207 Init();
208
209 (void)Create(info.GetXFontName());
210 }
211
212 void wxFont::Init()
213 {
214 }
215
216 bool wxFont::Create(int pointSize,
217 int family,
218 int style,
219 int weight,
220 bool underlined,
221 const wxString& faceName,
222 wxFontEncoding encoding)
223 {
224 UnRef();
225 m_refData = new wxFontRefData(pointSize, family, style, weight,
226 underlined, faceName, encoding);
227
228 RealizeResource();
229
230 return TRUE;
231 }
232
233 bool wxFont::Create(const wxString& fontname, wxFontEncoding enc)
234 {
235 if( !fontname )
236 {
237 *this = wxSystemSettings::GetFont( wxSYS_DEFAULT_GUI_FONT);
238 return TRUE;
239 }
240
241 m_refData = new wxFontRefData();
242
243 M_FONTDATA->m_nativeFontInfo.SetXFontName(fontname); // X font name
244
245 wxString tmp;
246
247 wxStringTokenizer tn( fontname, wxT("-") );
248
249 tn.GetNextToken(); // skip initial empty token
250 tn.GetNextToken(); // foundry
251
252
253 M_FONTDATA->m_faceName = tn.GetNextToken(); // family
254
255 tmp = tn.GetNextToken().MakeUpper(); // weight
256 if (tmp == wxT("BOLD")) M_FONTDATA->m_weight = wxBOLD;
257 if (tmp == wxT("BLACK")) M_FONTDATA->m_weight = wxBOLD;
258 if (tmp == wxT("EXTRABOLD")) M_FONTDATA->m_weight = wxBOLD;
259 if (tmp == wxT("DEMIBOLD")) M_FONTDATA->m_weight = wxBOLD;
260 if (tmp == wxT("ULTRABOLD")) M_FONTDATA->m_weight = wxBOLD;
261
262 if (tmp == wxT("LIGHT")) M_FONTDATA->m_weight = wxLIGHT;
263 if (tmp == wxT("THIN")) M_FONTDATA->m_weight = wxLIGHT;
264
265 tmp = tn.GetNextToken().MakeUpper(); // slant
266 if (tmp == wxT("I")) M_FONTDATA->m_style = wxITALIC;
267 if (tmp == wxT("O")) M_FONTDATA->m_style = wxITALIC;
268
269 tn.GetNextToken(); // set width
270 tn.GetNextToken(); // add. style
271 tn.GetNextToken(); // pixel size
272
273 tmp = tn.GetNextToken(); // pointsize
274 if (tmp != wxT("*"))
275 {
276 long num = wxStrtol (tmp.c_str(), (wxChar **) NULL, 10);
277 M_FONTDATA->m_pointSize = (int)(num / 10);
278 }
279
280 tn.GetNextToken(); // x-res
281 tn.GetNextToken(); // y-res
282
283 tmp = tn.GetNextToken().MakeUpper(); // spacing
284
285 if (tmp == wxT("M"))
286 M_FONTDATA->m_family = wxMODERN;
287 else if (M_FONTDATA->m_faceName == wxT("TIMES"))
288 M_FONTDATA->m_family = wxROMAN;
289 else if (M_FONTDATA->m_faceName == wxT("HELVETICA"))
290 M_FONTDATA->m_family = wxSWISS;
291 else if (M_FONTDATA->m_faceName == wxT("LUCIDATYPEWRITER"))
292 M_FONTDATA->m_family = wxTELETYPE;
293 else if (M_FONTDATA->m_faceName == wxT("LUCIDA"))
294 M_FONTDATA->m_family = wxDECORATIVE;
295 else if (M_FONTDATA->m_faceName == wxT("UTOPIA"))
296 M_FONTDATA->m_family = wxSCRIPT;
297
298 tn.GetNextToken(); // avg width
299
300 // deal with font encoding
301 M_FONTDATA->m_encoding = enc;
302 if ( M_FONTDATA->m_encoding == wxFONTENCODING_SYSTEM )
303 {
304 wxString registry = tn.GetNextToken().MakeUpper(),
305 encoding = tn.GetNextToken().MakeUpper();
306
307 if ( registry == _T("ISO8859") )
308 {
309 int cp;
310 if ( wxSscanf(encoding, wxT("%d"), &cp) == 1 )
311 {
312 M_FONTDATA->m_encoding =
313 (wxFontEncoding)(wxFONTENCODING_ISO8859_1 + cp - 1);
314 }
315 }
316 else if ( registry == _T("MICROSOFT") )
317 {
318 int cp;
319 if ( wxSscanf(encoding, wxT("cp125%d"), &cp) == 1 )
320 {
321 M_FONTDATA->m_encoding =
322 (wxFontEncoding)(wxFONTENCODING_CP1250 + cp);
323 }
324 }
325 else if ( registry == _T("KOI8") )
326 {
327 M_FONTDATA->m_encoding = wxFONTENCODING_KOI8;
328 }
329 //else: unknown encoding - may be give a warning here?
330 else
331 return FALSE;
332 }
333 return TRUE;
334 }
335
336 wxFont::~wxFont()
337 {
338 }
339
340 // ----------------------------------------------------------------------------
341 // change the font attributes
342 // ----------------------------------------------------------------------------
343
344 void wxFont::Unshare()
345 {
346 // Don't change shared data
347 if (!m_refData)
348 {
349 m_refData = new wxFontRefData();
350 }
351 else
352 {
353 wxFontRefData* ref = new wxFontRefData(*(wxFontRefData*)m_refData);
354 UnRef();
355 m_refData = ref;
356 }
357 }
358
359 void wxFont::SetPointSize(int pointSize)
360 {
361 Unshare();
362
363 M_FONTDATA->m_pointSize = pointSize;
364 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
365
366 RealizeResource();
367 }
368
369 void wxFont::SetFamily(int family)
370 {
371 Unshare();
372
373 M_FONTDATA->m_family = family;
374 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
375
376 RealizeResource();
377 }
378
379 void wxFont::SetStyle(int style)
380 {
381 Unshare();
382
383 M_FONTDATA->m_style = style;
384 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
385
386 RealizeResource();
387 }
388
389 void wxFont::SetWeight(int weight)
390 {
391 Unshare();
392
393 M_FONTDATA->m_weight = weight;
394 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
395
396 RealizeResource();
397 }
398
399 void wxFont::SetFaceName(const wxString& faceName)
400 {
401 Unshare();
402
403 M_FONTDATA->m_faceName = faceName;
404 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
405
406 RealizeResource();
407 }
408
409 void wxFont::SetUnderlined(bool underlined)
410 {
411 Unshare();
412
413 M_FONTDATA->m_underlined = underlined;
414
415 RealizeResource();
416 }
417
418 void wxFont::SetEncoding(wxFontEncoding encoding)
419 {
420 Unshare();
421
422 M_FONTDATA->m_encoding = encoding;
423 M_FONTDATA->m_nativeFontInfo.GetXFontName().Clear(); // invalid now
424
425 RealizeResource();
426 }
427
428 void wxFont::DoSetNativeFontInfo(const wxNativeFontInfo& info)
429 {
430 Unshare();
431
432 M_FONTDATA->m_nativeFontInfo = info;
433 }
434
435 // ----------------------------------------------------------------------------
436 // query font attributes
437 // ----------------------------------------------------------------------------
438
439 int wxFont::GetPointSize() const
440 {
441 wxCHECK_MSG( Ok(), 0, wxT("invalid font") );
442
443 return M_FONTDATA->m_pointSize;
444 }
445
446 wxString wxFont::GetFaceName() const
447 {
448 wxCHECK_MSG( Ok(), wxT(""), wxT("invalid font") );
449
450 return M_FONTDATA->m_faceName ;
451 }
452
453 int wxFont::GetFamily() const
454 {
455 wxCHECK_MSG( Ok(), 0, wxT("invalid font") );
456
457 return M_FONTDATA->m_family;
458 }
459
460 int wxFont::GetStyle() const
461 {
462 wxCHECK_MSG( Ok(), 0, wxT("invalid font") );
463
464 return M_FONTDATA->m_style;
465 }
466
467 int wxFont::GetWeight() const
468 {
469 wxCHECK_MSG( Ok(), 0, wxT("invalid font") );
470
471 return M_FONTDATA->m_weight;
472 }
473
474 bool wxFont::GetUnderlined() const
475 {
476 wxCHECK_MSG( Ok(), FALSE, wxT("invalid font") );
477
478 return M_FONTDATA->m_underlined;
479 }
480
481 wxFontEncoding wxFont::GetEncoding() const
482 {
483 wxCHECK_MSG( Ok(), wxFONTENCODING_DEFAULT, wxT("invalid font") );
484
485 return M_FONTDATA->m_encoding;
486 }
487
488 wxNativeFontInfo *wxFont::GetNativeFontInfo() const
489 {
490 wxCHECK_MSG( Ok(), (wxNativeFontInfo *)NULL, wxT("invalid font") );
491
492 if(M_FONTDATA->m_nativeFontInfo.GetXFontName().IsEmpty())
493 GetInternalFont();
494
495 return new wxNativeFontInfo(M_FONTDATA->m_nativeFontInfo);
496 }
497
498 // ----------------------------------------------------------------------------
499 // real implementation
500 // ----------------------------------------------------------------------------
501
502 // Find an existing, or create a new, XFontStruct
503 // based on this wxFont and the given scale. Append the
504 // font to list in the private data for future reference.
505 wxXFont* wxFont::GetInternalFont(double scale, WXDisplay* display) const
506 {
507 if ( !Ok() )
508 return (wxXFont *)NULL;
509
510 long intScale = long(scale * 100.0 + 0.5); // key for wxXFont
511 int pointSize = (M_FONTDATA->m_pointSize * 10 * intScale) / 100;
512
513 // search existing fonts first
514 wxList::Node* node = M_FONTDATA->m_fonts.GetFirst();
515 while (node)
516 {
517 wxXFont* f = (wxXFont*) node->GetData();
518 if ((!display || (f->m_display == display)) && (f->m_scale == intScale))
519 return f;
520 node = node->GetNext();
521 }
522
523 // not found, create a new one
524 XFontStruct *font = (XFontStruct *)
525 wxLoadQueryNearestFont(pointSize,
526 M_FONTDATA->m_family,
527 M_FONTDATA->m_style,
528 M_FONTDATA->m_weight,
529 M_FONTDATA->m_underlined,
530 wxT(""),
531 M_FONTDATA->m_encoding);
532
533 if ( !font )
534 {
535 wxFAIL_MSG( wxT("Could not allocate even a default font -- something is wrong.") );
536
537 return (wxXFont*) NULL;
538 }
539
540 wxXFont* f = new wxXFont;
541 f->m_fontStruct = (WXFontStructPtr)font;
542 f->m_display = ( display ? display : wxGetDisplay() );
543 f->m_scale = intScale;
544 f->m_fontList = XmFontListCreate ((XFontStruct*) font, XmSTRING_DEFAULT_CHARSET);
545 M_FONTDATA->m_fonts.Append(f);
546
547 #if wxCHECK_MOTIF_VERSION( 2, 0 ) && !wxCHECK_LESSTIF()
548 XmRendition rendition;
549 XmRenderTable renderTable;
550 Arg args[5];
551 int count = 0;
552
553 XtSetArg( args[count], XmNfont, font ); ++count;
554 XtSetArg( args[count], XmNunderlineType,
555 GetUnderlined() ? XmSINGLE_LINE : XmNO_LINE ); ++count;
556 rendition = XmRenditionCreate( XmGetXmDisplay( (Display*)f->m_display ),
557 (XmStringTag)"",
558 args, count );
559 renderTable = XmRenderTableAddRenditions( NULL, &rendition, 1,
560 XmMERGE_REPLACE );
561
562 f->m_renderTable = (WXRenderTable)renderTable;
563 #endif
564
565 return f;
566 }
567
568 WXFontStructPtr wxFont::GetFontStruct(double scale, WXDisplay* display) const
569 {
570 wxXFont* f = GetInternalFont(scale, display);
571
572 return (f ? f->m_fontStruct : (WXFontStructPtr) 0);
573 }
574
575 WXFontList wxFont::GetFontList(double scale, WXDisplay* display) const
576 {
577 wxXFont* f = GetInternalFont(scale, display);
578
579 return (f ? f->m_fontList : (WXFontList) 0);
580 }
581
582 #if wxCHECK_MOTIF_VERSION( 2, 0 )
583
584 WXRenderTable wxFont::GetRenderTable(WXDisplay* display) const
585 {
586 wxXFont* f = GetInternalFont(1.0, display);
587
588 return (f ? f->m_renderTable : (WXFontList) 0);
589 }
590
591 #endif
592
593 WXFontType wxFont::GetFontType(WXDisplay* display) const
594 {
595 #if wxCHECK_MOTIF_VERSION( 2, 0 ) && !wxCHECK_LESSTIF()
596 return Ok() ? GetRenderTable(display) : NULL;
597 #else
598 return Ok() ? GetFontList(1.0, display) : NULL;
599 #endif
600 }
601
602 /*static*/ WXString wxFont::GetFontTag()
603 {
604 #if wxCHECK_MOTIF_VERSION( 2, 0 ) && !wxCHECK_LESSTIF()
605 return (WXString)XmNrenderTable;
606 #else
607 return (WXString)XmNfontList;
608 #endif
609 }