* Fixes and new features in wxObject*Stream

[wxWidgets.git] / utils / ogl / src / basic.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        basic.cpp
// Purpose:     Basic OGL classes
// Author:      Julian Smart
// Modified by:
// Created:     12/07/98
// RCS-ID:      $Id$
// Copyright:   (c) Julian Smart
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#ifdef __GNUG__
#pragma implementation "basic.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include <wx/wxprec.h>

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include <wx/wx.h>
#endif

#ifdef PROLOGIO
#include <wx/wxexpr.h>
#endif

#if USE_IOSTREAMH
#include <iostream.h>
#else
#include <iostream>
#endif

#include <stdio.h>
#include <ctype.h>
#include <math.h>

#include "basic.h"
#include "basicp.h"
#include "composit.h"
#include "lines.h"
#include "canvas.h"
#include "divided.h"
#include "misc.h"

// Control point types
// Rectangle and most other shapes
#define CONTROL_POINT_VERTICAL   1
#define CONTROL_POINT_HORIZONTAL 2
#define CONTROL_POINT_DIAGONAL   3

// Line
#define CONTROL_POINT_ENDPOINT_TO 4
#define CONTROL_POINT_ENDPOINT_FROM 5
#define CONTROL_POINT_LINE       6

IMPLEMENT_DYNAMIC_CLASS(wxShapeTextLine, wxObject)
IMPLEMENT_DYNAMIC_CLASS(wxAttachmentPoint, wxObject)

wxShapeTextLine::wxShapeTextLine(float the_x, float the_y, const wxString& the_line)
{
  m_x = the_x; m_y = the_y; m_line = the_line;
}

wxShapeTextLine::~wxShapeTextLine()
{
}

IMPLEMENT_ABSTRACT_CLASS(wxShapeEvtHandler, wxObject)

wxShapeEvtHandler::wxShapeEvtHandler(wxShapeEvtHandler *prev, wxShape *shape)
{
  m_previousHandler = prev;
  m_handlerShape = shape;
}

wxShapeEvtHandler::~wxShapeEvtHandler()
{
}

void wxShapeEvtHandler::OnDelete()
{
  if (this != GetShape())
    delete this;
}

void wxShapeEvtHandler::OnDraw(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnDraw(dc);
}

void wxShapeEvtHandler::OnMoveLinks(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnMoveLinks(dc);
}

void wxShapeEvtHandler::OnMoveLink(wxDC& dc, bool moveControlPoints)
{
  if (m_previousHandler)
    m_previousHandler->OnMoveLink(dc, moveControlPoints);
}

void wxShapeEvtHandler::OnDrawContents(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnDrawContents(dc);
}

void wxShapeEvtHandler::OnSize(float x, float y)
{
  if (m_previousHandler)
    m_previousHandler->OnSize(x, y);
}

bool wxShapeEvtHandler::OnMovePre(wxDC& dc, float x, float y, float old_x, float old_y, bool display)
{
  if (m_previousHandler)
    return m_previousHandler->OnMovePre(dc, x, y, old_x, old_y, display);
  else
    return TRUE;
}

void wxShapeEvtHandler::OnMovePost(wxDC& dc, float x, float y, float old_x, float old_y, bool display)
{
  if (m_previousHandler)
    m_previousHandler->OnMovePost(dc, x, y, old_x, old_y, display);
}

void wxShapeEvtHandler::OnErase(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnErase(dc);
}

void wxShapeEvtHandler::OnEraseContents(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnEraseContents(dc);
}

void wxShapeEvtHandler::OnHighlight(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnHighlight(dc);
}

