src/univ/winuniv.cpp

   1 ///////////////////////////////////////////////////////////////////////////////
   2 // Name:        univ/window.cpp
   3 // Purpose:     implementation of extra wxWindow methods for wxUniv port
   4 // Author:      Vadim Zeitlin
   5 // Modified by:
   6 // Created:     06.08.00
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 2000 SciTech Software, Inc. (www.scitechsoft.com)
   9 // Licence:     wxWindows license
  10 ///////////////////////////////////////////////////////////////////////////////
  11
  12 // ===========================================================================
  13 // declarations
  14 // ===========================================================================
  15
  16 // ---------------------------------------------------------------------------
  17 // headers
  18 // ---------------------------------------------------------------------------
  19
  20 #ifdef __GNUG__
  21     #pragma implementation "univwindow.h"
  22 #endif
  23
  24 // For compilers that support precompilation, includes "wx.h".
  25 #include "wx/wxprec.h"
  26
  27 #ifdef __BORLANDC__
  28     #pragma hdrstop
  29 #endif
  30
  31 #ifndef WX_PRECOMP
  32     #include "wx/app.h"
  33     #include "wx/window.h"
  34     #include "wx/dcclient.h"
  35     #include "wx/dcmemory.h"
  36     #include "wx/event.h"
  37     #include "wx/scrolbar.h"
  38     #include "wx/menu.h"
  39     #include "wx/frame.h"
  40 #endif // WX_PRECOMP
  41
  42 #include "wx/univ/colschem.h"
  43 #include "wx/univ/renderer.h"
  44 #include "wx/univ/theme.h"
  45
  46 #if wxUSE_CARET
  47     #include "wx/caret.h"
  48 #endif // wxUSE_CARET
  49
  50 // turn Refresh() debugging on/off
  51 #define WXDEBUG_REFRESH
  52
  53 #ifndef __WXDEBUG__
  54     #undef WXDEBUG_REFRESH
  55 #endif
  56
  57 #if defined(WXDEBUG_REFRESH) && defined(__WXMSW__) && !defined(__WXMICROWIN__)
  58 #include "wx/msw/private.h"
  59 #endif
  60
  61 // ============================================================================
  62 // implementation
  63 // ============================================================================
  64
  65 // ----------------------------------------------------------------------------
  66 // event tables
  67 // ----------------------------------------------------------------------------
  68
  69 // we can't use wxWindowNative here as it won't be expanded inside the macro
  70 #if defined(__WXMSW__)
  71     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowMSW)
  72 #elif defined(__WXGTK__)
  73     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowGTK)
  74 #elif defined(__WXMGL__)
  75     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowMGL)
  76 #elif defined(__WXX11__)
  77     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowX11)
  78 #elif defined(__WXPM__)
  79     IMPLEMENT_DYNAMIC_CLASS(wxWindow, wxWindowOS2)
  80 #endif
  81
  82 BEGIN_EVENT_TABLE(wxWindow, wxWindowNative)
  83     EVT_SIZE(wxWindow::OnSize)
  84
  85 #if wxUSE_ACCEL || wxUSE_MENUS
  86     EVT_KEY_DOWN(wxWindow::OnKeyDown)
  87 #endif // wxUSE_ACCEL
  88
  89 #if wxUSE_MENUS
  90     EVT_CHAR(wxWindow::OnChar)
  91     EVT_KEY_UP(wxWindow::OnKeyUp)
  92 #endif // wxUSE_MENUS
  93
  94     EVT_PAINT(wxWindow::OnPaint)
  95     EVT_NC_PAINT(wxWindow::OnNcPaint)
  96     EVT_ERASE_BACKGROUND(wxWindow::OnErase)
  97 END_EVENT_TABLE()
  98
  99 // ----------------------------------------------------------------------------
 100 // creation
 101 // ----------------------------------------------------------------------------
 102
 103 void wxWindow::Init()
 104 {
 105     m_scrollbarVert =
 106     m_scrollbarHorz = (wxScrollBar *)NULL;
 107
 108     m_isCurrent = FALSE;
 109
 110     m_renderer = wxTheme::Get()->GetRenderer();
 111 }
 112
 113 bool wxWindow::Create(wxWindow *parent,
 114                       wxWindowID id,
 115                       const wxPoint& pos,
 116                       const wxSize& size,
 117                       long style,
 118                       const wxString& name)
 119 {
 120     // we add wxCLIP_CHILDREN to get the same ("natural") behaviour under MSW
 121     // as under the other platforms
 122     if ( !wxWindowNative::Create(parent, id, pos, size,
 123                                  style | wxCLIP_CHILDREN,
 124                                  name) )
 125     {
 126         return FALSE;
 127     }
 128
 129     // if we should always have the scrollbar, do show it
 130     if ( GetWindowStyle() & wxALWAYS_SHOW_SB )
 131     {
 132         m_scrollbarVert = new wxScrollBar(this, -1,
 133                                           wxDefaultPosition, wxDefaultSize,
 134                                           wxSB_VERTICAL);
 135
 136         // and position it
 137         PositionScrollbars();
 138     }
 139
 140     return TRUE;
 141 }
 142
 143 // ----------------------------------------------------------------------------
 144 // background pixmap
 145 // ----------------------------------------------------------------------------
 146
 147 void wxWindow::SetBackground(const wxBitmap& bitmap,
 148                               int alignment,
 149                               wxStretch stretch)
 150 {
 151     m_bitmapBg = bitmap;
 152     m_alignBgBitmap = alignment;
 153     m_stretchBgBitmap = stretch;
 154 }
 155
 156 const wxBitmap& wxWindow::GetBackgroundBitmap(int *alignment,
 157                                                wxStretch *stretch) const
 158 {
 159     if ( m_bitmapBg.Ok() )
 160     {
 161         if ( alignment )
 162             *alignment = m_alignBgBitmap;
 163         if ( stretch )
 164             *stretch = m_stretchBgBitmap;
 165     }
 166
 167     return m_bitmapBg;
 168 }
 169
 170 // ----------------------------------------------------------------------------
 171 // painting
 172 // ----------------------------------------------------------------------------
 173
 174 // the event handler executed when the window background must be painted
 175 void wxWindow::OnErase(wxEraseEvent& event)
 176 {
 177     if ( !m_renderer )
 178     {
 179         event.Skip();
 180
 181         return;
 182     }
 183
 184     DoDrawBackground(*event.GetDC());
 185
 186     // if we have both scrollbars, we also have a square in the corner between
 187     // them which we must paint
 188     if ( m_scrollbarVert && m_scrollbarHorz )
 189     {
 190         wxSize size = GetSize();
 191         wxRect rectClient = GetClientRect(),
 192                rectBorder = m_renderer->GetBorderDimensions(GetBorder());
 193
 194         wxRect rectCorner;
 195         rectCorner.x = rectClient.GetRight() + 1;
 196         rectCorner.y = rectClient.GetBottom() + 1;
 197         rectCorner.SetRight(size.x - rectBorder.width);
 198         rectCorner.SetBottom(size.y - rectBorder.height);
 199
 200         if ( GetUpdateRegion().Contains(rectCorner) )
 201         {
 202             m_renderer->DrawScrollCorner(*event.GetDC(), rectCorner);
 203         }
 204     }
 205 }
 206
 207 // the event handlers executed when the window must be repainted
 208 void wxWindow::OnNcPaint(wxPaintEvent& event)
 209 {
 210     if ( m_renderer )
 211     {
 212         // get the window rect
 213         wxRect rect;
 214         wxSize size = GetSize();
 215         rect.x =
 216         rect.y = 0;
 217         rect.width = size.x;
 218         rect.height = size.y;
 219
 220         // if the scrollbars are outside the border, we must adjust the rect to
 221         // exclude them
 222         if ( !m_renderer->AreScrollbarsInsideBorder() )
 223         {
 224             wxScrollBar *scrollbar = GetScrollbar(wxVERTICAL);
 225             if ( scrollbar )
 226                 rect.width -= scrollbar->GetSize().x;
 227
 228             scrollbar = GetScrollbar(wxHORIZONTAL);
 229             if ( scrollbar )
 230                 rect.height -= scrollbar->GetSize().y;
 231         }
 232
 233         // get the DC and draw the border on it
 234         wxWindowDC dc(this);
 235         DoDrawBorder(dc, rect);
 236     }
 237 }
 238
 239 void wxWindow::OnPaint(wxPaintEvent& event)
 240 {
 241     if ( !m_renderer )
 242     {
 243         // it is a native control which paints itself
 244         event.Skip();
 245     }
 246     else
 247     {
 248         // get the DC to use and create renderer on it
 249         wxPaintDC dc(this);
 250         wxControlRenderer renderer(this, dc, m_renderer);
 251
 252         // draw the control
 253         DoDraw(&renderer);
 254     }
 255 }
 256
 257 bool wxWindow::DoDrawBackground(wxDC& dc)
 258 {
 259     // FIXME: leaving this code in leads to partial bg redraws sometimes under
 260     //        MSW
 261     wxRect rect;
 262 #ifndef __WXMSW__
 263     rect = GetUpdateRegion().GetBox();
 264     if ( !rect.width && !rect.height )
 265 #endif
 266     {
 267         wxSize size = GetSize();
 268         rect.width = size.x;
 269         rect.height = size.y;
 270     }
 271
 272     if ( GetBackgroundBitmap().Ok() )
 273     {
 274         // get the bitmap and the flags
 275         int alignment;
 276         wxStretch stretch;
 277         wxBitmap bmp = GetBackgroundBitmap(&alignment, &stretch);
 278         wxControlRenderer::DrawBitmap(dc, bmp, rect, alignment, stretch);
 279     }
 280     else // just fill it with bg colour if no bitmap
 281     {
 282         m_renderer->DrawBackground(dc, wxTHEME_BG_COLOUR(this),
 283                                    rect, GetStateFlags());
 284     }
 285
 286     return TRUE;
 287 }
 288
 289 void wxWindow::EraseBackground(wxDC& dc, const wxRect& rect)
 290 {
 291     // TODO: handle bg bitmaps here!
 292
 293     m_renderer->DrawBackground(dc, wxTHEME_BG_COLOUR(this), rect, GetStateFlags());
 294 }
 295
 296 void wxWindow::DoDrawBorder(wxDC& dc, const wxRect& rect)
 297 {
 298     // draw outline unless the update region is enitrely inside it in which
 299     // case we don't need to do it
 300 #if 0 // doesn't seem to work, why?
 301     if ( wxRegion(rect).Contains(GetUpdateRegion().GetBox()) != wxInRegion )
 302 #endif
 303     {
 304         m_renderer->DrawBorder(dc, GetBorder(), rect, GetStateFlags());
 305     }
 306 }
 307
 308 void wxWindow::DoDraw(wxControlRenderer *renderer)
 309 {
 310 }
 311
 312 void wxWindow::Refresh(bool eraseBackground, const wxRect *rectClient)
 313 {
 314     wxRect rectWin;
 315     wxPoint pt = GetClientAreaOrigin();
 316
 317     wxSize size = GetClientSize();
 318
 319     if ( rectClient )
 320     {
 321         rectWin = *rectClient;
 322
 323         // don't refresh anything beyond the client area (scrollbars for
 324         // example)
 325         if ( rectWin.GetRight() > size.x )
 326             rectWin.SetRight(size.x);
 327         if ( rectWin.GetBottom() > size.y )
 328             rectWin.SetBottom(size.y);
 329
 330         rectWin.Offset(pt);
 331     }
 332     else // refresh the entire client area
 333     {
 334         rectWin.x = pt.x;
 335         rectWin.y = pt.y;
 336         rectWin.width = size.x;
 337         rectWin.height = size.y;
 338     }
 339
 340     // debugging helper
 341 #ifdef WXDEBUG_REFRESH
 342     static bool s_refreshDebug = FALSE;
 343     if ( s_refreshDebug )
 344     {
 345         wxWindowDC dc(this);
 346         dc.SetBrush(*wxCYAN_BRUSH);
 347         dc.SetPen(*wxTRANSPARENT_PEN);
 348         dc.DrawRectangle(rectWin);
 349
 350         // under Unix we use "--sync" X option for this
 351         #if defined(__WXMSW__) && !defined(__WXMICROWIN__)
 352             ::GdiFlush();
 353             ::Sleep(200);
 354         #endif // __WXMSW__
 355     }
 356 #endif // WXDEBUG_REFRESH
 357
 358     wxWindowNative::Refresh(eraseBackground, &rectWin);
 359 }
 360
 361 // ----------------------------------------------------------------------------
 362 // state flags
 363 // ----------------------------------------------------------------------------
 364
 365 bool wxWindow::Enable(bool enable)
 366 {
 367     if ( !wxWindowNative::Enable(enable) )
 368         return FALSE;
 369
 370     // disabled window can't keep focus
 371     if ( FindFocus() == this && GetParent() != NULL )
 372     {
 373         GetParent()->SetFocus();
 374     }
 375
 376     if ( m_renderer )
 377     {
 378         // a window with renderer is drawn by ourselves and it has to be
 379         // refreshed to reflect its new status
 380         Refresh();
 381     }
 382
 383     return TRUE;
 384 }
 385
 386 bool wxWindow::IsFocused() const
 387 {
 388     wxWindow *self = wxConstCast(this, wxWindow);
 389     return self->FindFocus() == self;
 390 }
 391
 392 bool wxWindow::IsPressed() const
 393 {
 394     return FALSE;
 395 }
 396
 397 bool wxWindow::IsDefault() const
 398 {
 399     return FALSE;
 400 }
 401
 402 bool wxWindow::IsCurrent() const
 403 {
 404     return m_isCurrent;
 405 }
 406
 407 bool wxWindow::SetCurrent(bool doit)
 408 {
 409     if ( doit == m_isCurrent )
 410         return FALSE;
 411
 412     m_isCurrent = doit;
 413
 414     if ( CanBeHighlighted() )
 415         Refresh();
 416
 417     return TRUE;
 418 }
 419
 420 int wxWindow::GetStateFlags() const
 421 {
 422     int flags = 0;
 423     if ( !IsEnabled() )
 424         flags |= wxCONTROL_DISABLED;
 425
 426     // the following states are only possible if our application is active - if
 427     // it is not, even our default/focused controls shouldn't appear as such
 428     if ( wxTheApp->IsActive() )
 429     {
 430         if ( IsCurrent() )
 431             flags |= wxCONTROL_CURRENT;
 432         if ( IsFocused() )
 433             flags |= wxCONTROL_FOCUSED;
 434         if ( IsPressed() )
 435             flags |= wxCONTROL_PRESSED;
 436         if ( IsDefault() )
 437             flags |= wxCONTROL_ISDEFAULT;
 438     }
 439
 440     return flags;
 441 }
 442
 443 // ----------------------------------------------------------------------------
 444 // size
 445 // ----------------------------------------------------------------------------
 446
 447 void wxWindow::OnSize(wxSizeEvent& event)
 448 {
 449     if ( m_scrollbarVert || m_scrollbarHorz )
 450     {
 451         PositionScrollbars();
 452     }
 453
 454     event.Skip();
 455 }
 456
 457 wxSize wxWindow::DoGetBestSize() const
 458 {
 459     return AdjustSize(DoGetBestClientSize());
 460 }
 461
 462 wxSize wxWindow::DoGetBestClientSize() const
 463 {
 464     return wxWindowNative::DoGetBestSize();
 465 }
 466
 467 wxSize wxWindow::AdjustSize(const wxSize& size) const
 468 {
 469     wxSize sz = size;
 470     if ( m_renderer )
 471         m_renderer->AdjustSize(&sz, this);
 472     return sz;
 473 }
 474
 475 wxPoint wxWindow::GetClientAreaOrigin() const
 476 {
 477     wxPoint pt = wxWindowBase::GetClientAreaOrigin();
 478
 479     if ( m_renderer )
 480         pt += m_renderer->GetBorderDimensions(GetBorder()).GetPosition();
 481
 482     return pt;
 483 }
 484
 485 void wxWindow::DoGetClientSize(int *width, int *height) const
 486 {
 487     // if it is a native window, we assume it handles the scrollbars itself
 488     // too - and if it doesn't, there is not much we can do
 489     if ( !m_renderer )
 490     {
 491         wxWindowNative::DoGetClientSize(width, height);
 492
 493         return;
 494     }
 495
 496     int w, h;
 497     wxWindowNative::DoGetClientSize(&w, &h);
 498
 499     // we assume that the scrollbars are positioned correctly (by a previous
 500     // call to PositionScrollbars()) here
 501
 502     wxRect rectBorder;
 503     if ( m_renderer )
 504         rectBorder = m_renderer->GetBorderDimensions(GetBorder());
 505
 506     bool inside = m_renderer->AreScrollbarsInsideBorder();
 507
 508     if ( width )
 509     {
 510         // in any case, take account of the scrollbar
 511         if ( m_scrollbarVert )
 512             w -= m_scrollbarVert->GetSize().x;
 513
 514         // if we don't have scrollbar or if it is outside the border (and not
 515         // blended into it), take account of the right border as well
 516         if ( !m_scrollbarVert || inside )
 517             w -= rectBorder.width;
 518
 519         // and always account for the left border
 520         *width = w - rectBorder.x;
 521
 522         // we shouldn't return invalid width
 523         if ( *width < 0 )
 524             *width = 0;
 525     }
 526
 527     if ( height )
 528     {
 529         if ( m_scrollbarHorz )
 530             h -= m_scrollbarHorz->GetSize().y;
 531
 532         if ( !m_scrollbarHorz || inside )
 533             h -= rectBorder.height;
 534
 535         *height = h - rectBorder.y;
 536
 537         // we shouldn't return invalid height
 538         if ( *height < 0 )
 539             *height = 0;
 540     }
 541 }
 542
 543 void wxWindow::DoSetClientSize(int width, int height)
 544 {
 545     // take into account the borders
 546     wxRect rectBorder = m_renderer->GetBorderDimensions(GetBorder());
 547     width += rectBorder.x;
 548     height += rectBorder.y;
 549
 550     // and the scrollbars (as they may be offset into the border, use the
 551     // scrollbar position, not size - this supposes that PositionScrollbars()
 552     // had been called before)
 553     bool inside = m_renderer->AreScrollbarsInsideBorder();
 554     wxSize size = GetSize();
 555     if ( m_scrollbarVert )
 556         width += size.x - m_scrollbarVert->GetPosition().x;
 557     if ( !m_scrollbarVert || inside )
 558         width += rectBorder.width;
 559
 560     if ( m_scrollbarHorz )
 561         height += size.y - m_scrollbarHorz->GetPosition().y;
 562     if ( !m_scrollbarHorz || inside )
 563         height += rectBorder.height;
 564
 565     wxWindowNative::DoSetClientSize(width, height);
 566 }
 567
 568 wxHitTest wxWindow::DoHitTest(wxCoord x, wxCoord y) const
 569 {
 570     wxHitTest ht = wxWindowNative::DoHitTest(x, y);
 571     if ( ht == wxHT_WINDOW_INSIDE )
 572     {
 573         if ( m_scrollbarVert && x >= m_scrollbarVert->GetPosition().x )
 574         {
 575             // it can still be changed below because it may also be the corner
 576             ht = wxHT_WINDOW_VERT_SCROLLBAR;
 577         }
 578
 579         if ( m_scrollbarHorz && y >= m_scrollbarHorz->GetPosition().y )
 580         {
 581             ht = ht == wxHT_WINDOW_VERT_SCROLLBAR ? wxHT_WINDOW_CORNER
 582                                                   : wxHT_WINDOW_HORZ_SCROLLBAR;
 583         }
 584     }
 585
 586     return ht;
 587 }
 588
 589 // ----------------------------------------------------------------------------
 590 // scrolling: we implement it entirely ourselves except for ScrollWindow()
 591 // function which is supposed to be (efficiently) implemented by the native
 592 // window class
 593 // ----------------------------------------------------------------------------
 594
 595 void wxWindow::RefreshScrollbars()
 596 {
 597     if ( m_scrollbarHorz )
 598         m_scrollbarHorz->Refresh();
 599
 600     if ( m_scrollbarVert )
 601         m_scrollbarVert->Refresh();
 602 }
 603
 604 void wxWindow::PositionScrollbars()
 605 {
 606     // do not use GetClientSize/Rect as it relies on the scrollbars being
 607     // correctly positioned
 608
 609     wxSize size = GetSize();
 610     wxBorder border = GetBorder();
 611     wxRect rectBorder = m_renderer->GetBorderDimensions(border);
 612     bool inside = m_renderer->AreScrollbarsInsideBorder();
 613
 614     int height = m_scrollbarHorz ? m_scrollbarHorz->GetSize().y : 0;
 615     int width = m_scrollbarVert ? m_scrollbarVert->GetSize().x : 0;
 616
 617     wxRect rectBar;
 618     if ( m_scrollbarVert )
 619     {
 620         rectBar.x = size.x - width;
 621         if ( inside )
 622            rectBar.x -= rectBorder.width;
 623         rectBar.width = width;
 624         rectBar.y = 0;
 625         if ( inside )
 626             rectBar.y += rectBorder.y;
 627         rectBar.height = size.y - height;
 628         if ( inside )
 629             rectBar.height -= rectBorder.y + rectBorder.height;
 630
 631         m_scrollbarVert->SetSize(rectBar, wxSIZE_NO_ADJUSTMENTS);
 632     }
 633
 634     if ( m_scrollbarHorz )
 635     {
 636         rectBar.y = size.y - height;
 637         if ( inside )
 638             rectBar.y -= rectBorder.height;
 639         rectBar.height = height;
 640         rectBar.x = 0;
 641         if ( inside )
 642             rectBar.x += rectBorder.x;
 643         rectBar.width = size.x - width;
 644         if ( inside )
 645             rectBar.width -= rectBorder.x + rectBorder.width;
 646
 647         m_scrollbarHorz->SetSize(rectBar, wxSIZE_NO_ADJUSTMENTS);
 648     }
 649
 650     RefreshScrollbars();
 651 }
 652
 653 void wxWindow::SetScrollbar(int orient,
 654                             int pos,
 655                             int pageSize,
 656                             int range,
 657                             bool refresh)
 658 {
 659     wxASSERT_MSG( pageSize <= range,
 660                     _T("page size can't be greater than range") );
 661
 662     bool hasClientSizeChanged = FALSE;
 663     wxScrollBar *scrollbar = GetScrollbar(orient);
 664     if ( range && (pageSize < range) )
 665     {
 666         if ( !scrollbar )
 667         {
 668             // create it
 669             scrollbar = new wxScrollBar(this, -1,
 670                                         wxDefaultPosition, wxDefaultSize,
 671                                         orient & wxVERTICAL ? wxSB_VERTICAL
 672                                                             : wxSB_HORIZONTAL);
 673             if ( orient & wxVERTICAL )
 674                 m_scrollbarVert = scrollbar;
 675             else
 676                 m_scrollbarHorz = scrollbar;
 677
 678             // the client area diminished as we created a scrollbar
 679             hasClientSizeChanged = TRUE;
 680
 681             PositionScrollbars();
 682         }
 683         else if ( GetWindowStyle() & wxALWAYS_SHOW_SB )
 684         {
 685             // we might have disabled it before
 686             scrollbar->Enable();
 687         }
 688
 689         scrollbar->SetScrollbar(pos, pageSize, range, pageSize, refresh);
 690     }
 691     else // no range means no scrollbar
 692     {
 693         if ( scrollbar )
 694         {
 695             // wxALWAYS_SHOW_SB only applies to the vertical scrollbar
 696             if ( (orient & wxVERTICAL) && (GetWindowStyle() & wxALWAYS_SHOW_SB) )
 697             {
 698                 // just disable the scrollbar
 699                 scrollbar->SetScrollbar(pos, pageSize, range, pageSize, refresh);
 700                 scrollbar->Disable();
 701             }
 702             else // really remove the scrollbar
 703             {
 704                 delete scrollbar;
 705
 706                 if ( orient & wxVERTICAL )
 707                     m_scrollbarVert = NULL;
 708                 else
 709                     m_scrollbarHorz = NULL;
 710
 711                 // the client area increased as we removed a scrollbar
 712                 hasClientSizeChanged = TRUE;
 713
 714                 // the size of the remaining scrollbar must be adjusted
 715                 if ( m_scrollbarHorz || m_scrollbarVert )
 716                 {
 717                     PositionScrollbars();
 718                 }
 719             }
 720         }
 721     }
 722
 723     // give the window a chance to relayout
 724     if ( hasClientSizeChanged )
 725     {
 726         wxSizeEvent event(GetSize());
 727         (void)GetEventHandler()->ProcessEvent(event);
 728     }
 729 }
 730
 731 void wxWindow::SetScrollPos(int orient, int pos, bool refresh)
 732 {
 733     wxScrollBar *scrollbar = GetScrollbar(orient);
 734     wxCHECK_RET( scrollbar, _T("no scrollbar to set position for") );
 735
 736     scrollbar->SetThumbPosition(pos);
 737
 738     // VZ: I think we can safely ignore this as we always refresh it
 739     //     automatically whenever the value chanegs
 740 #if 0
 741     if ( refresh )
 742         Refresh();
 743 #endif
 744 }
 745
 746 int wxWindow::GetScrollPos(int orient) const
 747 {
 748     wxScrollBar *scrollbar = GetScrollbar(orient);
 749     return scrollbar ? scrollbar->GetThumbPosition() : 0;
 750 }
 751
 752 int wxWindow::GetScrollThumb(int orient) const
 753 {
 754     wxScrollBar *scrollbar = GetScrollbar(orient);
 755     return scrollbar ? scrollbar->GetThumbSize() : 0;
 756 }
 757
 758 int wxWindow::GetScrollRange(int orient) const
 759 {
 760     wxScrollBar *scrollbar = GetScrollbar(orient);
 761     return scrollbar ? scrollbar->GetRange() : 0;
 762 }
 763
 764 void wxWindow::ScrollWindow(int dx, int dy, const wxRect *rect)
 765 {
 766     // before scrolling it, ensure that we don't have any unpainted areas
 767     Update();
 768
 769     wxRect r;
 770
 771     if ( dx )
 772     {
 773         r = ScrollNoRefresh(dx, 0, rect);
 774         Refresh(TRUE /* erase bkgnd */, &r);
 775     }
 776
 777     if ( dy )
 778     {
 779         r = ScrollNoRefresh(0, dy, rect);
 780         Refresh(TRUE /* erase bkgnd */, &r);
 781     }
 782 }
 783
 784 wxRect wxWindow::ScrollNoRefresh(int dx, int dy, const wxRect *rectTotal)
 785 {
 786     wxASSERT_MSG( !dx || !dy, _T("can't be used for diag scrolling") );
 787
 788     // the rect to refresh (which we will calculate)
 789     wxRect rect;
 790
 791     if ( !dx && !dy )
 792     {
 793         // nothing to do
 794         return rect;
 795     }
 796
 797     // calculate the part of the window which we can just redraw in the new
 798     // location
 799     wxSize sizeTotal = rectTotal ? rectTotal->GetSize() : GetClientSize();
 800
 801     wxLogTrace(_T("scroll"), _T("rect is %dx%d, scroll by %d, %d"),
 802                sizeTotal.x, sizeTotal.y, dx, dy);
 803
 804     // the initial and end point of the region we move in client coords
 805     wxPoint ptSource, ptDest;
 806     if ( rectTotal )
 807     {
 808         ptSource = rectTotal->GetPosition();
 809         ptDest = rectTotal->GetPosition();
 810     }
 811
 812     // the size of this region
 813     wxSize size;
 814     size.x = sizeTotal.x - abs(dx);
 815     size.y = sizeTotal.y - abs(dy);
 816     if ( size.x <= 0 || size.y <= 0 )
 817     {
 818         // just redraw everything as nothing of the displayed image will stay
 819         wxLogTrace(_T("scroll"), _T("refreshing everything"));
 820
 821         rect = rectTotal ? *rectTotal : wxRect(0, 0, sizeTotal.x, sizeTotal.y);
 822     }
 823     else // move the part which doesn't change to the new location
 824     {
 825         // note that when we scroll the canvas in some direction we move the
 826         // block which doesn't need to be refreshed in the opposite direction
 827
 828         if ( dx < 0 )
 829         {
 830             // scroll to the right, move to the left
 831             ptSource.x -= dx;
 832         }
 833         else
 834         {
 835             // scroll to the left, move to the right
 836             ptDest.x += dx;
 837         }
 838
 839         if ( dy < 0 )
 840         {
 841             // scroll down, move up
 842             ptSource.y -= dy;
 843         }
 844         else
 845         {
 846             // scroll up, move down
 847             ptDest.y += dy;
 848         }
 849
 850 #if wxUSE_CARET
 851         // we need to hide the caret before moving or it will erase itself at
 852         // the wrong (old) location
 853         wxCaret *caret = GetCaret();
 854         if ( caret )
 855             caret->Hide();
 856 #endif // wxUSE_CARET
 857
 858         // do move
 859         wxClientDC dc(this);
 860         wxBitmap bmp(size.x, size.y);
 861         wxMemoryDC dcMem;
 862         dcMem.SelectObject(bmp);
 863
 864         dcMem.Blit(wxPoint(0, 0), size, &dc, ptSource
 865 #if defined(__WXGTK__) && !defined(wxHAS_WORKING_GTK_DC_BLIT)
 866                 + GetClientAreaOrigin()
 867 #endif // broken wxGTK wxDC::Blit
 868                   );
 869         dc.Blit(ptDest, size, &dcMem, wxPoint(0, 0));
 870
 871         wxLogTrace(_T("scroll"),
 872                    _T("Blit: (%d, %d) of size %dx%d -> (%d, %d)"),
 873                    ptSource.x, ptSource.y,
 874                    size.x, size.y,
 875                    ptDest.x, ptDest.y);
 876
 877         // and now repaint the uncovered area
 878
 879         // FIXME: We repaint the intersection of these rectangles twice - is
 880         //        it bad? I don't think so as it is rare to scroll the window
 881         //        diagonally anyhow and so adding extra logic to compute
 882         //        rectangle intersection is probably not worth the effort
 883
 884         rect.x = ptSource.x;
 885         rect.y = ptSource.y;
 886
 887         if ( dx )
 888         {
 889             if ( dx < 0 )
 890             {
 891                 // refresh the area along the right border
 892                 rect.x += size.x + dx;
 893                 rect.width = -dx;
 894             }
 895             else
 896             {
 897                 // refresh the area along the left border
 898                 rect.width = dx;
 899             }
 900
 901             rect.height = sizeTotal.y;
 902
 903             wxLogTrace(_T("scroll"), _T("refreshing (%d, %d)-(%d, %d)"),
 904                        rect.x, rect.y,
 905                        rect.GetRight() + 1, rect.GetBottom() + 1);
 906         }
 907
 908         if ( dy )
 909         {
 910             if ( dy < 0 )
 911             {
 912                 // refresh the area along the bottom border
 913                 rect.y += size.y + dy;
 914                 rect.height = -dy;
 915             }
 916             else
 917             {
 918                 // refresh the area along the top border
 919                 rect.height = dy;
 920             }
 921
 922             rect.width = sizeTotal.x;
 923
 924             wxLogTrace(_T("scroll"), _T("refreshing (%d, %d)-(%d, %d)"),
 925                        rect.x, rect.y,
 926                        rect.GetRight() + 1, rect.GetBottom() + 1);
 927         }
 928
 929 #if wxUSE_CARET
 930         if ( caret )
 931             caret->Show();
 932 #endif // wxUSE_CARET
 933     }
 934
 935     return rect;
 936 }
 937
 938 // ----------------------------------------------------------------------------
 939 // accelerators and menu hot keys
 940 // ----------------------------------------------------------------------------
 941
 942 #if wxUSE_MENUS
 943     // the last window over which Alt was pressed (used by OnKeyUp)
 944     wxWindow *wxWindow::ms_winLastAltPress = NULL;
 945 #endif // wxUSE_MENUS
 946
 947 #if wxUSE_ACCEL || wxUSE_MENUS
 948
 949 void wxWindow::OnKeyDown(wxKeyEvent& event)
 950 {
 951 #if wxUSE_MENUS
 952     int key = event.GetKeyCode();
 953     if ( !event.ControlDown() && (key == WXK_MENU || key == WXK_F10) )
 954     {
 955         ms_winLastAltPress = this;
 956
 957         // it can't be an accel anyhow
 958         return;
 959     }
 960
 961     ms_winLastAltPress = NULL;
 962 #endif // wxUSE_MENUS
 963
 964 #if wxUSE_ACCEL
 965     for ( wxWindow *win = this; win; win = win->GetParent() )
 966     {
 967         int command = win->GetAcceleratorTable()->GetCommand(event);
 968         if ( command != -1 )
 969         {
 970             wxCommandEvent eventCmd(wxEVT_COMMAND_MENU_SELECTED, command);
 971             if ( win->GetEventHandler()->ProcessEvent(eventCmd) )
 972             {
 973                 // skip "event.Skip()" below
 974                 return;
 975             }
 976         }
 977
 978         if ( win->IsTopLevel() )
 979         {
 980             // try the frame menu bar
 981 #if wxUSE_MENUS
 982             wxFrame *frame = wxDynamicCast(win, wxFrame);
 983             if ( frame )
 984             {
 985                 wxMenuBar *menubar = frame->GetMenuBar();
 986                 if ( menubar && menubar->ProcessAccelEvent(event) )
 987                 {
 988                     // skip "event.Skip()" below
 989                     return;
 990                 }
 991             }
 992 #endif // wxUSE_MENUS
 993
 994             // if it wasn't in a menu, try to find a button
 995             if ( command != -1 )
 996             {
 997                 wxWindow* child = win->FindWindow(command);
 998                 if ( child && wxDynamicCast(child, wxButton) )
 999                 {
1000                     wxCommandEvent eventCmd(wxEVT_COMMAND_BUTTON_CLICKED, command);
1001                     eventCmd.SetEventObject(child);
1002                     if ( child->GetEventHandler()->ProcessEvent(eventCmd) )
1003                     {
1004                         // skip "event.Skip()" below
1005                         return;
1006                     }
1007                 }
1008             }
1009
1010             // don't propagate accels from the child frame to the parent one
1011             break;
1012         }
1013     }
1014 #endif // wxUSE_ACCEL
1015
1016     event.Skip();
1017 }
1018
1019 #endif // wxUSE_ACCEL
1020
1021 #if wxUSE_MENUS
1022
1023 wxMenuBar *wxWindow::GetParentFrameMenuBar() const
1024 {
1025     for ( const wxWindow *win = this; win; win = win->GetParent() )
1026     {
1027         if ( win->IsTopLevel() )
1028         {
1029             wxFrame *frame = wxDynamicCast(win, wxFrame);
1030             if ( frame )
1031             {
1032                 return frame->GetMenuBar();
1033             }
1034
1035             // don't look further - we don't want to return the menubar of the
1036             // parent frame
1037             break;
1038         }
1039     }
1040
1041     return NULL;
1042 }
1043
1044 void wxWindow::OnChar(wxKeyEvent& event)
1045 {
1046     if ( event.AltDown() && !event.ControlDown() )
1047     {
1048         int key = event.GetKeyCode();
1049
1050         wxMenuBar *menubar = GetParentFrameMenuBar();
1051         if ( menubar )
1052         {
1053             int item = menubar->FindNextItemForAccel(-1, key);
1054             if ( item != -1 )
1055             {
1056                 menubar->PopupMenu((size_t)item);
1057
1058                 // skip "event.Skip()" below
1059                 return;
1060             }
1061         }
1062     }
1063
1064     event.Skip();
1065 }
1066
1067 void wxWindow::OnKeyUp(wxKeyEvent& event)
1068 {
1069     int key = event.GetKeyCode();
1070     if ( !event.HasModifiers() && (key == WXK_MENU || key == WXK_F10) )
1071     {
1072         // only process Alt release specially if there were no other key
1073         // presses since Alt had been pressed and if both events happened in
1074         // the same window
1075         if ( ms_winLastAltPress == this )
1076         {
1077             wxMenuBar *menubar = GetParentFrameMenuBar();
1078             if ( menubar && this != menubar )
1079             {
1080                 menubar->SelectMenu(0);
1081             }
1082         }
1083     }
1084     else
1085     {
1086         event.Skip();
1087     }
1088
1089     // in any case reset it
1090     ms_winLastAltPress = NULL;
1091 }
1092
1093 #endif // wxUSE_MENUS
1094