src/motif/palette.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/motif/palette.cpp
   3 // Purpose:     wxPalette
   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  * Colour map
  14  *
  15  * When constructed with the default constructor, we start from
  16  * the wxApp::GetMainColormap, allocating additional read-only cells
  17  * in Create().  The cells are freed on the next call to Create()
  18  * or when the destructor is called.
  19  */
  20
  21 /* Wolfram Gloger <u7y22ab@sunmail.lrz-muenchen.de>
  22 I have implemented basic colormap support for the X11 versions of
  23 wxWidgets, notably wxPalette::Create().  The way I did it is to
  24 allocate additional read-only color cells in the default colormap.  In
  25 general you will get arbitrary pixel values assigned to these new
  26 cells and therefore I added a method wxPalette::TransferBitmap()
  27 which maps the pixel values 0..n to the real ones obtained with
  28 Create().  This is only implemented for the popular case of 8-bit
  29 depth.
  30
  31 Allocating read-write color cells would involve installing a private
  32 X11 colormap for a particular window, and AFAIK this is not
  33 recommended; only the window manager should do this...  Also, it is
  34 not the functionality that wxPalette::Create() aims to provide.
  35  */
  36
  37 // For compilers that support precompilation, includes "wx.h".
  38 #include "wx/wxprec.h"
  39
  40 #include "wx/palette.h"
  41 #include "wx/window.h"
  42 #include "wx/app.h"
  43 #include "wx/utils.h"
  44
  45 #ifdef __VMS__
  46 #pragma message disable nosimpint
  47 #endif
  48 #include <Xm/Xm.h>
  49 #ifdef __VMS__
  50 #pragma message enable nosimpint
  51 #endif
  52 #include "wx/motif/private.h"
  53
  54 IMPLEMENT_DYNAMIC_CLASS(wxPalette, wxGDIObject)
  55 IMPLEMENT_DYNAMIC_CLASS(wxXPalette, wxObject)
  56
  57 /*
  58 * Palette
  59 *
  60 */
  61
  62 wxXPalette::wxXPalette()
  63 {
  64     m_cmap = (WXColormap) 0;
  65     m_pix_array_n = 0;
  66     m_pix_array = (unsigned long*) 0;
  67     m_display = (WXDisplay*) 0;
  68     m_destroyable = false;
  69 }
  70
  71 wxPaletteRefData::wxPaletteRefData()
  72 {
  73 }
  74
  75 wxPaletteRefData::~wxPaletteRefData()
  76 {
  77     Display *display = (Display*) NULL;
  78
  79     wxList::compatibility_iterator node, next;
  80
  81     for (node = m_palettes.GetFirst(); node; node = next) {
  82         wxXPalette *c = (wxXPalette *)node->GetData();
  83         unsigned long *pix_array = c->m_pix_array;
  84         Colormap cmap = (Colormap) c->m_cmap;
  85         bool destroyable = c->m_destroyable;
  86         int pix_array_n = c->m_pix_array_n;
  87         display = (Display*) c->m_display;
  88
  89         if (pix_array_n > 0)
  90         {
  91             //      XFreeColors(display, cmap, pix_array, pix_array_n, 0);
  92             // Be careful not to free '0' pixels...
  93             int i, j;
  94             for(i=j=0; i<pix_array_n; i=j) {
  95                 while(j<pix_array_n && pix_array[j]!=0) j++;
  96                 if(j > i) XFreeColors(display, cmap, &pix_array[i], j-i, 0);
  97                 while(j<pix_array_n && pix_array[j]==0) j++;
  98             }
  99             delete [] pix_array;
 100         }
 101
 102         if (destroyable)
 103             XFreeColormap(display, cmap);
 104
 105         next = node->GetNext();
 106         m_palettes.Erase(node);
 107         delete c;
 108     }
 109 }
 110
 111 wxPalette::wxPalette()
 112 {
 113 }
 114
 115 wxPalette::wxPalette(int n, const unsigned char *red, const unsigned char *green, const unsigned char *blue)
 116 {
 117     Create(n, red, green, blue);
 118 }
 119
 120 wxPalette::~wxPalette()
 121 {
 122 }
 123
 124 bool wxPalette::Create(int n, const unsigned char *red, const unsigned char *green, const unsigned char *blue)
 125 {
 126     UnRef();
 127
 128     if (!n) {
 129         return false;
 130     }
 131
 132     m_refData = new wxPaletteRefData;
 133
 134     XColor xcol;
 135     Display* display = (Display*) wxGetDisplay();
 136
 137     unsigned long *pix_array;
 138     Colormap cmap;
 139     int pix_array_n;
 140
 141     cmap = (Colormap) wxTheApp->GetMainColormap(display);
 142
 143     pix_array = new unsigned long[n];
 144     if (!pix_array)
 145         return false;
 146
 147     pix_array_n = n;
 148     xcol.flags = DoRed | DoGreen | DoBlue;
 149     for(int i = 0; i < n; i++) {
 150         xcol.red = (unsigned short)(red[i] << 8);
 151         xcol.green = (unsigned short)(green[i] << 8);
 152         xcol.blue = (unsigned short)(blue[i] << 8);
 153         pix_array[i] = (XAllocColor(display, cmap, &xcol) == 0) ? 0 : xcol.pixel;
 154     }
 155
 156     wxXPalette *c = new wxXPalette;
 157
 158     c->m_pix_array_n = pix_array_n;
 159     c->m_pix_array = pix_array;
 160     c->m_cmap = (WXColormap) cmap;
 161     c->m_display = (WXDisplay*) display;
 162     c->m_destroyable = false;
 163     M_PALETTEDATA->m_palettes.Append(c);
 164
 165     return true;
 166 }
 167
 168 int wxPalette::GetPixel(unsigned char WXUNUSED(red),
 169                         unsigned char WXUNUSED(green),
 170                         unsigned char WXUNUSED(blue)) const
 171 {
 172     if ( !m_refData )
 173         return wxNOT_FOUND;
 174
 175     // TODO
 176     return wxNOT_FOUND;
 177 }
 178
 179 bool wxPalette::GetRGB(int index, unsigned char *WXUNUSED(red), unsigned char *WXUNUSED(green), unsigned char *WXUNUSED(blue)) const
 180 {
 181     if ( !m_refData )
 182         return false;
 183
 184     if (index < 0 || index > 255)
 185         return false;
 186
 187     // TODO
 188     return false;
 189 }
 190
 191 WXColormap wxPalette::GetXColormap(WXDisplay* display) const
 192 {
 193     if (!M_PALETTEDATA || (M_PALETTEDATA->m_palettes.GetCount() == 0))
 194         return wxTheApp->GetMainColormap(display);
 195
 196     wxList::compatibility_iterator node = M_PALETTEDATA->m_palettes.GetFirst();
 197     if (!display && node)
 198     {
 199         wxXPalette* p = (wxXPalette*) node->GetData();
 200         return p->m_cmap;
 201     }
 202     while (node)
 203     {
 204         wxXPalette* p = (wxXPalette*) node->GetData();
 205         if (p->m_display == display)
 206             return p->m_cmap;
 207
 208         node = node->GetNext();
 209     }
 210
 211     /* Make a new one: */
 212     wxXPalette *c = new wxXPalette;
 213     wxXPalette *first =
 214         (wxXPalette *)M_PALETTEDATA->m_palettes.GetFirst()->GetData();
 215     XColor xcol;
 216     int pix_array_n = first->m_pix_array_n;
 217
 218     c->m_pix_array_n = pix_array_n;
 219     c->m_pix_array = new unsigned long[pix_array_n];
 220     c->m_display = display;
 221     c->m_cmap = wxTheApp->GetMainColormap(display);
 222     c->m_destroyable = false;
 223
 224     xcol.flags = DoRed | DoGreen | DoBlue;
 225     int i;
 226     for (i = 0; i < pix_array_n; i++)
 227     {
 228         xcol.pixel = first->m_pix_array[i];
 229         XQueryColor((Display*) first->m_display,
 230                     (Colormap) first->m_cmap, &xcol);
 231         c->m_pix_array[i] =
 232             (XAllocColor((Display*) display, (Colormap) c->m_cmap, &xcol) == 0)
 233             ? 0 : xcol.pixel;
 234     }
 235
 236     //    wxPalette* nonConstThis = (wxPalette*) this;
 237
 238     M_PALETTEDATA->m_palettes.Append(c);
 239
 240     return c->m_cmap;
 241 }
 242
 243 bool wxPalette::TransferBitmap(void *data, int depth, int size)
 244 {
 245     switch(depth) {
 246     case 8:
 247         {
 248             unsigned char *uptr = (unsigned char *)data;
 249             int pix_array_n;
 250             unsigned long *pix_array = GetXPixArray((Display*) wxGetDisplay(), &pix_array_n);
 251             while(size-- > 0)
 252             {
 253                 if((int)*uptr < pix_array_n)
 254                     *uptr = (unsigned char)pix_array[*uptr];
 255                 uptr++;
 256             }
 257
 258             return true;
 259         }
 260     default:
 261         return false;
 262     }
 263 }
 264
 265 bool wxPalette::TransferBitmap8(unsigned char *data, unsigned long sz,
 266                                 void *dest, unsigned int bpp)
 267 {
 268     int pix_array_n;
 269     unsigned long *pix_array = GetXPixArray((Display*) wxGetDisplay(), &pix_array_n);
 270     switch(bpp) {
 271     case 8: {
 272         unsigned char *dptr = (unsigned char *)dest;
 273         while(sz-- > 0) {
 274             if((int)*data < pix_array_n)
 275                 *dptr = (unsigned char)pix_array[*data];
 276             data++;
 277             dptr++;
 278         }
 279         break;
 280             }
 281     case 16: {
 282         unsigned short *dptr = (unsigned short *)dest;
 283         while(sz-- > 0) {
 284             if((int)*data < pix_array_n)
 285                 *dptr = (unsigned short)pix_array[*data];
 286             data++;
 287             dptr++;
 288         }
 289         break;
 290              }
 291     case 24: {
 292         struct rgb24 { unsigned char r, g, b; } *dptr = (struct rgb24 *)dest;
 293         while(sz-- > 0) {
 294             if((int)*data < pix_array_n) {
 295                 dptr->r = (unsigned char)(pix_array[*data] & 0xFF);
 296                 dptr->g = (unsigned char)((pix_array[*data] >> 8) & 0xFF);
 297                 dptr->b = (unsigned char)((pix_array[*data] >> 16) & 0xFF);
 298             }
 299             data++;
 300             dptr++;
 301         }
 302         break;
 303              }
 304     case 32: {
 305         unsigned long *dptr = (unsigned long *)dest;
 306         while(sz-- > 0) {
 307             if((int)*data < pix_array_n)
 308                 *dptr = pix_array[*data];
 309             data++;
 310             dptr++;
 311         }
 312         break;
 313              }
 314     default:
 315         return false;
 316     }
 317     return true;
 318 }
 319
 320 unsigned long *wxPalette::GetXPixArray(WXDisplay *display, int *n)
 321 {
 322     if (!M_PALETTEDATA)
 323         return (unsigned long*) 0;
 324     wxList::compatibility_iterator node;
 325
 326     for (node = M_PALETTEDATA->m_palettes.GetFirst(); node;
 327          node = node->GetNext())
 328     {
 329         wxXPalette *c = (wxXPalette *)node->GetData();
 330         if (c->m_display == display)
 331         {
 332             if (n)
 333                 *n = c->m_pix_array_n;
 334             return c->m_pix_array;
 335         }
 336     }
 337
 338     /* Not found; call GetXColormap, which will create it, then this again */
 339     if (GetXColormap(display))
 340         return GetXPixArray(display, n);
 341     else
 342         return (unsigned long*) 0;
 343 }
 344
 345 void wxPalette::PutXColormap(WXDisplay* display, WXColormap cm, bool dp)
 346 {
 347     UnRef();
 348
 349     m_refData = new wxPaletteRefData;
 350
 351     wxXPalette *c = new wxXPalette;
 352
 353     c->m_pix_array_n = 0;
 354     c->m_pix_array = (unsigned long*) NULL;
 355     c->m_display = display;
 356     c->m_cmap = cm;
 357     c->m_destroyable = dp;
 358
 359     M_PALETTEDATA->m_palettes.Append(c);
 360 }