void wxShapeEvtHandler::OnLeftClick(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnLeftClick(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnRightClick(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnRightClick(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnDragLeft(bool draw, float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnDragLeft(draw, x, y, keys, attachment);
}

void wxShapeEvtHandler::OnBeginDragLeft(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnBeginDragLeft(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnEndDragLeft(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnEndDragLeft(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnDragRight(bool draw, float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnDragRight(draw, x, y, keys, attachment);
}

void wxShapeEvtHandler::OnBeginDragRight(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnBeginDragRight(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnEndDragRight(float x, float y, int keys, int attachment)
{
  if (m_previousHandler)
    m_previousHandler->OnEndDragRight(x, y, keys, attachment);
}

void wxShapeEvtHandler::OnDrawOutline(wxDC& dc, float x, float y, float w, float h)
{
  if (m_previousHandler)
    m_previousHandler->OnDrawOutline(dc, x, y, w, h);
}

void wxShapeEvtHandler::OnDrawControlPoints(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnDrawControlPoints(dc);
}

void wxShapeEvtHandler::OnEraseControlPoints(wxDC& dc)
{
  if (m_previousHandler)
    m_previousHandler->OnEraseControlPoints(dc);
}

IMPLEMENT_ABSTRACT_CLASS(wxShape, wxShapeEvtHandler)

wxShape::wxShape(wxShapeCanvas *can)
{
  m_eventHandler = this;
  SetHandlerShape(this);
  m_id = 0;
  m_formatted = FALSE;
  m_canvas = can;
  m_xpos = 0.0; m_ypos = 0.0;
  m_pen = black_pen;
  m_brush = wxWHITE_BRUSH;
  m_font = g_oglNormalFont;
  m_textColour = wxBLACK;
  m_textColourName = "BLACK";
  m_visible = FALSE;
  m_clientData = NULL;
  m_selected = FALSE;
  m_attachmentMode = FALSE;
  m_spaceAttachments = TRUE;
  m_disableLabel = FALSE;
  m_fixedWidth = FALSE;
  m_fixedHeight = FALSE;
  m_drawHandles = TRUE;
  m_sensitivity = OP_ALL;
  m_draggable = TRUE;
  m_parent = NULL;
  m_formatMode = FORMAT_CENTRE_HORIZ | FORMAT_CENTRE_VERT;
  m_shadowMode = SHADOW_NONE;
  m_shadowOffsetX = 6.0;
  m_shadowOffsetY = 6.0;
  m_shadowBrush = wxBLACK_BRUSH;
  m_textMarginX = 5.0;
  m_textMarginY = 5.0;
  m_regionName = "0";
  m_centreResize = TRUE;
  m_highlighted = FALSE;
  m_rotation = 0.0;

  // Set up a default region. Much of the above will be put into
  // the region eventually (the duplication is for compatibility)
  wxShapeRegion *region = new wxShapeRegion;
  m_regions.Append(region);
  region->SetName("0");
  region->SetFont(g_oglNormalFont);
  region->SetFormatMode(FORMAT_CENTRE_HORIZ | FORMAT_CENTRE_VERT);
  region->SetColour("BLACK");
}

wxShape::~wxShape()
{
  if (m_parent)
    m_parent->GetChildren().DeleteObject(this);

  ClearText();
  ClearRegions();
  ClearAttachments();

  if (m_canvas)
    m_canvas->RemoveShape(this);

  GetEventHandler()->OnDelete();
}

void wxShape::SetHighlight(bool hi, bool recurse)
{
  m_highlighted = hi;
  if (recurse)
  {
    wxNode *node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->SetHighlight(hi, recurse);
      node = node->Next();
    }
  }
}

void wxShape::SetSensitivityFilter(int sens, bool recursive)
{
  if (sens & OP_DRAG_LEFT)
    m_draggable = TRUE;
  else
    m_draggable = FALSE;

  m_sensitivity = sens;
  if (recursive)
  {
    wxNode *node = m_children.First();
    while (node)
    {
      wxShape *obj = (wxShape *)node->Data();
      obj->SetSensitivityFilter(sens, TRUE);
      node = node->Next();
    }
  }
}

void wxShape::SetDraggable(bool drag, bool recursive)
{
  m_draggable = drag;
  if (m_draggable)
    m_sensitivity |= OP_DRAG_LEFT;
  else
    if (m_sensitivity & OP_DRAG_LEFT)
      m_sensitivity = m_sensitivity - OP_DRAG_LEFT;

  if (recursive)
  {
    wxNode *node = m_children.First();
    while (node)
    {
      wxShape *obj = (wxShape *)node->Data();
      obj->SetDraggable(drag, TRUE);
      node = node->Next();
    }
  }
}

void wxShape::SetDrawHandles(bool drawH)
{
  m_drawHandles = drawH;
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *obj = (wxShape *)node->Data();
    obj->SetDrawHandles(drawH);
    node = node->Next();
  }
}

void wxShape::SetShadowMode(int mode, bool redraw)
{
  if (redraw && GetCanvas())
  {
    wxClientDC dc(GetCanvas());
    GetCanvas()->PrepareDC(dc);
    Erase(dc);

    m_shadowMode = mode;

    Draw(dc);
  }
  else
  {
    m_shadowMode = mode;
  }
}

void wxShape::SetCanvas(wxShapeCanvas *theCanvas)
{
  m_canvas = theCanvas;
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    child->SetCanvas(theCanvas);
    node = node->Next();
  }
}

void wxShape::AddToCanvas(wxShapeCanvas *theCanvas, wxShape *addAfter)
{
  theCanvas->AddShape(this, addAfter);
  wxNode *node = m_children.First();
  wxShape *lastImage = this;
  while (node)
  {
    wxShape *object = (wxShape *)node->Data();
    object->AddToCanvas(theCanvas, lastImage);
    lastImage = object;

    node = node->Next();
  }
}

// Insert at front of canvas
void wxShape::InsertInCanvas(wxShapeCanvas *theCanvas)
{
  theCanvas->InsertShape(this);
  wxNode *node = m_children.First();
  wxShape *lastImage = this;
  while (node)
  {
    wxShape *object = (wxShape *)node->Data();
    object->AddToCanvas(theCanvas, lastImage);
    lastImage = object;

    node = node->Next();
  }
}

void wxShape::RemoveFromCanvas(wxShapeCanvas *theCanvas)
{
  if (Selected())
    Select(FALSE);
  theCanvas->RemoveShape(this);
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *object = (wxShape *)node->Data();
    object->RemoveFromCanvas(theCanvas);

    node = node->Next();
  }
}

void wxShape::ClearAttachments()
{
  wxNode *node = m_attachmentPoints.First();
  while (node)
  {
    wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
    delete point;
    node = node->Next();
  }
  m_attachmentPoints.Clear();
}

void wxShape::ClearText(int regionId)
{
  if (regionId == 0)
  {
    m_text.DeleteContents(TRUE);
    m_text.Clear();
    m_text.DeleteContents(FALSE);
  }
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->ClearText();
}

void wxShape::ClearRegions()
{
  wxNode *node = m_regions.First();
  while (node)
  {
    wxShapeRegion *region = (wxShapeRegion *)node->Data();
    wxNode *next = node->Next();
    delete region;
    delete node;
    node = next;
  }
}

void wxShape::AddRegion(wxShapeRegion *region)
{
  m_regions.Append(region);
}

void wxShape::SetDefaultRegionSize()
{
  wxNode *node = m_regions.First();
  if (!node) return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  float w, h;
  GetBoundingBoxMin(&w, &h);
  region->SetSize(w, h);
}

bool wxShape::HitTest(float x, float y, int *attachment, float *distance)
{
//  if (!sensitive)
//    return FALSE;

  float width = 0.0, height = 0.0;
  GetBoundingBoxMin(&width, &height);
  if (fabs(width) < 4.0) width = 4.0;
  if (fabs(height) < 4.0) height = 4.0;

  width += (float)4.0; height += (float)4.0; // Allowance for inaccurate mousing

  float left = (float)(m_xpos - (width/2.0));
  float top = (float)(m_ypos - (height/2.0));
  float right = (float)(m_xpos + (width/2.0));
  float bottom = (float)(m_ypos + (height/2.0));

  int nearest_attachment = 0;


  // If within the bounding box, check the attachment points
  // within the object.

  if (x >= left && x <= right && y >= top && y <= bottom)
  {
    int n = GetNumberOfAttachments();
    float nearest = 999999.0;

    for (int i = 0; i < n; i++)
    {
      float xp, yp;
      if (GetAttachmentPosition(i, &xp, &yp))
      {
        float l = (float)sqrt(((xp - x) * (xp - x)) +
                   ((yp - y) * (yp - y)));

        if (l < nearest)
        {
          nearest = l;
          nearest_attachment = i;
        }
      }
    }
    *attachment = nearest_attachment;
    *distance = nearest;
    return TRUE;
  }
  else return FALSE;
}

// Format a text string according to the region size, adding
// strings with positions to region text list

static bool GraphicsInSizeToContents = FALSE; // Infinite recursion elimination
void wxShape::FormatText(wxDC& dc, const wxString& s, int i)
{
  float w, h;
  ClearText(i);

  if (m_regions.Number() < 1)
    return;
  wxNode *node = m_regions.Nth(i);
  if (!node)
    return;
    
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->SetText(s);
  dc.SetFont(region->GetFont());

  region->GetSize(&w, &h);

  wxList *string_list = ::FormatText(dc, s, (w-5), (h-5), region->GetFormatMode());
  node = string_list->First();
  while (node)
  {
    char *s = (char *)node->Data();
    wxShapeTextLine *line = new wxShapeTextLine(0.0, 0.0, s);
    region->GetFormattedText().Append((wxObject *)line);
    delete node;
    node = string_list->First();
  }
  delete string_list;
  float actualW = w;
  float actualH = h;
  // Don't try to resize an object with more than one image (this case should be dealt
  // with by overriden handlers)
  if ((region->GetFormatMode() & FORMAT_SIZE_TO_CONTENTS) &&
      (region->GetFormattedText().Number() > 0) &&
      (m_regions.Number() == 1) && !GraphicsInSizeToContents)
  {
    GetCentredTextExtent(dc, &(region->GetFormattedText()), m_xpos, m_ypos, w, h, &actualW, &actualH);
    if ((actualW+m_textMarginX != w ) || (actualH+m_textMarginY != h))
    {
      // If we are a descendant of a composite, must make sure the composite gets
      // resized properly
      wxShape *topAncestor = GetTopAncestor();

      if (topAncestor != this)
      {
        // Make sure we don't recurse infinitely
        GraphicsInSizeToContents = TRUE;

        wxCompositeShape *composite = (wxCompositeShape *)topAncestor;
        composite->Erase(dc);
        SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
        Move(dc, m_xpos, m_ypos);
        composite->CalculateSize();
        if (composite->Selected())
        {
          composite->DeleteControlPoints(& dc);
          composite->MakeControlPoints();
          composite->MakeMandatoryControlPoints();
        }
        // Where infinite recursion might happen if we didn't stop it
        composite->Draw(dc);

        GraphicsInSizeToContents = FALSE;
      }
      else
      {
        Erase(dc);
        SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
        Move(dc, m_xpos, m_ypos);
      }
      SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
      Move(dc, m_xpos, m_ypos);
      EraseContents(dc);
    }
  }
  CentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, actualW, actualH, region->GetFormatMode());
  m_formatted = TRUE;
}

void wxShape::Recentre(wxDC& dc)
{
  float w, h;
  GetBoundingBoxMin(&w, &h);

  int noRegions = m_regions.Number();
  for (int i = 0; i < noRegions; i++)
  {
    wxNode *node = m_regions.Nth(i);
    if (node)
    {
      wxShapeRegion *region = (wxShapeRegion *)node->Data();
      CentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, w, h, region->GetFormatMode());
    }
  }
}

bool wxShape::GetPerimeterPoint(float x1, float y1,
                                     float x2, float y2,
                                     float *x3, float *y3)
{
  return FALSE;
}

void wxShape::SetPen(wxPen *the_pen)
{
  m_pen = the_pen;
}

void wxShape::SetBrush(wxBrush *the_brush)
{
  m_brush = the_brush;
}

// Get the top-most (non-division) ancestor, or self
wxShape *wxShape::GetTopAncestor()
{
  if (!GetParent())
    return this;
    
  if (GetParent()->IsKindOf(CLASSINFO(wxDivisionShape)))
    return this;
  else return GetParent()->GetTopAncestor();
}

/*
 * Region functions
 *
 */
void wxShape::SetFont(wxFont *the_font, int regionId)
{
  m_font = the_font;
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->SetFont(the_font);
}

wxFont *wxShape::GetFont(int n) const
{
  wxNode *node = m_regions.Nth(n);
  if (!node)
    return NULL;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  return region->GetFont();
}

void wxShape::SetFormatMode(int mode, int regionId)
{
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->SetFormatMode(mode);
}

int wxShape::GetFormatMode(int regionId) const
{
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return 0;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  return region->GetFormatMode();
}

void wxShape::SetTextColour(const wxString& the_colour, int regionId)
{
  wxColour *wxcolour = wxTheColourDatabase->FindColour(the_colour);
  m_textColour = wxcolour;
  m_textColourName = the_colour;

  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->SetColour(the_colour);
}

wxString wxShape::GetTextColour(int regionId) const
{
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return wxString("");
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  return region->GetColour();
}

void wxShape::SetRegionName(const wxString& name, int regionId)
{
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->SetName(name);
}

wxString wxShape::GetRegionName(int regionId)
{
  wxNode *node = m_regions.Nth(regionId);
  if (!node)
    return wxString("");
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  return region->GetName();
}

int wxShape::GetRegionId(const wxString& name)
{
  wxNode *node = m_regions.First();
  int i = 0;
  while (node)
  {
    wxShapeRegion *region = (wxShapeRegion *)node->Data();
    if (region->GetName() == name)
      return i;
    node = node->Next();
    i ++;
  }
  return -1;
}

// Name all m_regions in all subimages recursively.
void wxShape::NameRegions(const wxString& parentName)
{
  int n = GetNumberOfTextRegions();
  char buf[100];
  for (int i = 0; i < n; i++)
  {
    if (parentName.Length() > 0)
      sprintf(buf, "%s.%d", (const char*) parentName, i);
    else
      sprintf(buf, "%d", i);
    SetRegionName(buf, i);
  }
  wxNode *node = m_children.First();
  int j = 0;
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    if (parentName.Length() > 0)
      sprintf(buf, "%s.%d", (const char*) parentName, j);
    else
      sprintf(buf, "%d", j);
    child->NameRegions(buf);
    node = node->Next();
    j ++;
  }
}

// Get a region by name, possibly looking recursively into composites.
wxShape *wxShape::FindRegion(const wxString& name, int *regionId)
{
  int id = GetRegionId(name);
  if (id > -1)
  {
    *regionId = id;
    return this;
  }

  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    wxShape *actualImage = child->FindRegion(name, regionId);
    if (actualImage)
      return actualImage;
    node = node->Next();
  }
  return NULL;
}

// Finds all region names for this image (composite or simple).
// Supply empty string list.
void wxShape::FindRegionNames(wxStringList& list)
{
  int n = GetNumberOfTextRegions();
  for (int i = 0; i < n; i++)
  {
    wxString name(GetRegionName(i));
    list.Add((const char*) name);
  }

  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    child->FindRegionNames(list);
    node = node->Next();
  }
}

void wxShape::AssignNewIds()
{
  if (m_id == 0)
    m_id = NewId();
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    child->AssignNewIds();
    node = node->Next();
  }
}

