contrib/src/stc/PlatWX.cpp

   1 // Scintilla source code edit control
   2 // PlatWX.cxx - implementation of platform facilities on wxWindows
   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 "Platform.h"
  10 #include "wx/stc/stc.h"
  11
  12
  13 #ifdef __WXGTK__
  14 #include <gtk/gtk.h>
  15 #endif
  16
  17 Point Point::FromLong(long lpoint) {
  18     return Point(lpoint & 0xFFFF, lpoint >> 16);
  19 }
  20
  21 wxRect wxRectFromPRectangle(PRectangle prc) {
  22     wxRect rc(prc.left, prc.top,
  23               prc.right-prc.left, prc.bottom-prc.top);
  24     return rc;
  25 }
  26
  27 PRectangle PRectangleFromwxRect(wxRect rc) {
  28     return PRectangle(rc.GetLeft(), rc.GetTop(), rc.GetRight(), rc.GetBottom());
  29 }
  30
  31 Colour::Colour(long lcol) {
  32     co.Set(lcol & 0xff, (lcol >> 8) & 0xff, (lcol >> 16) & 0xff);
  33 }
  34
  35 Colour::Colour(unsigned int red, unsigned int green, unsigned int blue) {
  36     co.Set(red, green, blue);
  37 }
  38
  39 bool Colour::operator==(const Colour &other) const {
  40     return co == other.co;
  41 }
  42
  43 long Colour::AsLong() const {
  44     return (((long)co.Blue()  << 16) |
  45             ((long)co.Green() <<  8) |
  46             ((long)co.Red()));
  47 }
  48
  49 unsigned int Colour::GetRed() {
  50     return co.Red();
  51 }
  52
  53 unsigned int Colour::GetGreen() {
  54     return co.Green();
  55 }
  56
  57 unsigned int Colour::GetBlue() {
  58     return co.Blue();
  59 }
  60
  61 Palette::Palette() {
  62     used = 0;
  63     allowRealization = false;
  64 }
  65
  66 Palette::~Palette() {
  67     Release();
  68 }
  69
  70 void Palette::Release() {
  71     used = 0;
  72 }
  73
  74 // This method either adds a colour to the list of wanted colours (want==true)
  75 // or retrieves the allocated colour back to the ColourPair.
  76 // This is one method to make it easier to keep the code for wanting and retrieving in sync.
  77 void Palette::WantFind(ColourPair &cp, bool want) {
  78     if (want) {
  79         for (int i=0; i < used; i++) {
  80             if (entries[i].desired == cp.desired)
  81                 return;
  82         }
  83
  84         if (used < numEntries) {
  85             entries[used].desired = cp.desired;
  86             entries[used].allocated = cp.desired;
  87             used++;
  88         }
  89     } else {
  90         for (int i=0; i < used; i++) {
  91             if (entries[i].desired == cp.desired) {
  92                 cp.allocated = entries[i].allocated;
  93                 return;
  94             }
  95         }
  96         cp.allocated = cp.desired;
  97     }
  98 }
  99
 100 void Palette::Allocate(Window &) {
 101     if (allowRealization) {
 102     }
 103 }
 104
 105
 106 Font::Font() {
 107     id = 0;
 108     ascent = 0;
 109 }
 110
 111 Font::~Font() {
 112 }
 113
 114 void Font::Create(const char *faceName, int characterSet, int size, bool bold, bool italic) {
 115     // TODO:  what to do about the characterSet?
 116
 117     Release();
 118     id = new wxFont(size,
 119                     wxDEFAULT,
 120                     italic ? wxITALIC :  wxNORMAL,
 121                     bold ? wxBOLD : wxNORMAL,
 122                     false,
 123                     faceName,
 124                     wxFONTENCODING_DEFAULT);
 125 }
 126
 127
 128 void Font::Release() {
 129     if (id)
 130         delete id;
 131     id = 0;
 132 }
 133
 134
 135 Surface::Surface() :
 136     hdc(0), hdcOwned(0), bitmap(0),
 137     x(0), y(0) {
 138 }
 139
 140 Surface::~Surface() {
 141     Release();
 142 }
 143
 144 void Surface::Release() {
 145     if (bitmap) {
 146         ((wxMemoryDC*)hdc)->SelectObject(wxNullBitmap);
 147         delete bitmap;
 148         bitmap = 0;
 149     }
 150     if (hdcOwned) {
 151         delete hdc;
 152         hdc = 0;
 153         hdcOwned = false;
 154     }
 155 }
 156
 157
 158 bool Surface::Initialised() {
 159     return hdc != 0;
 160 }
 161
 162 void Surface::Init() {
 163     Release();
 164     hdc = new wxMemoryDC();
 165     hdcOwned = true;
 166 }
 167
 168 void Surface::Init(SurfaceID hdc_) {
 169     Release();
 170     hdc = hdc_;
 171 }
 172
 173 void Surface::InitPixMap(int width, int height, Surface *surface_) {
 174     Release();
 175     hdc = new wxMemoryDC(surface_->hdc);
 176     hdcOwned = true;
 177     if (width < 1) width = 1;
 178     if (height < 1) height = 1;
 179     bitmap = new wxBitmap(width, height);
 180     ((wxMemoryDC*)hdc)->SelectObject(*bitmap);
 181 }
 182
 183 void Surface::PenColour(Colour fore) {
 184     hdc->SetPen(wxPen(fore.co, 1, wxSOLID));
 185 }
 186
 187 void Surface::BrushColor(Colour back) {
 188     hdc->SetBrush(wxBrush(back.co, wxSOLID));
 189 }
 190
 191 void Surface::SetFont(Font &font_) {
 192   if (font_.GetID()) {
 193       hdc->SetFont(*font_.GetID());
 194     }
 195 }
 196
 197 int Surface::LogPixelsY() {
 198     return hdc->GetPPI().y;
 199 }
 200
 201
 202 int Surface::DeviceHeightFont(int points) {
 203     return points;
 204 }
 205
 206
 207 void Surface::MoveTo(int x_, int y_) {
 208     x = x_;
 209     y = y_;
 210 }
 211
 212 void Surface::LineTo(int x_, int y_) {
 213     hdc->DrawLine(x,y, x_,y_);
 214     x = x_;
 215     y = y_;
 216 }
 217
 218 void Surface::Polygon(Point *pts, int npts, Colour fore,
 219                       Colour back) {
 220     PenColour(fore);
 221     BrushColor(back);
 222     hdc->DrawPolygon(npts, (wxPoint*)pts);
 223 }
 224
 225 void Surface::RectangleDraw(PRectangle rc, Colour fore, Colour back) {
 226     PenColour(fore);
 227     BrushColor(back);
 228     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 229 }
 230
 231 void Surface::FillRectangle(PRectangle rc, Colour back) {
 232     BrushColor(back);
 233     hdc->SetPen(*wxTRANSPARENT_PEN);
 234     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 235 }
 236
 237 void Surface::FillRectangle(PRectangle rc, Surface &surfacePattern) {
 238     wxBrush br;
 239     if (surfacePattern.bitmap)
 240         br = wxBrush(*surfacePattern.bitmap);
 241     else    // Something is wrong so display in red
 242         br = wxBrush(*wxRED, wxSOLID);
 243     hdc->SetPen(*wxTRANSPARENT_PEN);
 244     hdc->SetBrush(br);
 245     hdc->DrawRectangle(wxRectFromPRectangle(rc));
 246 }
 247
 248 void Surface::RoundedRectangle(PRectangle rc, Colour fore, Colour back) {
 249     PenColour(fore);
 250     BrushColor(back);
 251     hdc->DrawRoundedRectangle(wxRectFromPRectangle(rc), 4);
 252 }
 253
 254 void Surface::Ellipse(PRectangle rc, Colour fore, Colour back) {
 255     PenColour(fore);
 256     BrushColor(back);
 257     hdc->DrawEllipse(wxRectFromPRectangle(rc));
 258 }
 259
 260 void Surface::Copy(PRectangle rc, Point from, Surface &surfaceSource) {
 261     wxRect r = wxRectFromPRectangle(rc);
 262     hdc->Blit(r.x, r.y, r.width, r.height,
 263               surfaceSource.hdc, from.x, from.y, wxCOPY);
 264 }
 265
 266 void Surface::DrawText(PRectangle rc, Font &font, int ybase,
 267                        const char *s, int len, Colour fore, Colour back) {
 268     SetFont(font);
 269     hdc->SetTextForeground(fore.co);
 270     hdc->SetTextBackground(back.co);
 271     FillRectangle(rc, back);
 272
 273     // ybase is where the baseline should be, but wxWin uses the upper left
 274     // corner, so I need to calculate the real position for the text...
 275     hdc->DrawText(wxString(s, len), rc.left, ybase - font.ascent);
 276 }
 277
 278 void Surface::DrawTextClipped(PRectangle rc, Font &font, int ybase, const char *s, int len, Colour fore, Colour back) {
 279     SetFont(font);
 280     hdc->SetTextForeground(fore.co);
 281     hdc->SetTextBackground(back.co);
 282     FillRectangle(rc, back);
 283     hdc->SetClippingRegion(wxRectFromPRectangle(rc));
 284
 285     // see comments above
 286     hdc->DrawText(wxString(s, len), rc.left, ybase - font.ascent);
 287     hdc->DestroyClippingRegion();
 288 }
 289
 290 int Surface::WidthText(Font &font, const char *s, int len) {
 291     SetFont(font);
 292     int w;
 293     int h;
 294     hdc->GetTextExtent(wxString(s, len), &w, &h);
 295     return w;
 296 }
 297
 298 void Surface::MeasureWidths(Font &font, const char *s, int len, int *positions) {
 299     SetFont(font);
 300     int totalWidth = 0;
 301     for (int i=0; i<len; i++) {
 302         int w;
 303         int h;
 304         hdc->GetTextExtent(s[i], &w, &h);
 305         totalWidth += w;
 306         positions[i] = totalWidth;
 307     }
 308 }
 309
 310 int Surface::WidthChar(Font &font, char ch) {
 311     SetFont(font);
 312     int w;
 313     int h;
 314     hdc->GetTextExtent(ch, &w, &h);
 315     return w;
 316 }
 317
 318 #define EXTENT_TEST " `~!@#$%^&*()-_=+\\|[]{};:\"\'<,>.?/1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
 319
 320 int Surface::Ascent(Font &font) {
 321     SetFont(font);
 322     int w, h, d, e;
 323     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 324     font.ascent = h - d;
 325     return font.ascent;
 326 }
 327
 328 int Surface::Descent(Font &font) {
 329     SetFont(font);
 330     int w, h, d, e;
 331     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 332     return d;
 333 }
 334
 335 int Surface::InternalLeading(Font &font) {
 336     return 0;
 337 }
 338
 339 int Surface::ExternalLeading(Font &font) {
 340     SetFont(font);
 341     int w, h, d, e;
 342     hdc->GetTextExtent(EXTENT_TEST, &w, &h, &d, &e);
 343     return e;
 344 }
 345
 346 int Surface::Height(Font &font) {
 347     SetFont(font);
 348     return hdc->GetCharHeight();
 349 }
 350
 351 int Surface::AverageCharWidth(Font &font) {
 352     SetFont(font);
 353     return hdc->GetCharWidth();
 354 }
 355
 356 int Surface::SetPalette(Palette *pal, bool inBackGround) {
 357     return 0;
 358 }
 359
 360 void Surface::SetClip(PRectangle rc) {
 361     hdc->SetClippingRegion(wxRectFromPRectangle(rc));
 362 }
 363
 364 void Surface::FlushCachedState() {
 365 }
 366
 367 Window::~Window() {
 368 }
 369
 370 void Window::Destroy() {
 371     if (id)
 372         id->Destroy();
 373     id = 0;
 374 }
 375
 376 bool Window::HasFocus() {
 377     return wxWindow::FindFocus() == id;
 378 }
 379
 380 PRectangle Window::GetPosition() {
 381     wxRect rc(id->GetPosition(), id->GetSize());
 382     return PRectangleFromwxRect(rc);
 383 }
 384
 385 void Window::SetPosition(PRectangle rc) {
 386     wxRect r = wxRectFromPRectangle(rc);
 387     id->SetSize(r);
 388 }
 389
 390 void Window::SetPositionRelative(PRectangle rc, Window) {
 391     SetPosition(rc);  // ????
 392 }
 393
 394 PRectangle Window::GetClientPosition() {
 395     wxSize sz = id->GetClientSize();
 396     return  PRectangle(0, 0, sz.x, sz.y);
 397 }
 398
 399 void Window::Show(bool show) {
 400     id->Show(show);
 401 }
 402
 403 void Window::InvalidateAll() {
 404     id->Refresh(false);
 405 }
 406
 407 void Window::InvalidateRectangle(PRectangle rc) {
 408     wxRect r = wxRectFromPRectangle(rc);
 409     id->Refresh(false, &r);
 410 }
 411
 412 void Window::SetFont(Font &font) {
 413     id->SetFont(*font.GetID());
 414 }
 415
 416 void Window::SetCursor(Cursor curs) {
 417     int cursorId;
 418
 419     switch (curs) {
 420     case cursorText:
 421         cursorId = wxCURSOR_IBEAM;
 422         break;
 423     case cursorArrow:
 424         cursorId = wxCURSOR_ARROW;
 425         break;
 426     case cursorUp:
 427         cursorId = wxCURSOR_ARROW; // ** no up arrow...  wxCURSOR_UPARROW;
 428         break;
 429     case cursorWait:
 430         cursorId = wxCURSOR_WAIT;
 431         break;
 432     case cursorHoriz:
 433         cursorId = wxCURSOR_SIZEWE;
 434         break;
 435     case cursorVert:
 436         cursorId = wxCURSOR_SIZENS;
 437         break;
 438     case cursorReverseArrow:
 439         cursorId = wxCURSOR_POINT_RIGHT;
 440         break;
 441     default:
 442         cursorId = wxCURSOR_ARROW;
 443         break;
 444     }
 445
 446     id->SetCursor(wxCursor(cursorId));
 447 }
 448
 449
 450 void Window::SetTitle(const char *s) {
 451     id->SetTitle(s);
 452 }
 453
 454
 455 class wxSTCListBox : public wxListBox {
 456 public:
 457     wxSTCListBox(wxWindow* parent, wxWindowID id)
 458         : wxListBox(parent, id, wxDefaultPosition, wxDefaultSize,
 459                     0, NULL, wxLB_SINGLE | wxSIMPLE_BORDER | wxLB_SORT )
 460         {}
 461
 462     void OnFocus(wxFocusEvent& event) {
 463         GetParent()->SetFocus();
 464         event.Skip();
 465     }
 466
 467 #if 0 // #ifdef __WXGTK__
 468     void DoSetFirstItem(int n);
 469 #endif
 470
 471 private:
 472     DECLARE_EVENT_TABLE()
 473 };
 474
 475 BEGIN_EVENT_TABLE(wxSTCListBox, wxListBox)
 476     EVT_SET_FOCUS(wxSTCListBox::OnFocus)
 477 END_EVENT_TABLE()
 478
 479
 480
 481
 482 #if 0 // #ifdef __WXGTK__
 483     // This can be removed after 2.2.2 I think
 484 void wxSTCListBox::DoSetFirstItem( int n )
 485 {
 486     wxCHECK_RET( m_list, wxT("invalid listbox") );
 487
 488     if (gdk_pointer_is_grabbed () && GTK_WIDGET_HAS_GRAB (m_list))
 489         return;
 490
 491     // terribly efficient
 492     const gchar *vadjustment_key = "gtk-vadjustment";
 493     guint vadjustment_key_id = g_quark_from_static_string (vadjustment_key);
 494
 495     GtkAdjustment *adjustment =
 496        (GtkAdjustment*) gtk_object_get_data_by_id (GTK_OBJECT (m_list), vadjustment_key_id);
 497     wxCHECK_RET( adjustment, wxT("invalid listbox code") );
 498
 499     GList *target = g_list_nth( m_list->children, n );
 500     wxCHECK_RET( target, wxT("invalid listbox index") );
 501
 502     GtkWidget *item = GTK_WIDGET(target->data);
 503     wxCHECK_RET( item, wxT("invalid listbox code") );
 504
 505     // find the last item before this one which is already realized
 506     size_t nItemsBefore;
 507     for ( nItemsBefore = 0; item && (item->allocation.y == -1); nItemsBefore++ )
 508     {
 509         target = target->prev;
 510         if ( !target )
 511         {
 512             // nothing we can do if there are no allocated items yet
 513             return;
 514         }
 515
 516         item = GTK_WIDGET(target->data);
 517     }
 518
 519     gtk_adjustment_set_value(adjustment,
 520                              item->allocation.y +
 521                                 nItemsBefore*item->allocation.height);
 522 }
 523 #endif
 524
 525
 526 ListBox::ListBox() {
 527 }
 528
 529 ListBox::~ListBox() {
 530 }
 531
 532 void ListBox::Create(Window &parent, int ctrlID) {
 533     id = new wxSTCListBox(parent.id, ctrlID);
 534 //    id = new wxListBox(parent.id, ctrlID,  wxDefaultPosition, wxDefaultSize,
 535 //                       0, NULL, wxLB_SINGLE | wxLB_SORT | wxSIMPLE_BORDER);
 536 }
 537
 538 void ListBox::SetVisibleRows(int rows) {
 539         desiredVisibleRows = rows;
 540         printf("SetVisibleRows: %d\n", rows);
 541 }
 542
 543 PRectangle ListBox::GetDesiredRect() {
 544     wxSize sz = ((wxListBox*)id)->GetBestSize();
 545     printf("GetDesiredRect: %d, %d\n", sz.x, sz.y);
 546     PRectangle rc;
 547     rc.top = 0;
 548     rc.left = 0;
 549     if (sz.x > 400)
 550         sz.x = 400;
 551     if (sz.y > 150)
 552         sz.y = 150;
 553     rc.right = sz.x;
 554     rc.bottom = sz.y;
 555
 556     return rc;
 557 }
 558
 559 void ListBox::SetAverageCharWidth(int width) {
 560     aveCharWidth = width;
 561 }
 562
 563 void ListBox::SetFont(Font &font) {
 564     Window::SetFont(font);
 565 }
 566
 567 void ListBox::Clear() {
 568     ((wxListBox*)id)->Clear();
 569 }
 570
 571 void ListBox::Append(char *s) {
 572     ((wxListBox*)id)->Append(s);
 573 }
 574
 575 int ListBox::Length() {
 576     return ((wxListBox*)id)->GetCount();
 577 }
 578
 579 void ListBox::Select(int n) {
 580     ((wxListBox*)id)->SetSelection(n);
 581 #ifdef __WXGTK__
 582     if (n > 4)
 583         n = n - 4;
 584     else
 585         n = 1;
 586     ((wxListBox*)id)->SetFirstItem(n);
 587 #endif
 588 }
 589
 590 int ListBox::GetSelection() {
 591     return ((wxListBox*)id)->GetSelection();
 592 }
 593
 594 int ListBox::Find(const char *prefix) {
 595     if (prefix) {
 596         for (int x=0; x < ((wxListBox*)id)->GetCount(); x++) {
 597             wxString text = ((wxListBox*)id)->GetString(x);
 598             if (text.StartsWith(prefix))
 599                 return x;
 600         }
 601     }
 602     return -1;
 603 }
 604
 605 void ListBox::GetValue(int n, char *value, int len) {
 606     wxString text = ((wxListBox*)id)->GetString(n);
 607     strncpy(value, text.c_str(), len);
 608     value[len-1] = '\0';
 609 }
 610
 611 void ListBox::Sort() {
 612     // wxWindows keeps sorted so no need to sort
 613 }
 614
 615
 616 Menu::Menu() : id(0) {
 617 }
 618
 619 void Menu::CreatePopUp() {
 620     Destroy();
 621     id = new wxMenu();
 622 }
 623
 624 void Menu::Destroy() {
 625     if (id)
 626         delete id;
 627     id = 0;
 628 }
 629
 630 void Menu::Show(Point pt, Window &w) {
 631     w.GetID()->PopupMenu(id, pt.x - 4, pt.y);
 632     Destroy();
 633 }
 634
 635
 636 Colour Platform::Chrome() {
 637     wxColour c;
 638     c = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DFACE);
 639     return Colour(c.Red(), c.Green(), c.Blue());
 640 }
 641
 642 Colour Platform::ChromeHighlight() {
 643     wxColour c;
 644     c = wxSystemSettings::GetSystemColour(wxSYS_COLOUR_3DHIGHLIGHT);
 645     return Colour(c.Red(), c.Green(), c.Blue());
 646 }
 647
 648 const char *Platform::DefaultFont() {
 649     return wxNORMAL_FONT->GetFaceName();
 650 }
 651
 652 int Platform::DefaultFontSize() {
 653     return 8;
 654 }
 655
 656 unsigned int Platform::DoubleClickTime() {
 657     return 500;   // **** ::GetDoubleClickTime();
 658 }
 659
 660 void Platform::DebugDisplay(const char *s) {
 661     wxLogDebug(s);
 662 }
 663
 664 bool Platform::IsKeyDown(int key) {
 665     return false;  // I don't think we'll need this.
 666 }
 667
 668 long Platform::SendScintilla(WindowID w,
 669                              unsigned int msg,
 670                              unsigned long wParam,
 671                              long lParam) {
 672
 673     wxStyledTextCtrl* stc = (wxStyledTextCtrl*)w;
 674     return stc->SendMsg(msg, wParam, lParam);
 675 }
 676
 677
 678 // These are utility functions not really tied to a platform
 679
 680 int Platform::Minimum(int a, int b) {
 681     if (a < b)
 682         return a;
 683     else
 684         return b;
 685 }
 686
 687 int Platform::Maximum(int a, int b) {
 688     if (a > b)
 689         return a;
 690     else
 691         return b;
 692 }
 693
 694 #define TRACE
 695
 696 void Platform::DebugPrintf(const char *format, ...) {
 697 #ifdef TRACE
 698     char buffer[2000];
 699     va_list pArguments;
 700     va_start(pArguments, format);
 701     vsprintf(buffer,format,pArguments);
 702     va_end(pArguments);
 703     Platform::DebugDisplay(buffer);
 704 #endif
 705 }
 706
 707
 708 static bool assertionPopUps = true;
 709
 710 bool Platform::ShowAssertionPopUps(bool assertionPopUps_) {
 711         bool ret = assertionPopUps;
 712         assertionPopUps = assertionPopUps_;
 713         return ret;
 714 }
 715
 716 void Platform::Assert(const char *c, const char *file, int line) {
 717         char buffer[2000];
 718         sprintf(buffer, "Assertion [%s] failed at %s %d", c, file, line);
 719         if (assertionPopUps) {
 720                 int idButton = wxMessageBox(buffer, "Assertion failure",
 721                                             wxICON_HAND | wxOK);
 722 //              if (idButton == IDRETRY) {
 723 //                      ::DebugBreak();
 724 //              } else if (idButton == IDIGNORE) {
 725 //                      // all OK
 726 //              } else {
 727 //                      abort();
 728 //              }
 729         } else {
 730                 strcat(buffer, "\r\n");
 731                 Platform::DebugDisplay(buffer);
 732                 abort();
 733         }
 734 }
 735
 736
 737 int Platform::Clamp(int val, int minVal, int maxVal) {
 738     if (val > maxVal)
 739         val = maxVal;
 740     if (val < minVal)
 741         val = minVal;
 742     return val;
 743 }
 744
 745
 746
 747
 748
 749