Merged in latest wxLayout code from Mahogany Mail.

[wxWidgets.git] / user / wxLayout / wxlwindow.cpp

diff --git a/user/wxLayout/wxlwindow.cpp b/user/wxLayout/wxlwindow.cpp
index fd77b00bed3e515d45016e27f29c7a54238e80ba..03d1a6bd09bdbc77f095ed9b5e6f769a7e598cee 100644 (file)
--- a/user/wxLayout/wxlwindow.cpp
+++ b/user/wxLayout/wxlwindow.cpp
@@ -1,7 +1,7 @@
 /*-*- c++ -*-********************************************************
  * wxLwindow.h : a scrolled Window for displaying/entering rich text*
  *                                                                  *
 /*-*- c++ -*-********************************************************
  * wxLwindow.h : a scrolled Window for displaying/entering rich text*
  *                                                                  *

- * (C) 1998 by Karsten Ballüder (Ballueder@usa.net)                 *
+ * (C) 1998, 1999 by Karsten Ballüder (Ballueder@usa.net)           * 

  *                                                                  *
  * $Id$
  *******************************************************************/
  *                                                                  *
  * $Id$
  *******************************************************************/


@@ -10,140 +10,499 @@
 #   pragma implementation "wxlwindow.h"
 #endif
 
 #   pragma implementation "wxlwindow.h"
 #endif
 

-#include   "wxlwindow.h"
+//#include "Mpch.h"

 
 

-#define   VAR(x)   cout << #x"=" << x << endl;
+#ifdef M_BASEDIR
+#   ifndef USE_PCH
+#     include "Mcommon.h"
+#     include "gui/wxMenuDefs.h"
+#     include "gui/wxMApp.h"
+#   endif // USE_PCH
+
+#   include "gui/wxlwindow.h"
+#   include "gui/wxlparser.h"
+#else
+#   ifdef   __WXMSW__
+#       include <windows.h>
+#       undef FindWindow
+#       undef GetCharWidth
+#       undef StartDoc
+#   endif
+
+#   include "wxlwindow.h"
+#   include "wxlparser.h"
+#endif
+
+#include <wx/clipbrd.h>
+#include <wx/dataobj.h>
+
+#include <ctype.h>
+
+/// offsets to put a nice frame around text
+#define WXLO_XOFFSET   4
+#define WXLO_YOFFSET   4
+
+/// offset to the right and bottom for when to redraw scrollbars
+#define   WXLO_ROFFSET   20
+#define   WXLO_BOFFSET   20

 
 BEGIN_EVENT_TABLE(wxLayoutWindow,wxScrolledWindow)
 
 BEGIN_EVENT_TABLE(wxLayoutWindow,wxScrolledWindow)

-   EVT_PAINT  (wxLayoutWindow::OnPaint)
-   EVT_CHAR   (wxLayoutWindow::OnChar)
-   EVT_LEFT_DOWN(wxLayoutWindow::OnMouse)
+   EVT_PAINT    (wxLayoutWindow::OnPaint)
+   EVT_CHAR     (wxLayoutWindow::OnChar)
+   EVT_LEFT_DOWN(wxLayoutWindow::OnLeftMouseClick)
+   EVT_RIGHT_DOWN(wxLayoutWindow::OnRightMouseClick)
+   EVT_LEFT_DCLICK(wxLayoutWindow::OnMouseDblClick)
+   EVT_MENU_RANGE(WXLOWIN_MENU_FIRST, WXLOWIN_MENU_LAST, wxLayoutWindow::OnMenu)
+   EVT_SET_FOCUS(wxLayoutWindow::OnSetFocus)
+   EVT_KILL_FOCUS(wxLayoutWindow::OnKillFocus)

 END_EVENT_TABLE()
 
 wxLayoutWindow::wxLayoutWindow(wxWindow *parent)
 END_EVENT_TABLE()
 
 wxLayoutWindow::wxLayoutWindow(wxWindow *parent)