void wxShape::OnDraw(wxDC& dc)
{
}

void wxShape::OnMoveLinks(wxDC& dc)
{
  // Want to set the ends of all attached links
  // to point to/from this object

  wxNode *current = m_lines.First();
  while (current)
  {
    wxLineShape *line = (wxLineShape *)current->Data();
    line->GetEventHandler()->OnMoveLink(dc);
    current = current->Next();
  }
}


void wxShape::OnDrawContents(wxDC& dc)
{
  float bound_x, bound_y;
  GetBoundingBoxMin(&bound_x, &bound_y);
    if (m_regions.Number() < 1) return;

    if (m_pen) dc.SetPen(m_pen);

    wxShapeRegion *region = (wxShapeRegion *)m_regions.First()->Data();
    if (region->GetFont()) dc.SetFont(region->GetFont());

    dc.SetTextForeground(* (region->GetActualColourObject()));
    dc.SetBackgroundMode(wxTRANSPARENT);
    if (!m_formatted)
    {
      CentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, bound_x, bound_y, region->GetFormatMode());
      m_formatted = TRUE;
    }
    if (!GetDisableLabel())
    {
      DrawFormattedText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, bound_x, bound_y, region->GetFormatMode());
    }
}

void wxShape::DrawContents(wxDC& dc)
{
  GetEventHandler()->OnDrawContents(dc);
}

void wxShape::OnSize(float x, float y)
{
}

bool wxShape::OnMovePre(wxDC& dc, float x, float y, float old_x, float old_y, bool display)
{
  return TRUE;
}

void wxShape::OnMovePost(wxDC& dc, float x, float y, float old_x, float old_y, bool display)
{
}

void wxShape::OnErase(wxDC& dc)
{
  if (!m_visible)
    return;

  // Erase links
  wxNode *current = m_lines.First();
  while (current)
  {
    wxLineShape *line = (wxLineShape *)current->Data();
    line->GetEventHandler()->OnErase(dc);
    current = current->Next();
  }
  GetEventHandler()->OnEraseContents(dc);
}

void wxShape::OnEraseContents(wxDC& dc)
{
  if (!m_visible)
    return;

  float maxX, maxY, minX, minY;
  float xp = GetX();
  float yp = GetY();
  GetBoundingBoxMin(&minX, &minY);
  GetBoundingBoxMax(&maxX, &maxY);
  float topLeftX = (float)(xp - (maxX / 2.0) - 2.0);
  float topLeftY = (float)(yp - (maxY / 2.0) - 2.0);

    int penWidth = 0;
    if (m_pen)
      penWidth = m_pen->GetWidth();

    dc.SetPen(white_background_pen);
    dc.SetBrush(white_background_brush);
    dc.DrawRectangle((float)(topLeftX - penWidth), (float)(topLeftY - penWidth),
                      (float)(maxX + penWidth*2.0 + 4.0), (float)(maxY + penWidth*2.0 + 4.0));
}

void wxShape::EraseLinks(wxDC& dc, int attachment, bool recurse)
{
  if (!m_visible)
    return;

  wxNode *current = m_lines.First();
  while (current)
  {
    wxLineShape *line = (wxLineShape *)current->Data();
    if (attachment == -1 || ((line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
                             (line->GetFrom() == this && line->GetAttachmentFrom() == attachment)))
      line->GetEventHandler()->OnErase(dc);
    current = current->Next();
  }
  if (recurse)
  {
    wxNode *node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->EraseLinks(dc, attachment, recurse);
      node = node->Next();
    }
  }
}

void wxShape::DrawLinks(wxDC& dc, int attachment, bool recurse)
{
  if (!m_visible)
    return;

  wxNode *current = m_lines.First();
  while (current)
  {
    wxLineShape *line = (wxLineShape *)current->Data();
    if (attachment == -1 ||
        (line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
        (line->GetFrom() == this && line->GetAttachmentFrom() == attachment))
      line->Draw(dc);
    current = current->Next();
  }
  if (recurse)
  {
    wxNode *node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->DrawLinks(dc, attachment, recurse);
      node = node->Next();
    }
  }
}

