src/common/gdicmn.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        gdicmn.cpp
   3 // Purpose:     Common GDI classes
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     01/02/97
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart and Markus Holzem
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "gdicmn.h"
  14 #endif
  15
  16 #ifdef __VMS
  17 #define XtDisplay XTDISPLAY
  18 #endif
  19
  20 // For compilers that support precompilation, includes "wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24 #pragma hdrstop
  25 #endif
  26
  27 #include "wx/event.h"
  28 #include "wx/gdicmn.h"
  29 #include "wx/brush.h"
  30 #include "wx/pen.h"
  31 #include "wx/bitmap.h"
  32 #include "wx/icon.h"
  33 #include "wx/cursor.h"
  34 #include "wx/font.h"
  35 #include "wx/palette.h"
  36 #include "wx/app.h"
  37 #include "wx/dc.h"
  38 #include "wx/utils.h"
  39 #include "wx/settings.h"
  40
  41 #include "wx/log.h"
  42 #include <string.h>
  43
  44 #ifdef __WXMSW__
  45 #include <windows.h>
  46 #endif
  47
  48 #ifdef __WXMOTIF__
  49 #ifdef __VMS__
  50 #pragma message disable nosimpint
  51 #endif
  52 #include <Xm/Xm.h>
  53 #ifdef __VMS__
  54 #pragma message enable nosimpint
  55 #endif
  56 #endif
  57
  58 IMPLEMENT_CLASS(wxColourDatabase, wxList)
  59 IMPLEMENT_DYNAMIC_CLASS(wxFontList, wxList)
  60 IMPLEMENT_DYNAMIC_CLASS(wxPenList, wxList)
  61 IMPLEMENT_DYNAMIC_CLASS(wxBrushList, wxList)
  62 IMPLEMENT_DYNAMIC_CLASS(wxBitmapList, wxList)
  63 IMPLEMENT_DYNAMIC_CLASS(wxResourceCache, wxList)
  64
  65 IMPLEMENT_ABSTRACT_CLASS(wxDCBase, wxObject)
  66
  67 wxRect::wxRect(const wxPoint& topLeft, const wxPoint& bottomRight)
  68 {
  69   x = topLeft.x;
  70   y = topLeft.y;
  71   width = bottomRight.x - topLeft.x + 1;
  72   height = bottomRight.y - topLeft.y + 1;
  73
  74   if (width < 0)
  75   {
  76     width = -width;
  77     x -= width;
  78   }
  79
  80   if (height < 0)
  81   {
  82     height = -height;
  83     y -= height;
  84   }
  85 }
  86
  87 wxRect::wxRect(const wxPoint& point, const wxSize& size)
  88 {
  89     x = point.x; y = point.y;
  90     width = size.x; height = size.y;
  91 }
  92
  93 bool wxRect::operator==(const wxRect& rect) const
  94 {
  95   return ((x == rect.x) &&
  96           (y == rect.y) &&
  97           (width == rect.width) &&
  98           (height == rect.height));
  99 }
 100
 101 wxRect& wxRect::operator += (const wxRect& rect)
 102 {
 103     *this = (*this + rect);
 104     return ( *this ) ;
 105 }
 106
 107 wxRect wxRect::operator + (const wxRect& rect) const
 108 {
 109     int x1 = wxMin(this->x, rect.x);
 110     int y1 = wxMin(this->y, rect.y);
 111     int y2 = wxMax(y+height, rect.height+rect.y);
 112     int x2 = wxMax(x+width, rect.width+rect.x);
 113     return wxRect(x1, y1, x2-x1, y2-y1);
 114 }
 115
 116 bool wxRect::Inside(int cx, int cy) const
 117 {
 118     return ( (cx >= x) && (cy >= y)
 119           && ((cy - y) < height)
 120           && ((cx - x) < width)
 121           );
 122 }
 123
 124 wxColourDatabase::wxColourDatabase (int type) : wxList (type)
 125 {
 126 }
 127
 128 wxColourDatabase::~wxColourDatabase ()
 129 {
 130   // Cleanup Colour allocated in Initialize()
 131   wxNode *node = First ();
 132   while (node)
 133     {
 134       wxColour *col = (wxColour *) node->Data ();
 135       wxNode *next = node->Next ();
 136       delete col;
 137       node = next;
 138     }
 139 #ifdef __WXPM__
 140     delete [] m_palTable;
 141 #endif
 142 }
 143
 144 // Colour database stuff
 145 void wxColourDatabase::Initialize ()
 146 {
 147     static const struct wxColourDesc
 148     {
 149         const wxChar *name;
 150         int r,g,b;
 151     }
 152     wxColourTable[] =
 153     {
 154         {wxT("AQUAMARINE"),112, 219, 147},
 155         {wxT("BLACK"),0, 0, 0},
 156         {wxT("BLUE"), 0, 0, 255},
 157         {wxT("BLUE VIOLET"), 159, 95, 159},
 158         {wxT("BROWN"), 165, 42, 42},
 159         {wxT("CADET BLUE"), 95, 159, 159},
 160         {wxT("CORAL"), 255, 127, 0},
 161         {wxT("CORNFLOWER BLUE"), 66, 66, 111},
 162         {wxT("CYAN"), 0, 255, 255},
 163         {wxT("DARK GREY"), 47, 47, 47},   // ?
 164
 165         {wxT("DARK GREEN"), 47, 79, 47},
 166         {wxT("DARK OLIVE GREEN"), 79, 79, 47},
 167         {wxT("DARK ORCHID"), 153, 50, 204},
 168         {wxT("DARK SLATE BLUE"), 107, 35, 142},
 169         {wxT("DARK SLATE GREY"), 47, 79, 79},
 170         {wxT("DARK TURQUOISE"), 112, 147, 219},
 171         {wxT("DIM GREY"), 84, 84, 84},
 172         {wxT("FIREBRICK"), 142, 35, 35},
 173         {wxT("FOREST GREEN"), 35, 142, 35},
 174         {wxT("GOLD"), 204, 127, 50},
 175         {wxT("GOLDENROD"), 219, 219, 112},
 176         {wxT("GREY"), 128, 128, 128},
 177         {wxT("GREEN"), 0, 255, 0},
 178         {wxT("GREEN YELLOW"), 147, 219, 112},
 179         {wxT("INDIAN RED"), 79, 47, 47},
 180         {wxT("KHAKI"), 159, 159, 95},
 181         {wxT("LIGHT BLUE"), 191, 216, 216},
 182         {wxT("LIGHT GREY"), 192, 192, 192},
 183         {wxT("LIGHT STEEL BLUE"), 143, 143, 188},
 184         {wxT("LIME GREEN"), 50, 204, 50},
 185         {wxT("LIGHT MAGENTA"), 255, 0, 255},
 186         {wxT("MAGENTA"), 255, 0, 255},
 187         {wxT("MAROON"), 142, 35, 107},
 188         {wxT("MEDIUM AQUAMARINE"), 50, 204, 153},
 189         {wxT("MEDIUM GREY"), 100, 100, 100},
 190         {wxT("MEDIUM BLUE"), 50, 50, 204},
 191         {wxT("MEDIUM FOREST GREEN"), 107, 142, 35},
 192         {wxT("MEDIUM GOLDENROD"), 234, 234, 173},
 193         {wxT("MEDIUM ORCHID"), 147, 112, 219},
 194         {wxT("MEDIUM SEA GREEN"), 66, 111, 66},
 195         {wxT("MEDIUM SLATE BLUE"), 127, 0, 255},
 196         {wxT("MEDIUM SPRING GREEN"), 127, 255, 0},
 197         {wxT("MEDIUM TURQUOISE"), 112, 219, 219},
 198         {wxT("MEDIUM VIOLET RED"), 219, 112, 147},
 199         {wxT("MIDNIGHT BLUE"), 47, 47, 79},
 200         {wxT("NAVY"), 35, 35, 142},
 201         {wxT("ORANGE"), 204, 50, 50},
 202         {wxT("ORANGE RED"), 255, 0, 127},
 203         {wxT("ORCHID"), 219, 112, 219},
 204         {wxT("PALE GREEN"), 143, 188, 143},
 205         {wxT("PINK"), 188, 143, 234},
 206         {wxT("PLUM"), 234, 173, 234},
 207         {wxT("PURPLE"), 176, 0, 255},
 208         {wxT("RED"), 255, 0, 0},
 209         {wxT("SALMON"), 111, 66, 66},
 210         {wxT("SEA GREEN"), 35, 142, 107},
 211         {wxT("SIENNA"), 142, 107, 35},
 212         {wxT("SKY BLUE"), 50, 153, 204},
 213         {wxT("SLATE BLUE"), 0, 127, 255},
 214         {wxT("SPRING GREEN"), 0, 255, 127},
 215         {wxT("STEEL BLUE"), 35, 107, 142},
 216         {wxT("TAN"), 219, 147, 112},
 217         {wxT("THISTLE"), 216, 191, 216},
 218         {wxT("TURQUOISE"), 173, 234, 234},
 219         {wxT("VIOLET"), 79, 47, 79},
 220         {wxT("VIOLET RED"), 204, 50, 153},
 221         {wxT("WHEAT"), 216, 216, 191},
 222         {wxT("WHITE"), 255, 255, 255},
 223         {wxT("YELLOW"), 255, 255, 0},
 224         {wxT("YELLOW GREEN"), 153, 204, 50},
 225         {wxT("MEDIUM GOLDENROD"), 234, 234, 173},
 226         {wxT("MEDIUM FOREST GREEN"), 107, 142, 35},
 227         {wxT("LIGHT MAGENTA"), 255, 0, 255},
 228         {wxT("MEDIUM GREY"), 100, 100, 100},
 229     };
 230
 231     size_t      n;
 232
 233     for ( n = 0; n < WXSIZEOF(wxColourTable); n++ )
 234     {
 235         const wxColourDesc& cc = wxColourTable[n];
 236         Append(cc.name, new wxColour(cc.r,cc.g,cc.b));
 237     }
 238 #ifdef __WXPM__
 239     m_palTable = new long[n];
 240     for ( n = 0; n < WXSIZEOF(wxColourTable); n++ )
 241     {
 242         const wxColourDesc& cc = wxColourTable[n];
 243         m_palTable[n] = OS2RGB(cc.r,cc.g,cc.b);
 244     }
 245     m_nSize = n;
 246 #endif
 247 }
 248
 249 /*
 250  * Changed by Ian Brown, July 1994.
 251  *
 252  * When running under X, the Colour Database starts off empty. The X server
 253  * is queried for the colour first time after which it is entered into the
 254  * database. This allows our client to use the server colour database which
 255  * is hopefully gamma corrected for the display being used.
 256  */
 257
 258 wxColour *wxColourDatabase::FindColour(const wxString& colour)
 259 {
 260     // VZ: make the comparaison case insensitive and also match both grey and
 261     //     gray
 262     wxString colName = colour;
 263     colName.MakeUpper();
 264     wxString colName2 = colName;
 265     if ( !colName2.Replace(_T("GRAY"), _T("GREY")) )
 266         colName2.clear();
 267
 268     wxNode *node = First();
 269     while ( node )
 270     {
 271         const wxChar *key = node->GetKeyString();
 272         if ( colName == key || colName2 == key )
 273         {
 274             return (wxColour *)node->Data();
 275         }
 276
 277         node = node->Next();
 278     }
 279
 280 #ifdef __WXMSW__
 281   return NULL;
 282 #endif
 283 #ifdef __WXPM__
 284   return NULL;
 285 #endif
 286
 287 // TODO for other implementations. This should really go into
 288 // platform-specific directories.
 289 #ifdef __WXMAC__
 290   return NULL;
 291 #endif
 292 #ifdef __WXSTUBS__
 293   return NULL;
 294 #endif
 295
 296 #ifdef __WXGTK__
 297   wxColour *col = new wxColour( colour );
 298
 299   if (!(col->Ok())) {
 300       delete col;
 301       return (wxColour *) NULL;
 302   }
 303   Append( colour, col );
 304   return col;
 305 #endif
 306
 307 #ifdef __X__
 308     XColor xcolour;
 309
 310 #ifdef __WXMOTIF__
 311     Display *display = XtDisplay((Widget) wxTheApp->GetTopLevelWidget()) ;
 312 #endif
 313 #ifdef __XVIEW__
 314     Xv_Screen screen = xv_get(xview_server, SERVER_NTH_SCREEN, 0);
 315     Xv_opaque root_window = xv_get(screen, XV_ROOT);
 316     Display *display = (Display *)xv_get(root_window, XV_DISPLAY);
 317 #endif
 318
 319     /* MATTHEW: [4] Use wxGetMainColormap */
 320     if (!XParseColor(display, (Colormap) wxTheApp->GetMainColormap((WXDisplay*) display), colour,&xcolour))
 321       return NULL;
 322
 323     unsigned char r = (unsigned char)(xcolour.red >> 8);
 324     unsigned char g = (unsigned char)(xcolour.green >> 8);
 325     unsigned char b = (unsigned char)(xcolour.blue >> 8);
 326
 327     wxColour *col = new wxColour(r, g, b);
 328     Append(colour, col);
 329
 330     return col;
 331 #endif // __X__
 332 }
 333
 334 wxString wxColourDatabase::FindName (const wxColour& colour) const
 335 {
 336     wxString name;
 337
 338     unsigned char red = colour.Red ();
 339     unsigned char green = colour.Green ();
 340     unsigned char blue = colour.Blue ();
 341
 342     for (wxNode * node = First (); node; node = node->Next ())
 343     {
 344         wxColour *col = (wxColour *) node->Data ();
 345
 346         if (col->Red () == red && col->Green () == green && col->Blue () == blue)
 347         {
 348             const wxChar *found = node->GetKeyString();
 349             if ( found )
 350             {
 351                 name = found;
 352
 353                 break;
 354             }
 355         }
 356     }
 357
 358     return name;
 359 }
 360
 361 void wxInitializeStockLists () {
 362   wxTheBrushList = new wxBrushList;
 363   wxThePenList = new wxPenList;
 364   wxTheFontList = new wxFontList;
 365   wxTheBitmapList = new wxBitmapList;
 366 }
 367
 368 void wxInitializeStockObjects ()
 369 {
 370 #ifdef __WXMOTIF__
 371 #endif
 372 #ifdef __X__
 373   // TODO
 374   //  wxFontPool = new XFontPool;
 375 #endif
 376
 377   // why under MSW fonts shouldn't have the standard system size?
 378 /*
 379 #ifdef __WXMSW__
 380   static const int sizeFont = 10;
 381 #else
 382 #endif
 383 */
 384 #if defined(__WXPM__) || defined(__WXMAC__)
 385   static const int sizeFont = 12;
 386   wxNORMAL_FONT = new wxFont (sizeFont, wxMODERN, wxNORMAL, wxNORMAL);
 387 #else
 388   wxNORMAL_FONT = new wxFont(wxSystemSettings::GetSystemFont(wxSYS_DEFAULT_GUI_FONT));
 389   static const int sizeFont = wxNORMAL_FONT->GetPointSize();
 390 #endif
 391
 392   wxSMALL_FONT = new wxFont (sizeFont - 2, wxSWISS, wxNORMAL, wxNORMAL);
 393   wxITALIC_FONT = new wxFont (sizeFont, wxROMAN, wxITALIC, wxNORMAL);
 394   wxSWISS_FONT = new wxFont (sizeFont, wxSWISS, wxNORMAL, wxNORMAL);
 395
 396   wxRED_PEN = new wxPen ("RED", 1, wxSOLID);
 397   wxCYAN_PEN = new wxPen ("CYAN", 1, wxSOLID);
 398   wxGREEN_PEN = new wxPen ("GREEN", 1, wxSOLID);
 399   wxBLACK_PEN = new wxPen ("BLACK", 1, wxSOLID);
 400   wxWHITE_PEN = new wxPen ("WHITE", 1, wxSOLID);
 401   wxTRANSPARENT_PEN = new wxPen ("BLACK", 1, wxTRANSPARENT);
 402   wxBLACK_DASHED_PEN = new wxPen ("BLACK", 1, wxSHORT_DASH);
 403   wxGREY_PEN = new wxPen ("GREY", 1, wxSOLID);
 404   wxMEDIUM_GREY_PEN = new wxPen ("MEDIUM GREY", 1, wxSOLID);
 405   wxLIGHT_GREY_PEN = new wxPen ("LIGHT GREY", 1, wxSOLID);
 406
 407   wxBLUE_BRUSH = new wxBrush ("BLUE", wxSOLID);
 408   wxGREEN_BRUSH = new wxBrush ("GREEN", wxSOLID);
 409   wxWHITE_BRUSH = new wxBrush ("WHITE", wxSOLID);
 410   wxBLACK_BRUSH = new wxBrush ("BLACK", wxSOLID);
 411   wxTRANSPARENT_BRUSH = new wxBrush ("BLACK", wxTRANSPARENT);
 412   wxCYAN_BRUSH = new wxBrush ("CYAN", wxSOLID);
 413   wxRED_BRUSH = new wxBrush ("RED", wxSOLID);
 414   wxGREY_BRUSH = new wxBrush ("GREY", wxSOLID);
 415   wxMEDIUM_GREY_BRUSH = new wxBrush ("MEDIUM GREY", wxSOLID);
 416   wxLIGHT_GREY_BRUSH = new wxBrush ("LIGHT GREY", wxSOLID);
 417
 418   wxBLACK = new wxColour ("BLACK");
 419   wxWHITE = new wxColour ("WHITE");
 420   wxRED = new wxColour ("RED");
 421   wxBLUE = new wxColour ("BLUE");
 422   wxGREEN = new wxColour ("GREEN");
 423   wxCYAN = new wxColour ("CYAN");
 424   wxLIGHT_GREY = new wxColour ("LIGHT GREY");
 425
 426   wxSTANDARD_CURSOR = new wxCursor (wxCURSOR_ARROW);
 427   wxHOURGLASS_CURSOR = new wxCursor (wxCURSOR_WAIT);
 428   wxCROSS_CURSOR = new wxCursor (wxCURSOR_CROSS);
 429 }
 430
 431 void wxDeleteStockObjects ()
 432 {
 433   wxDELETE(wxNORMAL_FONT);
 434   wxDELETE(wxSMALL_FONT);
 435   wxDELETE(wxITALIC_FONT);
 436   wxDELETE(wxSWISS_FONT);
 437
 438   wxDELETE(wxRED_PEN);
 439   wxDELETE(wxCYAN_PEN);
 440   wxDELETE(wxGREEN_PEN);
 441   wxDELETE(wxBLACK_PEN);
 442   wxDELETE(wxWHITE_PEN);
 443   wxDELETE(wxTRANSPARENT_PEN);
 444   wxDELETE(wxBLACK_DASHED_PEN);
 445   wxDELETE(wxGREY_PEN);
 446   wxDELETE(wxMEDIUM_GREY_PEN);
 447   wxDELETE(wxLIGHT_GREY_PEN);
 448
 449   wxDELETE(wxBLUE_BRUSH);
 450   wxDELETE(wxGREEN_BRUSH);
 451   wxDELETE(wxWHITE_BRUSH);
 452   wxDELETE(wxBLACK_BRUSH);
 453   wxDELETE(wxTRANSPARENT_BRUSH);
 454   wxDELETE(wxCYAN_BRUSH);
 455   wxDELETE(wxRED_BRUSH);
 456   wxDELETE(wxGREY_BRUSH);
 457   wxDELETE(wxMEDIUM_GREY_BRUSH);
 458   wxDELETE(wxLIGHT_GREY_BRUSH);
 459
 460   wxDELETE(wxBLACK);
 461   wxDELETE(wxWHITE);
 462   wxDELETE(wxRED);
 463   wxDELETE(wxBLUE);
 464   wxDELETE(wxGREEN);
 465   wxDELETE(wxCYAN);
 466   wxDELETE(wxLIGHT_GREY);
 467
 468   wxDELETE(wxSTANDARD_CURSOR);
 469   wxDELETE(wxHOURGLASS_CURSOR);
 470   wxDELETE(wxCROSS_CURSOR);
 471 }
 472
 473 void wxDeleteStockLists() {
 474   wxDELETE(wxTheBrushList);
 475   wxDELETE(wxThePenList);
 476   wxDELETE(wxTheFontList);
 477   wxDELETE(wxTheBitmapList);
 478 }
 479
 480 wxBitmapList::wxBitmapList ()
 481 {
 482 }
 483
 484 wxBitmapList::~wxBitmapList ()
 485 {
 486   wxNode *node = First ();
 487   while (node)
 488     {
 489       wxBitmap *bitmap = (wxBitmap *) node->Data ();
 490       wxNode *next = node->Next ();
 491       if (bitmap->GetVisible())
 492         delete bitmap;
 493       node = next;
 494     }
 495 }
 496
 497 // Pen and Brush lists
 498 wxPenList::~wxPenList ()
 499 {
 500   wxNode *node = First ();
 501   while (node)
 502     {
 503       wxPen *pen = (wxPen *) node->Data ();
 504       wxNode *next = node->Next ();
 505       if (pen->GetVisible())
 506         delete pen;
 507       node = next;
 508     }
 509 }
 510
 511 void wxPenList::AddPen (wxPen * pen)
 512 {
 513   Append (pen);
 514 }
 515
 516 void wxPenList::RemovePen (wxPen * pen)
 517 {
 518   DeleteObject (pen);
 519 }
 520
 521 wxPen *wxPenList::FindOrCreatePen (const wxColour& colour, int width, int style)
 522 {
 523     for (wxNode * node = First (); node; node = node->Next ())
 524     {
 525         wxPen *each_pen = (wxPen *) node->Data ();
 526         if (each_pen &&
 527                 each_pen->GetVisible() &&
 528                 each_pen->GetWidth () == width &&
 529                 each_pen->GetStyle () == style &&
 530                 each_pen->GetColour ().Red () == colour.Red () &&
 531                 each_pen->GetColour ().Green () == colour.Green () &&
 532                 each_pen->GetColour ().Blue () == colour.Blue ())
 533             return each_pen;
 534     }
 535
 536     wxPen *pen = new wxPen (colour, width, style);
 537     if ( !pen->Ok() )
 538     {
 539         // don't save the invalid pens in the list
 540         delete pen;
 541
 542         return NULL;
 543     }
 544
 545     // Yes, we can return a pointer to this in a later FindOrCreatePen call,
 546     // because we created it within FindOrCreatePen. Safeguards against
 547     // returning a pointer to an automatic variable and hanging on to it
 548     // (dangling pointer).
 549     pen->SetVisible(TRUE);
 550
 551     return pen;
 552 }
 553
 554 wxBrushList::~wxBrushList ()
 555 {
 556   wxNode *node = First ();
 557   while (node)
 558     {
 559       wxBrush *brush = (wxBrush *) node->Data ();
 560       wxNode *next = node->Next ();
 561       if (brush->GetVisible())
 562         delete brush;
 563       node = next;
 564     }
 565 }
 566
 567 void wxBrushList::AddBrush (wxBrush * brush)
 568 {
 569   Append (brush);
 570 }
 571
 572 wxBrush *wxBrushList::FindOrCreateBrush (const wxColour& colour, int style)
 573 {
 574     for (wxNode * node = First (); node; node = node->Next ())
 575     {
 576         wxBrush *each_brush = (wxBrush *) node->Data ();
 577         if (each_brush &&
 578                 each_brush->GetVisible() &&
 579                 each_brush->GetStyle () == style &&
 580                 each_brush->GetColour ().Red () == colour.Red () &&
 581                 each_brush->GetColour ().Green () == colour.Green () &&
 582                 each_brush->GetColour ().Blue () == colour.Blue ())
 583             return each_brush;
 584     }
 585
 586     wxBrush *brush = new wxBrush (colour, style);
 587
 588     if ( !brush->Ok() )
 589     {
 590         // don't put the brushes we failed to create into the list
 591         delete brush;
 592
 593         return NULL;
 594     }
 595
 596     brush->SetVisible(TRUE);
 597
 598     // Yes, we can return a pointer to this in a later FindOrCreateBrush call,
 599     // because we created it within FindOrCreateBrush. Safeguards against
 600     // returning a pointer to an automatic variable and hanging on to it
 601     // (dangling pointer).
 602     return brush;
 603 }
 604
 605 void wxBrushList::RemoveBrush (wxBrush * brush)
 606 {
 607   DeleteObject (brush);
 608 }
 609
 610 wxFontList::~wxFontList ()
 611 {
 612     wxNode *node = First ();
 613     while (node)
 614     {
 615         // Only delete objects that are 'visible', i.e.
 616         // that have been created using FindOrCreate...,
 617         // where the pointers are expected to be shared
 618         // (and therefore not deleted by any one part of an app).
 619         wxFont *font = (wxFont *) node->Data ();
 620         wxNode *next = node->Next ();
 621         if (font->GetVisible())
 622             delete font;
 623         node = next;
 624     }
 625 }
 626
 627 void wxFontList::AddFont (wxFont * font)
 628 {
 629   Append (font);
 630 }
 631
 632 void wxFontList::RemoveFont (wxFont * font)
 633 {
 634   DeleteObject (font);
 635 }
 636
 637 wxFont *wxFontList::FindOrCreateFont(int pointSize,
 638                                      int family,
 639                                      int style,
 640                                      int weight,
 641                                      bool underline,
 642                                      const wxString& facename,
 643                                      wxFontEncoding encoding)
 644 {
 645     wxFont *font = (wxFont *)NULL;
 646     wxNode *node;
 647     for ( node = First(); node; node = node->Next() )
 648     {
 649         font = (wxFont *)node->Data();
 650         if ( font->GetVisible() &&
 651              font->Ok() &&
 652              font->GetPointSize () == pointSize &&
 653              font->GetStyle () == style &&
 654              font->GetWeight () == weight &&
 655              font->GetUnderlined () == underline )
 656         {
 657             int fontFamily = font->GetFamily();
 658
 659 #if defined(__WXGTK__)
 660             // under GTK the default family is wxSWISS, so looking for a font
 661             // with wxDEFAULT family should return a wxSWISS one instead of
 662             // creating a new one
 663             bool same = (fontFamily == family) ||
 664                         (fontFamily == wxSWISS && family == wxDEFAULT);
 665 #else // !GTK
 666             // VZ: but why elsewhere do we require an exact match? mystery...
 667             bool same = fontFamily == family;
 668 #endif // GTK/!GTK
 669
 670             // empty facename matches anything at all: this is bad because
 671             // depending on which fonts are already created, we might get back
 672             // a different font if we create it with empty facename, but it is
 673             // still better than never matching anything in the cache at all
 674             // in this case
 675             if ( same && !!facename )
 676             {
 677                 const wxString& fontFace = font->GetFaceName();
 678
 679                 // empty facename matches everything
 680                 same = !fontFace || fontFace == facename;
 681             }
 682
 683             if ( same && (encoding != wxFONTENCODING_DEFAULT) )
 684             {
 685                 // have to match the encoding too
 686                 same = font->GetEncoding() == encoding;
 687             }
 688
 689             if ( same )
 690             {
 691                 return font;
 692             }
 693         }
 694     }
 695
 696     if ( !node )
 697     {
 698         // font not found, create the new one
 699         font = new wxFont(pointSize, family, style, weight,
 700                           underline, facename, encoding);
 701
 702         // and mark it as being cacheable
 703         font->SetVisible(TRUE);
 704     }
 705
 706     return font;
 707 }
 708
 709 void wxBitmapList::AddBitmap(wxBitmap *bitmap)
 710 {
 711     Append(bitmap);
 712 }
 713
 714 void wxBitmapList::RemoveBitmap(wxBitmap *bitmap)
 715 {
 716     DeleteObject(bitmap);
 717 }
 718
 719 wxSize wxGetDisplaySize()
 720 {
 721     int x, y;
 722     wxDisplaySize(& x, & y);
 723     return wxSize(x, y);
 724 }
 725
 726 wxSize wxGetDisplaySizeMM()
 727 {
 728     int x, y;
 729     wxDisplaySizeMM(& x, & y);
 730     return wxSize(x, y);
 731 }
 732
 733 wxResourceCache::~wxResourceCache ()
 734 {
 735     wxNode *node = First ();
 736     while (node) {
 737         wxObject *item = (wxObject *)node->Data();
 738         delete item;
 739
 740         node = node->Next ();
 741     }
 742 }
 743