]> git.saurik.com Git - wxWidgets.git/blobdiff - user/wxLayout/wxlwindow.cpp
Modified font handling (on the way to real rtf editing...)
[wxWidgets.git] / user / wxLayout / wxlwindow.cpp
index 828ac67a71fc0d2f76c1e17c0db2b90ec93e210d..5d36dfa9a314b588c9235c89c71e962053bca83b 100644 (file)
@@ -1,7 +1,7 @@
 /*-*- 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$
  *******************************************************************/
 #   pragma implementation "wxlwindow.h"
 #endif
 
-//#include "Mpch.h"
+#include "wx/wxprec.h"
+#ifdef __BORLANDC__
+#  pragma hdrstop
+#endif
+
 
+#include "Mpch.h"
 #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"
-#   define TRACEMESSAGE(x)
+#   include "wxlparser.h"
 #endif
-#  define   WXL_VAR(x)           cerr << #x " = " << x ;
+
+#include <wx/clipbrd.h>
+#include <wx/textctrl.h>
+#include <wx/dataobj.h>
+
+#include <ctype.h>
+
+#ifdef WXLAYOUT_DEBUG
+#  define   WXLO_DEBUG(x)      wxLogDebug x
+#else
+#  define WXLO_DEBUG(x)
+#endif
+
+/// 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)
    EVT_PAINT    (wxLayoutWindow::OnPaint)
    EVT_CHAR     (wxLayoutWindow::OnChar)
-
+   EVT_KEY_UP   (wxLayoutWindow::OnKeyUp)
    EVT_LEFT_DOWN(wxLayoutWindow::OnLeftMouseClick)
    EVT_RIGHT_DOWN(wxLayoutWindow::OnRightMouseClick)
    EVT_LEFT_DCLICK(wxLayoutWindow::OnMouseDblClick)
+   EVT_MOTION    (wxLayoutWindow::OnMouseMove)
+   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)
@@ -46,47 +75,70 @@ wxLayoutWindow::wxLayoutWindow(wxWindow *parent)
                       wxHSCROLL | wxVSCROLL | wxBORDER)
 
 {
-   m_ScrollbarsSet = false;
+   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;
+   m_ScrollToCursor = false;
+   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;
+   m_Selecting = false;
+   SetCursor(wxCURSOR_IBEAM);
+   SetDirty();
+}
 
+wxLayoutWindow::~wxLayoutWindow()
+{
+   delete m_memDC; // deletes bitmap automatically (?)
+   delete m_bitmap;
+   delete m_llist;
+   delete m_PopupMenu;
+   SetBackgroundBitmap(NULL);
+}
 