void wxShape::MoveLineToNewAttachment(wxDC& dc, wxLineShape *to_move,
                                       float x, float y)
{
  int new_point;
  float distance;

  // Is (x, y) on this object? If so, find the new attachment point
  // the user has moved the point to
  bool hit = HitTest(x, y, &new_point, &distance);
  if (!hit)
    return;

  EraseLinks(dc);

  int old_attachment;
  if (to_move->GetTo() == this)
    old_attachment = to_move->GetAttachmentTo();
  else
    old_attachment = to_move->GetAttachmentFrom();

  // Delete the line object from the list of links; we're going to move
  // it to another position in the list
  m_lines.DeleteObject(to_move);

  float old_x = (float) -9999.9;
  float old_y = (float) -9999.9;

  wxNode *node = m_lines.First();
  bool found = FALSE;

  while (node && !found)
  {
    wxLineShape *line = (wxLineShape *)node->Data();
    if ((line->GetTo() == this && old_attachment == line->GetAttachmentTo()) ||
        (line->GetFrom() == this && old_attachment == line->GetAttachmentFrom()))
    {
      float startX, startY, endX, endY;
      float xp, yp;
      line->GetEnds(&startX, &startY, &endX, &endY);
      if (line->GetTo() == this)
      {
//        xp = line->m_xpos2 + line->m_xpos;
//        yp = line->m_ypos2 + line->m_ypos;
        xp = startX;
        yp = startY;
      } else
      {
//        xp = line->m_xpos1 + line->m_xpos;
//        yp = line->m_ypos1 + line->m_ypos;
        xp = endX;
        yp = endY;
      }

      switch (old_attachment)
      {
        case 0:
        case 2:
        {
          if (x > old_x && x <= xp)
          {
            found = TRUE;
            m_lines.Insert(node, to_move);
          }
          break;
        }
        case 1:
        case 3:
        {
          if (y > old_y && y <= yp)
          {
            found = TRUE;
            m_lines.Insert(node, to_move);
          }
          break;
        }
      }
      old_x = xp;
      old_y = yp;
    }
    node = node->Next();
  }
  if (!found)
    m_lines.Append(to_move);
}

// Reorders the lines coming into the node image at this attachment
// position, in the order in which they appear in linesToSort.
// Any remaining lines not in the list will be added to the end.
void wxShape::SortLines(int attachment, wxList& linesToSort)
{
  // This is a temporary store of all the lines at this attachment
  // point. We'll tick them off as we've processed them.
  wxList linesAtThisAttachment;
  
  wxNode *node = m_lines.First();
  while (node)
  {
    wxLineShape *line = (wxLineShape *)node->Data();
    wxNode *next = node->Next();
    if ((line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
        (line->GetFrom() == this && line->GetAttachmentFrom() == attachment))
    {
      linesAtThisAttachment.Append(line);
      delete node;
      node = next;
    }
    else node = node->Next();
  }

  node = linesToSort.First();
  while (node)
  {
    wxLineShape *line = (wxLineShape *)node->Data();
    if (linesAtThisAttachment.Member(line))
    {
      // Done this one
      linesAtThisAttachment.DeleteObject(line);
      m_lines.Append(line);
    }
    node = node->Next();
  }

  // Now add any lines that haven't been listed in linesToSort.
  node = linesAtThisAttachment.First();
  while (node)
  {
    wxLineShape *line = (wxLineShape *)node->Data();
    m_lines.Append(line);
    node = node->Next();
  }
}

void wxShape::OnHighlight(wxDC& dc)
{
}

void wxShape::OnLeftClick(float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_CLICK_LEFT) != OP_CLICK_LEFT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnLeftClick(x, y, keys, attachment);
    }
    return;
  }
}

void wxShape::OnRightClick(float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_CLICK_RIGHT) != OP_CLICK_RIGHT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnRightClick(x, y, keys, attachment);
    }
    return;
  }
}

float DragOffsetX = 0.0;
float DragOffsetY = 0.0;

void wxShape::OnDragLeft(bool draw, float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnDragLeft(draw, x, y, keys, attachment);
    }
    return;
  }

  wxClientDC dc(GetCanvas());
  GetCanvas()->PrepareDC(dc);

  dc.SetLogicalFunction(wxXOR);

  wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
  dc.SetPen(dottedPen);
  dc.SetBrush(* wxTRANSPARENT_BRUSH);

  float xx, yy;
  xx = x + DragOffsetX;
  yy = y + DragOffsetY;

  m_canvas->Snap(&xx, &yy);
//  m_xpos = xx; m_ypos = yy;
  float w, h;
  GetBoundingBoxMax(&w, &h);
  GetEventHandler()->OnDrawOutline(dc, xx, yy, w, h);
}

void wxShape::OnBeginDragLeft(float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnBeginDragLeft(x, y, keys, attachment);
    }
    return;
  }

  DragOffsetX = m_xpos - x;
  DragOffsetY = m_ypos - y;

  wxClientDC dc(GetCanvas());
  GetCanvas()->PrepareDC(dc);

  Erase(dc);
  float xx, yy;
  xx = x + DragOffsetX;
  yy = y + DragOffsetY;
  m_canvas->Snap(&xx, &yy);
//  m_xpos = xx; m_ypos = yy;
  dc.SetLogicalFunction(wxXOR);

  wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
  dc.SetPen(dottedPen);
  dc.SetBrush((* wxTRANSPARENT_BRUSH));

  float w, h;
  GetBoundingBoxMax(&w, &h);
  GetEventHandler()->OnDrawOutline(dc, xx, yy, w, h);
  m_canvas->CaptureMouse();
}

void wxShape::OnEndDragLeft(float x, float y, int keys, int attachment)
{
  m_canvas->ReleaseMouse();
  if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnEndDragLeft(x, y, keys, attachment);
    }
    return;
  }

  wxClientDC dc(GetCanvas());
  GetCanvas()->PrepareDC(dc);

  dc.SetLogicalFunction(wxCOPY);

  float xx = x + DragOffsetX;
  float yy = y + DragOffsetY;
  m_canvas->Snap(&xx, &yy);
//  canvas->Snap(&m_xpos, &m_ypos);
  Move(dc, xx, yy);
  if (m_canvas && !m_canvas->GetQuickEditMode()) m_canvas->Redraw(dc);
}

void wxShape::OnDragRight(bool draw, float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnDragRight(draw, x, y, keys, attachment);
    }
    return;
  }
}

void wxShape::OnBeginDragRight(float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnBeginDragRight(x, y, keys, attachment);
    }
    return;
  }
}

void wxShape::OnEndDragRight(float x, float y, int keys, int attachment)
{
  if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
  {
    attachment = 0;
    float dist;
    if (m_parent)
    {
      m_parent->HitTest(x, y, &attachment, &dist);
      m_parent->GetEventHandler()->OnEndDragRight(x, y, keys, attachment);
    }
    return;
  }
}

void wxShape::OnDrawOutline(wxDC& dc, float x, float y, float w, float h)
{
  float top_left_x = (float)(x - w/2.0);
  float top_left_y = (float)(y - h/2.0);
  float top_right_x = (float)(top_left_x + w);
  float top_right_y = (float)top_left_y;
  float bottom_left_x = (float)top_left_x;
  float bottom_left_y = (float)(top_left_y + h);
  float bottom_right_x = (float)top_right_x;
  float bottom_right_y = (float)bottom_left_y;

  wxPoint points[5];
  points[0].x = top_left_x; points[0].y = top_left_y;
  points[1].x = top_right_x; points[1].y = top_right_y;
  points[2].x = bottom_right_x; points[2].y = bottom_right_y;
  points[3].x = bottom_left_x; points[3].y = bottom_left_y;
  points[4].x = top_left_x; points[4].y = top_left_y;

  dc.DrawLines(5, points);
}

void wxShape::Attach(wxShapeCanvas *can)
{
  m_canvas = can;
}

void wxShape::Detach()
{
  m_canvas = NULL;
}

void wxShape::Move(wxDC& dc, float x, float y, bool display)
{
  float old_x = m_xpos;
  float old_y = m_ypos;

  m_xpos = x; m_ypos = y;

  if (!GetEventHandler()->OnMovePre(dc, x, y, old_x, old_y, display))
  {
    m_xpos = old_x;
    m_ypos = old_y;
    return;
  }

  ResetControlPoints();

  if (display)
    Draw(dc);

  MoveLinks(dc);

  GetEventHandler()->OnMovePost(dc, x, y, old_x, old_y, display);
}

void wxShape::MoveLinks(wxDC& dc)
{
  GetEventHandler()->OnMoveLinks(dc);
}