-   : wxScrolledWindow(parent)
+   : wxScrolledWindow(parent, -1, wxDefaultPosition, wxDefaultSize,
+                      wxHSCROLL | wxVSCROLL | wxBORDER)
+
+{
+   m_Editable = false;
+   m_doSendEvents = false;
+   m_ViewStartX = 0; m_ViewStartY = 0;
+   m_DoPopupMenu = true;
+   m_PopupMenu = MakeFormatMenu();
+   m_memDC = new wxMemoryDC;
+   m_bitmap = new wxBitmap(4,4);
+   m_bitmapSize = wxPoint(4,4);
+   m_llist = new wxLayoutList();
+   m_BGbitmap = NULL;
+   SetWrapMargin(0);
+   wxPoint max = m_llist->GetSize();
+   SetScrollbars(10, 20 /*lineHeight*/, max.x/10+1, max.y/20+1);
+   EnableScrolling(true,true);
+   m_maxx = max.x; m_maxy = max.y;
+   SetCursor(wxCURSOR_IBEAM);
+   SetDirty();
+}
+
+wxLayoutWindow::~wxLayoutWindow()
+{
+   delete m_memDC; // deletes bitmap automatically (?)
+   delete m_bitmap;
+   delete m_llist;
+   delete m_PopupMenu;
+   SetBackgroundBitmap(NULL);
+}
+
+#ifdef __WXMSW__
+long
+wxLayoutWindow::MSWGetDlgCode()

 {
 {

-   m_ScrollbarsSet = false;
-   m_EventId = 0;
+   // if we don't return this, we won't get OnChar() events for TABs and ENTER
+   return DLGC_WANTCHARS | DLGC_WANTARROWS | DLGC_WANTMESSAGE;

 }
 }

+#endif //MSW

 
 void
 
 void

