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