void wxShape::Draw(wxDC& dc)
{
  if (m_visible)
  {
    GetEventHandler()->OnDraw(dc);
    GetEventHandler()->OnDrawContents(dc);
    GetEventHandler()->OnDrawControlPoints(dc);
  }
}

void wxShape::Flash()
{
    if (GetCanvas())
    {
        wxClientDC dc(GetCanvas());
        GetCanvas()->PrepareDC(dc);

        dc.SetLogicalFunction(wxXOR);
        Draw(dc);
        dc.SetLogicalFunction(wxCOPY);
        Draw(dc);
    }
}

void wxShape::Show(bool show)
{
  m_visible = show;
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *image = (wxShape *)node->Data();
    image->Show(show);
    node = node->Next();
  }
}

void wxShape::Erase(wxDC& dc)
{
  GetEventHandler()->OnErase(dc);
  GetEventHandler()->OnEraseControlPoints(dc);
}

void wxShape::EraseContents(wxDC& dc)
{
  GetEventHandler()->OnEraseContents(dc);
}

void wxShape::AddText(const wxString& string)
{
  wxNode *node = m_regions.First();
  if (!node)
    return;
  wxShapeRegion *region = (wxShapeRegion *)node->Data();
  region->ClearText();
  wxShapeTextLine *new_line =
      new wxShapeTextLine(0.0, 0.0, string);
  region->GetFormattedText().Append(new_line);

  m_formatted = FALSE;
}

void wxShape::SetSize(float x, float y, bool recursive)
{
  SetAttachmentSize(x, y);
  SetDefaultRegionSize();
}

void wxShape::SetAttachmentSize(float w, float h)
{
  float scaleX;
  float scaleY;
  float width, height;
  GetBoundingBoxMin(&width, &height);
  if (width == 0.0)
    scaleX = 1.0;
  else scaleX = w/width;
  if (height == 0.0)
    scaleY = 1.0;
  else scaleY = h/height;

  wxNode *node = m_attachmentPoints.First();
  while (node)
  {
    wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
    point->m_x = (float)(point->m_x * scaleX);
    point->m_y = (float)(point->m_y * scaleY);
    node = node->Next();
  }
}

// Add line FROM this object
void wxShape::AddLine(wxLineShape *line, wxShape *other,
                           int attachFrom, int attachTo)
{
  if (!m_lines.Member(line))
    m_lines.Append(line);

  if (!other->m_lines.Member(line))
    other->m_lines.Append(line);

  line->SetFrom(this);
  line->SetTo(other);
  line->SetAttachments(attachFrom, attachTo);
}

void wxShape::RemoveLine(wxLineShape *line)
{
  if (line->GetFrom() == this)
    line->GetTo()->m_lines.DeleteObject(line);
  else
   line->GetFrom()->m_lines.DeleteObject(line);

  m_lines.DeleteObject(line);
}

#ifdef PROLOGIO
char *wxShape::GetFunctor()
{
  return "node_image";
}

void wxShape::WritePrologAttributes(wxExpr *clause)
{
  clause->AddAttributeValueString("type", GetClassInfo()->GetClassName());
  clause->AddAttributeValue("id", m_id);

  if (m_pen)
  {
    int penWidth = m_pen->GetWidth();
    int penStyle = m_pen->GetStyle();
    if (penWidth != 1)
      clause->AddAttributeValue("pen_width", (long)penWidth);
    if (penStyle != wxSOLID)
      clause->AddAttributeValue("pen_style", (long)penStyle);

    wxString penColour = wxTheColourDatabase->FindName(m_pen->GetColour());
    if ((penColour != "") && (penColour != "BLACK"))
      clause->AddAttributeValueString("pen_colour", penColour);
  }

  if (m_brush)
  {
    wxString brushColour = wxTheColourDatabase->FindName(m_brush->GetColour());

    if ((brushColour != "") && (brushColour != "WHITE"))
      clause->AddAttributeValueString("brush_colour", brushColour);
    
    if (m_brush->GetStyle() != wxSOLID)
      clause->AddAttributeValue("brush_style", (long)m_brush->GetStyle());
  }

  // Output line ids

  int n_lines = m_lines.Number();
  if (n_lines > 0)
  {
    wxExpr *list = new wxExpr(PrologList);
    wxNode *node = m_lines.First();
    while (node)
    {
      wxShape *line = (wxShape *)node->Data();
      wxExpr *id_expr = new wxExpr(line->GetId());
      list->Append(id_expr);
      node = node->Next();
    }
    clause->AddAttributeValue("arcs", list);
  }

  // Miscellaneous members
  if (m_attachmentMode != 0)
    clause->AddAttributeValue("use_attachments", (long)m_attachmentMode);
  if (m_sensitivity != OP_ALL)
    clause->AddAttributeValue("sensitivity", (long)m_sensitivity);
  if (!m_spaceAttachments)
    clause->AddAttributeValue("space_attachments", (long)m_spaceAttachments);
  if (m_fixedWidth)
    clause->AddAttributeValue("fixed_width", (long)m_fixedWidth);
  if (m_fixedHeight)
    clause->AddAttributeValue("fixed_height", (long)m_fixedHeight);
  if (m_shadowMode != SHADOW_NONE)
    clause->AddAttributeValue("shadow_mode", (long)m_shadowMode);
  if (m_centreResize != TRUE)
    clause->AddAttributeValue("centre_resize", (long)0);
  if (m_highlighted != FALSE)
    clause->AddAttributeValue("hilite", (long)m_highlighted);

  if (m_parent) // For composite objects
    clause->AddAttributeValue("parent", (long)m_parent->GetId());

  if (m_rotation != 0.0)
    clause->AddAttributeValue("rotation", m_rotation);

  // Write user-defined attachment points, if any
  if (m_attachmentPoints.Number() > 0)
  {
    wxExpr *attachmentList = new wxExpr(PrologList);
    wxNode *node = m_attachmentPoints.First();
    while (node)
    {
      wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
      wxExpr *pointExpr = new wxExpr(PrologList);
      pointExpr->Append(new wxExpr((long)point->m_id));
      pointExpr->Append(new wxExpr(point->m_x));
      pointExpr->Append(new wxExpr(point->m_y));
      attachmentList->Append(pointExpr);
      node = node->Next();
    }
    clause->AddAttributeValue("user_attachments", attachmentList);
  }

  // Write text regions
  WriteRegions(clause);
}

void wxShape::WriteRegions(wxExpr *clause)
{
  // Output regions as region1 = (...), region2 = (...), etc
  // and formatted text as text1 = (...), text2 = (...) etc.
  int regionNo = 1;
  char regionNameBuf[20];
  char textNameBuf[20];
  wxNode *node = m_regions.First();
  while (node)
  {
    wxShapeRegion *region = (wxShapeRegion *)node->Data();
    sprintf(regionNameBuf, "region%d", regionNo);
    sprintf(textNameBuf, "text%d", regionNo);

    // Original text and region attributes:
    // region1 = (regionName regionText x y width height minWidth minHeight proportionX proportionY
    //            formatMode fontSize fontFamily fontStyle fontWeight textColour)
    wxExpr *regionExpr = new wxExpr(PrologList);
    regionExpr->Append(new wxExpr(PrologString, (region->m_regionName ? region->m_regionName : "")));
    regionExpr->Append(new wxExpr(PrologString, (region->m_regionText ? region->m_regionText : "")));

    regionExpr->Append(new wxExpr(region->m_x));
    regionExpr->Append(new wxExpr(region->m_y));
    regionExpr->Append(new wxExpr(region->GetWidth()));
    regionExpr->Append(new wxExpr(region->GetHeight()));

    regionExpr->Append(new wxExpr(region->m_minWidth));
    regionExpr->Append(new wxExpr(region->m_minHeight));
    regionExpr->Append(new wxExpr(region->m_regionProportionX));
    regionExpr->Append(new wxExpr(region->m_regionProportionY));

    regionExpr->Append(new wxExpr((long)region->m_formatMode));

    regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetPointSize() : 10)));
    regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetFamily() : wxDEFAULT)));
    regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetStyle() : wxDEFAULT)));
    regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetWeight() : wxNORMAL)));
    regionExpr->Append(new wxExpr(PrologString, region->m_textColour ? region->m_textColour : "BLACK"));

    // New members for pen colour/style
    regionExpr->Append(new wxExpr(PrologString, region->m_penColour ? region->m_penColour : "BLACK"));
    regionExpr->Append(new wxExpr((long)region->m_penStyle));

    // Formatted text:
    // text1 = ((x y string) (x y string) ...)
    wxExpr *textExpr = new wxExpr(PrologList);

    wxNode *textNode = region->m_formattedText.First();
    while (textNode)
    {
      wxShapeTextLine *line = (wxShapeTextLine *)textNode->Data();
      wxExpr *list2 = new wxExpr(PrologList);
      list2->Append(new wxExpr(line->GetX()));
      list2->Append(new wxExpr(line->GetY()));
      list2->Append(new wxExpr(PrologString, line->GetText()));
      textExpr->Append(list2);
      textNode = textNode->Next();
    }

    // Now add both attributes to the clause
    clause->AddAttributeValue(regionNameBuf, regionExpr);
    clause->AddAttributeValue(textNameBuf, textExpr);

    node = node->Next();
    regionNo ++;
  }
}

