src/motif/font.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        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 #ifdef __GNUG__
  13 #pragma implementation "font.h"
  14 #endif
  15
  16 #include "wx/defs.h"
  17 #include "wx/string.h"
  18 #include "wx/font.h"
  19 #include "wx/gdicmn.h"
  20 #include "wx/utils.h"
  21
  22 #include <X11/Xlib.h>
  23
  24 #if !USE_SHARED_LIBRARIES
  25 IMPLEMENT_DYNAMIC_CLASS(wxFont, wxGDIObject)
  26 #endif
  27
  28 wxFontRefData::wxFontRefData(): m_fontsByScale(wxKEY_INTEGER)
  29 {
  30     m_style = 0;
  31     m_pointSize = 0;
  32     m_family = 0;
  33     m_style = 0;
  34     m_weight = 0;
  35     m_underlined = 0;
  36     m_faceName = "";
  37 }
  38
  39 wxFontRefData::wxFontRefData(const wxFontRefData& data): m_fontsByScale(wxKEY_INTEGER)
  40 {
  41     m_style = data.m_style;
  42     m_pointSize = data.m_pointSize;
  43     m_family = data.m_family;
  44     m_style = data.m_style;
  45     m_weight = data.m_weight;
  46     m_underlined = data.m_underlined;
  47     m_faceName = data.m_faceName;
  48
  49     // Don't have to copy actual fonts, because they'll be created
  50     // on demand.
  51 }
  52
  53 wxFontRefData::~wxFontRefData()
  54 {
  55     wxNode* node = m_fontsByScale.First();
  56     while (node)
  57     {
  58         XFontStruct* fontStruct = (XFontStruct*) node->Data();
  59         // TODO: why does freeing the font produce a segv???
  60         // Commenting it out will result in memory leaks, and
  61         // maybe X resource problems, who knows...
  62         //        XFreeFont((Display*) wxGetDisplay, fontStruct);
  63         node = node->Next();
  64     }
  65     m_fontsByScale.Clear();
  66 }
  67
  68 wxFont::wxFont()
  69 {
  70     if ( wxTheFontList )
  71         wxTheFontList->Append(this);
  72 }
  73
  74 wxFont::wxFont(int pointSize, int family, int style, int weight, bool underlined, const wxString& faceName)
  75 {
  76     Create(pointSize, family, style, weight, underlined, faceName);
  77
  78     if ( wxTheFontList )
  79         wxTheFontList->Append(this);
  80 }
  81
  82 bool wxFont::Create(int pointSize, int family, int style, int weight, bool underlined, const wxString& faceName)
  83 {
  84     UnRef();
  85     m_refData = new wxFontRefData;
  86
  87     M_FONTDATA->m_family = family;
  88     M_FONTDATA->m_style = style;
  89     M_FONTDATA->m_weight = weight;
  90     M_FONTDATA->m_pointSize = pointSize;
  91     M_FONTDATA->m_underlined = underlined;
  92     M_FONTDATA->m_faceName = faceName;
  93
  94     RealizeResource();
  95
  96     return TRUE;
  97 }
  98
  99 wxFont::~wxFont()
 100 {
 101     if (wxTheFontList)
 102         wxTheFontList->DeleteObject(this);
 103 }
 104
 105 bool wxFont::RealizeResource()
 106 {
 107     // TODO: create the font (if there is a native font object)
 108     return FALSE;
 109 }
 110
 111 void wxFont::Unshare()
 112 {
 113         // Don't change shared data
 114         if (!m_refData)
 115     {
 116                 m_refData = new wxFontRefData();
 117         }
 118     else
 119     {
 120                 wxFontRefData* ref = new wxFontRefData(*(wxFontRefData*)m_refData);
 121                 UnRef();
 122                 m_refData = ref;
 123         }
 124 }
 125
 126 void wxFont::SetPointSize(int pointSize)
 127 {
 128     Unshare();
 129
 130     M_FONTDATA->m_pointSize = pointSize;
 131
 132     RealizeResource();
 133 }
 134
 135 void wxFont::SetFamily(int family)
 136 {
 137     Unshare();
 138
 139     M_FONTDATA->m_family = family;
 140
 141     RealizeResource();
 142 }
 143
 144 void wxFont::SetStyle(int style)
 145 {
 146     Unshare();
 147
 148     M_FONTDATA->m_style = style;
 149
 150     RealizeResource();
 151 }
 152
 153 void wxFont::SetWeight(int weight)
 154 {
 155     Unshare();
 156
 157     M_FONTDATA->m_weight = weight;
 158
 159     RealizeResource();
 160 }
 161
 162 void wxFont::SetFaceName(const wxString& faceName)
 163 {
 164     Unshare();
 165
 166     M_FONTDATA->m_faceName = faceName;
 167
 168     RealizeResource();
 169 }
 170
 171 void wxFont::SetUnderlined(bool underlined)
 172 {
 173     Unshare();
 174
 175     M_FONTDATA->m_underlined = underlined;
 176
 177     RealizeResource();
 178 }
 179
 180 wxString wxFont::GetFamilyString() const
 181 {
 182   wxString fam("");
 183   switch (GetFamily())
 184   {
 185     case wxDECORATIVE:
 186       fam = "wxDECORATIVE";
 187       break;
 188     case wxROMAN:
 189       fam = "wxROMAN";
 190       break;
 191     case wxSCRIPT:
 192       fam = "wxSCRIPT";
 193       break;
 194     case wxSWISS:
 195       fam = "wxSWISS";
 196       break;
 197     case wxMODERN:
 198       fam = "wxMODERN";
 199       break;
 200     case wxTELETYPE:
 201       fam = "wxTELETYPE";
 202       break;
 203     default:
 204       fam = "wxDEFAULT";
 205       break;
 206   }
 207   return fam;
 208 }
 209
 210 /* New font system */
 211 wxString wxFont::GetFaceName() const
 212 {
 213     wxString str("");
 214     if (M_FONTDATA)
 215             str = M_FONTDATA->m_faceName ;
 216     return str;
 217 }
 218
 219 wxString wxFont::GetStyleString() const
 220 {
 221     wxString styl("");
 222     switch (GetStyle())
 223     {
 224         case wxITALIC:
 225             styl = "wxITALIC";
 226             break;
 227         case wxSLANT:
 228             styl = "wxSLANT";
 229             break;
 230         default:
 231             styl = "wxNORMAL";
 232             break;
 233     }
 234     return styl;
 235 }
 236
 237 wxString wxFont::GetWeightString() const
 238 {
 239     wxString w("");
 240     switch (GetWeight())
 241     {
 242         case wxBOLD:
 243             w = "wxBOLD";
 244             break;
 245         case wxLIGHT:
 246             w = "wxLIGHT";
 247             break;
 248         default:
 249             w = "wxNORMAL";
 250             break;
 251     }
 252     return w;
 253 }
 254
 255 // Find an existing, or create a new, XFontStruct
 256 // based on this wxFont and the given scale. Append the
 257 // font to list in the private data for future reference.
 258 WXFontStructPtr wxFont::FindOrCreateFontStruct(double scale)
 259 {
 260   if (!Ok())
 261     return NULL;
 262
 263   long intScale = long(scale * 100.0 + 0.5); // key for fontlist
 264   int pointSize = (M_FONTDATA->m_pointSize * 10 * intScale) / 100;
 265
 266   wxNode* node = M_FONTDATA->m_fontsByScale.Find(intScale);
 267   if (node)
 268   {
 269     return (WXFontStructPtr) node->Data();
 270   }
 271
 272   WXFontStructPtr font = LoadQueryFont(pointSize, M_FONTDATA->m_family,
 273     M_FONTDATA->m_style, M_FONTDATA->m_weight, M_FONTDATA->m_underlined);
 274
 275   if (!font)
 276   {
 277         // search up and down by stepsize 10
 278         int max_size = pointSize + 20 * (1 + (pointSize/180));
 279         int min_size = pointSize - 20 * (1 + (pointSize/180));
 280         int i;
 281
 282         // Search for smaller size (approx.)
 283         for (i=pointSize-10; !font && i >= 10 && i >= min_size; i -= 10)
 284             font = LoadQueryFont(i, M_FONTDATA->m_family, M_FONTDATA->m_style, M_FONTDATA->m_weight, M_FONTDATA->m_underlined);
 285         // Search for larger size (approx.)
 286         for (i=pointSize+10; !font && i <= max_size; i += 10)
 287             font = LoadQueryFont(i, M_FONTDATA->m_family, M_FONTDATA->m_style, M_FONTDATA->m_weight, M_FONTDATA->m_underlined);
 288         // Try default family
 289         if (!font && M_FONTDATA->m_family != wxDEFAULT)
 290             font = LoadQueryFont(pointSize, wxDEFAULT, M_FONTDATA->m_style,
 291                                    M_FONTDATA->m_weight, M_FONTDATA->m_underlined);
 292         // Bogus font
 293         if (!font)
 294             font = LoadQueryFont(120, wxDEFAULT, wxNORMAL, wxNORMAL,
 295                                     M_FONTDATA->m_underlined);
 296         wxASSERT_MSG( (font != (XFontStruct*) NULL), "Could not allocate even a default font -- something is wrong." );
 297   }
 298   if (font)
 299   {
 300       M_FONTDATA->m_fontsByScale.Append(intScale, (wxObject*) font);
 301       return (WXFontStructPtr) font;
 302   }
 303   return font;
 304 }
 305
 306 WXFontStructPtr wxFont::LoadQueryFont(int pointSize, int family, int style,
 307    int weight, bool underlined)
 308 {
 309     char *xfamily;
 310     char *xstyle;
 311     char *xweight;
 312     switch (family)
 313     {
 314       case wxDECORATIVE: xfamily = "lucida";
 315                          break;
 316       case wxROMAN:      xfamily = "times";
 317                          break;
 318       case wxMODERN:     xfamily = "courier";
 319                          break;
 320       case wxSWISS:      xfamily = "lucida";
 321                          break;
 322       case wxDEFAULT:
 323         default:           xfamily = "*";
 324     }
 325     switch (style)
 326     {
 327       case wxITALIC:     xstyle = "i";
 328                          break;
 329       case wxSLANT:      xstyle = "o";
 330                          break;
 331       case wxNORMAL:     xstyle = "r";
 332                          break;
 333       default:           xstyle = "*";
 334                          break;
 335     }
 336     switch (weight)
 337     {
 338       case wxBOLD:       xweight = "bold";
 339                          break;
 340       case wxLIGHT:
 341       case wxNORMAL:     xweight = "medium";
 342                          break;
 343       default:           xweight = "*";
 344                          break;
 345     }
 346
 347     sprintf(wxBuffer, "-*-%s-%s-%s-normal-*-*-%d-*-*-*-*-*-*",
 348             xfamily, xweight, xstyle, pointSize);
 349
 350     Display *dpy = (Display*) wxGetDisplay();
 351     XFontStruct* font = XLoadQueryFont(dpy, wxBuffer);
 352
 353     return (WXFontStructPtr) font;
 354 }