contrib/src/stc/PlatWX.cpp

   1 // Scintilla source code edit control
   2 // PlatWX.cxx - implementation of platform facilities on wxWidgets
   3 // Copyright 1998-1999 by Neil Hodgson <neilh@scintilla.org>
   4 //                        Robin Dunn <robin@aldunn.com>
   5 // The License.txt file describes the conditions under which this software may be distributed.
   6
   7 #include <ctype.h>
   8
   9 #include <wx/wx.h>
  10 #include <wx/encconv.h>
  11 #include <wx/listctrl.h>
  12 #include <wx/mstream.h>
  13 #include <wx/image.h>
  14 #include <wx/imaglist.h>
  15
  16 #include "Platform.h"
  17 #include "PlatWX.h"
  18 #include "wx/stc/stc.h"
  19
  20
  21 #ifdef __WXGTK__
  22 #include <gtk/gtk.h>
  23 #endif
  24
  25
  26 Point Point::FromLong(long lpoint) {
  27     return Point(lpoint & 0xFFFF, lpoint >> 16);
  28 }
  29
  30 wxRect wxRectFromPRectangle(PRectangle prc) {
  31     wxRect r(prc.left, prc.top,
  32              prc.Width(), prc.Height());
  33     return r;
  34 }
  35
  36 PRectangle PRectangleFromwxRect(wxRect rc) {
  37     return PRectangle(rc.GetLeft(), rc.GetTop(),
  38                       rc.GetRight()+1, rc.GetBottom()+1);
  39 }
  40
  41 wxColour wxColourFromCA(const ColourAllocated& ca) {
  42     ColourDesired cd(ca.AsLong());
  43     return wxColour(cd.GetRed(), cd.GetGreen(), cd.GetBlue());
  44 }
  45
  46 //----------------------------------------------------------------------
  47
  48 Palette::Palette() {
  49     used = 0;
  50     allowRealization = false;
  51 }
  52
  53 Palette::~Palette() {
  54     Release();
  55 }
  56
  57 void Palette::Release() {
  58     used = 0;
  59 }
  60
  61 // This method either adds a colour to the list of wanted colours (want==true)
  62 // or retrieves the allocated colour back to the ColourPair.
  63 // This is one method to make it easier to keep the code for wanting and retrieving in sync.
  64 void Palette::WantFind(ColourPair &cp, bool want) {
  65     if (want) {
  66         for (int i=0; i < used; i++) {
  67             if (entries[i].desired == cp.desired)
  68                 return;
  69         }
  70
  71         if (used < numEntries) {
  72             entries[used].desired = cp.desired;
  73             entries[used].allocated.Set(cp.desired.AsLong());
  74             used++;
  75         }
  76     } else {
  77         for (int i=0; i < used; i++) {
  78             if (entries[i].desired == cp.desired) {
  79                 cp.allocated = entries[i].allocated;
  80                 return;
  81             }
  82         }
  83         cp.allocated.Set(cp.desired.AsLong());
  84     }
  85 }
  86
  87 void Palette::Allocate(Window &) {
  88     if (allowRealization) {
  89     }
  90 }
  91
  92
  93 //----------------------------------------------------------------------
  94
  95 Font::Font() {
  96     id = 0;
  97     ascent = 0;
  98 }
  99
 100 Font::~Font() {
 101 }
 102
 103 void Font::Create(const char *faceName, int characterSet, int size, bool bold, bool italic, bool extraFontFlag) {
 104     wxFontEncoding encoding;
 105
 106     Release();
 107
 108     switch (characterSet) {
 109         default:
 110         case wxSTC_CHARSET_ANSI:
 111         case wxSTC_CHARSET_DEFAULT:
 112             encoding = wxFONTENCODING_DEFAULT;
 113             break;
 114
 115         case wxSTC_CHARSET_BALTIC:
 116             encoding = wxFONTENCODING_ISO8859_13;
 117             break;
 118
 119         case wxSTC_CHARSET_CHINESEBIG5:
 120             encoding = wxFONTENCODING_CP950;
 121             break;
 122
 123         case wxSTC_CHARSET_EASTEUROPE:
 124             encoding = wxFONTENCODING_ISO8859_2;
 125             break;
 126
 127         case wxSTC_CHARSET_GB2312:
 128             encoding = wxFONTENCODING_CP936;
 129             break;
 130
 131         case wxSTC_CHARSET_GREEK:
 132             encoding = wxFONTENCODING_ISO8859_7;
 133             break;
 134
 135         case wxSTC_CHARSET_HANGUL:
 136             encoding = wxFONTENCODING_CP949;
 137             break;
 138
 139         case wxSTC_CHARSET_MAC:
 140             encoding = wxFONTENCODING_DEFAULT;
 141             break;
 142
 143         case wxSTC_CHARSET_OEM:
 144             encoding = wxFONTENCODING_DEFAULT;
 145             break;
 146
 147         case wxSTC_CHARSET_RUSSIAN:
 148             encoding = wxFONTENCODING_KOI8;
 149             break;
 150
 151         case wxSTC_CHARSET_SHIFTJIS:
 152             encoding = wxFONTENCODING_CP932;
 153             break;
 154
 155         case wxSTC_CHARSET_SYMBOL:
 156             encoding = wxFONTENCODING_DEFAULT;
 157             break;
 158
 159         case wxSTC_CHARSET_TURKISH:
 160             encoding = wxFONTENCODING_ISO8859_9;
 161             break;
 162
 163         case wxSTC_CHARSET_JOHAB:
 164             encoding = wxFONTENCODING_DEFAULT;
 165             break;
 166
 167         case wxSTC_CHARSET_HEBREW:
 168             encoding = wxFONTENCODING_ISO8859_8;
 169             break;
 170
 171         case wxSTC_CHARSET_ARABIC:
 172             encoding = wxFONTENCODING_ISO8859_6;
 173             break;
 174
 175         case wxSTC_CHARSET_VIETNAMESE:
 176             encoding = wxFONTENCODING_DEFAULT;
 177             break;
 178
 179         case wxSTC_CHARSET_THAI:
 180             encoding = wxFONTENCODING_ISO8859_11;
 181             break;
 182     }
 183
 184     wxFontEncodingArray ea = wxEncodingConverter::GetPlatformEquivalents(encoding);
 185     if (ea.GetCount())
 186         encoding = ea[0];
 187
 188     wxFont* font = new wxFont(size,
 189                     wxDEFAULT,
 190                     italic ? wxITALIC :  wxNORMAL,
 191                     bold ? wxBOLD : wxNORMAL,
 192                     false,
 193                     stc2wx(faceName),
 194                     encoding);
 195     font->SetNoAntiAliasing(!extraFontFlag);
 196     id = font;
 197 }
 198
 199
 200 void Font::Release() {
 201     if (id)
 202         delete (wxFont*)id;
 203     id = 0;
 204 }
 205
 206 //----------------------------------------------------------------------
 207
 208 class SurfaceImpl : public Surface {
 209 private:
 210     wxDC*       hdc;
 211     bool        hdcOwned;
 212     wxBitmap*   bitmap;
 213     int         x;
 214     int         y;
 215     bool        unicodeMode;
 216
 217 public:
 218     SurfaceImpl();
 219     ~SurfaceImpl();
 220
 221     virtual void Init(WindowID wid);
 222     virtual void Init(SurfaceID sid, WindowID wid);
 223     virtual void InitPixMap(int width, int height, Surface *surface_, WindowID wid);
 224
 225     virtual void Release();
 226     virtual bool Initialised();
 227     virtual void PenColour(ColourAllocated fore);
 228     virtual int LogPixelsY();
 229     virtual int DeviceHeightFont(int points);
 230     virtual void MoveTo(int x_, int y_);
 231     virtual void LineTo(int x_, int y_);
 232     virtual void Polygon(Point *pts, int npts, ColourAllocated fore, ColourAllocated back);
 233     virtual void RectangleDraw(PRectangle rc, ColourAllocated fore, ColourAllocated back);
 234     virtual void FillRectangle(PRectangle rc, ColourAllocated back);
 235     virtual void FillRectangle(PRectangle rc, Surface &surfacePattern);
 236     virtual void RoundedRectangle(PRectangle rc, ColourAllocated fore, ColourAllocated back);
 237     virtual void Ellipse(PRectangle rc, ColourAllocated fore, ColourAllocated back);
 238     virtual void Copy(PRectangle rc, Point from, Surface &surfaceSource);
 239
 240     virtual void DrawTextNoClip(PRectangle rc, Font &font_, int ybase, const char *s, int len, ColourAllocated fore, ColourAllocated back);
 241     virtual void DrawTextClipped(PRectangle rc, Font &font_, int ybase, const char *s, int len, ColourAllocated fore, ColourAllocated back);
 242     virtual void DrawTextTransparent(PRectangle rc, Font &font_, int ybase, const char *s, int len, ColourAllocated fore);
 243     virtual void MeasureWidths(Font &font_, const char *s, int len, int *positions);
 244     virtual int WidthText(Font &font_, const char *s, int len);
 245     virtual int WidthChar(Font &font_, char ch);
 246     virtual int Ascent(Font &font_);
 247     virtual int Descent(Font &font_);
 248     virtual int InternalLeading(Font &font_);
 249     virtual int ExternalLeading(Font &font_);
 250     virtual int Height(Font &font_);
 251     virtual int AverageCharWidth(Font &font_);
 252
 253     virtual int SetPalette(Palette *pal, bool inBackGround);
 254     virtual void SetClip(PRectangle rc);
 255     virtual void FlushCachedState();
 256
 257     virtual void SetUnicodeMode(bool unicodeMode_);
 258     virtual void SetDBCSMode(int codePage);
 259
 260     void BrushColour(ColourAllocated back);
 261     void SetFont(Font &font_);
 262 };
 263
 264
 265
 266 SurfaceImpl::SurfaceImpl() :
 267     hdc(0), hdcOwned(0), bitmap(0),
 268     x(0), y(0), unicodeMode(0)
 269 {}
 270
 271 SurfaceImpl::~SurfaceImpl() {
 272     Release();
 273 }
 274
 275 void SurfaceImpl::Init(WindowID wid) {
 276 #if 0
 277     Release();
 278     hdc = new wxMemoryDC();
 279     hdcOwned = true;
 280 #else
 281     // On Mac and GTK the DC is not really valid until it has a bitmap
 282     // selected into it.  So instead of just creating the DC with no bitmap,
 283     // go ahead and give it one.
 284     InitPixMap(1,1,NULL,wid);
 285 #endif
 286 }
 287
 288 void SurfaceImpl::Init(SurfaceID hdc_, WindowID) {
 289     Release();
 290     hdc = (wxDC*)hdc_;
 291 }
 292
 293 void SurfaceImpl::InitPixMap(int width, int height, Surface *WXUNUSED(surface_), WindowID) {
 294     Release();
 295     hdc = new wxMemoryDC();
 296     hdcOwned = true;
 297     if (width < 1) width = 1;
 298     if (height < 1) height = 1;
 299     bitmap = new wxBitmap(width, height);
 300     ((wxMemoryDC*)hdc)->SelectObject(*bitmap);
 301 }
 302
 303
 304 void SurfaceImpl::Release() {
 305     if (bitmap) {
 306         ((wxMemoryDC*)hdc)->SelectObject(wxNullBitmap);
 307         delete bitmap;
 308         bitmap = 0;
 309     }
 310     if (hdcOwned) {
 311         delete hdc;
 312         hdc = 0;
 313         hdcOwned = false;
 314     }
 315 }
 316
 317
 318 bool SurfaceImpl::Initialised() {
 319     return hdc != 0;
 320 }
 321
 322
 323 void SurfaceImpl::PenColour(ColourAllocated fore) {
 324     hdc->SetPen(wxPen(wxColourFromCA(fore), 1, wxSOLID));
 325 }
 326
 327 void SurfaceImpl::BrushColour(ColourAllocated back) {
 328     hdc->SetBrush(wxBrush(wxColourFromCA(back), wxSOLID));
 329 }
 330
 331 void SurfaceImpl::SetFont(Font &font_) {
 332   if (font_.GetID()) {
 333       hdc->SetFont(*((wxFont*)font_.GetID()));
 334     }
 335 }
 336
 337 int SurfaceImpl::LogPixelsY() {
 338     return hdc->GetPPI().y;
 339 }
 340
 341 int SurfaceImpl::DeviceHeightFont(int points) {
 342     return points;
 343 }
 344
 345 void SurfaceImpl::MoveTo(int x_, int y_) {
 346     x = x_;
 347     y = y_;
 348 }
 349
 350 void SurfaceImpl::LineTo(int x_, int y_) {
 351     hdc->DrawLine(x,y, x_,y_);
 352     x = x_;
 353     y = y_;
 354 }
 355
 356 void SurfaceImpl::Polygon(Point *pts, int npts, ColourAllocated fore, ColourAllocated back) {
 357     PenColour(fore);
 358     BrushColour(back);
 359     hdc->DrawPolygon(npts, (wxPoint*)pts);
 360 }
 361
 362 void SurfaceImpl::RectangleDraw(PRectangle rc, ColourAllocated fore, ColourAllocated back) {
 363     PenColour(fore);
 364     BrushColour(back);
 365     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 366 }
 367
 368 void SurfaceImpl::FillRectangle(PRectangle rc, ColourAllocated back) {
 369     BrushColour(back);
 370     hdc->SetPen(*wxTRANSPARENT_PEN);
 371     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 372 }
 373
 374 void SurfaceImpl::FillRectangle(PRectangle rc, Surface &surfacePattern) {
 375     wxBrush br;
 376     if (((SurfaceImpl&)surfacePattern).bitmap)
 377         br = wxBrush(*((SurfaceImpl&)surfacePattern).bitmap);
 378     else    // Something is wrong so display in red
 379         br = wxBrush(*wxRED, wxSOLID);
 380     hdc->SetPen(*wxTRANSPARENT_PEN);
 381     hdc->SetBrush(br);
 382     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 383 }
 384
 385 void SurfaceImpl::RoundedRectangle(PRectangle rc, ColourAllocated fore, ColourAllocated back) {
 386     PenColour(fore);
 387     BrushColour(back);
 388     hdc->DrawRoundedRectangle(wxRectFromPRectangle(rc), 4);
 389 }
 390
 391 void SurfaceImpl::Ellipse(PRectangle rc, ColourAllocated fore, ColourAllocated back) {
 392     PenColour(fore);
 393     BrushColour(back);
 394     hdc->DrawEllipse(wxRectFromPRectangle(rc));
 395 }
 396
 397 void SurfaceImpl::Copy(PRectangle rc, Point from, Surface &surfaceSource) {
 398     wxRect r = wxRectFromPRectangle(rc);
 399     hdc->Blit(r.x, r.y, r.width, r.height,
 400               ((SurfaceImpl&)surfaceSource).hdc,
 401               from.x, from.y, wxCOPY);
 402 }
 403
 404 void SurfaceImpl::DrawTextNoClip(PRectangle rc, Font &font, int ybase,
 405                                  const char *s, int len,
 406                                  ColourAllocated fore, ColourAllocated back) {
 407     SetFont(font);
 408     hdc->SetTextForeground(wxColourFromCA(fore));
 409     hdc->SetTextBackground(wxColourFromCA(back));
 410     FillRectangle(rc, back);
 411
 412     // ybase is where the baseline should be, but wxWin uses the upper left
 413     // corner, so I need to calculate the real position for the text...
 414     hdc->DrawText(stc2wx(s, len), rc.left, ybase - font.ascent);
 415 }
 416
 417 void SurfaceImpl::DrawTextClipped(PRectangle rc, Font &font, int ybase,
 418                                   const char *s, int len,
 419                                   ColourAllocated fore, ColourAllocated back) {
 420     SetFont(font);
 421     hdc->SetTextForeground(wxColourFromCA(fore));
 422     hdc->SetTextBackground(wxColourFromCA(back));
 423     FillRectangle(rc, back);
 424     hdc->SetClippingRegion(wxRectFromPRectangle(rc));
 425
 426     // see comments above
 427     hdc->DrawText(stc2wx(s, len), rc.left, ybase - font.ascent);
 428     hdc->DestroyClippingRegion();
 429 }
 430
 431
 432 void SurfaceImpl::DrawTextTransparent(PRectangle rc, Font &font, int ybase,
 433                                       const char *s, int len,
 434                                       ColourAllocated fore) {
 435
 436     SetFont(font);
 437     hdc->SetTextForeground(wxColourFromCA(fore));
 438     hdc->SetBackgroundMode(wxTRANSPARENT);
 439
 440     // ybase is where the baseline should be, but wxWin uses the upper left
 441     // corner, so I need to calculate the real position for the text...
 442     hdc->DrawText(stc2wx(s, len), rc.left, ybase - font.ascent);
 443
 444     hdc->SetBackgroundMode(wxSOLID);
 445 }
 446
 447
 448 void SurfaceImpl::MeasureWidths(Font &font, const char *s, int len, int *positions) {
 449
 450     wxString   str = stc2wx(s, len);
 451     wxArrayInt tpos;
 452
 453     SetFont(font);
 454
 455     hdc->GetPartialTextExtents(str, tpos);
 456
 457 #if wxUSE_UNICODE
 458     // Map the widths for UCS-2 characters back to the UTF-8 input string
 459     // NOTE:  I don't think this is right for when sizeof(wxChar) > 2, ie wxGTK2
 460     // so figure it out and fix it!
 461     size_t i = 0;
 462     size_t ui = 0;
 463     while ((int)i < len) {
 464         unsigned char uch = (unsigned char)s[i];
 465         positions[i++] = tpos[ui];
 466         if (uch >= 0x80) {
 467             if (uch < (0x80 + 0x40 + 0x20)) {
 468                 positions[i++] = tpos[ui];
 469             } else {
 470                 positions[i++] = tpos[ui];
 471                 positions[i++] = tpos[ui];
 472             }
 473         }
 474         ui++;
 475     }
 476 #else
 477
 478     // If not unicode then just use the widths we have
 479     memcpy(positions, tpos.begin(), len * sizeof(int));
 480 #endif
 481 }
 482
 483
 484 int SurfaceImpl::WidthText(Font &font, const char *s, int len) {
 485     SetFont(font);
 486     int w;
 487     int h;
 488
 489     hdc->GetTextExtent(stc2wx(s, len), &w, &h);
 490     return w;
 491 }
 492
 493
 494 int SurfaceImpl::WidthChar(Font &font, char ch) {
 495     SetFont(font);
 496     int w;
 497     int h;
 498     char s[2] = { ch, 0 };
 499
 500     hdc->GetTextExtent(stc2wx(s, 1), &w, &h);
 501     return w;
 502 }
 503
 504 #define EXTENT_TEST wxT(" `~!@#$%^&*()-_=+\\|[]{};:\"\'<,>.?/1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
 505
 506 int SurfaceImpl::Ascent(Font &font) {
 507     SetFont(font);
 508     int w, h, d, e;
 509     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 510     font.ascent = h - d;
 511     return font.ascent;
 512 }
 513
 514 int SurfaceImpl::Descent(Font &font) {
 515     SetFont(font);
 516     int w, h, d, e;
 517     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 518     return d;
 519 }
 520
 521 int SurfaceImpl::InternalLeading(Font &WXUNUSED(font)) {
 522     return 0;
 523 }
 524
 525 int SurfaceImpl::ExternalLeading(Font &font) {
 526     SetFont(font);
 527     int w, h, d, e;
 528     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 529     return e;
 530 }
 531
 532 int SurfaceImpl::Height(Font &font) {
 533     SetFont(font);
 534     return hdc->GetCharHeight() + 1;
 535 }
 536
 537 int SurfaceImpl::AverageCharWidth(Font &font) {
 538     SetFont(font);
 539     return hdc->GetCharWidth();
 540 }
 541
 542 int SurfaceImpl::SetPalette(Palette *WXUNUSED(pal), bool WXUNUSED(inBackGround)) {
 543     return 0;
 544 }
 545
 546 void SurfaceImpl::SetClip(PRectangle rc) {
 547     hdc->SetClippingRegion(wxRectFromPRectangle(rc));
 548 }
 549
 550 void SurfaceImpl::FlushCachedState() {
 551 }
 552
 553 void SurfaceImpl::SetUnicodeMode(bool unicodeMode_) {
 554     unicodeMode=unicodeMode_;
 555 }
 556
 557 void SurfaceImpl::SetDBCSMode(int WXUNUSED(codePage)) {
 558     // dbcsMode = codePage == SC_CP_DBCS;
 559 }
 560
 561
 562 Surface *Surface::Allocate() {
 563     return new SurfaceImpl;
 564 }
 565
 566
 567 //----------------------------------------------------------------------
 568
 569
 570 inline wxWindow* GETWIN(WindowID id) { return (wxWindow*)id; }
 571
 572 Window::~Window() {
 573 }
 574
 575 void Window::Destroy() {
 576     if (id) {
 577         Show(FALSE);
 578         GETWIN(id)->Destroy();
 579     }
 580     id = 0;
 581 }
 582
 583 bool Window::HasFocus() {
 584     return wxWindow::FindFocus() == GETWIN(id);
 585 }
 586
 587 PRectangle Window::GetPosition() {
 588     if (! id) return PRectangle();
 589     wxRect rc(GETWIN(id)->GetPosition(), GETWIN(id)->GetSize());
 590     return PRectangleFromwxRect(rc);
 591 }
 592
 593 void Window::SetPosition(PRectangle rc) {
 594     wxRect r = wxRectFromPRectangle(rc);
 595     GETWIN(id)->SetSize(r);
 596 }
 597
 598 void Window::SetPositionRelative(PRectangle rc, Window) {
 599     SetPosition(rc);  // ????
 600 }
 601
 602 PRectangle Window::GetClientPosition() {
 603     if (! id) return PRectangle();
 604     wxSize sz = GETWIN(id)->GetClientSize();
 605     return  PRectangle(0, 0, sz.x, sz.y);
 606 }
 607
 608 void Window::Show(bool show) {
 609     GETWIN(id)->Show(show);
 610 }
 611
 612 void Window::InvalidateAll() {
 613     GETWIN(id)->Refresh(false);
 614     wxWakeUpIdle();
 615 }
 616
 617 void Window::InvalidateRectangle(PRectangle rc) {
 618     wxRect r = wxRectFromPRectangle(rc);
 619     GETWIN(id)->Refresh(false, &r);
 620     wxWakeUpIdle();
 621 }
 622
 623 void Window::SetFont(Font &font) {
 624     GETWIN(id)->SetFont(*((wxFont*)font.GetID()));
 625 }
 626
 627 void Window::SetCursor(Cursor curs) {
 628     int cursorId;
 629
 630     switch (curs) {
 631     case cursorText:
 632         cursorId = wxCURSOR_IBEAM;
 633         break;
 634     case cursorArrow:
 635         cursorId = wxCURSOR_ARROW;
 636         break;
 637     case cursorUp:
 638         cursorId = wxCURSOR_ARROW; // ** no up arrow...  wxCURSOR_UPARROW;
 639         break;
 640     case cursorWait:
 641         cursorId = wxCURSOR_WAIT;
 642         break;
 643     case cursorHoriz:
 644         cursorId = wxCURSOR_SIZEWE;
 645         break;
 646     case cursorVert:
 647         cursorId = wxCURSOR_SIZENS;
 648         break;
 649     case cursorReverseArrow:
 650         cursorId = wxCURSOR_RIGHT_ARROW;
 651         break;
 652     case cursorHand:
 653         cursorId = wxCURSOR_HAND;
 654         break;
 655     default:
 656         cursorId = wxCURSOR_ARROW;
 657         break;
 658     }
 659 #ifdef __WXMOTIF__
 660        wxCursor wc = wxStockCursor(cursorId) ;
 661 #else
 662        wxCursor wc = wxCursor(cursorId) ;
 663 #endif
 664        GETWIN(id)->SetCursor(wc);
 665 }
 666
 667
 668 void Window::SetTitle(const char *s) {
 669     GETWIN(id)->SetTitle(stc2wx(s));
 670 }
 671
 672
 673 //----------------------------------------------------------------------
 674 // Helper classes for ListBox
 675
 676
 677 // This is a simple subclass of wxListView that just resets focus to the
 678 // parent when it gets it.
 679 class wxSTCListBox : public wxListView {
 680 public:
 681     wxSTCListBox(wxWindow* parent, wxWindowID id,
 682                  const wxPoint& pos, const wxSize& size,
 683                  long style)
 684         : wxListView(parent, id, pos, size, style)
 685     {}
 686
 687
 688     void OnFocus(wxFocusEvent& event) {
 689         GetParent()->SetFocus();
 690         event.Skip();
 691     }
 692
 693     void OnKillFocus(wxFocusEvent& WXUNUSED(event)) {
 694         // Do nothing.  Prevents base class from resetting the colors...
 695     }
 696
 697 #ifdef __WXMAC__
 698     // For some reason I don't understand yet the focus doesn't really leave
 699     // the listbox like it should, so if we get any events feed them back to
 700     // the wxSTC
 701     void OnKeyDown(wxKeyEvent& event) {
 702         GetGrandParent()->GetEventHandler()->ProcessEvent(event);
 703     }
 704     void OnChar(wxKeyEvent& event) {
 705         GetGrandParent()->GetEventHandler()->ProcessEvent(event);
 706     }
 707
 708     // And we need to force the focus back when being destroyed
 709     ~wxSTCListBox() {
 710         GetGrandParent()->SetFocus();
 711     }
 712 #endif
 713
 714 private:
 715     DECLARE_EVENT_TABLE()
 716 };
 717
 718 BEGIN_EVENT_TABLE(wxSTCListBox, wxListView)
 719     EVT_SET_FOCUS( wxSTCListBox::OnFocus)
 720     EVT_KILL_FOCUS(wxSTCListBox::OnKillFocus)
 721 #ifdef __WXMAC__
 722     EVT_KEY_DOWN(  wxSTCListBox::OnKeyDown)
 723     EVT_CHAR(      wxSTCListBox::OnChar)
 724 #endif
 725 END_EVENT_TABLE()
 726
 727
 728
 729
 730 // A window to place the wxSTCListBox upon
 731 class wxSTCListBoxWin : public wxWindow {
 732 private:
 733     wxListView*         lv;
 734     CallBackAction      doubleClickAction;
 735     void*               doubleClickActionData;
 736 public:
 737     wxSTCListBoxWin(wxWindow* parent, wxWindowID id) :
 738         wxWindow(parent, id, wxDefaultPosition, wxSize(0,0), wxSIMPLE_BORDER )
 739     {
 740
 741         lv = new wxSTCListBox(this, id, wxDefaultPosition, wxDefaultSize,
 742                               wxLC_REPORT | wxLC_SINGLE_SEL | wxLC_NO_HEADER | wxNO_BORDER);
 743         lv->SetCursor(wxCursor(wxCURSOR_ARROW));
 744         lv->InsertColumn(0, wxEmptyString);
 745         lv->InsertColumn(1, wxEmptyString);
 746
 747         // Eventhough we immediately reset the focus to the parent, this helps
 748         // things to look right...
 749         lv->SetFocus();
 750
 751         Hide();
 752     }
 753
 754
 755     // On OSX and (possibly others) there can still be pending
 756     // messages/events for the list control when Scintilla wants to
 757     // close it, so do a pending delete of it instead of destroying
 758     // immediately.
 759     bool Destroy() {
 760 #ifdef __WXMAC__
 761         // The bottom edge of this window is not getting properly
 762         // refreshed upon deletion, so help it out...
 763         wxWindow* p = GetParent();
 764         wxRect r(GetPosition(), GetSize());
 765         r.SetHeight(r.GetHeight()+1);
 766         p->Refresh(false, &r);
 767 #endif
 768         if ( !wxPendingDelete.Member(this) )
 769             wxPendingDelete.Append(this);
 770         return TRUE;
 771     }
 772
 773
 774     int IconWidth() {
 775         wxImageList* il = lv->GetImageList(wxIMAGE_LIST_SMALL);
 776         if (il != NULL) {
 777             int w, h;
 778             il->GetSize(0, w, h);
 779             return w;
 780         }
 781         return 0;
 782     }
 783
 784
 785     void SetDoubleClickAction(CallBackAction action, void *data) {
 786         doubleClickAction = action;
 787         doubleClickActionData = data;
 788     }
 789
 790
 791     void OnFocus(wxFocusEvent& event) {
 792         GetParent()->SetFocus();
 793         event.Skip();
 794     }
 795
 796     void OnSize(wxSizeEvent& event) {
 797         // resize the child
 798         wxSize sz = GetClientSize();
 799         lv->SetSize(sz);
 800         // reset the column widths
 801         lv->SetColumnWidth(0, IconWidth()+4);
 802         lv->SetColumnWidth(1, sz.x - 2 - lv->GetColumnWidth(0) -
 803                            wxSystemSettings::GetMetric(wxSYS_VSCROLL_X));
 804         event.Skip();
 805     }
 806
 807     void OnActivate(wxListEvent& WXUNUSED(event)) {
 808         doubleClickAction(doubleClickActionData);
 809     }
 810
 811     wxListView* GetLB() { return lv; }
 812
 813 private:
 814     DECLARE_EVENT_TABLE()
 815 };
 816
 817
 818 BEGIN_EVENT_TABLE(wxSTCListBoxWin, wxWindow)
 819     EVT_SET_FOCUS          (    wxSTCListBoxWin::OnFocus)
 820     EVT_SIZE               (    wxSTCListBoxWin::OnSize)
 821     EVT_LIST_ITEM_ACTIVATED(-1, wxSTCListBoxWin::OnActivate)
 822 END_EVENT_TABLE()
 823
 824
 825
 826 inline wxSTCListBoxWin* GETLBW(WindowID win) {
 827     return ((wxSTCListBoxWin*)win);
 828 }
 829
 830 inline wxListView* GETLB(WindowID win) {
 831     return GETLBW(win)->GetLB();
 832 }
 833
 834 //----------------------------------------------------------------------
 835
 836 class ListBoxImpl : public ListBox {
 837 private:
 838     int                 lineHeight;
 839     bool                unicodeMode;
 840     int                 desiredVisibleRows;
 841     int                 aveCharWidth;
 842     int                 maxStrWidth;
 843     wxImageList*        imgList;
 844     wxArrayInt*         imgTypeMap;
 845
 846 public:
 847     ListBoxImpl();
 848     ~ListBoxImpl();
 849
 850     virtual void SetFont(Font &font);
 851     virtual void Create(Window &parent, int ctrlID, int lineHeight_, bool unicodeMode_);
 852     virtual void SetAverageCharWidth(int width);
 853     virtual void SetVisibleRows(int rows);
 854     virtual PRectangle GetDesiredRect();
 855     virtual int CaretFromEdge();
 856     virtual void Clear();
 857     virtual void Append(char *s, int type = -1);
 858     virtual int Length();
 859     virtual void Select(int n);
 860     virtual int GetSelection();
 861     virtual int Find(const char *prefix);
 862     virtual void GetValue(int n, char *value, int len);
 863     virtual void RegisterImage(int type, const char *xpm_data);
 864     virtual void ClearRegisteredImages();
 865     virtual void SetDoubleClickAction(CallBackAction, void *);
 866
 867 };
 868
 869
 870 ListBoxImpl::ListBoxImpl()
 871     : lineHeight(10), unicodeMode(false),
 872       desiredVisibleRows(5), aveCharWidth(8), maxStrWidth(0),
 873       imgList(NULL), imgTypeMap(NULL)
 874 {
 875 }
 876
 877 ListBoxImpl::~ListBoxImpl() {
 878     if (imgList) {
 879         delete imgList;
 880         imgList = NULL;
 881     }
 882     if (imgTypeMap) {
 883         delete imgTypeMap;
 884         imgTypeMap = NULL;
 885     }
 886 }
 887
 888
 889 void ListBoxImpl::SetFont(Font &font) {
 890     GETLB(id)->SetFont(*((wxFont*)font.GetID()));
 891 }
 892
 893
 894 void ListBoxImpl::Create(Window &parent, int ctrlID, int lineHeight_, bool unicodeMode_) {
 895     lineHeight =  lineHeight_;
 896     unicodeMode = unicodeMode_;
 897     maxStrWidth = 0;
 898     id = new wxSTCListBoxWin(GETWIN(parent.GetID()), ctrlID);
 899     if (imgList != NULL)
 900         GETLB(id)->SetImageList(imgList, wxIMAGE_LIST_SMALL);
 901 }
 902
 903
 904 void ListBoxImpl::SetAverageCharWidth(int width) {
 905     aveCharWidth = width;
 906 }
 907
 908
 909 void ListBoxImpl::SetVisibleRows(int rows) {
 910     desiredVisibleRows = rows;
 911 }
 912
 913
 914 PRectangle ListBoxImpl::GetDesiredRect() {
 915     // wxListCtrl doesn't have a DoGetBestSize, so instead we kept track of
 916     // the max size in Append and calculate it here...
 917     int maxw = maxStrWidth;
 918     int maxh ;
 919
 920     // give it a default if there are no lines, and/or add a bit more
 921     if (maxw == 0) maxw = 100;
 922     maxw += aveCharWidth * 3 +
 923             GETLBW(id)->IconWidth() + wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
 924     if (maxw > 350)
 925         maxw = 350;
 926
 927     // estimate a desired height
 928     int count = GETLB(id)->GetItemCount();
 929     if (count) {
 930         wxRect rect;
 931         GETLB(id)->GetItemRect(0, rect);
 932         maxh = count * rect.GetHeight();
 933         if (maxh > 140)  // TODO:  Use desiredVisibleRows??
 934             maxh = 140;
 935
 936         // Try to make the size an exact multiple of some number of lines
 937         int lines = maxh / rect.GetHeight();
 938         maxh = (lines + 1) * rect.GetHeight() + 2;
 939     }
 940     else
 941         maxh = 100;
 942
 943     PRectangle rc;
 944     rc.top = 0;
 945     rc.left = 0;
 946     rc.right = maxw;
 947     rc.bottom = maxh;
 948     return rc;
 949 }
 950
 951
 952 int ListBoxImpl::CaretFromEdge() {
 953     return 4 + GETLBW(id)->IconWidth();
 954 }
 955
 956
 957 void ListBoxImpl::Clear() {
 958     GETLB(id)->DeleteAllItems();
 959 }
 960
 961
 962 void ListBoxImpl::Append(char *s, int type) {
 963     wxString text = stc2wx(s);
 964     long count  = GETLB(id)->GetItemCount();
 965     long itemID  = GETLB(id)->InsertItem(count, wxEmptyString);
 966     GETLB(id)->SetItem(itemID, 1, text);
 967     int itemWidth = 0;
 968     GETLB(id)->GetTextExtent(text, &itemWidth, NULL);
 969     maxStrWidth = wxMax(maxStrWidth, itemWidth);
 970     if (type != -1) {
 971         wxCHECK_RET(imgTypeMap, wxT("Unexpected NULL imgTypeMap"));
 972         long idx = imgTypeMap->Item(type);
 973         GETLB(id)->SetItemImage(itemID, idx, idx);
 974     }
 975 }
 976
 977
 978 int ListBoxImpl::Length() {
 979     return GETLB(id)->GetItemCount();
 980 }
 981
 982
 983 void ListBoxImpl::Select(int n) {
 984     bool select = TRUE;
 985     if (n == -1) {
 986         n = 0;
 987         select = FALSE;
 988     }
 989     GETLB(id)->Focus(n);
 990     GETLB(id)->Select(n, select);
 991 }
 992
 993
 994 int ListBoxImpl::GetSelection() {
 995     return GETLB(id)->GetFirstSelected();
 996 }
 997
 998
 999 int ListBoxImpl::Find(const char *WXUNUSED(prefix)) {
1000     // No longer used
1001     return -1;
1002 }
1003
1004
1005 void ListBoxImpl::GetValue(int n, char *value, int len) {
1006     wxListItem item;
1007     item.SetId(n);
1008     item.SetColumn(1);
1009     item.SetMask(wxLIST_MASK_TEXT);
1010     GETLB(id)->GetItem(item);
1011     strncpy(value, wx2stc(item.GetText()), len);
1012     value[len-1] = '\0';
1013 }
1014
1015
1016 void ListBoxImpl::RegisterImage(int type, const char *xpm_data) {
1017     wxMemoryInputStream stream(xpm_data, strlen(xpm_data)+1);
1018     wxBitmap bmp(wxImage(stream, wxBITMAP_TYPE_XPM));
1019
1020     if (! imgList) {
1021         // assumes all images are the same size
1022         imgList = new wxImageList(bmp.GetWidth(), bmp.GetHeight(), TRUE);
1023         imgTypeMap = new wxArrayInt;
1024     }
1025
1026     int idx = imgList->Add(bmp);
1027
1028     // do we need to extend the mapping array?
1029     wxArrayInt& itm = *imgTypeMap;
1030     if ( itm.GetCount() < (size_t)type+1)
1031         itm.Add(-1, type - itm.GetCount() + 1);
1032
1033     // Add an item that maps type to the image index
1034     itm[type] = idx;
1035 }
1036
1037 void ListBoxImpl::ClearRegisteredImages() {
1038     if (imgList) {
1039         delete imgList;
1040         imgList = NULL;
1041     }
1042     if (imgTypeMap) {
1043         delete imgTypeMap;
1044         imgTypeMap = NULL;
1045     }
1046     if (id)
1047         GETLB(id)->SetImageList(NULL, wxIMAGE_LIST_SMALL);
1048 }
1049
1050
1051 void ListBoxImpl::SetDoubleClickAction(CallBackAction action, void *data) {
1052     GETLBW(id)->SetDoubleClickAction(action, data);
1053 }
1054
1055
1056
1057 ListBox::ListBox() {
1058 }
1059
1060 ListBox::~ListBox() {
1061 }
1062
1063 ListBox *ListBox::Allocate() {
1064     return new ListBoxImpl();
1065 }
1066
1067 //----------------------------------------------------------------------
1068
1069 Menu::Menu() : id(0) {
1070 }
1071
1072 void Menu::CreatePopUp() {
1073     Destroy();
1074     id = new wxMenu();
1075 }
1076
1077 void Menu::Destroy() {
1078     if (id)
1079         delete (wxMenu*)id;
1080     id = 0;
1081 }
1082
1083 void Menu::Show(Point pt, Window &w) {
1084     GETWIN(w.GetID())->PopupMenu((wxMenu*)id, pt.x - 4, pt.y);
1085     Destroy();
1086 }
1087
1088 //----------------------------------------------------------------------
1089
1090 DynamicLibrary *DynamicLibrary::Load(const char *WXUNUSED(modulePath)) {
1091     wxFAIL_MSG(wxT("Dynamic lexer loading not implemented yet"));
1092     return NULL;
1093 }
1094
1095 //----------------------------------------------------------------------
1096
1097 ColourDesired Platform::Chrome() {
1098     wxColour c;
1099     c = wxSystemSettings::GetColour(wxSYS_COLOUR_3DFACE);
1100     return ColourDesired(c.Red(), c.Green(), c.Blue());
1101 }
1102
1103 ColourDesired Platform::ChromeHighlight() {
1104     wxColour c;
1105     c = wxSystemSettings::GetColour(wxSYS_COLOUR_3DHIGHLIGHT);
1106     return ColourDesired(c.Red(), c.Green(), c.Blue());
1107 }
1108
1109 const char *Platform::DefaultFont() {
1110     static char buf[128];
1111     strcpy(buf, wxNORMAL_FONT->GetFaceName().mbc_str());
1112     return buf;
1113 }
1114
1115 int Platform::DefaultFontSize() {
1116     return wxNORMAL_FONT->GetPointSize();
1117 }
1118
1119 unsigned int Platform::DoubleClickTime() {
1120     return 500;   // **** ::GetDoubleClickTime();
1121 }
1122
1123 bool Platform::MouseButtonBounce() {
1124         return FALSE;
1125 }
1126 void Platform::DebugDisplay(const char *s) {
1127     wxLogDebug(stc2wx(s));
1128 }
1129
1130 bool Platform::IsKeyDown(int WXUNUSED(key)) {
1131     return false;  // I don't think we'll need this.
1132 }
1133
1134 long Platform::SendScintilla(WindowID w,
1135                              unsigned int msg,
1136                              unsigned long wParam,
1137                              long lParam) {
1138
1139     wxStyledTextCtrl* stc = (wxStyledTextCtrl*)w;
1140     return stc->SendMsg(msg, wParam, lParam);
1141 }
1142
1143 long Platform::SendScintillaPointer(WindowID w,
1144                                     unsigned int msg,
1145                                     unsigned long wParam,
1146                                     void *lParam) {
1147
1148     wxStyledTextCtrl* stc = (wxStyledTextCtrl*)w;
1149     return stc->SendMsg(msg, wParam, (long)lParam);
1150 }
1151
1152
1153 // These are utility functions not really tied to a platform
1154
1155 int Platform::Minimum(int a, int b) {
1156     if (a < b)
1157         return a;
1158     else
1159         return b;
1160 }
1161
1162 int Platform::Maximum(int a, int b) {
1163     if (a > b)
1164         return a;
1165     else
1166         return b;
1167 }
1168
1169 #define TRACE
1170
1171 void Platform::DebugPrintf(const char *format, ...) {
1172 #ifdef TRACE
1173     char buffer[2000];
1174     va_list pArguments;
1175     va_start(pArguments, format);
1176     vsprintf(buffer,format,pArguments);
1177     va_end(pArguments);
1178     Platform::DebugDisplay(buffer);
1179 #endif
1180 }
1181
1182
1183 static bool assertionPopUps = true;
1184
1185 bool Platform::ShowAssertionPopUps(bool assertionPopUps_) {
1186         bool ret = assertionPopUps;
1187         assertionPopUps = assertionPopUps_;
1188         return ret;
1189 }
1190
1191 void Platform::Assert(const char *c, const char *file, int line) {
1192         char buffer[2000];
1193         sprintf(buffer, "Assertion [%s] failed at %s %d", c, file, line);
1194         if (assertionPopUps) {
1195             /*int idButton = */
1196             wxMessageBox(stc2wx(buffer),
1197                          wxT("Assertion failure"),
1198                          wxICON_HAND | wxOK);
1199 //              if (idButton == IDRETRY) {
1200 //                      ::DebugBreak();
1201 //              } else if (idButton == IDIGNORE) {
1202 //                      // all OK
1203 //              } else {
1204 //                      abort();
1205 //              }
1206         } else {
1207                 strcat(buffer, "\r\n");
1208                 Platform::DebugDisplay(buffer);
1209                 abort();
1210         }
1211 }
1212
1213
1214 int Platform::Clamp(int val, int minVal, int maxVal) {
1215     if (val > maxVal)
1216         val = maxVal;
1217     if (val < minVal)
1218         val = minVal;
1219     return val;
1220 }
1221
1222
1223 bool Platform::IsDBCSLeadByte(int WXUNUSED(codePage), char WXUNUSED(ch)) {
1224     return false;
1225 }
1226
1227 int Platform::DBCSCharLength(int WXUNUSED(codePage), const char *WXUNUSED(s)) {
1228     return 1;
1229 }
1230
1231 int Platform::DBCSCharMaxLength() {
1232     return 1;
1233 }
1234
1235
1236 //----------------------------------------------------------------------
1237
1238 ElapsedTime::ElapsedTime() {
1239     wxStartTimer();
1240 }
1241
1242 double ElapsedTime::Duration(bool reset) {
1243     double result = wxGetElapsedTime(reset);
1244     result /= 1000.0;
1245     return result;
1246 }
1247
1248
1249 //----------------------------------------------------------------------
1250
1251 #if wxUSE_UNICODE
1252 wxString stc2wx(const char* str, size_t len)
1253 {
1254     // note: we assume that str is of length len not including the terminating null.
1255
1256     if (!len)
1257         return wxEmptyString;
1258     else if (str[len-1] == 0)
1259         // It's already terminated correctly.
1260         return wxString(str, wxConvUTF8, len);
1261
1262     char *buffer=new char[len+1];
1263     strncpy(buffer, str, len);
1264     buffer[len]=0;
1265
1266     wxString cstr(buffer, wxConvUTF8, len);
1267
1268     delete[] buffer;
1269     return cstr;
1270 }
1271 #endif
1272
1273
1274
1275
1276
1277