void wxShape::ReadPrologAttributes(wxExpr *clause)
{
  clause->GetAttributeValue("id", m_id);
  RegisterId(m_id);

  clause->GetAttributeValue("x", m_xpos);
  clause->GetAttributeValue("y", m_ypos);

  // Input text strings (FOR COMPATIBILITY WITH OLD FILES ONLY. SEE REGION CODE BELOW.)
  ClearText();
  wxExpr *strings = clause->AttributeValue("text");
  if (strings && strings->Type() == PrologList)
  {
    m_formatted = TRUE;  // Assume text is formatted unless we prove otherwise
    wxExpr *node = strings->value.first;
    while (node)
    {
      wxExpr *string_expr = node;
      float the_x = 0.0;
      float the_y = 0.0;
      wxString the_string("");

      // string_expr can either be a string, or a list of
      // 3 elements: x, y, and string.
      if (string_expr->Type() == PrologString)
      {
        the_string = string_expr->StringValue();
        m_formatted = FALSE;
      }
      else if (string_expr->Type() == PrologList)
      {
        wxExpr *first = string_expr->value.first;
        wxExpr *second = first ? first->next : NULL;
        wxExpr *third = second ? second->next : NULL;

        if (first && second && third &&
            (first->Type() == PrologReal || first->Type() == PrologInteger) &&
            (second->Type() == PrologReal || second->Type() == PrologInteger) &&
            third->Type() == PrologString)
          {
            if (first->Type() == PrologReal)
              the_x = first->RealValue();
            else the_x = (float)first->IntegerValue();

            if (second->Type() == PrologReal)
              the_y = second->RealValue();
            else the_y = (float)second->IntegerValue();

            the_string = third->StringValue();
          }
      }
      wxShapeTextLine *line =
            new wxShapeTextLine(the_x, the_y, (char*) (const char*) the_string);
      m_text.Append(line);

      node = node->next;
    }
  }

  wxString pen_string = "";
  wxString brush_string = "";
  int pen_width = 1;
  int pen_style = wxSOLID;
  int brush_style = wxSOLID;
  m_attachmentMode = FALSE;

  clause->GetAttributeValue("pen_colour", pen_string);
  clause->GetAttributeValue("text_colour", m_textColourName);

  SetTextColour(m_textColourName);

  clause->GetAttributeValue("region_name", m_regionName);

  clause->GetAttributeValue("brush_colour", brush_string);
  clause->GetAttributeValue("pen_width", pen_width);
  clause->GetAttributeValue("pen_style", pen_style);
  clause->GetAttributeValue("brush_style", brush_style);

  int iVal = (int) m_attachmentMode;
  clause->GetAttributeValue("use_attachments", iVal);
  m_attachmentMode = (iVal != 0);

  clause->GetAttributeValue("sensitivity", m_sensitivity);

  iVal = (int) m_spaceAttachments;
  clause->GetAttributeValue("space_attachments", iVal);
  m_spaceAttachments = (iVal != 0);

  iVal = (int) m_fixedWidth;
  clause->GetAttributeValue("fixed_width", iVal);
  m_fixedWidth = (iVal != 0);

  iVal = (int) m_fixedHeight;
  clause->GetAttributeValue("fixed_height", iVal);
  m_fixedHeight = (iVal != 0);

  clause->GetAttributeValue("format_mode", m_formatMode);
  clause->GetAttributeValue("shadow_mode", m_shadowMode);

  iVal = (int) m_centreResize;
  clause->GetAttributeValue("centre_resize", iVal);
  m_centreResize = (iVal != 0);

  iVal = (int) m_highlighted;
  clause->GetAttributeValue("hilite", iVal);
  m_highlighted = (iVal != 0);

  clause->GetAttributeValue("rotation", m_rotation);

  if (pen_string == "")
    pen_string = "BLACK";
  if (brush_string == "")
    brush_string = "WHITE";

  m_pen = wxThePenList->FindOrCreatePen(pen_string, pen_width, pen_style);
  if (!m_pen)
    m_pen = wxBLACK_PEN;

  m_brush = wxTheBrushList->FindOrCreateBrush(brush_string, brush_style);
  if (!m_brush)
    m_brush = wxWHITE_BRUSH;

  int point_size = 10;
  clause->GetAttributeValue("point_size", point_size);
  SetFont(MatchFont(point_size));

  // Read user-defined attachment points, if any
  wxExpr *attachmentList = clause->AttributeValue("user_attachments");
  if (attachmentList)
  {
    wxExpr *pointExpr = attachmentList->GetFirst();
    while (pointExpr)
    {
      wxExpr *idExpr = pointExpr->Nth(0);
      wxExpr *xExpr = pointExpr->Nth(1);
      wxExpr *yExpr = pointExpr->Nth(2);
      if (idExpr && xExpr && yExpr)
      {
        wxAttachmentPoint *point = new wxAttachmentPoint;
        point->m_id = (int)idExpr->IntegerValue();
        point->m_x = xExpr->RealValue();
        point->m_y = yExpr->RealValue();
        m_attachmentPoints.Append((wxObject *)point);
      }
      pointExpr = pointExpr->GetNext();
    }
  }

  // Read text regions
  ReadRegions(clause);
}