-   CoordType
-      max_x, max_y, lineHeight;
-   m_llist.GetSize(&max_x, &max_y, &lineHeight);
-   SetScrollbars(10, lineHeight, max_x/10+1, max_y/lineHeight+1);
-   EnableScrolling(true,true);
+void
+wxLayoutWindow::Clear(int family,
+                      int size,
+                      int style,
+                      int weight,
+                      int underline,
+                      wxColour *fg,
+                      wxColour *bg)
+{
+   GetLayoutList()->Clear(family,size,style,weight,underline,fg,bg);
+   SetBackgroundColour(*GetLayoutList()->GetDefaults()->GetBGColour());
+   ResizeScrollbars(true);
+   SetDirty();
+   SetModified(false);
+   wxRect r;
+   int w,h;
+   r.x = r.y = 0; GetSize(&w,&h);
+   r.width = w;
+   r.height = h;
+   DoPaint(&r);
 }
 
 #ifdef __WXMSW__
 long
 wxLayoutWindow::MSWGetDlgCode()
 {
-   // if we don't return this, we won't get OnChar() events
+   // 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
-wxLayoutWindow::Update(void)
-{
-   wxClientDC  dc(this);
-   PrepareDC(dc);
-   if(IsDirty())
-   {
-      DoPaint(dc);
-      UpdateScrollbars();
-      ResetDirty();
-   }
-   m_llist.DrawCursor(dc);
-}
-
 void
 wxLayoutWindow::OnMouse(int eventId, wxMouseEvent& event)
 {
-   if(!m_doSendEvents) // nothing to do
-      return;
-
    wxPaintDC dc( this );
    PrepareDC( dc );     
    SetFocus();
@@ -95,14 +147,62 @@ wxLayoutWindow::OnMouse(int eventId, wxMouseEvent& event)
    findPos.x = dc.DeviceToLogicalX(event.GetX());
    findPos.y = dc.DeviceToLogicalY(event.GetY());
 
-   TRACEMESSAGE(("wxLayoutWindow::OnMouse: (%d, %d) -> (%d, %d)",
-                 event.GetX(), event.GetY(), findPos.x, findPos.y));
+   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());
+
+   wxPoint cursorPos;
+   bool found;
+   wxLayoutObject *obj = m_llist->FindObjectScreen(dc, findPos,
+                                                   &cursorPos, &found);
+
+   //has the mouse only been moved?
+   if(eventId == WXLOWIN_MENU_MOUSEMOVE)
+   {
+      // found is only true if we are really over an object, not just
+      // behind it
+      if(found && obj && obj->GetUserData() != NULL)
+      {
+         if(!m_HandCursor)
+            SetCursor(wxCURSOR_HAND);
+         m_HandCursor = TRUE;
+      }
+      else
+      {
+         if(m_HandCursor)
+            SetCursor(wxCURSOR_IBEAM);
+         m_HandCursor = FALSE;
+      }
+      return;
+   }
+
+   // always move cursor to mouse click:
+   if(obj && eventId == WXLOWIN_MENU_LCLICK)
+   {
+      m_llist->MoveCursorTo(cursorPos);
+      ScrollToCursor();
+      Refresh(FALSE); // DoPaint suppresses flicker under GTK
+   }
+   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
-   wxLayoutObjectBase *obj = m_llist.Find(findPos);
    if(obj)
    {
-      wxCommandEvent commandEvent(wxEVENT_TYPE_MENU_COMMAND, eventId);
+      wxCommandEvent commandEvent(wxEVT_COMMAND_MENU_SELECTED, eventId);
       commandEvent.SetEventObject( this );
       commandEvent.SetClientData((char *)obj);
       GetEventHandler()->ProcessEvent(commandEvent);
@@ -110,183 +210,535 @@ wxLayoutWindow::OnMouse(int eventId, wxMouseEvent& event)
 }
 
 /*
- * some simple keyboard handling
+ * Some simple keyboard handling.
  */
 void
 wxLayoutWindow::OnChar(wxKeyEvent& event)
 {
-   if(! m_llist.IsEditable()) // do nothing
+   int keyCode = event.KeyCode();
+   
+#ifdef WXLAYOUT_DEBUG
+   if(keyCode == WXK_F1)
    {
-      event.Skip();
+      m_llist->Debug();
       return;
    }
-   
-   long keyCode = event.KeyCode();
-   wxPoint p;
-   CoordType help;
-   
-   switch(event.KeyCode())
+#endif
+
+   if(! m_Selecting && event.ShiftDown())
    {
+      switch(keyCode)
+      {
+      case WXK_UP:
+      case WXK_DOWN:
       case WXK_RIGHT:
-      m_llist.MoveCursor(1);
+      case WXK_LEFT:
+      case WXK_PRIOR:
+      case WXK_NEXT:
+      case WXK_HOME:
+      case WXK_END:
+         m_Selecting = true;
+         m_llist->StartSelection();
+         break;
+      default:
+         ;
+      }
+   }
+
+   /* These two nested switches work like this:
+      The first one processes all non-editing keycodes, to move the
+      cursor, etc. It's default will process all keycodes causing
+      modifications to the buffer, but only if editing is allowed.
+   */
+   switch(keyCode)
+   {
+   case WXK_RIGHT:
+      m_llist->MoveCursorHorizontally(1);
       break;
    case WXK_LEFT:
-      m_llist.MoveCursor(-1);
+      m_llist->MoveCursorHorizontally(-1);
       break;
    case WXK_UP:
-      m_llist.MoveCursor(0,-1);
+      m_llist->MoveCursorVertically(-1);
       break;
    case WXK_DOWN:
-      m_llist.MoveCursor(0,1);
+      m_llist->MoveCursorVertically(1);
       break;
    case WXK_PRIOR:
-      m_llist.MoveCursor(0,-20);
+      m_llist->MoveCursorVertically(-20);
       break;
    case WXK_NEXT:
-      m_llist.MoveCursor(0,20);
+      m_llist->MoveCursorVertically(20);
       break;
    case WXK_HOME:
-      p = m_llist.GetCursor();
-      p.x = 0;
-      m_llist.SetCursor(p);
+      m_llist->MoveCursorToBeginOfLine();
       break;
    case WXK_END:
-      p = m_llist.GetCursor();
-      p.x = m_llist.GetLineLength(m_llist.FindCurrentObject(NULL));
-      m_llist.SetCursor(p);
+      m_llist->MoveCursorToEndOfLine();
       break;
-   case WXK_DELETE :
-      if(event.ControlDown()) // delete to end of line
+   default:
+      if(keyCode == 'c' && event.ControlDown())
+         Copy();
+      if( IsEditable() )
       {
-         help = m_llist.GetLineLength(
-            m_llist.FindCurrentObject(NULL))
-            - m_llist.GetCursor().x;
-         m_llist.Delete(help ? help : 1);
-      }
-      else
-         m_llist.Delete(1);
-      break;
-   case WXK_BACK: // backspace
-      if(m_llist.MoveCursor(-1)) {
-         m_llist.Delete(1);
-      }
-      break;
-   case WXK_RETURN:
-      m_llist.LineBreak();
-      break;
-
+         /* First, handle control keys */
+         if(event.ControlDown() && ! event.AltDown())
+         {
+            switch(keyCode)
+            {
+            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;
+            case 'v':
+               Paste();
+               break;
 #ifdef WXLAYOUT_DEBUG
-   case WXK_F1:
-      m_llist.Debug();
-      break;
+            case WXK_F1:
+               m_llist->SetFont(-1,-1,-1,-1,true);  // underlined
+               break;
 #endif
-      
-   default:
-      if(keyCode < 256 && keyCode >= 32)
+            default:
+               ;
+            }
+         }
+         // ALT only:
+         else if( event.AltDown() && ! event.ControlDown() )
+         {
+            switch(keyCode)
+            {
+            case WXK_DELETE:
+            case 'd':
+               m_llist->DeleteWord();
+               break;
+            default:
+               ;
+            }
+         }
+         // no control keys:
+         else if ( ! event.AltDown() && ! event.ControlDown())
+         {
+            switch(keyCode)
+            {
+            case WXK_INSERT:
+               if(event.ShiftDown())
+                  Paste();
+               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();
+      }// if(IsEditable()) 
+   }// first switch()
+   if(m_Selecting)
+   {
+      if(event.ShiftDown())
+         m_llist->ContinueSelection();
+      else
       {
-         String tmp;
-         tmp += keyCode;
-         m_llist.Insert(tmp);
+         m_llist->EndSelection();
+         m_Selecting = false;
       }
-      break;
    }
 
-   /** Scroll so that cursor is visible! */
-   int x0,y0,x1,y1,ux,uy;
+   ScrollToCursor();
+   wxRect r = *m_llist->GetUpdateRect();
+   DoPaint(&r);
+}
+
+void
+wxLayoutWindow::OnKeyUp(wxKeyEvent& event)
+{
+   if(event.KeyCode() == WXK_SHIFT && m_llist->IsSelecting())
+      m_llist->EndSelection();
+   event.Skip();
+}
+
+
+void
+wxLayoutWindow::ScrollToCursor(void)
+{
+   wxClientDC dc( this );
+   PrepareDC( dc );
+
+   int x0,y0,x1,y1, dx, dy;
+
+   // Calculate where the top of the visible area is:
    ViewStart(&x0,&y0);
-   GetScrollPixelsPerUnit(&ux,&uy);
-   x0*=ux; y0*=uy;
-   GetClientSize(&x1,&y1);
+   GetScrollPixelsPerUnit(&dx, &dy);
+   x0 *= dx; y0 *= dy;
 
-   wxPoint cc = m_llist.GetCursorCoords();
-   int nx = x0, ny = y0;
-   // when within 10% of borders, scroll to center
-   if(cc.y > y0+(9*y1)/10)
-      ny = cc.y - y1/5;
-   else if (cc.y < y0+y1/10)
-   {
-      ny = cc.y-y1/2;
-      if(ny < 0) ny = 0;
-   }
-   if(cc.x > x0+(9*x1)/10)
-      nx = cc.x - x1/5;
-   else if (cc.x < x0+x1/10)
+   // 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;
+   /* 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! */
+   WXLO_DEBUG(("m_ScrollToCursor = %d", (int) m_ScrollToCursor));
+   wxPoint cc = m_llist->GetCursorScreenPos(*m_memDC);
+   if(cc.x < x0 || cc.y < y0
+      || cc.x >= x0+(9*x1)/10 || cc.y >= y0+(9*y1/10))  // (9*x)/10 ==  90%
    {
-      nx = cc.x-x1/2;
-      if(nx < 0) nx = 0;
+      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;
+      m_ScrollToCursor = false; // avoid recursion
    }
-   Scroll(nx,ny);
-   
-   Update();
 }
 
 void
 wxLayoutWindow::OnPaint( wxPaintEvent &WXUNUSED(event))  // or: OnDraw(wxDC& dc)
+{
+   wxRect region = GetUpdateRegion().GetBox();
+   InternalPaint(& region);
+}
+
+void
+wxLayoutWindow::DoPaint(const wxRect *updateRect)
+{
+#ifdef __WXGTK__
+   InternalPaint(updateRect);
+#else
+   Refresh(FALSE, updateRect); // Causes bad flicker under wxGTK!!!
+#endif
+}
+
+void
+wxLayoutWindow::InternalPaint(const wxRect *updateRect)
 {
    wxPaintDC dc( this );
    PrepareDC( dc );
 
-   DoPaint(dc);
+   int x0,y0,x1,y1, dx, dy;
 
-// wxGTK: wxMemoryDC broken?
-#if 0
-   int x0,y0,x1,y1;
+   // Calculate where the top of the visible area is:
    ViewStart(&x0,&y0);
-   GetSize(&x1,&y1);
-   WXL_VAR(x0); WXL_VAR(y0);
-   WXL_VAR(x1); WXL_VAR(y1);
+   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;
+
+   WXLO_DEBUG(("Update rect: %ld,%ld / %ld,%ld",
+               updateRect->x, updateRect->y,
+               updateRect->x+updateRect->width,
+               updateRect->y+updateRect->height));
+
+   if(IsDirty())
+   {
+//FIXME      m_llist->Layout(dc);
+      ResizeScrollbars();
+   }
+   /* 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);
+   }
+
+   m_memDC->SetDeviceOrigin(0,0);
+   m_memDC->SetBrush(wxBrush(*m_llist->GetDefaults()->GetBGColour(),wxSOLID));
+   m_memDC->SetPen(wxPen(*m_llist->GetDefaults()->GetBGColour(),
+                         0,wxTRANSPARENT));                               
+   m_memDC->SetLogicalFunction(wxCOPY);
+
+   /* Either fill the background with the background bitmap, or clear
+      it. */
+   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);
+      m_memDC->SetBackgroundMode(wxTRANSPARENT);
+   }
+   else
+   {
+      // clear the background: (must not be done if we use the update rectangle!)
+      m_memDC->SetBackgroundMode(wxSOLID);
+      m_memDC->DrawRectangle(0,0,x1, y1);
+   }
+
    
-   wxMemoryDC(memdc);
-   wxBitmap bm(x1,y1);
-   memdc.SelectObject(bm);
-
-   // make temporary copy and edit this
-   memdc.SetDeviceOrigin(x0,y0);
-   memdc.Blit(x0,y0,x1,y1,&dc,x0,y0,wxCOPY,FALSE);
-   DoPaint(memdc);
-   // blit it back
-   dc.Blit(x0,y0,x1,y1,&memdc,x0,y0,wxCOPY,FALSE);
+   /* This is the important bit: we tell the list to draw itself: */
+#if WXLO_DEBUG_URECT
+   WXLO_DEBUG(("Update rect: %ld,%ld / %ld,%ld",
+               updateRect->x, updateRect->y,
+               updateRect->x+updateRect->width,
+               updateRect->y+updateRect->height)); 
 #endif
    
+   // Device origins on the memDC are suspect, we translate manually
+   // with the translate parameter of Draw().
+   wxPoint offset(-x0+WXLO_XOFFSET,-y0+WXLO_YOFFSET);
+   m_llist->Draw(*m_memDC,offset, y0, y0+y1);
+
+   // We start calculating a new update rect before drawing the
+   // cursor, so that the cursor coordinates get included in the next
+   // update rectangle (although they are drawn on the memDC, this is
+   // needed to erase it):
+   m_llist->InvalidateUpdateRect(); 
+   m_llist->DrawCursor(*m_memDC,
+                       m_HaveFocus && IsEditable(), // draw a thick
+                       // cursor for editable windows with focus
+                       offset);
+
+// Now copy everything to the screen:
+#if 0
+   // This somehow doesn't work, but even the following bit with the
+   // whole rect at once is still a bit broken I think.
+   wxRegionIterator ri ( GetUpdateRegion() );
+   if(ri)
+      while(ri)
+      {
+         WXLO_DEBUG(("UpdateRegion: %ld,%ld, %ld,%ld",
+                     ri.GetX(),ri.GetY(),ri.GetW(),ri.GetH()));
+         dc.Blit(x0+ri.GetX(),y0+ri.GetY(),ri.GetW(),ri.GetH(),
+                 m_memDC,ri.GetX(),ri.GetY(),wxCOPY,FALSE);
+         ri++;
+      }
+   else
+#endif
+   {
+      // FIXME: Trying to copy only the changed parts, but it does not seem
+      // to work:
+//      x0 = updateRect->x; y0 = updateRect->y;
+//      if(updateRect->height < y1)
+//         y1 = updateRect->height;
+//      y1 += WXLO_YOFFSET; //FIXME might not be needed
+      dc.Blit(x0,y0,x1,y1,m_memDC,0,0,wxCOPY,FALSE);
+   }
+
+   ResetDirty();
+   m_ScrollToCursor = false;
 }
 