-wxLayoutWindow::OnMouse(wxMouseEvent& event)
+wxLayoutWindow::OnMouse(int eventId, wxMouseEvent& event)

 {
 {

-   if(m_EventId == 0) // nothing to do
-      return;
+   wxPaintDC dc( this );
+   PrepareDC( dc );     
+   SetFocus();
+

    
    

-   m_FindPos.x = event.GetX();
-   m_FindPos.y = event.GetY();
-   m_FoundObject = NULL;
+   wxPoint findPos;
+   findPos.x = dc.DeviceToLogicalX(event.GetX());
+   findPos.y = dc.DeviceToLogicalY(event.GetY());

 
 

-#ifdef   DEBUG
-   cerr << "OnMouse: " << m_FindPos.x << ',' << m_FindPos.y << endl;
+   findPos.x -= WXLO_XOFFSET;
+   findPos.y -= WXLO_YOFFSET;
+
+   if(findPos.x < 0) findPos.x = 0;
+   if(findPos.y < 0) findPos.y = 0;
+
+   m_ClickPosition = wxPoint(event.GetX(), event.GetY());
+#ifdef WXLAYOUT_DEBUG
+   wxLogDebug("wxLayoutWindow::OnMouse: (%d, %d) -> (%d, %d)",
+              event.GetX(), event.GetY(), findPos.x, findPos.y);

 #endif
 #endif

-   Refresh();
-   if(m_FoundObject)
+
+   wxPoint cursorPos;
+   wxLayoutObject *obj = m_llist->FindObjectScreen(dc, findPos, &cursorPos);
+
+#ifdef WXLAYOUT_DEBUG
+   if(obj)
+      wxLogDebug("wxLayoutWindow::OnMouse: Found object of type %d.",
+                 obj->GetType());
+   else
+      wxLogDebug("wxLayoutWindow::OnMouse: Found no object.");
+#endif
+
+   // always move cursor to mouse click:
+   if(obj && eventId == WXLOWIN_MENU_LCLICK)

    {
    {

-      if(m_EventId)
-      {
-         wxCommandEvent commandEvent(wxEVENT_TYPE_MENU_COMMAND, m_EventId);
-         commandEvent.SetEventObject( this );
-         GetEventHandler()->ProcessEvent(commandEvent);
-      }
+      m_llist->MoveCursorTo(cursorPos);
+      DoPaint(false); 
+   }
+   if(!m_doSendEvents) // nothing to do
+      return;
+
+   // only do the menu if activated, editable and not on a clickable object
+   if(eventId == WXLOWIN_MENU_RCLICK
+      && IsEditable()
+      && (! obj || (obj && obj->GetUserData() == NULL))
+      )
+   {
+      PopupMenu(m_PopupMenu, m_ClickPosition.x, m_ClickPosition.y);
+      return;
+   }
+   // find the object at this position
+   if(obj)
+   {
+      wxCommandEvent commandEvent(wxEVT_COMMAND_MENU_SELECTED, eventId);
+      commandEvent.SetEventObject( this );
+      commandEvent.SetClientData((char *)obj);
+      GetEventHandler()->ProcessEvent(commandEvent);

    }
 }
 
 /*
    }
 }
 
 /*

- * some simple keyboard handling
+ * Some simple keyboard handling.

  */
 void
 wxLayoutWindow::OnChar(wxKeyEvent& event)
 {
  */
 void
 wxLayoutWindow::OnChar(wxKeyEvent& event)
 {

+   if(!IsEditable()) // do nothing
+   {
+      event.Skip();
+      return;
+   }
+   

    long keyCode = event.KeyCode();
 
    long keyCode = event.KeyCode();
 

-   switch(event.KeyCode())
+   /* First, handle control keys */
+   if(event.ControlDown() && ! event.AltDown())

    {
    {

-      case WXK_RIGHT:
-      m_llist.MoveCursor(1);
-      break;
-   case WXK_LEFT:
-      m_llist.MoveCursor(-1);
-      break;
-   case WXK_UP:
-      m_llist.MoveCursor(0,-1);
-      break;
-   case WXK_DOWN:
-      m_llist.MoveCursor(0,1);
-      break;
-   case WXK_PRIOR:
-      m_llist.MoveCursor(0,-20);
-      break;
-   case WXK_NEXT:
-      m_llist.MoveCursor(0,20);
-      break;
-   case WXK_DELETE :
-      m_llist.Delete(1);
-      break;
-   case WXK_BACK: // backspace
-      m_llist.MoveCursor(-1);
-      m_llist.Delete(1);
-      break;
-   case WXK_RETURN:
-      m_llist.LineBreak();
-      break;
-#ifdef DEBUG   
-   case WXK_F1:
-      m_llist.Debug();
-      break;
-#endif 
-   default:
-      if(keyCode < 256 && keyCode >= 32)
+      switch(event.KeyCode())

       {
       {

-         wxString tmp;
-         tmp += keyCode;
-         m_llist.Insert(tmp);
+      case WXK_DELETE :
+      case 'd':
+         m_llist->Delete(1);
+         break;
+      case 'y':
+         m_llist->DeleteLines(1);
+         break;
+      case 'h': // like backspace
+         if(m_llist->MoveCursorHorizontally(-1)) m_llist->Delete(1);
+         break;
+      case 'u':
+         m_llist->DeleteToBeginOfLine();
+         break;
+      case 'k':
+         m_llist->DeleteToEndOfLine();
+         break;
+#ifdef WXLAYOUT_DEBUG
+      case WXK_F1:
+         m_llist->SetFont(-1,-1,-1,-1,true);  // underlined
+         break;
+#endif
+      default:
+         ;

       }
       }

-      break;

    }
    }

-   Refresh();
-   UpdateScrollbars();
+   // ALT only:
+   else if( event.AltDown() && ! event.ControlDown() )
+   {
+      switch(event.KeyCode())
+      {
+      case WXK_DELETE:
+      case 'd':
+         m_llist->DeleteWord();
+         break;
+      default:
+         ;
+      }
+   }
+   // no control keys:
+   else if ( ! event.AltDown() && ! event.ControlDown())
+   {
+      switch(event.KeyCode())
+      {
+      case WXK_RIGHT:
+         m_llist->MoveCursorHorizontally(1);
+         break;
+      case WXK_LEFT:
+         m_llist->MoveCursorHorizontally(-1);
+         break;
+      case WXK_UP:
+         m_llist->MoveCursorVertically(-1);
+         break;
+      case WXK_DOWN:
+         m_llist->MoveCursorVertically(1);
+         break;
+      case WXK_PRIOR:
+         m_llist->MoveCursorVertically(-20);
+         break;
+      case WXK_NEXT:
+         m_llist->MoveCursorVertically(20);
+         break;
+      case WXK_HOME:
+         m_llist->MoveCursorToBeginOfLine();
+         break;
+      case WXK_END:
+         m_llist->MoveCursorToEndOfLine();
+         break;
+      case WXK_DELETE :
+         m_llist->Delete(1);
+         break;
+      case WXK_BACK: // backspace
+         if(m_llist->MoveCursorHorizontally(-1)) m_llist->Delete(1);
+         break;
+      case WXK_RETURN:
+         if(m_WrapMargin > 0)
+            m_llist->WrapLine(m_WrapMargin);
+         m_llist->LineBreak();
+         break;
+      default:
+         if((!(event.ControlDown() || event.AltDown() || event.MetaDown()))
+            && (keyCode < 256 && keyCode >= 32)
+            )
+         {
+            wxString tmp;
+            tmp += keyCode;
+            if(m_WrapMargin > 0 && isspace(keyCode))
+                m_llist->WrapLine(m_WrapMargin);
+            m_llist->Insert(tmp);
+         }
+         break;
+      }
+   }
+   SetDirty();
+   SetModified();
+   DoPaint(true); // paint and scroll to cursor

 }
 
 void
 }
 
 void

-wxLayoutWindow::OnPaint( wxPaintEvent &WXUNUSED(event)w)  // or: OnDraw(wxDC& dc)
+wxLayoutWindow::OnPaint( wxPaintEvent &WXUNUSED(event))  // or: OnDraw(wxDC& dc)

 {
 {

-   wxPaintDC dc( this );  // only when used as OnPaint for OnDraw we
-   PrepareDC( dc );       // can skip the first two lines
+   m_ScrollToCursor = false;
+   InternalPaint();
+}

 
 

-   if(m_EventId) // look for keyclicks
-      m_FoundObject = m_llist.Draw(dc,true,m_FindPos);
-   else
-      m_llist.Draw(dc);
-   if(! m_ScrollbarsSet)
+void
+wxLayoutWindow::DoPaint(bool scrollToCursor)
+{
+   m_ScrollToCursor = scrollToCursor;
+#ifdef __WXGTK__
+   InternalPaint();
+#else
+   Refresh(FALSE); // Causes bad flicker under wxGTK!!!
+#endif
+}
+
+void
+wxLayoutWindow::InternalPaint(void)
+{
+   wxPaintDC dc( this );
+   PrepareDC( dc );
+
+   int x0,y0,x1,y1, dx, dy;
+
+   // Calculate where the top of the visible area is:
+   ViewStart(&x0,&y0);
+   GetScrollPixelsPerUnit(&dx, &dy);
+   x0 *= dx; y0 *= dy;
+
+   // Get the size of the visible window:
+   GetClientSize(&x1,&y1);
+   wxASSERT(x1 > 0);
+   wxASSERT(y1 > 0);
+   // As we have the values anyway, use them to avoid unnecessary
+   // scrollbar updates.
+   if(x1 > m_maxx) m_maxx = x1;  
+   if(y1 > m_maxy) m_maxy = y1;
+
+   // Maybe we need to change the scrollbar sizes or positions,
+   // so layout the list and check:
+   if(IsDirty())
+      m_llist->Layout(dc);
+   // this is needed even when only the cursor moved
+   m_llist->Layout(dc,y0+y1);
+   
+   if(IsDirty())
+      ResizeScrollbars();
+   
+   /* Make sure that the scrollbars are at a position so that the
+      cursor is visible if we are editing. */
+      /** Scroll so that cursor is visible! */
+   if(IsEditable() && m_ScrollToCursor)

    {
    {

-      m_ScrollbarsSet = true; // avoid recursion
-      UpdateScrollbars();
+      wxPoint cc = m_llist->GetCursorScreenPos();
+      if(cc.x < x0 || cc.y < y0
+         || cc.x >= x0+(9*x1)/10 || cc.y >= y0+(9*y1/10))  // (9*x)/10 ==  90%
+      {
+         int nx, ny;
+         nx = cc.x - x1/2; if(nx < 0) nx = 0;
+         ny = cc.y - y1/2; if(ny < 0) ny = 0;
+         Scroll(nx/dx,ny/dy); // new view start
+         x0 = nx; y0 = ny;
+      }
+   }
+   
+   /* Check whether the window has grown, if so, we need to reallocate 
+      the bitmap to be larger. */
+   if(x1 > m_bitmapSize.x || y1 > m_bitmapSize.y)
+   {
+      wxASSERT(m_bitmapSize.x > 0);
+      wxASSERT(m_bitmapSize.y > 0);
+      
+      m_memDC->SelectObject(wxNullBitmap);
+      delete m_bitmap;
+      m_bitmapSize = wxPoint(x1,y1);
+      m_bitmap = new wxBitmap(x1,y1);
+      m_memDC->SelectObject(*m_bitmap);
+   }
+   // Device origins on the memDC are suspect, we translate manually
+   // with the translate parameter of Draw().
+   m_memDC->SetDeviceOrigin(0,0);
+   m_memDC->SetBackgroundMode(wxTRANSPARENT);
+   m_memDC->SetBrush(wxBrush(*m_llist->GetDefaults()->GetBGColour(), wxSOLID));                                  
+   m_memDC->SetPen(wxPen(*m_llist->GetDefaults()->GetBGColour(),0,wxTRANSPARENT));                               
+   m_memDC->SetLogicalFunction(wxCOPY);
+   if(m_BGbitmap)
+   {
+      CoordType
+         y, x,
+         w = m_BGbitmap->GetWidth(),
+         h = m_BGbitmap->GetHeight();
+      for(y = 0; y < y1; y+=h)
+         for(x = 0; x < x1; x+=w)
+            m_memDC->DrawBitmap(*m_BGbitmap, x, y);

    }
    }

+   else
+      m_memDC->DrawRectangle(0,0,x1, y1);
+
+   // The offsets give the window a tiny border on the left and top, looks nice.
+   wxPoint offset(-x0+WXLO_XOFFSET,-y0+WXLO_YOFFSET);
+   m_llist->Draw(*m_memDC,offset);
+   if(IsEditable())
+      m_llist->DrawCursor(*m_memDC,m_HaveFocus,offset);
+
+   // Now copy everything to the screen:
+   wxRegionIterator ri ( GetUpdateRegion() );
+   if(ri)
+      while(ri)
+      {
+         dc.Blit(x0+ri.GetX(),y0+ri.GetY(),ri.GetW(),ri.GetH(),
+                 m_memDC,ri.GetX(),ri.GetY(),wxCOPY,FALSE);
+         ri++;
+      }
+   else
+      // If there are no update rectangles, we got called to reflect 
+      // a change in the list. Currently there is no mechanism to
+      // easily find out which bits need updating, so we update
+      // all. The wxLayoutList could handle this, creating a list or
+      // at least one large rectangle of changes. FIXME
+      dc.Blit(x0,y0,x1,y1,m_memDC,0,0,wxCOPY,FALSE);
+
+   ResetDirty();

 }
 
 }
 

+// change the range and position of scroll bars

 void
 void

-wxLayoutWindow::UpdateScrollbars(void)
+wxLayoutWindow::ResizeScrollbars(bool exact)

 {
 {

-   CoordType
-      max_x, max_y, lineHeight;
+   wxPoint max = m_llist->GetSize();

    
    

-   m_llist.GetSize(&max_x, &max_y, &lineHeight);
-   SetScrollbars(10, lineHeight, max_x/10+1, max_y/lineHeight+1);
-   EnableScrolling(true,true);
+   if(max.x > m_maxx || max.y > m_maxy
+      || max.x > m_maxx-WXLO_ROFFSET || max.y > m_maxy-WXLO_BOFFSET
+      || exact)
+   {
+      if(! exact) 
+      {
+         // add an extra bit to the sizes to avoid future updates
+         max.x = max.x+WXLO_ROFFSET;  
+         max.y = max.y+WXLO_BOFFSET;
+      }
+      ViewStart(&m_ViewStartX, &m_ViewStartY);
+      SetScrollbars(10, 20, max.x/10+1,max.y/20+1,m_ViewStartX,m_ViewStartY,true);
+      m_maxx = max.x; m_maxy = max.y;
+   }

 }
 
 void
 }
 
 void

-wxLayoutWindow::Print(void)
+wxLayoutWindow::Paste(void)

 {
 {

-   wxPostScriptDC   dc("layout.ps",true,this);
-   if (dc.Ok() && dc.StartDoc((char *)_("Printing message...")))
+   // Read some text
+   if (wxTheClipboard->Open())

    {
    {

-      //dc.SetUserScale(1.0, 1.0);
-      m_llist.Draw(dc);
-      dc.EndDoc();
+      wxTextDataObject data;
+      if (wxTheClipboard->IsSupported(wxDF_TEXT))
+      {
+         wxTheClipboard->GetData(&data);
+         wxLayoutImportText( m_llist, data.GetText());
+      }  
+      wxTheClipboard->Close();

    }
 }
    }
 }

+
+
+wxMenu *
+wxLayoutWindow::MakeFormatMenu()
+{
+   wxMenu *m = new wxMenu(_("Layout Menu"));
+
+   m->Append(WXLOWIN_MENU_LARGER   ,_("&Larger"),_("Switch to larger font."), false);
+   m->Append(WXLOWIN_MENU_SMALLER  ,_("&Smaller"),_("Switch to smaller font."), false);
+   m->AppendSeparator();
+   m->Append(WXLOWIN_MENU_UNDERLINE_ON, _("&Underline on"),_("Activate underline mode."), false);
+   m->Append(WXLOWIN_MENU_UNDERLINE_OFF,_("&Underline off"),_("Deactivate underline mode."), false);
+   m->Append(WXLOWIN_MENU_BOLD_ON      ,_("&Bold on"),_("Activate bold mode."), false);
+   m->Append(WXLOWIN_MENU_BOLD_OFF     ,_("&Bold off"),_("Deactivate bold mode."), false);
+   m->Append(WXLOWIN_MENU_ITALICS_ON   ,_("&Italics on"),_("Activate italics mode."), false);
+   m->Append(WXLOWIN_MENU_ITALICS_OFF  ,_("&Italics off"),_("Deactivate italics mode."), false);
+   m->AppendSeparator();
+   m->Append(WXLOWIN_MENU_ROMAN     ,_("&Roman"),_("Switch to roman font."), false);
+   m->Append(WXLOWIN_MENU_TYPEWRITER,_("&Typewriter"),_("Switch to typewriter font."), false);
+   m->Append(WXLOWIN_MENU_SANSSERIF ,_("&Sans Serif"),_("Switch to sans serif font."), false);
+   return m;
+}
+
+void wxLayoutWindow::OnMenu(wxCommandEvent& event)
+{
+   switch (event.GetId())
+   {
+   case WXLOWIN_MENU_LARGER:
+      m_llist->SetFontLarger(); break;
+   case WXLOWIN_MENU_SMALLER:
+      m_llist->SetFontSmaller(); break;
+   case WXLOWIN_MENU_UNDERLINE_ON:
+      m_llist->SetFontUnderline(true); break;
+   case WXLOWIN_MENU_UNDERLINE_OFF:
+      m_llist->SetFontUnderline(false); break;
+   case WXLOWIN_MENU_BOLD_ON:
+      m_llist->SetFontWeight(wxBOLD); break;
+   case WXLOWIN_MENU_BOLD_OFF:
+      m_llist->SetFontWeight(wxNORMAL); break;
+   case WXLOWIN_MENU_ITALICS_ON:
+      m_llist->SetFontStyle(wxITALIC); break;
+   case WXLOWIN_MENU_ITALICS_OFF:
+      m_llist->SetFontStyle(wxNORMAL); break;
+   case WXLOWIN_MENU_ROMAN:
+      m_llist->SetFontFamily(wxROMAN); break;
+   case WXLOWIN_MENU_TYPEWRITER:
+      m_llist->SetFontFamily(wxFIXED); break;
+   case WXLOWIN_MENU_SANSSERIF:
+      m_llist->SetFontFamily(wxSWISS); break;
+   }
+}
+
+void
+wxLayoutWindow::OnSetFocus(wxFocusEvent &ev)
+{
+   m_HaveFocus = true;
+   DoPaint(); // to repaint the cursor
+}
+
+void
+wxLayoutWindow::OnKillFocus(wxFocusEvent &ev)
+{
+   m_HaveFocus = false;
+   DoPaint(); // to repaint the cursor
+}