void wxShape::ReadRegions(wxExpr *clause)
{
  ClearRegions();

  // region1 = (regionName regionText x y width height minWidth minHeight proportionX proportionY
  //            formatMode fontSize fontFamily fontStyle fontWeight textColour)
  int regionNo = 1;
  char regionNameBuf[20];
  char textNameBuf[20];

  wxExpr *regionExpr = NULL;
  wxExpr *textExpr = NULL;
  sprintf(regionNameBuf, "region%d", regionNo);
  sprintf(textNameBuf, "text%d", regionNo);

  m_formatted = TRUE;  // Assume text is formatted unless we prove otherwise

  while (regionExpr = clause->AttributeValue(regionNameBuf))
  {
    /*
     * Get the region information
     *
     */

    wxString regionName("");
    wxString regionText("");
    float x = 0.0;
    float y = 0.0;
    float width = 0.0;
    float height = 0.0;
    float minWidth = 5.0;
    float minHeight = 5.0;
    float m_regionProportionX = -1.0;
    float m_regionProportionY = -1.0;
    int formatMode = FORMAT_NONE;
    int fontSize = 10;
    int fontFamily = wxSWISS;
    int fontStyle = wxNORMAL;
    int fontWeight = wxNORMAL;
    wxString regionTextColour("");
    wxString penColour("");
    int penStyle = wxSOLID;

    if (regionExpr->Type() == PrologList)
    {
      wxExpr *nameExpr = regionExpr->Nth(0);
      wxExpr *textExpr = regionExpr->Nth(1);
      wxExpr *xExpr = regionExpr->Nth(2);
      wxExpr *yExpr = regionExpr->Nth(3);
      wxExpr *widthExpr = regionExpr->Nth(4);
      wxExpr *heightExpr = regionExpr->Nth(5);
      wxExpr *minWidthExpr = regionExpr->Nth(6);
      wxExpr *minHeightExpr = regionExpr->Nth(7);
      wxExpr *propXExpr = regionExpr->Nth(8);
      wxExpr *propYExpr = regionExpr->Nth(9);
      wxExpr *formatExpr = regionExpr->Nth(10);
      wxExpr *sizeExpr = regionExpr->Nth(11);
      wxExpr *familyExpr = regionExpr->Nth(12);
      wxExpr *styleExpr = regionExpr->Nth(13);
      wxExpr *weightExpr = regionExpr->Nth(14);
      wxExpr *colourExpr = regionExpr->Nth(15);
      wxExpr *penColourExpr = regionExpr->Nth(16);
      wxExpr *penStyleExpr = regionExpr->Nth(17);

      regionName = nameExpr->StringValue();
      regionText = textExpr->StringValue();

      x = xExpr->RealValue();
      y = yExpr->RealValue();

      width = widthExpr->RealValue();
      height = heightExpr->RealValue();
      
      minWidth = minWidthExpr->RealValue();
      minHeight = minHeightExpr->RealValue();

      m_regionProportionX = propXExpr->RealValue();
      m_regionProportionY = propYExpr->RealValue();

      formatMode = (formatExpr->IntegerValue() != 0);
      fontSize = (int)sizeExpr->IntegerValue();
      fontFamily = (int)familyExpr->IntegerValue();
      fontStyle = (int)styleExpr->IntegerValue();
      fontWeight = (int)weightExpr->IntegerValue();

      if (colourExpr)
      {
        regionTextColour = colourExpr->StringValue();
      }
      else
        regionTextColour = "BLACK";

      if (penColourExpr)
        penColour = penColourExpr->StringValue();
      if (penStyleExpr)
        penStyle = (int)penStyleExpr->IntegerValue();
    }
    wxFont *font = wxTheFontList->FindOrCreateFont(fontSize, fontFamily, fontStyle, fontWeight);

    wxShapeRegion *region = new wxShapeRegion;
    region->SetProportions(m_regionProportionX, m_regionProportionY);
    region->SetFont(font);
    region->SetSize(width, height);
    region->SetPosition(x, y);
    region->SetMinSize(minWidth, minHeight);
    region->SetFormatMode(formatMode);
    region->SetPenStyle(penStyle);
    if (penColour != "")
      region->SetPenColour(penColour);

    region->m_textColour = regionTextColour;
    region->m_regionText = regionText;
    region->m_regionName = regionName;

    m_regions.Append(region);

    /*
     * Get the formatted text strings
     *
     */
    textExpr = clause->AttributeValue(textNameBuf);
    if (textExpr && (textExpr->Type() == PrologList))
    {
      wxExpr *node = textExpr->value.first;
      while (node)
      {
        wxExpr *string_expr = node;
        float the_x = 0.0;
        float the_y = 0.0;
        wxString the_string("");

        // string_expr can either be a string, or a list of
        // 3 elements: x, y, and string.
        if (string_expr->Type() == PrologString)
        {
          the_string = string_expr->StringValue();
          m_formatted = FALSE;
        }
        else if (string_expr->Type() == PrologList)
        {
          wxExpr *first = string_expr->value.first;
          wxExpr *second = first ? first->next : NULL;
          wxExpr *third = second ? second->next : NULL;

          if (first && second && third &&
              (first->Type() == PrologReal || first->Type() == PrologInteger) &&
              (second->Type() == PrologReal || second->Type() == PrologInteger) &&
              third->Type() == PrologString)
          {
            if (first->Type() == PrologReal)
              the_x = first->RealValue();
            else the_x = (float)first->IntegerValue();

            if (second->Type() == PrologReal)
              the_y = second->RealValue();
            else the_y = (float)second->IntegerValue();

            the_string = third->StringValue();
          }
        }
        if (the_string)
        {
          wxShapeTextLine *line =
              new wxShapeTextLine(the_x, the_y, (char*) (const char*) the_string);
          region->m_formattedText.Append(line);
        }
        node = node->next;
      }
    }

    regionNo ++;
    sprintf(regionNameBuf, "region%d", regionNo);
    sprintf(textNameBuf, "text%d", regionNo);
  }

  // Compatibility: check for no regions (old file).
  // Lines and divided rectangles must deal with this compatibility
  // theirselves. Composites _may_ not have any regions anyway.
  if ((m_regions.Number() == 0) &&
      !this->IsKindOf(CLASSINFO(wxLineShape)) && !this->IsKindOf(CLASSINFO(wxDividedShape)) &&
      !this->IsKindOf(CLASSINFO(wxCompositeShape)))
  {
    wxShapeRegion *newRegion = new wxShapeRegion;
    newRegion->SetName("0");
    m_regions.Append((wxObject *)newRegion);
    if (m_text.Number() > 0)
    {
      newRegion->ClearText();
      wxNode *node = m_text.First();
      while (node)
      {
        wxShapeTextLine *textLine = (wxShapeTextLine *)node->Data();
        wxNode *next = node->Next();
        newRegion->GetFormattedText().Append((wxObject *)textLine);
        delete node;
        node = next;
      }
    }
  }
}

#endif

void wxShape::Copy(wxShape& copy)
{
  copy.m_id = m_id;
  copy.m_xpos = m_xpos;
  copy.m_ypos = m_ypos;
  copy.m_pen = m_pen;
  copy.m_brush = m_brush;
  copy.m_textColour = m_textColour;
  copy.m_centreResize = m_centreResize;
  copy.m_attachmentMode = m_attachmentMode;
  copy.m_spaceAttachments = m_spaceAttachments;
  copy.m_highlighted = m_highlighted;
  copy.m_rotation = m_rotation;
  copy.m_textColourName = m_textColourName;
  copy.m_regionName = m_regionName;

  copy.m_sensitivity = m_sensitivity;
  copy.m_draggable = m_draggable;
  copy.m_fixedWidth = m_fixedWidth;
  copy.m_fixedHeight = m_fixedHeight;
  copy.m_formatMode = m_formatMode;
  copy.m_drawHandles = m_drawHandles;

  copy.m_visible = m_visible;
  copy.m_shadowMode = m_shadowMode;
  copy.m_shadowOffsetX = m_shadowOffsetX;
  copy.m_shadowOffsetY = m_shadowOffsetY;
  copy.m_shadowBrush = m_shadowBrush;

  // Copy text regions
  copy.ClearRegions();
  wxNode *node = m_regions.First();
  while (node)
  {
    wxShapeRegion *region = (wxShapeRegion *)node->Data();
    wxShapeRegion *newRegion = new wxShapeRegion(*region);
    copy.m_regions.Append(newRegion);
    node = node->Next();
  }

  // Copy attachments
  copy.ClearAttachments();
  node = m_attachmentPoints.First();
  while (node)
  {
    wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
    wxAttachmentPoint *newPoint = new wxAttachmentPoint;
    newPoint->m_id = point->m_id;
    newPoint->m_x = point->m_x;
    newPoint->m_y = point->m_y;
    copy.m_attachmentPoints.Append((wxObject *)newPoint);
    node = node->Next();
  }
}

// Create and return a new, fully copied object.
wxShape *wxShape::CreateNewCopy(wxShapeCanvas *theCanvas)
{
  wxObjectCopyMapping.Clear();
  wxShape *newObject = PrivateCopy();
  if (theCanvas)
    newObject->AddToCanvas(theCanvas);
  newObject->Recompute();
  return newObject;
}