-// does the actual painting
+// change the range and position of scrollbars
 void
-wxLayoutWindow::DoPaint(wxDC &dc)
+wxLayoutWindow::ResizeScrollbars(bool exact)
 {
-   m_llist.EraseAndDraw(dc);
-   m_llist.DrawCursor(dc);
-   // FIXME: not strictly correct, this does only work for changes behind
-   //   the cursor position, not complete redraws
-
-   if(! m_ScrollbarsSet)
+   wxPoint max = m_llist->GetSize();
+   
+   if(max.x > m_maxx || max.y > m_maxy
+      || max.x > m_maxx-WXLO_ROFFSET || max.y > m_maxy-WXLO_BOFFSET
+      || exact)
    {
-      m_ScrollbarsSet = true; // avoid recursion
-      UpdateScrollbars();
+      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
-wxLayoutWindow::UpdateScrollbars(void)
+wxLayoutWindow::Paste(void)
 {
-   CoordType
-      max_x, max_y, lineHeight;
-
-   ViewStart(&m_ViewStartX, &m_ViewStartY);
-   m_llist.GetSize(&max_x, &max_y, &lineHeight);
-   SetScrollbars(10, lineHeight, max_x/10+1, max_y/lineHeight+1,m_ViewStartX,m_ViewStartY,true);
-   //EnableScrolling(true,true);
-   //Scroll(m_ViewStartX, m_ViewStartY);
+   wxString text;
+   // Read some text
+   if (wxTheClipboard->Open())
+   {
+      wxTextDataObject data;
+      if (wxTheClipboard->IsSupported( data.GetFormat() ))
+      {
+         wxTheClipboard->GetData(&data);
+         text += data.GetText();
+      }  
+      wxTheClipboard->Close();
+   }
+#if 0
+   /* My attempt to get the primary selection, but it does not
+      work. :-( */
+   if(text.Length() == 0)
+   {
+      wxTextCtrl tmp_tctrl(this,-1);
+      tmp_tctrl.Paste();
+      text += tmp_tctrl.GetValue();
+   }
+#endif
+   wxLayoutImportText( m_llist, text);
 }
 
-void
-wxLayoutWindow::Print(void)
+bool
+wxLayoutWindow::Copy(void)
+{
+   // Calling GetSelection() will automatically do an EndSelection()
+   // on the list, but we need to take a note of it, too:
+   if(m_Selecting)
+   {
+      m_Selecting = false;
+      m_llist->EndSelection();
+   }
+   wxLayoutList *llist = m_llist->GetSelection();
+   if(! llist)
+      return FALSE;
+
+   wxString text;
+   wxLayoutExportObject *export;
+   wxLayoutExportStatus status(llist);
+   while((export = wxLayoutExport( &status, WXLO_EXPORT_AS_TEXT)) != NULL)
+   {
+      if(export->type == WXLO_EXPORT_TEXT)
+         text << *(export->content.text);
+      delete export;
+   }
+   delete llist;
+
+   // The exporter always appends a newline, so we chop it off if it
+   // is there:
+   {
+      size_t len = text.Length();
+      if(len > 2 && text[len-2] ==  '\r') // Windows
+         text = text.Mid(0,len-2);
+      else if(len > 1 && text[len-1] == '\n')
+         text = text.Mid(0,len-1);
+   }
+   
+   // Read some text
+   if (wxTheClipboard->Open())
+   {
+      wxTextDataObject *data = new wxTextDataObject( text );
+      bool  rc = wxTheClipboard->SetData( data );
+      wxTheClipboard->Close();
+      return rc;
+   }
+   return FALSE;
+}
+
+bool
+wxLayoutWindow::Cut(void)
 {
-   wxPostScriptDC   dc("layout.ps",true,this);
-   if (dc.Ok() && dc.StartDoc((char *)_("Printing message...")))
+   if(Copy())
    {
-      //dc.SetUserScale(1.0, 1.0);
-      m_llist.Draw(dc);
-      dc.EndDoc();
+      m_llist->DeleteSelection();
+      return TRUE;
    }
+   else
+      return FALSE;
+}
+
+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;
+//FIXME: need argument   DoPaint(); // to repaint the cursor
+}
+
+void
+wxLayoutWindow::OnKillFocus(wxFocusEvent &ev)
+{
+   m_HaveFocus = false;
+//FIXME: need argument   DoPaint(); // to repaint the cursor
 }