// Default - make 6 control points
void wxShape::MakeControlPoints()
{
  float maxX, maxY, minX, minY;

  GetBoundingBoxMax(&maxX, &maxY);
  GetBoundingBoxMin(&minX, &minY);

  float widthMin = (float)(minX + CONTROL_POINT_SIZE + 2);
  float heightMin = (float)(minY + CONTROL_POINT_SIZE + 2);

  // Offsets from main object
  float top = (float)(- (heightMin / 2.0));
  float bottom = (float)(heightMin / 2.0 + (maxY - minY));
  float left = (float)(- (widthMin / 2.0));
  float right = (float)(widthMin / 2.0 + (maxX - minX));

  wxControlPoint *control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, top, 
                                           CONTROL_POINT_DIAGONAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, 0, top, 
                                           CONTROL_POINT_VERTICAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, top, 
                                           CONTROL_POINT_DIAGONAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, 0, 
                                           CONTROL_POINT_HORIZONTAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, bottom, 
                                           CONTROL_POINT_DIAGONAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, 0, bottom, 
                                           CONTROL_POINT_VERTICAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, bottom, 
                                           CONTROL_POINT_DIAGONAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

  control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, 0, 
                                           CONTROL_POINT_HORIZONTAL);
  m_canvas->AddShape(control);
  m_controlPoints.Append(control);

}

void wxShape::MakeMandatoryControlPoints()
{
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    child->MakeMandatoryControlPoints();
    node = node->Next();
  }
}

void wxShape::ResetMandatoryControlPoints()
{
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    child->ResetMandatoryControlPoints();
    node = node->Next();
  }
}

void wxShape::ResetControlPoints()
{
  ResetMandatoryControlPoints();

  if (m_controlPoints.Number() < 1)
    return;

  float maxX, maxY, minX, minY;

  GetBoundingBoxMax(&maxX, &maxY);
  GetBoundingBoxMin(&minX, &minY);

  float widthMin = (float)(minX + CONTROL_POINT_SIZE + 2);
  float heightMin = (float)(minY + CONTROL_POINT_SIZE + 2);

  // Offsets from main object
  float top = (float)(- (heightMin / 2.0));
  float bottom = (float)(heightMin / 2.0 + (maxY - minY));
  float left = (float)(- (widthMin / 2.0));
  float right = (float)(widthMin / 2.0 + (maxX - minX));

  wxNode *node = m_controlPoints.First();
  wxControlPoint *control = (wxControlPoint *)node->Data();
  control->m_xoffset = left; control->m_yoffset = top;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = 0; control->m_yoffset = top;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = right; control->m_yoffset = top;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = right; control->m_yoffset = 0;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = right; control->m_yoffset = bottom;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = 0; control->m_yoffset = bottom;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = left; control->m_yoffset = bottom;

  node = node->Next(); control = (wxControlPoint *)node->Data();
  control->m_xoffset = left; control->m_yoffset = 0;
}

void wxShape::DeleteControlPoints(wxDC *dc)
{
  wxNode *node = m_controlPoints.First();
  while (node)
  {
    wxControlPoint *control = (wxControlPoint *)node->Data();
    if (dc)
        control->GetEventHandler()->OnErase(*dc);
    m_canvas->RemoveShape(control);
    delete control;
    delete node;
    node = m_controlPoints.First();
  }
  // Children of divisions are contained objects,
  // so stop here
  if (!IsKindOf(CLASSINFO(wxDivisionShape)))
  {
    node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->DeleteControlPoints(dc);
      node = node->Next();
    }
  }
}

void wxShape::OnDrawControlPoints(wxDC& dc)
{
  if (!m_drawHandles)
    return;
    
  dc.SetBrush(wxBLACK_BRUSH);
  dc.SetPen(wxBLACK_PEN);

  wxNode *node = m_controlPoints.First();
  while (node)
  {
    wxControlPoint *control = (wxControlPoint *)node->Data();
    control->Draw(dc);
    node = node->Next();
  }
  // Children of divisions are contained objects,
  // so stop here.
  // This test bypasses the type facility for speed
  // (critical when drawing)
  if (!IsKindOf(CLASSINFO(wxDivisionShape)))
  {
    node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->GetEventHandler()->OnDrawControlPoints(dc);
      node = node->Next();
    }
  }
}

void wxShape::OnEraseControlPoints(wxDC& dc)
{
  wxNode *node = m_controlPoints.First();
  while (node)
  {
    wxControlPoint *control = (wxControlPoint *)node->Data();
    control->Erase(dc);
    node = node->Next();
  }
  if (!IsKindOf(CLASSINFO(wxDivisionShape)))
  {
    node = m_children.First();
    while (node)
    {
      wxShape *child = (wxShape *)node->Data();
      child->GetEventHandler()->OnEraseControlPoints(dc);
      node = node->Next();
    }
  }
}

void wxShape::Select(bool select, wxDC* dc)
{
  m_selected = select;
  if (select)
  {
    MakeControlPoints();
    // Children of divisions are contained objects,
    // so stop here
    if (!IsKindOf(CLASSINFO(wxDivisionShape)))
    {
      wxNode *node = m_children.First();
      while (node)
      {
        wxShape *child = (wxShape *)node->Data();
        child->MakeMandatoryControlPoints();
        node = node->Next();
      }
    }
    if (dc)
        GetEventHandler()->OnDrawControlPoints(*dc);
  }
  if (!select)
  {
    DeleteControlPoints(dc);
    if (!IsKindOf(CLASSINFO(wxDivisionShape)))
    {
      wxNode *node = m_children.First();
      while (node)
      {
        wxShape *child = (wxShape *)node->Data();
        child->DeleteControlPoints(dc);
        node = node->Next();
      }
    }
  }
}

bool wxShape::Selected() const
{
  return m_selected;
}

bool wxShape::AncestorSelected() const
{
  if (m_selected) return TRUE;
  if (!GetParent())
    return FALSE;
  else
    return GetParent()->AncestorSelected();
}

int wxShape::GetNumberOfAttachments()
{
  // Should return the MAXIMUM attachment point id here,
  // so higher-level functions can iterate through all attachments,
  // even if they're not contiguous.
  if (m_attachmentPoints.Number() == 0)
    return 4;
  else
  {
    int maxN = 3;
    wxNode *node = m_attachmentPoints.First();
    while (node)
    {
      wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
      if (point->m_id > maxN)
        maxN = point->m_id;
      node = node->Next();
    }
    return maxN+1;;
  }
}

bool wxShape::AttachmentIsValid(int attachment)
{
  if ((attachment >= 0) && (attachment < 4))
    return TRUE;

  wxNode *node = m_attachmentPoints.First();
  while (node)
  {
    wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
    if (point->m_id == attachment)
      return TRUE;
    node = node->Next();
  }
  return FALSE;
}

bool wxShape::GetAttachmentPosition(int attachment, float *x, float *y, 
                                         int nth, int no_arcs, wxLineShape *line)
{
  if (!m_attachmentMode)
  {
    *x = m_xpos; *y = m_ypos;
    return TRUE;
  }
  else
  {
    wxNode *node = m_attachmentPoints.First();
    while (node)
    {
      wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
      if (point->m_id == attachment)
      {
        *x = (float)(m_xpos + point->m_x);
        *y = (float)(m_ypos + point->m_y);
        return TRUE;
      }
      node = node->Next();
    }
    *x = m_xpos; *y = m_ypos;
    return FALSE;
  }
}

void wxShape::GetBoundingBoxMax(float *w, float *h)
{
  float ww, hh;
  GetBoundingBoxMin(&ww, &hh);
  if (m_shadowMode != SHADOW_NONE)
  {
    ww += m_shadowOffsetX;
    hh += m_shadowOffsetY;
  }
  *w = ww;
  *h = hh;
}

// Returns TRUE if image is a descendant of this composite
bool wxShape::HasDescendant(wxShape *image)
{
  if (image == this)
    return TRUE;
  wxNode *node = m_children.First();
  while (node)
  {
    wxShape *child = (wxShape *)node->Data();
    bool ans = child->HasDescendant(image);
    if (ans)
      return TRUE;
    node = node->Next();
  }
  return FALSE;
}

// Clears points from a list of wxRealPoints, and clears list
void wxShape::ClearPointList(wxList& list)
{
    wxNode* node = list.First();
    while (node)
    {
        wxRealPoint* pt = (wxRealPoint*) node->Data();
        delete pt;

        node = node->Next();
    }
    list.Clear();
}