contrib/src/ogl/basic.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        basic.cpp
   3 // Purpose:     Basic OGL classes
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     12/07/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "basic.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx.h".
  17 #include <wx/wxprec.h>
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include <wx/wx.h>
  25 #endif
  26
  27 #include <wx/wxexpr.h>
  28
  29 #if wxUSE_IOSTREAMH
  30 #include <iostream.h>
  31 #else
  32 #include <iostream>
  33 #endif
  34
  35 #include <stdio.h>
  36 #include <ctype.h>
  37 #include <math.h>
  38
  39 #include <wx/ogl/basic.h>
  40 #include <wx/ogl/basicp.h>
  41 #include <wx/ogl/composit.h>
  42 #include <wx/ogl/lines.h>
  43 #include <wx/ogl/canvas.h>
  44 #include <wx/ogl/divided.h>
  45 #include <wx/ogl/misc.h>
  46
  47 // Control point types
  48 // Rectangle and most other shapes
  49 #define CONTROL_POINT_VERTICAL   1
  50 #define CONTROL_POINT_HORIZONTAL 2
  51 #define CONTROL_POINT_DIAGONAL   3
  52
  53 // Line
  54 #define CONTROL_POINT_ENDPOINT_TO 4
  55 #define CONTROL_POINT_ENDPOINT_FROM 5
  56 #define CONTROL_POINT_LINE       6
  57
  58 IMPLEMENT_DYNAMIC_CLASS(wxShapeTextLine, wxObject)
  59 IMPLEMENT_DYNAMIC_CLASS(wxAttachmentPoint, wxObject)
  60
  61 wxShapeTextLine::wxShapeTextLine(double the_x, double the_y, const wxString& the_line)
  62 {
  63   m_x = the_x; m_y = the_y; m_line = the_line;
  64 }
  65
  66 wxShapeTextLine::~wxShapeTextLine()
  67 {
  68 }
  69
  70 IMPLEMENT_ABSTRACT_CLASS(wxShapeEvtHandler, wxObject)
  71
  72 wxShapeEvtHandler::wxShapeEvtHandler(wxShapeEvtHandler *prev, wxShape *shape)
  73 {
  74   m_previousHandler = prev;
  75   m_handlerShape = shape;
  76 }
  77
  78 wxShapeEvtHandler::~wxShapeEvtHandler()
  79 {
  80 }
  81
  82 // Creates a copy of this event handler.
  83 wxShapeEvtHandler* wxShapeEvtHandler::CreateNewCopy()
  84 {
  85   wxShapeEvtHandler* newObject = (wxShapeEvtHandler*) GetClassInfo()->CreateObject();
  86
  87   wxASSERT( (newObject != NULL) );
  88   wxASSERT( (newObject->IsKindOf(CLASSINFO(wxShapeEvtHandler))) );
  89
  90   newObject->m_previousHandler = newObject;
  91
  92   CopyData(*newObject);
  93
  94   return newObject;
  95 }
  96
  97
  98 void wxShapeEvtHandler::OnDelete()
  99 {
 100   if (this != GetShape())
 101     delete this;
 102 }
 103
 104 void wxShapeEvtHandler::OnDraw(wxDC& dc)
 105 {
 106   if (m_previousHandler)
 107     m_previousHandler->OnDraw(dc);
 108 }
 109
 110 void wxShapeEvtHandler::OnMoveLinks(wxDC& dc)
 111 {
 112   if (m_previousHandler)
 113     m_previousHandler->OnMoveLinks(dc);
 114 }
 115
 116 void wxShapeEvtHandler::OnMoveLink(wxDC& dc, bool moveControlPoints)
 117 {
 118   if (m_previousHandler)
 119     m_previousHandler->OnMoveLink(dc, moveControlPoints);
 120 }
 121
 122 void wxShapeEvtHandler::OnDrawContents(wxDC& dc)
 123 {
 124   if (m_previousHandler)
 125     m_previousHandler->OnDrawContents(dc);
 126 }
 127
 128 void wxShapeEvtHandler::OnDrawBranches(wxDC& dc, bool erase)
 129 {
 130   if (m_previousHandler)
 131     m_previousHandler->OnDrawBranches(dc, erase);
 132 }
 133
 134 void wxShapeEvtHandler::OnSize(double x, double y)
 135 {
 136   if (m_previousHandler)
 137     m_previousHandler->OnSize(x, y);
 138 }
 139
 140 bool wxShapeEvtHandler::OnMovePre(wxDC& dc, double x, double y, double old_x, double old_y, bool display)
 141 {
 142   if (m_previousHandler)
 143     return m_previousHandler->OnMovePre(dc, x, y, old_x, old_y, display);
 144   else
 145     return TRUE;
 146 }
 147
 148 void wxShapeEvtHandler::OnMovePost(wxDC& dc, double x, double y, double old_x, double old_y, bool display)
 149 {
 150   if (m_previousHandler)
 151     m_previousHandler->OnMovePost(dc, x, y, old_x, old_y, display);
 152 }
 153
 154 void wxShapeEvtHandler::OnErase(wxDC& dc)
 155 {
 156   if (m_previousHandler)
 157     m_previousHandler->OnErase(dc);
 158 }
 159
 160 void wxShapeEvtHandler::OnEraseContents(wxDC& dc)
 161 {
 162   if (m_previousHandler)
 163     m_previousHandler->OnEraseContents(dc);
 164 }
 165
 166 void wxShapeEvtHandler::OnHighlight(wxDC& dc)
 167 {
 168   if (m_previousHandler)
 169     m_previousHandler->OnHighlight(dc);
 170 }
 171
 172 void wxShapeEvtHandler::OnLeftClick(double x, double y, int keys, int attachment)
 173 {
 174   if (m_previousHandler)
 175     m_previousHandler->OnLeftClick(x, y, keys, attachment);
 176 }
 177
 178 void wxShapeEvtHandler::OnLeftDoubleClick(double x, double y, int keys, int attachment)
 179 {
 180   if (m_previousHandler)
 181     m_previousHandler->OnLeftDoubleClick(x, y, keys, attachment);
 182 }
 183
 184 void wxShapeEvtHandler::OnRightClick(double x, double y, int keys, int attachment)
 185 {
 186   if (m_previousHandler)
 187     m_previousHandler->OnRightClick(x, y, keys, attachment);
 188 }
 189
 190 void wxShapeEvtHandler::OnDragLeft(bool draw, double x, double y, int keys, int attachment)
 191 {
 192   if (m_previousHandler)
 193     m_previousHandler->OnDragLeft(draw, x, y, keys, attachment);
 194 }
 195
 196 void wxShapeEvtHandler::OnBeginDragLeft(double x, double y, int keys, int attachment)
 197 {
 198   if (m_previousHandler)
 199     m_previousHandler->OnBeginDragLeft(x, y, keys, attachment);
 200 }
 201
 202 void wxShapeEvtHandler::OnEndDragLeft(double x, double y, int keys, int attachment)
 203 {
 204   if (m_previousHandler)
 205     m_previousHandler->OnEndDragLeft(x, y, keys, attachment);
 206 }
 207
 208 void wxShapeEvtHandler::OnDragRight(bool draw, double x, double y, int keys, int attachment)
 209 {
 210   if (m_previousHandler)
 211     m_previousHandler->OnDragRight(draw, x, y, keys, attachment);
 212 }
 213
 214 void wxShapeEvtHandler::OnBeginDragRight(double x, double y, int keys, int attachment)
 215 {
 216   if (m_previousHandler)
 217     m_previousHandler->OnBeginDragRight(x, y, keys, attachment);
 218 }
 219
 220 void wxShapeEvtHandler::OnEndDragRight(double x, double y, int keys, int attachment)
 221 {
 222   if (m_previousHandler)
 223     m_previousHandler->OnEndDragRight(x, y, keys, attachment);
 224 }
 225
 226 // Control points ('handles') redirect control to the actual shape, to make it easier
 227 // to override sizing behaviour.
 228 void wxShapeEvtHandler::OnSizingDragLeft(wxControlPoint* pt, bool draw, double x, double y, int keys, int attachment)
 229 {
 230   if (m_previousHandler)
 231     m_previousHandler->OnSizingDragLeft(pt, draw, x, y, keys, attachment);
 232 }
 233
 234 void wxShapeEvtHandler::OnSizingBeginDragLeft(wxControlPoint* pt, double x, double y, int keys, int attachment)
 235 {
 236   if (m_previousHandler)
 237     m_previousHandler->OnSizingBeginDragLeft(pt, x, y, keys, attachment);
 238 }
 239
 240 void wxShapeEvtHandler::OnSizingEndDragLeft(wxControlPoint* pt, double x, double y, int keys, int attachment)
 241 {
 242   if (m_previousHandler)
 243     m_previousHandler->OnSizingEndDragLeft(pt, x, y, keys, attachment);
 244 }
 245
 246 void wxShapeEvtHandler::OnDrawOutline(wxDC& dc, double x, double y, double w, double h)
 247 {
 248   if (m_previousHandler)
 249     m_previousHandler->OnDrawOutline(dc, x, y, w, h);
 250 }
 251
 252 void wxShapeEvtHandler::OnDrawControlPoints(wxDC& dc)
 253 {
 254   if (m_previousHandler)
 255     m_previousHandler->OnDrawControlPoints(dc);
 256 }
 257
 258 void wxShapeEvtHandler::OnEraseControlPoints(wxDC& dc)
 259 {
 260   if (m_previousHandler)
 261     m_previousHandler->OnEraseControlPoints(dc);
 262 }
 263
 264 // Can override this to prevent or intercept line reordering.
 265 void wxShapeEvtHandler::OnChangeAttachment(int attachment, wxLineShape* line, wxList& ordering)
 266 {
 267   if (m_previousHandler)
 268     m_previousHandler->OnChangeAttachment(attachment, line, ordering);
 269 }
 270
 271 IMPLEMENT_ABSTRACT_CLASS(wxShape, wxShapeEvtHandler)
 272
 273 wxShape::wxShape(wxShapeCanvas *can)
 274 {
 275   m_eventHandler = this;
 276   SetShape(this);
 277   m_id = 0;
 278   m_formatted = FALSE;
 279   m_canvas = can;
 280   m_xpos = 0.0; m_ypos = 0.0;
 281   m_pen = g_oglBlackPen;
 282   m_brush = wxWHITE_BRUSH;
 283   m_font = g_oglNormalFont;
 284   m_textColour = wxBLACK;
 285   m_textColourName = "BLACK";
 286   m_visible = FALSE;
 287   m_clientData = NULL;
 288   m_selected = FALSE;
 289   m_attachmentMode = ATTACHMENT_MODE_NONE;
 290   m_spaceAttachments = TRUE;
 291   m_disableLabel = FALSE;
 292   m_fixedWidth = FALSE;
 293   m_fixedHeight = FALSE;
 294   m_drawHandles = TRUE;
 295   m_sensitivity = OP_ALL;
 296   m_draggable = TRUE;
 297   m_parent = NULL;
 298   m_formatMode = FORMAT_CENTRE_HORIZ | FORMAT_CENTRE_VERT;
 299   m_shadowMode = SHADOW_NONE;
 300   m_shadowOffsetX = 6;
 301   m_shadowOffsetY = 6;
 302   m_shadowBrush = wxBLACK_BRUSH;
 303   m_textMarginX = 5;
 304   m_textMarginY = 5;
 305   m_regionName = "0";
 306   m_centreResize = TRUE;
 307   m_maintainAspectRatio = FALSE;
 308   m_highlighted = FALSE;
 309   m_rotation = 0.0;
 310   m_branchNeckLength = 10;
 311   m_branchStemLength = 10;
 312   m_branchSpacing = 10;
 313   m_branchStyle = BRANCHING_ATTACHMENT_NORMAL;
 314
 315   // Set up a default region. Much of the above will be put into
 316   // the region eventually (the duplication is for compatibility)
 317   wxShapeRegion *region = new wxShapeRegion;
 318   m_regions.Append(region);
 319   region->SetName("0");
 320   region->SetFont(g_oglNormalFont);
 321   region->SetFormatMode(FORMAT_CENTRE_HORIZ | FORMAT_CENTRE_VERT);
 322   region->SetColour("BLACK");
 323 }
 324
 325 wxShape::~wxShape()
 326 {
 327   if (m_parent)
 328     m_parent->GetChildren().DeleteObject(this);
 329
 330   ClearText();
 331   ClearRegions();
 332   ClearAttachments();
 333
 334   if (m_canvas)
 335     m_canvas->RemoveShape(this);
 336
 337   GetEventHandler()->OnDelete();
 338 }
 339
 340 void wxShape::SetHighlight(bool hi, bool recurse)
 341 {
 342   m_highlighted = hi;
 343   if (recurse)
 344   {
 345     wxNode *node = m_children.First();
 346     while (node)
 347     {
 348       wxShape *child = (wxShape *)node->Data();
 349       child->SetHighlight(hi, recurse);
 350       node = node->Next();
 351     }
 352   }
 353 }
 354
 355 void wxShape::SetSensitivityFilter(int sens, bool recursive)
 356 {
 357   if (sens & OP_DRAG_LEFT)
 358     m_draggable = TRUE;
 359   else
 360     m_draggable = FALSE;
 361
 362   m_sensitivity = sens;
 363   if (recursive)
 364   {
 365     wxNode *node = m_children.First();
 366     while (node)
 367     {
 368       wxShape *obj = (wxShape *)node->Data();
 369       obj->SetSensitivityFilter(sens, TRUE);
 370       node = node->Next();
 371     }
 372   }
 373 }
 374
 375 void wxShape::SetDraggable(bool drag, bool recursive)
 376 {
 377   m_draggable = drag;
 378   if (m_draggable)
 379     m_sensitivity |= OP_DRAG_LEFT;
 380   else
 381     if (m_sensitivity & OP_DRAG_LEFT)
 382       m_sensitivity = m_sensitivity - OP_DRAG_LEFT;
 383
 384   if (recursive)
 385   {
 386     wxNode *node = m_children.First();
 387     while (node)
 388     {
 389       wxShape *obj = (wxShape *)node->Data();
 390       obj->SetDraggable(drag, TRUE);
 391       node = node->Next();
 392     }
 393   }
 394 }
 395
 396 void wxShape::SetDrawHandles(bool drawH)
 397 {
 398   m_drawHandles = drawH;
 399   wxNode *node = m_children.First();
 400   while (node)
 401   {
 402     wxShape *obj = (wxShape *)node->Data();
 403     obj->SetDrawHandles(drawH);
 404     node = node->Next();
 405   }
 406 }
 407
 408 void wxShape::SetShadowMode(int mode, bool redraw)
 409 {
 410   if (redraw && GetCanvas())
 411   {
 412     wxClientDC dc(GetCanvas());
 413     GetCanvas()->PrepareDC(dc);
 414     Erase(dc);
 415
 416     m_shadowMode = mode;
 417
 418     Draw(dc);
 419   }
 420   else
 421   {
 422     m_shadowMode = mode;
 423   }
 424 }
 425
 426 void wxShape::SetCanvas(wxShapeCanvas *theCanvas)
 427 {
 428   m_canvas = theCanvas;
 429   wxNode *node = m_children.First();
 430   while (node)
 431   {
 432     wxShape *child = (wxShape *)node->Data();
 433     child->SetCanvas(theCanvas);
 434     node = node->Next();
 435   }
 436 }
 437
 438 void wxShape::AddToCanvas(wxShapeCanvas *theCanvas, wxShape *addAfter)
 439 {
 440   theCanvas->AddShape(this, addAfter);
 441   wxNode *node = m_children.First();
 442   wxShape *lastImage = this;
 443   while (node)
 444   {
 445     wxShape *object = (wxShape *)node->Data();
 446     object->AddToCanvas(theCanvas, lastImage);
 447     lastImage = object;
 448
 449     node = node->Next();
 450   }
 451 }
 452
 453 // Insert at front of canvas
 454 void wxShape::InsertInCanvas(wxShapeCanvas *theCanvas)
 455 {
 456   theCanvas->InsertShape(this);
 457   wxNode *node = m_children.First();
 458   wxShape *lastImage = this;
 459   while (node)
 460   {
 461     wxShape *object = (wxShape *)node->Data();
 462     object->AddToCanvas(theCanvas, lastImage);
 463     lastImage = object;
 464
 465     node = node->Next();
 466   }
 467 }
 468
 469 void wxShape::RemoveFromCanvas(wxShapeCanvas *theCanvas)
 470 {
 471   if (Selected())
 472     Select(FALSE);
 473   theCanvas->RemoveShape(this);
 474   wxNode *node = m_children.First();
 475   while (node)
 476   {
 477     wxShape *object = (wxShape *)node->Data();
 478     object->RemoveFromCanvas(theCanvas);
 479
 480     node = node->Next();
 481   }
 482 }
 483
 484 void wxShape::ClearAttachments()
 485 {
 486   wxNode *node = m_attachmentPoints.First();
 487   while (node)
 488   {
 489     wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
 490     delete point;
 491     node = node->Next();
 492   }
 493   m_attachmentPoints.Clear();
 494 }
 495
 496 void wxShape::ClearText(int regionId)
 497 {
 498   if (regionId == 0)
 499   {
 500     m_text.DeleteContents(TRUE);
 501     m_text.Clear();
 502     m_text.DeleteContents(FALSE);
 503   }
 504   wxNode *node = m_regions.Nth(regionId);
 505   if (!node)
 506     return;
 507   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 508   region->ClearText();
 509 }
 510
 511 void wxShape::ClearRegions()
 512 {
 513   wxNode *node = m_regions.First();
 514   while (node)
 515   {
 516     wxShapeRegion *region = (wxShapeRegion *)node->Data();
 517     wxNode *next = node->Next();
 518     delete region;
 519     delete node;
 520     node = next;
 521   }
 522 }
 523
 524 void wxShape::AddRegion(wxShapeRegion *region)
 525 {
 526   m_regions.Append(region);
 527 }
 528
 529 void wxShape::SetDefaultRegionSize()
 530 {
 531   wxNode *node = m_regions.First();
 532   if (!node) return;
 533   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 534   double w, h;
 535   GetBoundingBoxMin(&w, &h);
 536   region->SetSize(w, h);
 537 }
 538
 539 bool wxShape::HitTest(double x, double y, int *attachment, double *distance)
 540 {
 541 //  if (!sensitive)
 542 //    return FALSE;
 543
 544   double width = 0.0, height = 0.0;
 545   GetBoundingBoxMin(&width, &height);
 546   if (fabs(width) < 4.0) width = 4.0;
 547   if (fabs(height) < 4.0) height = 4.0;
 548
 549   width += (double)4.0; height += (double)4.0; // Allowance for inaccurate mousing
 550
 551   double left = (double)(m_xpos - (width/2.0));
 552   double top = (double)(m_ypos - (height/2.0));
 553   double right = (double)(m_xpos + (width/2.0));
 554   double bottom = (double)(m_ypos + (height/2.0));
 555
 556   int nearest_attachment = 0;
 557
 558   // If within the bounding box, check the attachment points
 559   // within the object.
 560
 561   if (x >= left && x <= right && y >= top && y <= bottom)
 562   {
 563     int n = GetNumberOfAttachments();
 564     double nearest = 999999.0;
 565
 566     // GetAttachmentPosition[Edge] takes a logical attachment position,
 567     // i.e. if it's rotated through 90%, position 0 is East-facing.
 568
 569     for (int i = 0; i < n; i++)
 570     {
 571       double xp, yp;
 572       if (GetAttachmentPositionEdge(i, &xp, &yp))
 573       {
 574         double l = (double)sqrt(((xp - x) * (xp - x)) +
 575                    ((yp - y) * (yp - y)));
 576
 577         if (l < nearest)
 578         {
 579           nearest = l;
 580           nearest_attachment = i;
 581         }
 582       }
 583     }
 584     *attachment = nearest_attachment;
 585     *distance = nearest;
 586     return TRUE;
 587   }
 588   else return FALSE;
 589 }
 590
 591 // Format a text string according to the region size, adding
 592 // strings with positions to region text list
 593
 594 static bool GraphicsInSizeToContents = FALSE; // Infinite recursion elimination
 595 void wxShape::FormatText(wxDC& dc, const wxString& s, int i)
 596 {
 597   double w, h;
 598   ClearText(i);
 599
 600   if (m_regions.Number() < 1)
 601     return;
 602   wxNode *node = m_regions.Nth(i);
 603   if (!node)
 604     return;
 605
 606   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 607   region->SetText(s);
 608   dc.SetFont(* region->GetFont());
 609
 610   region->GetSize(&w, &h);
 611
 612   wxStringList *stringList = oglFormatText(dc, s, (w-5), (h-5), region->GetFormatMode());
 613   node = stringList->First();
 614   while (node)
 615   {
 616     char *s = (char *)node->Data();
 617     wxShapeTextLine *line = new wxShapeTextLine(0.0, 0.0, s);
 618     region->GetFormattedText().Append((wxObject *)line);
 619     node = node->Next();
 620   }
 621   delete stringList;
 622   double actualW = w;
 623   double actualH = h;
 624   // Don't try to resize an object with more than one image (this case should be dealt
 625   // with by overriden handlers)
 626   if ((region->GetFormatMode() & FORMAT_SIZE_TO_CONTENTS) &&
 627       (region->GetFormattedText().Number() > 0) &&
 628       (m_regions.Number() == 1) && !GraphicsInSizeToContents)
 629   {
 630     oglGetCentredTextExtent(dc, &(region->GetFormattedText()), m_xpos, m_ypos, w, h, &actualW, &actualH);
 631     if ((actualW+m_textMarginX != w ) || (actualH+m_textMarginY != h))
 632     {
 633       // If we are a descendant of a composite, must make sure the composite gets
 634       // resized properly
 635       wxShape *topAncestor = GetTopAncestor();
 636
 637       if (topAncestor != this)
 638       {
 639         // Make sure we don't recurse infinitely
 640         GraphicsInSizeToContents = TRUE;
 641
 642         wxCompositeShape *composite = (wxCompositeShape *)topAncestor;
 643         composite->Erase(dc);
 644         SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
 645         Move(dc, m_xpos, m_ypos);
 646         composite->CalculateSize();
 647         if (composite->Selected())
 648         {
 649           composite->DeleteControlPoints(& dc);
 650           composite->MakeControlPoints();
 651           composite->MakeMandatoryControlPoints();
 652         }
 653         // Where infinite recursion might happen if we didn't stop it
 654         composite->Draw(dc);
 655
 656         GraphicsInSizeToContents = FALSE;
 657       }
 658       else
 659       {
 660         Erase(dc);
 661         SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
 662         Move(dc, m_xpos, m_ypos);
 663       }
 664       SetSize(actualW+m_textMarginX, actualH+m_textMarginY);
 665       Move(dc, m_xpos, m_ypos);
 666       EraseContents(dc);
 667     }
 668   }
 669   oglCentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, actualW, actualH, region->GetFormatMode());
 670   m_formatted = TRUE;
 671 }
 672
 673 void wxShape::Recentre(wxDC& dc)
 674 {
 675   double w, h;
 676   GetBoundingBoxMin(&w, &h);
 677
 678   int noRegions = m_regions.Number();
 679   for (int i = 0; i < noRegions; i++)
 680   {
 681     wxNode *node = m_regions.Nth(i);
 682     if (node)
 683     {
 684       wxShapeRegion *region = (wxShapeRegion *)node->Data();
 685       oglCentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, w, h, region->GetFormatMode());
 686     }
 687   }
 688 }
 689
 690 bool wxShape::GetPerimeterPoint(double x1, double y1,
 691                                      double x2, double y2,
 692                                      double *x3, double *y3)
 693 {
 694   return FALSE;
 695 }
 696
 697 void wxShape::SetPen(wxPen *the_pen)
 698 {
 699   m_pen = the_pen;
 700 }
 701
 702 void wxShape::SetBrush(wxBrush *the_brush)
 703 {
 704   m_brush = the_brush;
 705 }
 706
 707 // Get the top-most (non-division) ancestor, or self
 708 wxShape *wxShape::GetTopAncestor()
 709 {
 710   if (!GetParent())
 711     return this;
 712
 713   if (GetParent()->IsKindOf(CLASSINFO(wxDivisionShape)))
 714     return this;
 715   else return GetParent()->GetTopAncestor();
 716 }
 717
 718 /*
 719  * Region functions
 720  *
 721  */
 722 void wxShape::SetFont(wxFont *the_font, int regionId)
 723 {
 724   m_font = the_font;
 725   wxNode *node = m_regions.Nth(regionId);
 726   if (!node)
 727     return;
 728   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 729   region->SetFont(the_font);
 730 }
 731
 732 wxFont *wxShape::GetFont(int n) const
 733 {
 734   wxNode *node = m_regions.Nth(n);
 735   if (!node)
 736     return NULL;
 737   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 738   return region->GetFont();
 739 }
 740
 741 void wxShape::SetFormatMode(int mode, int regionId)
 742 {
 743   wxNode *node = m_regions.Nth(regionId);
 744   if (!node)
 745     return;
 746   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 747   region->SetFormatMode(mode);
 748 }
 749
 750 int wxShape::GetFormatMode(int regionId) const
 751 {
 752   wxNode *node = m_regions.Nth(regionId);
 753   if (!node)
 754     return 0;
 755   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 756   return region->GetFormatMode();
 757 }
 758
 759 void wxShape::SetTextColour(const wxString& the_colour, int regionId)
 760 {
 761   wxColour *wxcolour = wxTheColourDatabase->FindColour(the_colour);
 762   m_textColour = wxcolour;
 763   m_textColourName = the_colour;
 764
 765   wxNode *node = m_regions.Nth(regionId);
 766   if (!node)
 767     return;
 768   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 769   region->SetColour(the_colour);
 770 }
 771
 772 wxString wxShape::GetTextColour(int regionId) const
 773 {
 774   wxNode *node = m_regions.Nth(regionId);
 775   if (!node)
 776     return wxString("");
 777   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 778   return region->GetColour();
 779 }
 780
 781 void wxShape::SetRegionName(const wxString& name, int regionId)
 782 {
 783   wxNode *node = m_regions.Nth(regionId);
 784   if (!node)
 785     return;
 786   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 787   region->SetName(name);
 788 }
 789
 790 wxString wxShape::GetRegionName(int regionId)
 791 {
 792   wxNode *node = m_regions.Nth(regionId);
 793   if (!node)
 794     return wxString("");
 795   wxShapeRegion *region = (wxShapeRegion *)node->Data();
 796   return region->GetName();
 797 }
 798
 799 int wxShape::GetRegionId(const wxString& name)
 800 {
 801   wxNode *node = m_regions.First();
 802   int i = 0;
 803   while (node)
 804   {
 805     wxShapeRegion *region = (wxShapeRegion *)node->Data();
 806     if (region->GetName() == name)
 807       return i;
 808     node = node->Next();
 809     i ++;
 810   }
 811   return -1;
 812 }
 813
 814 // Name all m_regions in all subimages recursively.
 815 void wxShape::NameRegions(const wxString& parentName)
 816 {
 817   int n = GetNumberOfTextRegions();
 818   char buf[100];
 819   for (int i = 0; i < n; i++)
 820   {
 821     if (parentName.Length() > 0)
 822       sprintf(buf, "%s.%d", (const char*) parentName, i);
 823     else
 824       sprintf(buf, "%d", i);
 825     SetRegionName(buf, i);
 826   }
 827   wxNode *node = m_children.First();
 828   int j = 0;
 829   while (node)
 830   {
 831     wxShape *child = (wxShape *)node->Data();
 832     if (parentName.Length() > 0)
 833       sprintf(buf, "%s.%d", (const char*) parentName, j);
 834     else
 835       sprintf(buf, "%d", j);
 836     child->NameRegions(buf);
 837     node = node->Next();
 838     j ++;
 839   }
 840 }
 841
 842 // Get a region by name, possibly looking recursively into composites.
 843 wxShape *wxShape::FindRegion(const wxString& name, int *regionId)
 844 {
 845   int id = GetRegionId(name);
 846   if (id > -1)
 847   {
 848     *regionId = id;
 849     return this;
 850   }
 851
 852   wxNode *node = m_children.First();
 853   while (node)
 854   {
 855     wxShape *child = (wxShape *)node->Data();
 856     wxShape *actualImage = child->FindRegion(name, regionId);
 857     if (actualImage)
 858       return actualImage;
 859     node = node->Next();
 860   }
 861   return NULL;
 862 }
 863
 864 // Finds all region names for this image (composite or simple).
 865 // Supply empty string list.
 866 void wxShape::FindRegionNames(wxStringList& list)
 867 {
 868   int n = GetNumberOfTextRegions();
 869   for (int i = 0; i < n; i++)
 870   {
 871     wxString name(GetRegionName(i));
 872     list.Add((const char*) name);
 873   }
 874
 875   wxNode *node = m_children.First();
 876   while (node)
 877   {
 878     wxShape *child = (wxShape *)node->Data();
 879     child->FindRegionNames(list);
 880     node = node->Next();
 881   }
 882 }
 883
 884 void wxShape::AssignNewIds()
 885 {
 886 //  if (m_id == 0)
 887   m_id = wxNewId();
 888   wxNode *node = m_children.First();
 889   while (node)
 890   {
 891     wxShape *child = (wxShape *)node->Data();
 892     child->AssignNewIds();
 893     node = node->Next();
 894   }
 895 }
 896
 897 void wxShape::OnDraw(wxDC& dc)
 898 {
 899 }
 900
 901 void wxShape::OnMoveLinks(wxDC& dc)
 902 {
 903   // Want to set the ends of all attached links
 904   // to point to/from this object
 905
 906   wxNode *current = m_lines.First();
 907   while (current)
 908   {
 909     wxLineShape *line = (wxLineShape *)current->Data();
 910     line->GetEventHandler()->OnMoveLink(dc);
 911     current = current->Next();
 912   }
 913 }
 914
 915
 916 void wxShape::OnDrawContents(wxDC& dc)
 917 {
 918   double bound_x, bound_y;
 919   GetBoundingBoxMin(&bound_x, &bound_y);
 920     if (m_regions.Number() < 1) return;
 921
 922     if (m_pen) dc.SetPen(* m_pen);
 923
 924     wxShapeRegion *region = (wxShapeRegion *)m_regions.First()->Data();
 925     if (region->GetFont()) dc.SetFont(* region->GetFont());
 926
 927     dc.SetTextForeground(* (region->GetActualColourObject()));
 928     dc.SetBackgroundMode(wxTRANSPARENT);
 929     if (!m_formatted)
 930     {
 931       oglCentreText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, bound_x, bound_y, region->GetFormatMode());
 932       m_formatted = TRUE;
 933     }
 934     if (!GetDisableLabel())
 935     {
 936       oglDrawFormattedText(dc, &(region->GetFormattedText()), m_xpos, m_ypos, bound_x, bound_y, region->GetFormatMode());
 937     }
 938 }
 939
 940 void wxShape::DrawContents(wxDC& dc)
 941 {
 942   GetEventHandler()->OnDrawContents(dc);
 943 }
 944
 945 void wxShape::OnSize(double x, double y)
 946 {
 947 }
 948
 949 bool wxShape::OnMovePre(wxDC& dc, double x, double y, double old_x, double old_y, bool display)
 950 {
 951   return TRUE;
 952 }
 953
 954 void wxShape::OnMovePost(wxDC& dc, double x, double y, double old_x, double old_y, bool display)
 955 {
 956 }
 957
 958 void wxShape::OnErase(wxDC& dc)
 959 {
 960   if (!m_visible)
 961     return;
 962
 963   // Erase links
 964   wxNode *current = m_lines.First();
 965   while (current)
 966   {
 967     wxLineShape *line = (wxLineShape *)current->Data();
 968     line->GetEventHandler()->OnErase(dc);
 969     current = current->Next();
 970   }
 971   GetEventHandler()->OnEraseContents(dc);
 972 }
 973
 974 void wxShape::OnEraseContents(wxDC& dc)
 975 {
 976   if (!m_visible)
 977     return;
 978
 979   double maxX, maxY, minX, minY;
 980   double xp = GetX();
 981   double yp = GetY();
 982   GetBoundingBoxMin(&minX, &minY);
 983   GetBoundingBoxMax(&maxX, &maxY);
 984   double topLeftX = (double)(xp - (maxX / 2.0) - 2.0);
 985   double topLeftY = (double)(yp - (maxY / 2.0) - 2.0);
 986
 987     int penWidth = 0;
 988     if (m_pen)
 989       penWidth = m_pen->GetWidth();
 990
 991     dc.SetPen(* g_oglWhiteBackgroundPen);
 992     dc.SetBrush(* g_oglWhiteBackgroundBrush);
 993     dc.DrawRectangle(WXROUND(topLeftX - penWidth), WXROUND(topLeftY - penWidth),
 994                       WXROUND(maxX + penWidth*2.0 + 4.0), WXROUND(maxY + penWidth*2.0 + 4.0));
 995 }
 996
 997 void wxShape::EraseLinks(wxDC& dc, int attachment, bool recurse)
 998 {
 999   if (!m_visible)
1000     return;
1001
1002   wxNode *current = m_lines.First();
1003   while (current)
1004   {
1005     wxLineShape *line = (wxLineShape *)current->Data();
1006     if (attachment == -1 || ((line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
1007                              (line->GetFrom() == this && line->GetAttachmentFrom() == attachment)))
1008       line->GetEventHandler()->OnErase(dc);
1009     current = current->Next();
1010   }
1011   if (recurse)
1012   {
1013     wxNode *node = m_children.First();
1014     while (node)
1015     {
1016       wxShape *child = (wxShape *)node->Data();
1017       child->EraseLinks(dc, attachment, recurse);
1018       node = node->Next();
1019     }
1020   }
1021 }
1022
1023 void wxShape::DrawLinks(wxDC& dc, int attachment, bool recurse)
1024 {
1025   if (!m_visible)
1026     return;
1027
1028   wxNode *current = m_lines.First();
1029   while (current)
1030   {
1031     wxLineShape *line = (wxLineShape *)current->Data();
1032     if (attachment == -1 ||
1033         (line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
1034         (line->GetFrom() == this && line->GetAttachmentFrom() == attachment))
1035       line->Draw(dc);
1036     current = current->Next();
1037   }
1038   if (recurse)
1039   {
1040     wxNode *node = m_children.First();
1041     while (node)
1042     {
1043       wxShape *child = (wxShape *)node->Data();
1044       child->DrawLinks(dc, attachment, recurse);
1045       node = node->Next();
1046     }
1047   }
1048 }
1049
1050 // Returns TRUE if pt1 <= pt2 in the sense that one point comes before another on an
1051 // edge of the shape.
1052 // attachmentPoint is the attachment point (= side) in question.
1053
1054 // This is the default, rectangular implementation.
1055 bool wxShape::AttachmentSortTest(int attachmentPoint, const wxRealPoint& pt1, const wxRealPoint& pt2)
1056 {
1057     int physicalAttachment = LogicalToPhysicalAttachment(attachmentPoint);
1058     switch (physicalAttachment)
1059     {
1060         case 0:
1061         case 2:
1062         {
1063           return (pt1.x <= pt2.x) ;
1064           break;
1065         }
1066         case 1:
1067         case 3:
1068         {
1069           return (pt1.y <= pt2.y) ;
1070           break;
1071         }
1072     }
1073
1074     return FALSE;
1075 }
1076
1077 bool wxShape::MoveLineToNewAttachment(wxDC& dc, wxLineShape *to_move,
1078                                        double x, double y)
1079 {
1080   if (GetAttachmentMode() == ATTACHMENT_MODE_NONE)
1081       return FALSE;
1082
1083   int newAttachment, oldAttachment;
1084   double distance;
1085
1086   // Is (x, y) on this object? If so, find the new attachment point
1087   // the user has moved the point to
1088   bool hit = HitTest(x, y, &newAttachment, &distance);
1089   if (!hit)
1090     return FALSE;
1091
1092   EraseLinks(dc);
1093
1094   if (to_move->GetTo() == this)
1095     oldAttachment = to_move->GetAttachmentTo();
1096   else
1097     oldAttachment = to_move->GetAttachmentFrom();
1098
1099   // The links in a new ordering.
1100   wxList newOrdering;
1101
1102   // First, add all links to the new list.
1103   wxNode *node = m_lines.First();
1104   while (node)
1105   {
1106     newOrdering.Append(node->Data());
1107     node = node->Next();
1108   }
1109
1110   // Delete the line object from the list of links; we're going to move
1111   // it to another position in the list
1112   newOrdering.DeleteObject(to_move);
1113
1114   double old_x = (double) -99999.9;
1115   double old_y = (double) -99999.9;
1116
1117   node = newOrdering.First();
1118   bool found = FALSE;
1119
1120   while (!found && node)
1121   {
1122     wxLineShape *line = (wxLineShape *)node->Data();
1123     if ((line->GetTo() == this && oldAttachment == line->GetAttachmentTo()) ||
1124         (line->GetFrom() == this && oldAttachment == line->GetAttachmentFrom()))
1125     {
1126       double startX, startY, endX, endY;
1127       double xp, yp;
1128       line->GetEnds(&startX, &startY, &endX, &endY);
1129       if (line->GetTo() == this)
1130       {
1131         xp = endX;
1132         yp = endY;
1133       } else
1134       {
1135         xp = startX;
1136         yp = startY;
1137       }
1138
1139       wxRealPoint thisPoint(xp, yp);
1140       wxRealPoint lastPoint(old_x, old_y);
1141       wxRealPoint newPoint(x, y);
1142
1143       if (AttachmentSortTest(newAttachment, newPoint, thisPoint) && AttachmentSortTest(newAttachment, lastPoint, newPoint))
1144       {
1145         found = TRUE;
1146         newOrdering.Insert(node, to_move);
1147       }
1148
1149       old_x = xp;
1150       old_y = yp;
1151     }
1152     node = node->Next();
1153   }
1154
1155   if (!found)
1156     newOrdering.Append(to_move);
1157
1158   GetEventHandler()->OnChangeAttachment(newAttachment, to_move, newOrdering);
1159
1160   return TRUE;
1161 }
1162
1163 void wxShape::OnChangeAttachment(int attachment, wxLineShape* line, wxList& ordering)
1164 {
1165     if (line->GetTo() == this)
1166         line->SetAttachmentTo(attachment);
1167     else
1168         line->SetAttachmentFrom(attachment);
1169
1170     ApplyAttachmentOrdering(ordering);
1171
1172     wxClientDC dc(GetCanvas());
1173     GetCanvas()->PrepareDC(dc);
1174
1175     MoveLinks(dc);
1176
1177     if (!GetCanvas()->GetQuickEditMode()) GetCanvas()->Redraw(dc);
1178 }
1179
1180 // Reorders the lines according to the given list.
1181 void wxShape::ApplyAttachmentOrdering(wxList& linesToSort)
1182 {
1183   // This is a temporary store of all the lines.
1184   wxList linesStore;
1185
1186   wxNode *node = m_lines.First();
1187   while (node)
1188   {
1189     wxLineShape *line = (wxLineShape *)node->Data();
1190     linesStore.Append(line);
1191     node = node->Next();;
1192   }
1193
1194   m_lines.Clear();
1195
1196   node = linesToSort.First();
1197   while (node)
1198   {
1199     wxLineShape *line = (wxLineShape *)node->Data();
1200     if (linesStore.Member(line))
1201     {
1202       // Done this one
1203       linesStore.DeleteObject(line);
1204       m_lines.Append(line);
1205     }
1206     node = node->Next();
1207   }
1208
1209   // Now add any lines that haven't been listed in linesToSort.
1210   node = linesStore.First();
1211   while (node)
1212   {
1213     wxLineShape *line = (wxLineShape *)node->Data();
1214     m_lines.Append(line);
1215     node = node->Next();
1216   }
1217 }
1218
1219 // Reorders the lines coming into the node image at this attachment
1220 // position, in the order in which they appear in linesToSort.
1221 // Any remaining lines not in the list will be added to the end.
1222 void wxShape::SortLines(int attachment, wxList& linesToSort)
1223 {
1224   // This is a temporary store of all the lines at this attachment
1225   // point. We'll tick them off as we've processed them.
1226   wxList linesAtThisAttachment;
1227
1228   wxNode *node = m_lines.First();
1229   while (node)
1230   {
1231     wxLineShape *line = (wxLineShape *)node->Data();
1232     wxNode *next = node->Next();
1233     if ((line->GetTo() == this && line->GetAttachmentTo() == attachment) ||
1234         (line->GetFrom() == this && line->GetAttachmentFrom() == attachment))
1235     {
1236       linesAtThisAttachment.Append(line);
1237       delete node;
1238       node = next;
1239     }
1240     else node = node->Next();
1241   }
1242
1243   node = linesToSort.First();
1244   while (node)
1245   {
1246     wxLineShape *line = (wxLineShape *)node->Data();
1247     if (linesAtThisAttachment.Member(line))
1248     {
1249       // Done this one
1250       linesAtThisAttachment.DeleteObject(line);
1251       m_lines.Append(line);
1252     }
1253     node = node->Next();
1254   }
1255
1256   // Now add any lines that haven't been listed in linesToSort.
1257   node = linesAtThisAttachment.First();
1258   while (node)
1259   {
1260     wxLineShape *line = (wxLineShape *)node->Data();
1261     m_lines.Append(line);
1262     node = node->Next();
1263   }
1264 }
1265
1266 void wxShape::OnHighlight(wxDC& dc)
1267 {
1268 }
1269
1270 void wxShape::OnLeftClick(double x, double y, int keys, int attachment)
1271 {
1272   if ((m_sensitivity & OP_CLICK_LEFT) != OP_CLICK_LEFT)
1273   {
1274     attachment = 0;
1275     double dist;
1276     if (m_parent)
1277     {
1278       m_parent->HitTest(x, y, &attachment, &dist);
1279       m_parent->GetEventHandler()->OnLeftClick(x, y, keys, attachment);
1280     }
1281     return;
1282   }
1283 }
1284
1285 void wxShape::OnRightClick(double x, double y, int keys, int attachment)
1286 {
1287   if ((m_sensitivity & OP_CLICK_RIGHT) != OP_CLICK_RIGHT)
1288   {
1289     attachment = 0;
1290     double dist;
1291     if (m_parent)
1292     {
1293       m_parent->HitTest(x, y, &attachment, &dist);
1294       m_parent->GetEventHandler()->OnRightClick(x, y, keys, attachment);
1295     }
1296     return;
1297   }
1298 }
1299
1300 double DragOffsetX = 0.0;
1301 double DragOffsetY = 0.0;
1302
1303 void wxShape::OnDragLeft(bool draw, double x, double y, int keys, int attachment)
1304 {
1305   if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
1306   {
1307     attachment = 0;
1308     double dist;
1309     if (m_parent)
1310     {
1311       m_parent->HitTest(x, y, &attachment, &dist);
1312       m_parent->GetEventHandler()->OnDragLeft(draw, x, y, keys, attachment);
1313     }
1314     return;
1315   }
1316
1317   wxClientDC dc(GetCanvas());
1318   GetCanvas()->PrepareDC(dc);
1319
1320   dc.SetLogicalFunction(OGLRBLF);
1321
1322   wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
1323   dc.SetPen(dottedPen);
1324   dc.SetBrush(* wxTRANSPARENT_BRUSH);
1325
1326   double xx, yy;
1327   xx = x + DragOffsetX;
1328   yy = y + DragOffsetY;
1329
1330   m_canvas->Snap(&xx, &yy);
1331 //  m_xpos = xx; m_ypos = yy;
1332   double w, h;
1333   GetBoundingBoxMax(&w, &h);
1334   GetEventHandler()->OnDrawOutline(dc, xx, yy, w, h);
1335 }
1336
1337 void wxShape::OnBeginDragLeft(double x, double y, int keys, int attachment)
1338 {
1339   if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
1340   {
1341     attachment = 0;
1342     double dist;
1343     if (m_parent)
1344     {
1345       m_parent->HitTest(x, y, &attachment, &dist);
1346       m_parent->GetEventHandler()->OnBeginDragLeft(x, y, keys, attachment);
1347     }
1348     return;
1349   }
1350
1351   DragOffsetX = m_xpos - x;
1352   DragOffsetY = m_ypos - y;
1353
1354   wxClientDC dc(GetCanvas());
1355   GetCanvas()->PrepareDC(dc);
1356
1357   // New policy: don't erase shape until end of drag.
1358 //  Erase(dc);
1359
1360   double xx, yy;
1361   xx = x + DragOffsetX;
1362   yy = y + DragOffsetY;
1363   m_canvas->Snap(&xx, &yy);
1364 //  m_xpos = xx; m_ypos = yy;
1365   dc.SetLogicalFunction(OGLRBLF);
1366
1367   wxPen dottedPen(wxColour(0, 0, 0), 1, wxDOT);
1368   dc.SetPen(dottedPen);
1369   dc.SetBrush((* wxTRANSPARENT_BRUSH));
1370
1371   double w, h;
1372   GetBoundingBoxMax(&w, &h);
1373   GetEventHandler()->OnDrawOutline(dc, xx, yy, w, h);
1374   m_canvas->CaptureMouse();
1375 }
1376
1377 void wxShape::OnEndDragLeft(double x, double y, int keys, int attachment)
1378 {
1379   m_canvas->ReleaseMouse();
1380   if ((m_sensitivity & OP_DRAG_LEFT) != OP_DRAG_LEFT)
1381   {
1382     attachment = 0;
1383     double dist;
1384     if (m_parent)
1385     {
1386       m_parent->HitTest(x, y, &attachment, &dist);
1387       m_parent->GetEventHandler()->OnEndDragLeft(x, y, keys, attachment);
1388     }
1389     return;
1390   }
1391
1392   wxClientDC dc(GetCanvas());
1393   GetCanvas()->PrepareDC(dc);
1394
1395   dc.SetLogicalFunction(wxCOPY);
1396
1397   double xx = x + DragOffsetX;
1398   double yy = y + DragOffsetY;
1399   m_canvas->Snap(&xx, &yy);
1400 //  canvas->Snap(&m_xpos, &m_ypos);
1401
1402   // New policy: erase shape at end of drag.
1403   Erase(dc);
1404
1405   Move(dc, xx, yy);
1406   if (m_canvas && !m_canvas->GetQuickEditMode()) m_canvas->Redraw(dc);
1407 }
1408
1409 void wxShape::OnDragRight(bool draw, double x, double y, int keys, int attachment)
1410 {
1411   if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
1412   {
1413     attachment = 0;
1414     double dist;
1415     if (m_parent)
1416     {
1417       m_parent->HitTest(x, y, &attachment, &dist);
1418       m_parent->GetEventHandler()->OnDragRight(draw, x, y, keys, attachment);
1419     }
1420     return;
1421   }
1422 }
1423
1424 void wxShape::OnBeginDragRight(double x, double y, int keys, int attachment)
1425 {
1426   if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
1427   {
1428     attachment = 0;
1429     double dist;
1430     if (m_parent)
1431     {
1432       m_parent->HitTest(x, y, &attachment, &dist);
1433       m_parent->GetEventHandler()->OnBeginDragRight(x, y, keys, attachment);
1434     }
1435     return;
1436   }
1437 }
1438
1439 void wxShape::OnEndDragRight(double x, double y, int keys, int attachment)
1440 {
1441   if ((m_sensitivity & OP_DRAG_RIGHT) != OP_DRAG_RIGHT)
1442   {
1443     attachment = 0;
1444     double dist;
1445     if (m_parent)
1446     {
1447       m_parent->HitTest(x, y, &attachment, &dist);
1448       m_parent->GetEventHandler()->OnEndDragRight(x, y, keys, attachment);
1449     }
1450     return;
1451   }
1452 }
1453
1454 void wxShape::OnDrawOutline(wxDC& dc, double x, double y, double w, double h)
1455 {
1456   double top_left_x = (double)(x - w/2.0);
1457   double top_left_y = (double)(y - h/2.0);
1458   double top_right_x = (double)(top_left_x + w);
1459   double top_right_y = (double)top_left_y;
1460   double bottom_left_x = (double)top_left_x;
1461   double bottom_left_y = (double)(top_left_y + h);
1462   double bottom_right_x = (double)top_right_x;
1463   double bottom_right_y = (double)bottom_left_y;
1464
1465   wxPoint points[5];
1466   points[0].x = WXROUND(top_left_x); points[0].y = WXROUND(top_left_y);
1467   points[1].x = WXROUND(top_right_x); points[1].y = WXROUND(top_right_y);
1468   points[2].x = WXROUND(bottom_right_x); points[2].y = WXROUND(bottom_right_y);
1469   points[3].x = WXROUND(bottom_left_x); points[3].y = WXROUND(bottom_left_y);
1470   points[4].x = WXROUND(top_left_x); points[4].y = WXROUND(top_left_y);
1471
1472   dc.DrawLines(5, points);
1473 }
1474
1475 void wxShape::Attach(wxShapeCanvas *can)
1476 {
1477   m_canvas = can;
1478 }
1479
1480 void wxShape::Detach()
1481 {
1482   m_canvas = NULL;
1483 }
1484
1485 void wxShape::Move(wxDC& dc, double x, double y, bool display)
1486 {
1487   double old_x = m_xpos;
1488   double old_y = m_ypos;
1489
1490   if (!GetEventHandler()->OnMovePre(dc, x, y, old_x, old_y, display))
1491   {
1492 //    m_xpos = old_x;
1493 //    m_ypos = old_y;
1494     return;
1495   }
1496
1497   m_xpos = x; m_ypos = y;
1498
1499   ResetControlPoints();
1500
1501   if (display)
1502     Draw(dc);
1503
1504   MoveLinks(dc);
1505
1506   GetEventHandler()->OnMovePost(dc, x, y, old_x, old_y, display);
1507 }
1508
1509 void wxShape::MoveLinks(wxDC& dc)
1510 {
1511   GetEventHandler()->OnMoveLinks(dc);
1512 }
1513
1514
1515 void wxShape::Draw(wxDC& dc)
1516 {
1517   if (m_visible)
1518   {
1519     GetEventHandler()->OnDraw(dc);
1520     GetEventHandler()->OnDrawContents(dc);
1521     GetEventHandler()->OnDrawControlPoints(dc);
1522     GetEventHandler()->OnDrawBranches(dc);
1523   }
1524 }
1525
1526 void wxShape::Flash()
1527 {
1528     if (GetCanvas())
1529     {
1530         wxClientDC dc(GetCanvas());
1531         GetCanvas()->PrepareDC(dc);
1532
1533         dc.SetLogicalFunction(OGLRBLF);
1534         Draw(dc);
1535         dc.SetLogicalFunction(wxCOPY);
1536         Draw(dc);
1537     }
1538 }
1539
1540 void wxShape::Show(bool show)
1541 {
1542   m_visible = show;
1543   wxNode *node = m_children.First();
1544   while (node)
1545   {
1546     wxShape *image = (wxShape *)node->Data();
1547     image->Show(show);
1548     node = node->Next();
1549   }
1550 }
1551
1552 void wxShape::Erase(wxDC& dc)
1553 {
1554   GetEventHandler()->OnErase(dc);
1555   GetEventHandler()->OnEraseControlPoints(dc);
1556   GetEventHandler()->OnDrawBranches(dc, TRUE);
1557 }
1558
1559 void wxShape::EraseContents(wxDC& dc)
1560 {
1561   GetEventHandler()->OnEraseContents(dc);
1562 }
1563
1564 void wxShape::AddText(const wxString& string)
1565 {
1566   wxNode *node = m_regions.First();
1567   if (!node)
1568     return;
1569   wxShapeRegion *region = (wxShapeRegion *)node->Data();
1570   region->ClearText();
1571   wxShapeTextLine *new_line =
1572       new wxShapeTextLine(0.0, 0.0, string);
1573   region->GetFormattedText().Append(new_line);
1574
1575   m_formatted = FALSE;
1576 }
1577
1578 void wxShape::SetSize(double x, double y, bool recursive)
1579 {
1580   SetAttachmentSize(x, y);
1581   SetDefaultRegionSize();
1582 }
1583
1584 void wxShape::SetAttachmentSize(double w, double h)
1585 {
1586   double scaleX;
1587   double scaleY;
1588   double width, height;
1589   GetBoundingBoxMin(&width, &height);
1590   if (width == 0.0)
1591     scaleX = 1.0;
1592   else scaleX = w/width;
1593   if (height == 0.0)
1594     scaleY = 1.0;
1595   else scaleY = h/height;
1596
1597   wxNode *node = m_attachmentPoints.First();
1598   while (node)
1599   {
1600     wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
1601     point->m_x = (double)(point->m_x * scaleX);
1602     point->m_y = (double)(point->m_y * scaleY);
1603     node = node->Next();
1604   }
1605 }
1606
1607 // Add line FROM this object
1608 void wxShape::AddLine(wxLineShape *line, wxShape *other,
1609                             int attachFrom, int attachTo,
1610                             // The line ordering
1611                             int positionFrom, int positionTo)
1612 {
1613     if (positionFrom == -1)
1614     {
1615         if (!m_lines.Member(line))
1616             m_lines.Append(line);
1617     }
1618     else
1619     {
1620         // Don't preserve old ordering if we have new ordering instructions
1621         m_lines.DeleteObject(line);
1622         if (positionFrom < m_lines.Number())
1623         {
1624             wxNode* node = m_lines.Nth(positionFrom);
1625             m_lines.Insert(node, line);
1626         }
1627         else
1628             m_lines.Append(line);
1629     }
1630
1631     if (positionTo == -1)
1632     {
1633         if (!other->m_lines.Member(line))
1634             other->m_lines.Append(line);
1635     }
1636     else
1637     {
1638         // Don't preserve old ordering if we have new ordering instructions
1639         other->m_lines.DeleteObject(line);
1640         if (positionTo < other->m_lines.Number())
1641         {
1642             wxNode* node = other->m_lines.Nth(positionTo);
1643             other->m_lines.Insert(node, line);
1644         }
1645         else
1646             other->m_lines.Append(line);
1647     }
1648 #if 0
1649     // Wrong: doesn't preserve ordering of shape already linked
1650     m_lines.DeleteObject(line);
1651     other->m_lines.DeleteObject(line);
1652
1653     if (positionFrom == -1)
1654         m_lines.Append(line);
1655     else
1656     {
1657         if (positionFrom < m_lines.Number())
1658         {
1659             wxNode* node = m_lines.Nth(positionFrom);
1660             m_lines.Insert(node, line);
1661         }
1662         else
1663             m_lines.Append(line);
1664     }
1665
1666     if (positionTo == -1)
1667         other->m_lines.Append(line);
1668     else
1669     {
1670         if (positionTo < other->m_lines.Number())
1671         {
1672             wxNode* node = other->m_lines.Nth(positionTo);
1673             other->m_lines.Insert(node, line);
1674         }
1675         else
1676             other->m_lines.Append(line);
1677     }
1678 #endif
1679
1680     line->SetFrom(this);
1681     line->SetTo(other);
1682     line->SetAttachments(attachFrom, attachTo);
1683 }
1684
1685 void wxShape::RemoveLine(wxLineShape *line)
1686 {
1687   if (line->GetFrom() == this)
1688     line->GetTo()->m_lines.DeleteObject(line);
1689   else
1690    line->GetFrom()->m_lines.DeleteObject(line);
1691
1692   m_lines.DeleteObject(line);
1693 }
1694
1695 #ifdef PROLOGIO
1696 void wxShape::WriteAttributes(wxExpr *clause)
1697 {
1698   clause->AddAttributeValueString("type", GetClassInfo()->GetClassName());
1699   clause->AddAttributeValue("id", m_id);
1700
1701   if (m_pen)
1702   {
1703     int penWidth = m_pen->GetWidth();
1704     int penStyle = m_pen->GetStyle();
1705     if (penWidth != 1)
1706       clause->AddAttributeValue("pen_width", (long)penWidth);
1707     if (penStyle != wxSOLID)
1708       clause->AddAttributeValue("pen_style", (long)penStyle);
1709
1710     wxString penColour = wxTheColourDatabase->FindName(m_pen->GetColour());
1711     if (penColour == "")
1712     {
1713       wxString hex(oglColourToHex(m_pen->GetColour()));
1714       hex = wxString("#") + hex;
1715       clause->AddAttributeValueString("pen_colour", hex);
1716     }
1717     else if (penColour != "BLACK")
1718       clause->AddAttributeValueString("pen_colour", penColour);
1719   }
1720
1721   if (m_brush)
1722   {
1723     wxString brushColour = wxTheColourDatabase->FindName(m_brush->GetColour());
1724
1725     if (brushColour == "")
1726     {
1727       wxString hex(oglColourToHex(m_brush->GetColour()));
1728       hex = wxString("#") + hex;
1729       clause->AddAttributeValueString("brush_colour", hex);
1730     }
1731     else if (brushColour != "WHITE")
1732       clause->AddAttributeValueString("brush_colour", brushColour);
1733
1734     if (m_brush->GetStyle() != wxSOLID)
1735       clause->AddAttributeValue("brush_style", (long)m_brush->GetStyle());
1736   }
1737
1738   // Output line ids
1739
1740   int n_lines = m_lines.Number();
1741   if (n_lines > 0)
1742   {
1743     wxExpr *list = new wxExpr(wxExprList);
1744     wxNode *node = m_lines.First();
1745     while (node)
1746     {
1747       wxShape *line = (wxShape *)node->Data();
1748       wxExpr *id_expr = new wxExpr(line->GetId());
1749       list->Append(id_expr);
1750       node = node->Next();
1751     }
1752     clause->AddAttributeValue("arcs", list);
1753   }
1754
1755   // Miscellaneous members
1756   if (m_attachmentMode != 0)
1757     clause->AddAttributeValue("use_attachments", (long)m_attachmentMode);
1758   if (m_sensitivity != OP_ALL)
1759     clause->AddAttributeValue("sensitivity", (long)m_sensitivity);
1760   if (!m_spaceAttachments)
1761     clause->AddAttributeValue("space_attachments", (long)m_spaceAttachments);
1762   if (m_fixedWidth)
1763     clause->AddAttributeValue("fixed_width", (long)m_fixedWidth);
1764   if (m_fixedHeight)
1765     clause->AddAttributeValue("fixed_height", (long)m_fixedHeight);
1766   if (m_shadowMode != SHADOW_NONE)
1767     clause->AddAttributeValue("shadow_mode", (long)m_shadowMode);
1768   if (m_centreResize != TRUE)
1769     clause->AddAttributeValue("centre_resize", (long)0);
1770   clause->AddAttributeValue("maintain_aspect_ratio", (long) m_maintainAspectRatio);
1771   if (m_highlighted != FALSE)
1772     clause->AddAttributeValue("hilite", (long)m_highlighted);
1773
1774   if (m_parent) // For composite objects
1775     clause->AddAttributeValue("parent", (long)m_parent->GetId());
1776
1777   if (m_rotation != 0.0)
1778     clause->AddAttributeValue("rotation", m_rotation);
1779
1780   if (!this->IsKindOf(CLASSINFO(wxLineShape)))
1781   {
1782     clause->AddAttributeValue("neck_length", (long) m_branchNeckLength);
1783     clause->AddAttributeValue("stem_length", (long) m_branchStemLength);
1784     clause->AddAttributeValue("branch_spacing", (long) m_branchSpacing);
1785     clause->AddAttributeValue("branch_style", (long) m_branchStyle);
1786   }
1787
1788   // Write user-defined attachment points, if any
1789   if (m_attachmentPoints.Number() > 0)
1790   {
1791     wxExpr *attachmentList = new wxExpr(wxExprList);
1792     wxNode *node = m_attachmentPoints.First();
1793     while (node)
1794     {
1795       wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
1796       wxExpr *pointExpr = new wxExpr(wxExprList);
1797       pointExpr->Append(new wxExpr((long)point->m_id));
1798       pointExpr->Append(new wxExpr(point->m_x));
1799       pointExpr->Append(new wxExpr(point->m_y));
1800       attachmentList->Append(pointExpr);
1801       node = node->Next();
1802     }
1803     clause->AddAttributeValue("user_attachments", attachmentList);
1804   }
1805
1806   // Write text regions
1807   WriteRegions(clause);
1808 }
1809
1810 void wxShape::WriteRegions(wxExpr *clause)
1811 {
1812   // Output regions as region1 = (...), region2 = (...), etc
1813   // and formatted text as text1 = (...), text2 = (...) etc.
1814   int regionNo = 1;
1815   char regionNameBuf[20];
1816   char textNameBuf[20];
1817   wxNode *node = m_regions.First();
1818   while (node)
1819   {
1820     wxShapeRegion *region = (wxShapeRegion *)node->Data();
1821     sprintf(regionNameBuf, "region%d", regionNo);
1822     sprintf(textNameBuf, "text%d", regionNo);
1823
1824     // Original text and region attributes:
1825     // region1 = (regionName regionText x y width height minWidth minHeight proportionX proportionY
1826     //            formatMode fontSize fontFamily fontStyle fontWeight textColour)
1827     wxExpr *regionExpr = new wxExpr(wxExprList);
1828     regionExpr->Append(new wxExpr(wxExprString, region->m_regionName));
1829     regionExpr->Append(new wxExpr(wxExprString, region->m_regionText));
1830
1831     regionExpr->Append(new wxExpr(region->m_x));
1832     regionExpr->Append(new wxExpr(region->m_y));
1833     regionExpr->Append(new wxExpr(region->GetWidth()));
1834     regionExpr->Append(new wxExpr(region->GetHeight()));
1835
1836     regionExpr->Append(new wxExpr(region->m_minWidth));
1837     regionExpr->Append(new wxExpr(region->m_minHeight));
1838     regionExpr->Append(new wxExpr(region->m_regionProportionX));
1839     regionExpr->Append(new wxExpr(region->m_regionProportionY));
1840
1841     regionExpr->Append(new wxExpr((long)region->m_formatMode));
1842
1843     regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetPointSize() : 10)));
1844     regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetFamily() : wxDEFAULT)));
1845     regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetStyle() : wxDEFAULT)));
1846     regionExpr->Append(new wxExpr((long)(region->m_font ? region->m_font->GetWeight() : wxNORMAL)));
1847     regionExpr->Append(new wxExpr(wxExprString, region->m_textColour));
1848
1849     // New members for pen colour/style
1850     regionExpr->Append(new wxExpr(wxExprString, region->m_penColour));
1851     regionExpr->Append(new wxExpr((long)region->m_penStyle));
1852
1853     // Formatted text:
1854     // text1 = ((x y string) (x y string) ...)
1855     wxExpr *textExpr = new wxExpr(wxExprList);
1856
1857     wxNode *textNode = region->m_formattedText.First();
1858     while (textNode)
1859     {
1860       wxShapeTextLine *line = (wxShapeTextLine *)textNode->Data();
1861       wxExpr *list2 = new wxExpr(wxExprList);
1862       list2->Append(new wxExpr(line->GetX()));
1863       list2->Append(new wxExpr(line->GetY()));
1864       list2->Append(new wxExpr(wxExprString, line->GetText()));
1865       textExpr->Append(list2);
1866       textNode = textNode->Next();
1867     }
1868
1869     // Now add both attributes to the clause
1870     clause->AddAttributeValue(regionNameBuf, regionExpr);
1871     clause->AddAttributeValue(textNameBuf, textExpr);
1872
1873     node = node->Next();
1874     regionNo ++;
1875   }
1876 }
1877
1878 void wxShape::ReadAttributes(wxExpr *clause)
1879 {
1880   clause->GetAttributeValue("id", m_id);
1881   wxRegisterId(m_id);
1882
1883   clause->GetAttributeValue("x", m_xpos);
1884   clause->GetAttributeValue("y", m_ypos);
1885
1886   // Input text strings (FOR COMPATIBILITY WITH OLD FILES ONLY. SEE REGION CODE BELOW.)
1887   ClearText();
1888   wxExpr *strings = clause->AttributeValue("text");
1889   if (strings && strings->Type() == wxExprList)
1890   {
1891     m_formatted = TRUE;  // Assume text is formatted unless we prove otherwise
1892     wxExpr *node = strings->value.first;
1893     while (node)
1894     {
1895       wxExpr *string_expr = node;
1896       double the_x = 0.0;
1897       double the_y = 0.0;
1898       wxString the_string("");
1899
1900       // string_expr can either be a string, or a list of
1901       // 3 elements: x, y, and string.
1902       if (string_expr->Type() == wxExprString)
1903       {
1904         the_string = string_expr->StringValue();
1905         m_formatted = FALSE;
1906       }
1907       else if (string_expr->Type() == wxExprList)
1908       {
1909         wxExpr *first = string_expr->value.first;
1910         wxExpr *second = first ? first->next : (wxExpr*) NULL;
1911         wxExpr *third = second ? second->next : (wxExpr*) NULL;
1912
1913         if (first && second && third &&
1914             (first->Type() == wxExprReal || first->Type() == wxExprInteger) &&
1915             (second->Type() == wxExprReal || second->Type() == wxExprInteger) &&
1916             third->Type() == wxExprString)
1917           {
1918             if (first->Type() == wxExprReal)
1919               the_x = first->RealValue();
1920             else the_x = (double)first->IntegerValue();
1921
1922             if (second->Type() == wxExprReal)
1923               the_y = second->RealValue();
1924             else the_y = (double)second->IntegerValue();
1925
1926             the_string = third->StringValue();
1927           }
1928       }
1929       wxShapeTextLine *line =
1930             new wxShapeTextLine(the_x, the_y, (char*) (const char*) the_string);
1931       m_text.Append(line);
1932
1933       node = node->next;
1934     }
1935   }
1936
1937   wxString pen_string = "";
1938   wxString brush_string = "";
1939   int pen_width = 1;
1940   int pen_style = wxSOLID;
1941   int brush_style = wxSOLID;
1942   m_attachmentMode = ATTACHMENT_MODE_NONE;
1943
1944   clause->GetAttributeValue("pen_colour", pen_string);
1945   clause->GetAttributeValue("text_colour", m_textColourName);
1946
1947   SetTextColour(m_textColourName);
1948
1949   clause->GetAttributeValue("region_name", m_regionName);
1950
1951   clause->GetAttributeValue("brush_colour", brush_string);
1952   clause->GetAttributeValue("pen_width", pen_width);
1953   clause->GetAttributeValue("pen_style", pen_style);
1954   clause->GetAttributeValue("brush_style", brush_style);
1955
1956   int iVal = (int) m_attachmentMode;
1957   clause->GetAttributeValue("use_attachments", iVal);
1958   m_attachmentMode = iVal;
1959
1960   clause->GetAttributeValue("sensitivity", m_sensitivity);
1961
1962   iVal = (int) m_spaceAttachments;
1963   clause->GetAttributeValue("space_attachments", iVal);
1964   m_spaceAttachments = (iVal != 0);
1965
1966   iVal = (int) m_fixedWidth;
1967   clause->GetAttributeValue("fixed_width", iVal);
1968   m_fixedWidth = (iVal != 0);
1969
1970   iVal = (int) m_fixedHeight;
1971   clause->GetAttributeValue("fixed_height", iVal);
1972   m_fixedHeight = (iVal != 0);
1973
1974   clause->GetAttributeValue("format_mode", m_formatMode);
1975   clause->GetAttributeValue("shadow_mode", m_shadowMode);
1976
1977   iVal = m_branchNeckLength;
1978   clause->GetAttributeValue("neck_length", iVal);
1979   m_branchNeckLength = iVal;
1980
1981   iVal = m_branchStemLength;
1982   clause->GetAttributeValue("stem_length", iVal);
1983   m_branchStemLength = iVal;
1984
1985   iVal = m_branchSpacing;
1986   clause->GetAttributeValue("branch_spacing", iVal);
1987   m_branchSpacing = iVal;
1988
1989   clause->GetAttributeValue("branch_style", m_branchStyle);
1990
1991   iVal = (int) m_centreResize;
1992   clause->GetAttributeValue("centre_resize", iVal);
1993   m_centreResize = (iVal != 0);
1994
1995   iVal = (int) m_maintainAspectRatio;
1996   clause->GetAttributeValue("maintain_aspect_ratio", iVal);
1997   m_maintainAspectRatio = (iVal != 0);
1998
1999   iVal = (int) m_highlighted;
2000   clause->GetAttributeValue("hilite", iVal);
2001   m_highlighted = (iVal != 0);
2002
2003   clause->GetAttributeValue("rotation", m_rotation);
2004
2005   if (pen_string == "")
2006     pen_string = "BLACK";
2007   if (brush_string == "")
2008     brush_string = "WHITE";
2009
2010   if (pen_string.GetChar(0) == '#')
2011   {
2012     wxColour col(oglHexToColour(pen_string.After('#')));
2013     m_pen = wxThePenList->FindOrCreatePen(col, pen_width, pen_style);
2014   }
2015   else
2016     m_pen = wxThePenList->FindOrCreatePen(pen_string, pen_width, pen_style);
2017
2018   if (!m_pen)
2019     m_pen = wxBLACK_PEN;
2020
2021   if (brush_string.GetChar(0) == '#')
2022   {
2023     wxColour col(oglHexToColour(brush_string.After('#')));
2024     m_brush = wxTheBrushList->FindOrCreateBrush(col, brush_style);
2025   }
2026   else
2027     m_brush = wxTheBrushList->FindOrCreateBrush(brush_string, brush_style);
2028
2029   if (!m_brush)
2030     m_brush = wxWHITE_BRUSH;
2031
2032   int point_size = 10;
2033   clause->GetAttributeValue("point_size", point_size);
2034   SetFont(oglMatchFont(point_size));
2035
2036   // Read user-defined attachment points, if any
2037   wxExpr *attachmentList = clause->AttributeValue("user_attachments");
2038   if (attachmentList)
2039   {
2040     wxExpr *pointExpr = attachmentList->GetFirst();
2041     while (pointExpr)
2042     {
2043       wxExpr *idExpr = pointExpr->Nth(0);
2044       wxExpr *xExpr = pointExpr->Nth(1);
2045       wxExpr *yExpr = pointExpr->Nth(2);
2046       if (idExpr && xExpr && yExpr)
2047       {
2048         wxAttachmentPoint *point = new wxAttachmentPoint;
2049         point->m_id = (int)idExpr->IntegerValue();
2050         point->m_x = xExpr->RealValue();
2051         point->m_y = yExpr->RealValue();
2052         m_attachmentPoints.Append((wxObject *)point);
2053       }
2054       pointExpr = pointExpr->GetNext();
2055     }
2056   }
2057
2058   // Read text regions
2059   ReadRegions(clause);
2060 }
2061
2062 void wxShape::ReadRegions(wxExpr *clause)
2063 {
2064   ClearRegions();
2065
2066   // region1 = (regionName regionText x y width height minWidth minHeight proportionX proportionY
2067   //            formatMode fontSize fontFamily fontStyle fontWeight textColour)
2068   int regionNo = 1;
2069   char regionNameBuf[20];
2070   char textNameBuf[20];
2071
2072   wxExpr *regionExpr = NULL;
2073   wxExpr *textExpr = NULL;
2074   sprintf(regionNameBuf, "region%d", regionNo);
2075   sprintf(textNameBuf, "text%d", regionNo);
2076
2077   m_formatted = TRUE;  // Assume text is formatted unless we prove otherwise
2078
2079   while ((regionExpr = clause->AttributeValue(regionNameBuf)))
2080   {
2081     /*
2082      * Get the region information
2083      *
2084      */
2085
2086     wxString regionName("");
2087     wxString regionText("");
2088     double x = 0.0;
2089     double y = 0.0;
2090     double width = 0.0;
2091     double height = 0.0;
2092     double minWidth = 5.0;
2093     double minHeight = 5.0;
2094     double m_regionProportionX = -1.0;
2095     double m_regionProportionY = -1.0;
2096     int formatMode = FORMAT_NONE;
2097     int fontSize = 10;
2098     int fontFamily = wxSWISS;
2099     int fontStyle = wxNORMAL;
2100     int fontWeight = wxNORMAL;
2101     wxString regionTextColour("");
2102     wxString penColour("");
2103     int penStyle = wxSOLID;
2104
2105     if (regionExpr->Type() == wxExprList)
2106     {
2107       wxExpr *nameExpr = regionExpr->Nth(0);
2108       wxExpr *textExpr = regionExpr->Nth(1);
2109       wxExpr *xExpr = regionExpr->Nth(2);
2110       wxExpr *yExpr = regionExpr->Nth(3);
2111       wxExpr *widthExpr = regionExpr->Nth(4);
2112       wxExpr *heightExpr = regionExpr->Nth(5);
2113       wxExpr *minWidthExpr = regionExpr->Nth(6);
2114       wxExpr *minHeightExpr = regionExpr->Nth(7);
2115       wxExpr *propXExpr = regionExpr->Nth(8);
2116       wxExpr *propYExpr = regionExpr->Nth(9);
2117       wxExpr *formatExpr = regionExpr->Nth(10);
2118       wxExpr *sizeExpr = regionExpr->Nth(11);
2119       wxExpr *familyExpr = regionExpr->Nth(12);
2120       wxExpr *styleExpr = regionExpr->Nth(13);
2121       wxExpr *weightExpr = regionExpr->Nth(14);
2122       wxExpr *colourExpr = regionExpr->Nth(15);
2123       wxExpr *penColourExpr = regionExpr->Nth(16);
2124       wxExpr *penStyleExpr = regionExpr->Nth(17);
2125
2126       regionName = nameExpr->StringValue();
2127       regionText = textExpr->StringValue();
2128
2129       x = xExpr->RealValue();
2130       y = yExpr->RealValue();
2131
2132       width = widthExpr->RealValue();
2133       height = heightExpr->RealValue();
2134
2135       minWidth = minWidthExpr->RealValue();
2136       minHeight = minHeightExpr->RealValue();
2137
2138       m_regionProportionX = propXExpr->RealValue();
2139       m_regionProportionY = propYExpr->RealValue();
2140
2141       formatMode = (int) formatExpr->IntegerValue();
2142       fontSize = (int)sizeExpr->IntegerValue();
2143       fontFamily = (int)familyExpr->IntegerValue();
2144       fontStyle = (int)styleExpr->IntegerValue();
2145       fontWeight = (int)weightExpr->IntegerValue();
2146
2147       if (colourExpr)
2148       {
2149         regionTextColour = colourExpr->StringValue();
2150       }
2151       else
2152         regionTextColour = "BLACK";
2153
2154       if (penColourExpr)
2155         penColour = penColourExpr->StringValue();
2156       if (penStyleExpr)
2157         penStyle = (int)penStyleExpr->IntegerValue();
2158     }
2159     wxFont *font = wxTheFontList->FindOrCreateFont(fontSize, fontFamily, fontStyle, fontWeight);
2160
2161     wxShapeRegion *region = new wxShapeRegion;
2162     region->SetProportions(m_regionProportionX, m_regionProportionY);
2163     region->SetFont(font);
2164     region->SetSize(width, height);
2165     region->SetPosition(x, y);
2166     region->SetMinSize(minWidth, minHeight);
2167     region->SetFormatMode(formatMode);
2168     region->SetPenStyle(penStyle);
2169     if (penColour != "")
2170       region->SetPenColour(penColour);
2171
2172     region->m_textColour = regionTextColour;
2173     region->m_regionText = regionText;
2174     region->m_regionName = regionName;
2175
2176     m_regions.Append(region);
2177
2178     /*
2179      * Get the formatted text strings
2180      *
2181      */
2182     textExpr = clause->AttributeValue(textNameBuf);
2183     if (textExpr && (textExpr->Type() == wxExprList))
2184     {
2185       wxExpr *node = textExpr->value.first;
2186       while (node)
2187       {
2188         wxExpr *string_expr = node;
2189         double the_x = 0.0;
2190         double the_y = 0.0;
2191         wxString the_string("");
2192
2193         // string_expr can either be a string, or a list of
2194         // 3 elements: x, y, and string.
2195         if (string_expr->Type() == wxExprString)
2196         {
2197           the_string = string_expr->StringValue();
2198           m_formatted = FALSE;
2199         }
2200         else if (string_expr->Type() == wxExprList)
2201         {
2202           wxExpr *first = string_expr->value.first;
2203           wxExpr *second = first ? first->next : (wxExpr*) NULL;
2204           wxExpr *third = second ? second->next : (wxExpr*) NULL;
2205
2206           if (first && second && third &&
2207               (first->Type() == wxExprReal || first->Type() == wxExprInteger) &&
2208               (second->Type() == wxExprReal || second->Type() == wxExprInteger) &&
2209               third->Type() == wxExprString)
2210           {
2211             if (first->Type() == wxExprReal)
2212               the_x = first->RealValue();
2213             else the_x = (double)first->IntegerValue();
2214
2215             if (second->Type() == wxExprReal)
2216               the_y = second->RealValue();
2217             else the_y = (double)second->IntegerValue();
2218
2219             the_string = third->StringValue();
2220           }
2221         }
2222         if (the_string)
2223         {
2224           wxShapeTextLine *line =
2225               new wxShapeTextLine(the_x, the_y, (char*) (const char*) the_string);
2226           region->m_formattedText.Append(line);
2227         }
2228         node = node->next;
2229       }
2230     }
2231
2232     regionNo ++;
2233     sprintf(regionNameBuf, "region%d", regionNo);
2234     sprintf(textNameBuf, "text%d", regionNo);
2235   }
2236
2237   // Compatibility: check for no regions (old file).
2238   // Lines and divided rectangles must deal with this compatibility
2239   // theirselves. Composites _may_ not have any regions anyway.
2240   if ((m_regions.Number() == 0) &&
2241       !this->IsKindOf(CLASSINFO(wxLineShape)) && !this->IsKindOf(CLASSINFO(wxDividedShape)) &&
2242       !this->IsKindOf(CLASSINFO(wxCompositeShape)))
2243   {
2244     wxShapeRegion *newRegion = new wxShapeRegion;
2245     newRegion->SetName("0");
2246     m_regions.Append((wxObject *)newRegion);
2247     if (m_text.Number() > 0)
2248     {
2249       newRegion->ClearText();
2250       wxNode *node = m_text.First();
2251       while (node)
2252       {
2253         wxShapeTextLine *textLine = (wxShapeTextLine *)node->Data();
2254         wxNode *next = node->Next();
2255         newRegion->GetFormattedText().Append((wxObject *)textLine);
2256         delete node;
2257         node = next;
2258       }
2259     }
2260   }
2261 }
2262
2263 #endif
2264
2265 void wxShape::Copy(wxShape& copy)
2266 {
2267   copy.m_id = m_id;
2268   copy.m_xpos = m_xpos;
2269   copy.m_ypos = m_ypos;
2270   copy.m_pen = m_pen;
2271   copy.m_brush = m_brush;
2272   copy.m_textColour = m_textColour;
2273   copy.m_centreResize = m_centreResize;
2274   copy.m_maintainAspectRatio = m_maintainAspectRatio;
2275   copy.m_attachmentMode = m_attachmentMode;
2276   copy.m_spaceAttachments = m_spaceAttachments;
2277   copy.m_highlighted = m_highlighted;
2278   copy.m_rotation = m_rotation;
2279   copy.m_textColourName = m_textColourName;
2280   copy.m_regionName = m_regionName;
2281
2282   copy.m_sensitivity = m_sensitivity;
2283   copy.m_draggable = m_draggable;
2284   copy.m_fixedWidth = m_fixedWidth;
2285   copy.m_fixedHeight = m_fixedHeight;
2286   copy.m_formatMode = m_formatMode;
2287   copy.m_drawHandles = m_drawHandles;
2288
2289   copy.m_visible = m_visible;
2290   copy.m_shadowMode = m_shadowMode;
2291   copy.m_shadowOffsetX = m_shadowOffsetX;
2292   copy.m_shadowOffsetY = m_shadowOffsetY;
2293   copy.m_shadowBrush = m_shadowBrush;
2294
2295   copy.m_branchNeckLength = m_branchNeckLength;
2296   copy.m_branchStemLength = m_branchStemLength;
2297   copy.m_branchSpacing = m_branchSpacing;
2298
2299   // Copy text regions
2300   copy.ClearRegions();
2301   wxNode *node = m_regions.First();
2302   while (node)
2303   {
2304     wxShapeRegion *region = (wxShapeRegion *)node->Data();
2305     wxShapeRegion *newRegion = new wxShapeRegion(*region);
2306     copy.m_regions.Append(newRegion);
2307     node = node->Next();
2308   }
2309
2310   // Copy attachments
2311   copy.ClearAttachments();
2312   node = m_attachmentPoints.First();
2313   while (node)
2314   {
2315     wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
2316     wxAttachmentPoint *newPoint = new wxAttachmentPoint;
2317     newPoint->m_id = point->m_id;
2318     newPoint->m_x = point->m_x;
2319     newPoint->m_y = point->m_y;
2320     copy.m_attachmentPoints.Append((wxObject *)newPoint);
2321     node = node->Next();
2322   }
2323
2324   // Copy lines
2325   copy.m_lines.Clear();
2326   node = m_lines.First();
2327   while (node)
2328   {
2329     wxLineShape* line = (wxLineShape*) node->Data();
2330     copy.m_lines.Append(line);
2331     node = node->Next();
2332   }
2333 }
2334
2335 // Create and return a new, fully copied object.
2336 wxShape *wxShape::CreateNewCopy(bool resetMapping, bool recompute)
2337 {
2338   if (resetMapping)
2339     oglObjectCopyMapping.Clear();
2340
2341   wxShape* newObject = (wxShape*) GetClassInfo()->CreateObject();
2342
2343   wxASSERT( (newObject != NULL) );
2344   wxASSERT( (newObject->IsKindOf(CLASSINFO(wxShape))) );
2345
2346   Copy(*newObject);
2347
2348   if (GetEventHandler() != this)
2349   {
2350     wxShapeEvtHandler* newHandler = GetEventHandler()->CreateNewCopy();
2351     newObject->SetEventHandler(newHandler);
2352     newObject->SetPreviousHandler(NULL);
2353     newHandler->SetPreviousHandler(newObject);
2354     newHandler->SetShape(newObject);
2355   }
2356
2357   if (recompute)
2358     newObject->Recompute();
2359   return newObject;
2360 }
2361
2362 // Does the copying for this object, including copying event
2363 // handler data if any. Calls the virtual Copy function.
2364 void wxShape::CopyWithHandler(wxShape& copy)
2365 {
2366     Copy(copy);
2367
2368     if (GetEventHandler() != this)
2369     {
2370         wxASSERT( copy.GetEventHandler() != NULL );
2371         wxASSERT( copy.GetEventHandler() != (&copy) );
2372         wxASSERT( GetEventHandler()->GetClassInfo() == copy.GetEventHandler()->GetClassInfo() );
2373         GetEventHandler()->CopyData(* (copy.GetEventHandler()));
2374     }
2375 }
2376
2377
2378 // Default - make 6 control points
2379 void wxShape::MakeControlPoints()
2380 {
2381   double maxX, maxY, minX, minY;
2382
2383   GetBoundingBoxMax(&maxX, &maxY);
2384   GetBoundingBoxMin(&minX, &minY);
2385
2386   double widthMin = (double)(minX + CONTROL_POINT_SIZE + 2);
2387   double heightMin = (double)(minY + CONTROL_POINT_SIZE + 2);
2388
2389   // Offsets from main object
2390   double top = (double)(- (heightMin / 2.0));
2391   double bottom = (double)(heightMin / 2.0 + (maxY - minY));
2392   double left = (double)(- (widthMin / 2.0));
2393   double right = (double)(widthMin / 2.0 + (maxX - minX));
2394
2395   wxControlPoint *control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, top,
2396                                            CONTROL_POINT_DIAGONAL);
2397   m_canvas->AddShape(control);
2398   m_controlPoints.Append(control);
2399
2400   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, 0, top,
2401                                            CONTROL_POINT_VERTICAL);
2402   m_canvas->AddShape(control);
2403   m_controlPoints.Append(control);
2404
2405   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, top,
2406                                            CONTROL_POINT_DIAGONAL);
2407   m_canvas->AddShape(control);
2408   m_controlPoints.Append(control);
2409
2410   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, 0,
2411                                            CONTROL_POINT_HORIZONTAL);
2412   m_canvas->AddShape(control);
2413   m_controlPoints.Append(control);
2414
2415   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, right, bottom,
2416                                            CONTROL_POINT_DIAGONAL);
2417   m_canvas->AddShape(control);
2418   m_controlPoints.Append(control);
2419
2420   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, 0, bottom,
2421                                            CONTROL_POINT_VERTICAL);
2422   m_canvas->AddShape(control);
2423   m_controlPoints.Append(control);
2424
2425   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, bottom,
2426                                            CONTROL_POINT_DIAGONAL);
2427   m_canvas->AddShape(control);
2428   m_controlPoints.Append(control);
2429
2430   control = new wxControlPoint(m_canvas, this, CONTROL_POINT_SIZE, left, 0,
2431                                            CONTROL_POINT_HORIZONTAL);
2432   m_canvas->AddShape(control);
2433   m_controlPoints.Append(control);
2434
2435 }
2436
2437 void wxShape::MakeMandatoryControlPoints()
2438 {
2439   wxNode *node = m_children.First();
2440   while (node)
2441   {
2442     wxShape *child = (wxShape *)node->Data();
2443     child->MakeMandatoryControlPoints();
2444     node = node->Next();
2445   }
2446 }
2447
2448 void wxShape::ResetMandatoryControlPoints()
2449 {
2450   wxNode *node = m_children.First();
2451   while (node)
2452   {
2453     wxShape *child = (wxShape *)node->Data();
2454     child->ResetMandatoryControlPoints();
2455     node = node->Next();
2456   }
2457 }
2458
2459 void wxShape::ResetControlPoints()
2460 {
2461   ResetMandatoryControlPoints();
2462
2463   if (m_controlPoints.Number() < 1)
2464     return;
2465
2466   double maxX, maxY, minX, minY;
2467
2468   GetBoundingBoxMax(&maxX, &maxY);
2469   GetBoundingBoxMin(&minX, &minY);
2470
2471   double widthMin = (double)(minX + CONTROL_POINT_SIZE + 2);
2472   double heightMin = (double)(minY + CONTROL_POINT_SIZE + 2);
2473
2474   // Offsets from main object
2475   double top = (double)(- (heightMin / 2.0));
2476   double bottom = (double)(heightMin / 2.0 + (maxY - minY));
2477   double left = (double)(- (widthMin / 2.0));
2478   double right = (double)(widthMin / 2.0 + (maxX - minX));
2479
2480   wxNode *node = m_controlPoints.First();
2481   wxControlPoint *control = (wxControlPoint *)node->Data();
2482   control->m_xoffset = left; control->m_yoffset = top;
2483
2484   node = node->Next(); control = (wxControlPoint *)node->Data();
2485   control->m_xoffset = 0; control->m_yoffset = top;
2486
2487   node = node->Next(); control = (wxControlPoint *)node->Data();
2488   control->m_xoffset = right; control->m_yoffset = top;
2489
2490   node = node->Next(); control = (wxControlPoint *)node->Data();
2491   control->m_xoffset = right; control->m_yoffset = 0;
2492
2493   node = node->Next(); control = (wxControlPoint *)node->Data();
2494   control->m_xoffset = right; control->m_yoffset = bottom;
2495
2496   node = node->Next(); control = (wxControlPoint *)node->Data();
2497   control->m_xoffset = 0; control->m_yoffset = bottom;
2498
2499   node = node->Next(); control = (wxControlPoint *)node->Data();
2500   control->m_xoffset = left; control->m_yoffset = bottom;
2501
2502   node = node->Next(); control = (wxControlPoint *)node->Data();
2503   control->m_xoffset = left; control->m_yoffset = 0;
2504 }
2505
2506 void wxShape::DeleteControlPoints(wxDC *dc)
2507 {
2508   wxNode *node = m_controlPoints.First();
2509   while (node)
2510   {
2511     wxControlPoint *control = (wxControlPoint *)node->Data();
2512     if (dc)
2513         control->GetEventHandler()->OnErase(*dc);
2514     m_canvas->RemoveShape(control);
2515     delete control;
2516     delete node;
2517     node = m_controlPoints.First();
2518   }
2519   // Children of divisions are contained objects,
2520   // so stop here
2521   if (!IsKindOf(CLASSINFO(wxDivisionShape)))
2522   {
2523     node = m_children.First();
2524     while (node)
2525     {
2526       wxShape *child = (wxShape *)node->Data();
2527       child->DeleteControlPoints(dc);
2528       node = node->Next();
2529     }
2530   }
2531 }
2532
2533 void wxShape::OnDrawControlPoints(wxDC& dc)
2534 {
2535   if (!m_drawHandles)
2536     return;
2537
2538   dc.SetBrush(* wxBLACK_BRUSH);
2539   dc.SetPen(* wxBLACK_PEN);
2540
2541   wxNode *node = m_controlPoints.First();
2542   while (node)
2543   {
2544     wxControlPoint *control = (wxControlPoint *)node->Data();
2545     control->Draw(dc);
2546     node = node->Next();
2547   }
2548   // Children of divisions are contained objects,
2549   // so stop here.
2550   // This test bypasses the type facility for speed
2551   // (critical when drawing)
2552   if (!IsKindOf(CLASSINFO(wxDivisionShape)))
2553   {
2554     node = m_children.First();
2555     while (node)
2556     {
2557       wxShape *child = (wxShape *)node->Data();
2558       child->GetEventHandler()->OnDrawControlPoints(dc);
2559       node = node->Next();
2560     }
2561   }
2562 }
2563
2564 void wxShape::OnEraseControlPoints(wxDC& dc)
2565 {
2566   wxNode *node = m_controlPoints.First();
2567   while (node)
2568   {
2569     wxControlPoint *control = (wxControlPoint *)node->Data();
2570     control->Erase(dc);
2571     node = node->Next();
2572   }
2573   if (!IsKindOf(CLASSINFO(wxDivisionShape)))
2574   {
2575     node = m_children.First();
2576     while (node)
2577     {
2578       wxShape *child = (wxShape *)node->Data();
2579       child->GetEventHandler()->OnEraseControlPoints(dc);
2580       node = node->Next();
2581     }
2582   }
2583 }
2584
2585 void wxShape::Select(bool select, wxDC* dc)
2586 {
2587   m_selected = select;
2588   if (select)
2589   {
2590     MakeControlPoints();
2591     // Children of divisions are contained objects,
2592     // so stop here
2593     if (!IsKindOf(CLASSINFO(wxDivisionShape)))
2594     {
2595       wxNode *node = m_children.First();
2596       while (node)
2597       {
2598         wxShape *child = (wxShape *)node->Data();
2599         child->MakeMandatoryControlPoints();
2600         node = node->Next();
2601       }
2602     }
2603     if (dc)
2604         GetEventHandler()->OnDrawControlPoints(*dc);
2605   }
2606   if (!select)
2607   {
2608     DeleteControlPoints(dc);
2609     if (!IsKindOf(CLASSINFO(wxDivisionShape)))
2610     {
2611       wxNode *node = m_children.First();
2612       while (node)
2613       {
2614         wxShape *child = (wxShape *)node->Data();
2615         child->DeleteControlPoints(dc);
2616         node = node->Next();
2617       }
2618     }
2619   }
2620 }
2621
2622 bool wxShape::Selected() const
2623 {
2624   return m_selected;
2625 }
2626
2627 bool wxShape::AncestorSelected() const
2628 {
2629   if (m_selected) return TRUE;
2630   if (!GetParent())
2631     return FALSE;
2632   else
2633     return GetParent()->AncestorSelected();
2634 }
2635
2636 int wxShape::GetNumberOfAttachments() const
2637 {
2638   // Should return the MAXIMUM attachment point id here,
2639   // so higher-level functions can iterate through all attachments,
2640   // even if they're not contiguous.
2641   if (m_attachmentPoints.Number() == 0)
2642     return 4;
2643   else
2644   {
2645     int maxN = 3;
2646     wxNode *node = m_attachmentPoints.First();
2647     while (node)
2648     {
2649       wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
2650       if (point->m_id > maxN)
2651         maxN = point->m_id;
2652       node = node->Next();
2653     }
2654     return maxN+1;;
2655   }
2656 }
2657
2658 bool wxShape::AttachmentIsValid(int attachment) const
2659 {
2660   if (m_attachmentPoints.Number() == 0)
2661   {
2662     return ((attachment >= 0) && (attachment < 4)) ;
2663   }
2664
2665   wxNode *node = m_attachmentPoints.First();
2666   while (node)
2667   {
2668     wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
2669     if (point->m_id == attachment)
2670       return TRUE;
2671     node = node->Next();
2672   }
2673   return FALSE;
2674 }
2675
2676 bool wxShape::GetAttachmentPosition(int attachment, double *x, double *y,
2677                                          int nth, int no_arcs, wxLineShape *line)
2678 {
2679     if (m_attachmentMode == ATTACHMENT_MODE_NONE)
2680     {
2681         *x = m_xpos; *y = m_ypos;
2682         return TRUE;
2683     }
2684     else if (m_attachmentMode == ATTACHMENT_MODE_BRANCHING)
2685     {
2686         wxRealPoint pt, stemPt;
2687         GetBranchingAttachmentPoint(attachment, nth, pt, stemPt);
2688         *x = pt.x;
2689         *y = pt.y;
2690         return TRUE;
2691     }
2692     else if (m_attachmentMode == ATTACHMENT_MODE_EDGE)
2693     {
2694         if (m_attachmentPoints.Number() > 0)
2695         {
2696             wxNode *node = m_attachmentPoints.First();
2697             while (node)
2698             {
2699                 wxAttachmentPoint *point = (wxAttachmentPoint *)node->Data();
2700                 if (point->m_id == attachment)
2701                 {
2702                     *x = (double)(m_xpos + point->m_x);
2703                     *y = (double)(m_ypos + point->m_y);
2704                     return TRUE;
2705                 }
2706                 node = node->Next();
2707             }
2708             *x = m_xpos; *y = m_ypos;
2709             return FALSE;
2710         }
2711         else
2712         {
2713             // Assume is rectangular
2714             double w, h;
2715             GetBoundingBoxMax(&w, &h);
2716             double top = (double)(m_ypos + h/2.0);
2717             double bottom = (double)(m_ypos - h/2.0);
2718             double left = (double)(m_xpos - w/2.0);
2719             double right = (double)(m_xpos + w/2.0);
2720
2721             bool isEnd = (line && line->IsEnd(this));
2722
2723             int physicalAttachment = LogicalToPhysicalAttachment(attachment);
2724
2725             // Simplified code
2726             switch (physicalAttachment)
2727             {
2728                 case 0:
2729                 {
2730                     wxRealPoint pt = CalcSimpleAttachment(wxRealPoint(left, bottom), wxRealPoint(right, bottom),
2731                             nth, no_arcs, line);
2732
2733                     *x = pt.x; *y = pt.y;
2734                     break;
2735                 }
2736                 case 1:
2737                 {
2738                     wxRealPoint pt = CalcSimpleAttachment(wxRealPoint(right, bottom), wxRealPoint(right, top),
2739                             nth, no_arcs, line);
2740
2741                     *x = pt.x; *y = pt.y;
2742                     break;
2743                 }
2744                 case 2:
2745                 {
2746                     wxRealPoint pt = CalcSimpleAttachment(wxRealPoint(left, top), wxRealPoint(right, top),
2747                             nth, no_arcs, line);
2748
2749                     *x = pt.x; *y = pt.y;
2750                     break;
2751                 }
2752                 case 3:
2753                 {
2754                     wxRealPoint pt = CalcSimpleAttachment(wxRealPoint(left, bottom), wxRealPoint(left, top),
2755                             nth, no_arcs, line);
2756
2757                     *x = pt.x; *y = pt.y;
2758                     break;
2759                 }
2760                 default:
2761                 {
2762                     return FALSE;
2763                     break;
2764                 }
2765             }
2766             return TRUE;
2767         }
2768     }
2769     return FALSE;
2770 }
2771
2772 void wxShape::GetBoundingBoxMax(double *w, double *h)
2773 {
2774   double ww, hh;
2775   GetBoundingBoxMin(&ww, &hh);
2776   if (m_shadowMode != SHADOW_NONE)
2777   {
2778     ww += m_shadowOffsetX;
2779     hh += m_shadowOffsetY;
2780   }
2781   *w = ww;
2782   *h = hh;
2783 }
2784
2785 // Returns TRUE if image is a descendant of this composite
2786 bool wxShape::HasDescendant(wxShape *image)
2787 {
2788   if (image == this)
2789     return TRUE;
2790   wxNode *node = m_children.First();
2791   while (node)
2792   {
2793     wxShape *child = (wxShape *)node->Data();
2794     bool ans = child->HasDescendant(image);
2795     if (ans)
2796       return TRUE;
2797     node = node->Next();
2798   }
2799   return FALSE;
2800 }
2801
2802 // Clears points from a list of wxRealPoints, and clears list
2803 void wxShape::ClearPointList(wxList& list)
2804 {
2805     wxNode* node = list.First();
2806     while (node)
2807     {
2808         wxRealPoint* pt = (wxRealPoint*) node->Data();
2809         delete pt;
2810
2811         node = node->Next();
2812     }
2813     list.Clear();
2814 }
2815
2816 // Assuming the attachment lies along a vertical or horizontal line,
2817 // calculate the position on that point.
2818 wxRealPoint wxShape::CalcSimpleAttachment(const wxRealPoint& pt1, const wxRealPoint& pt2,
2819     int nth, int noArcs, wxLineShape* line)
2820 {
2821     bool isEnd = (line && line->IsEnd(this));
2822
2823     // Are we horizontal or vertical?
2824     bool isHorizontal = (oglRoughlyEqual(pt1.y, pt2.y) == TRUE);
2825
2826     double x, y;
2827
2828     if (isHorizontal)
2829     {
2830         wxRealPoint firstPoint, secondPoint;
2831         if (pt1.x > pt2.x)
2832         {
2833             firstPoint = pt2;
2834             secondPoint = pt1;
2835         }
2836         else
2837         {
2838             firstPoint = pt1;
2839             secondPoint = pt2;
2840         }
2841
2842         if (m_spaceAttachments)
2843         {
2844           if (line && (line->GetAlignmentType(isEnd) == LINE_ALIGNMENT_TO_NEXT_HANDLE))
2845           {
2846             // Align line according to the next handle along
2847             wxRealPoint *point = line->GetNextControlPoint(this);
2848             if (point->x < firstPoint.x)
2849               x = firstPoint.x;
2850             else if (point->x > secondPoint.x)
2851               x = secondPoint.x;
2852             else
2853               x = point->x;
2854           }
2855           else
2856             x = firstPoint.x + (nth + 1)*(secondPoint.x - firstPoint.x)/(noArcs + 1);
2857         }
2858         else x = (secondPoint.x - firstPoint.x)/2.0; // Midpoint
2859
2860         y = pt1.y;
2861     }
2862     else
2863     {
2864         wxASSERT( oglRoughlyEqual(pt1.x, pt2.x) == TRUE );
2865
2866         wxRealPoint firstPoint, secondPoint;
2867         if (pt1.y > pt2.y)
2868         {
2869             firstPoint = pt2;
2870             secondPoint = pt1;
2871         }
2872         else
2873         {
2874             firstPoint = pt1;
2875             secondPoint = pt2;
2876         }
2877
2878         if (m_spaceAttachments)
2879         {
2880           if (line && (line->GetAlignmentType(isEnd) == LINE_ALIGNMENT_TO_NEXT_HANDLE))
2881           {
2882             // Align line according to the next handle along
2883             wxRealPoint *point = line->GetNextControlPoint(this);
2884             if (point->y < firstPoint.y)
2885               y = firstPoint.y;
2886             else if (point->y > secondPoint.y)
2887               y = secondPoint.y;
2888             else
2889               y = point->y;
2890           }
2891           else
2892             y = firstPoint.y + (nth + 1)*(secondPoint.y - firstPoint.y)/(noArcs + 1);
2893         }
2894         else y = (secondPoint.y - firstPoint.y)/2.0; // Midpoint
2895
2896         x = pt1.x;
2897     }
2898
2899     return wxRealPoint(x, y);
2900 }
2901
2902 // Return the zero-based position in m_lines of line.
2903 int wxShape::GetLinePosition(wxLineShape* line)
2904 {
2905     int i = 0;
2906     for (i = 0; i < m_lines.Number(); i++)
2907         if ((wxLineShape*) (m_lines.Nth(i)->Data()) == line)
2908             return i;
2909
2910     return 0;
2911 }
2912
2913 //
2914 //             |________|
2915 //                 | <- root
2916 //                 | <- neck
2917 // shoulder1 ->---------<- shoulder2
2918 //             | | | | |
2919 //                      <- branching attachment point N-1
2920
2921 // This function gets information about where branching connections go.
2922 // Returns FALSE if there are no lines at this attachment.
2923 bool wxShape::GetBranchingAttachmentInfo(int attachment, wxRealPoint& root, wxRealPoint& neck,
2924     wxRealPoint& shoulder1, wxRealPoint& shoulder2)
2925 {
2926     int physicalAttachment = LogicalToPhysicalAttachment(attachment);
2927
2928     // Number of lines at this attachment.
2929     int lineCount = GetAttachmentLineCount(attachment);
2930
2931     if (lineCount == 0)
2932         return FALSE;
2933
2934     int totalBranchLength = m_branchSpacing * (lineCount - 1);
2935
2936     root = GetBranchingAttachmentRoot(attachment);
2937
2938     // Assume that we have attachment points 0 to 3: top, right, bottom, left.
2939     switch (physicalAttachment)
2940     {
2941         case 0:
2942         {
2943             neck.x = GetX();
2944             neck.y = root.y - m_branchNeckLength;
2945
2946             shoulder1.x = root.x - (totalBranchLength/2.0) ;
2947             shoulder2.x = root.x + (totalBranchLength/2.0) ;
2948
2949             shoulder1.y = neck.y;
2950             shoulder2.y = neck.y;
2951             break;
2952         }
2953         case 1:
2954         {
2955             neck.x = root.x + m_branchNeckLength;
2956             neck.y = root.y;
2957
2958             shoulder1.x = neck.x ;
2959             shoulder2.x = neck.x ;
2960
2961             shoulder1.y = neck.y - (totalBranchLength/2.0) ;
2962             shoulder2.y = neck.y + (totalBranchLength/2.0) ;
2963             break;
2964         }
2965         case 2:
2966         {
2967             neck.x = GetX();
2968             neck.y = root.y + m_branchNeckLength;
2969
2970             shoulder1.x = root.x - (totalBranchLength/2.0) ;
2971             shoulder2.x = root.x + (totalBranchLength/2.0) ;
2972
2973             shoulder1.y = neck.y;
2974             shoulder2.y = neck.y;
2975             break;
2976         }
2977         case 3:
2978         {
2979             neck.x = root.x - m_branchNeckLength;
2980             neck.y = root.y ;
2981
2982             shoulder1.x = neck.x ;
2983             shoulder2.x = neck.x ;
2984
2985             shoulder1.y = neck.y - (totalBranchLength/2.0) ;
2986             shoulder2.y = neck.y + (totalBranchLength/2.0) ;
2987             break;
2988         }
2989         default:
2990         {
2991             wxFAIL_MSG( "Unrecognised attachment point in GetBranchingAttachmentInfo." );
2992             break;
2993         }
2994     }
2995     return TRUE;
2996 }
2997
2998 // n is the number of the adjoining line, from 0 to N-1 where N is the number of lines
2999 // at this attachment point.
3000 // Get the attachment point where the arc joins the stem, and also the point where the
3001 // the stem meets the shoulder.
3002 bool wxShape::GetBranchingAttachmentPoint(int attachment, int n, wxRealPoint& pt, wxRealPoint& stemPt)
3003 {
3004     int physicalAttachment = LogicalToPhysicalAttachment(attachment);
3005
3006     wxRealPoint root, neck, shoulder1, shoulder2;
3007     GetBranchingAttachmentInfo(attachment, root, neck, shoulder1, shoulder2);
3008
3009     // Assume that we have attachment points 0 to 3: top, right, bottom, left.
3010     switch (physicalAttachment)
3011     {
3012         case 0:
3013         {
3014             pt.y = neck.y - m_branchStemLength;
3015             pt.x = shoulder1.x + n*m_branchSpacing;
3016
3017             stemPt.x = pt.x;
3018             stemPt.y = neck.y;
3019             break;
3020         }
3021         case 2:
3022         {
3023             pt.y = neck.y + m_branchStemLength;
3024             pt.x = shoulder1.x + n*m_branchSpacing;
3025
3026             stemPt.x = pt.x;
3027             stemPt.y = neck.y;
3028             break;
3029         }
3030         case 1:
3031         {
3032             pt.x = neck.x + m_branchStemLength;
3033             pt.y = shoulder1.y + n*m_branchSpacing;
3034
3035             stemPt.x = neck.x;
3036             stemPt.y = pt.y;
3037             break;
3038         }
3039         case 3:
3040         {
3041             pt.x = neck.x - m_branchStemLength;
3042             pt.y = shoulder1.y + n*m_branchSpacing;
3043
3044             stemPt.x = neck.x;
3045             stemPt.y = pt.y;
3046             break;
3047         }
3048         default:
3049         {
3050             wxFAIL_MSG( "Unrecognised attachment point in GetBranchingAttachmentPoint." );
3051             break;
3052         }
3053     }
3054
3055     return TRUE;
3056 }
3057
3058 // Get the number of lines at this attachment position.
3059 int wxShape::GetAttachmentLineCount(int attachment) const
3060 {
3061     int count = 0;
3062     wxNode* node = m_lines.First();
3063     while (node)
3064     {
3065         wxLineShape* lineShape = (wxLineShape*) node->Data();
3066         if ((lineShape->GetFrom() == this) && (lineShape->GetAttachmentFrom() == attachment))
3067             count ++;
3068         else if ((lineShape->GetTo() == this) && (lineShape->GetAttachmentTo() == attachment))
3069             count ++;
3070
3071         node = node->Next();
3072     }
3073     return count;
3074 }
3075
3076 // This function gets the root point at the given attachment.
3077 wxRealPoint wxShape::GetBranchingAttachmentRoot(int attachment)
3078 {
3079     int physicalAttachment = LogicalToPhysicalAttachment(attachment);
3080
3081     wxRealPoint root;
3082
3083     double width, height;
3084     GetBoundingBoxMax(& width, & height);
3085
3086     // Assume that we have attachment points 0 to 3: top, right, bottom, left.
3087     switch (physicalAttachment)
3088     {
3089         case 0:
3090         {
3091             root.x = GetX() ;
3092             root.y = GetY() - height/2.0;
3093             break;
3094         }
3095         case 1:
3096         {
3097             root.x = GetX() + width/2.0;
3098             root.y = GetY() ;
3099             break;
3100         }
3101         case 2:
3102         {
3103             root.x = GetX() ;
3104             root.y = GetY() + height/2.0;
3105             break;
3106         }
3107         case 3:
3108         {
3109             root.x = GetX() - width/2.0;
3110             root.y = GetY() ;
3111             break;
3112         }
3113         default:
3114         {
3115             wxFAIL_MSG( "Unrecognised attachment point in GetBranchingAttachmentRoot." );
3116             break;
3117         }
3118     }
3119     return root;
3120 }
3121
3122 // Draw or erase the branches (not the actual arcs though)
3123 void wxShape::OnDrawBranches(wxDC& dc, int attachment, bool erase)
3124 {
3125     int count = GetAttachmentLineCount(attachment);
3126     if (count == 0)
3127         return;
3128
3129     wxRealPoint root, neck, shoulder1, shoulder2;
3130     GetBranchingAttachmentInfo(attachment, root, neck, shoulder1, shoulder2);
3131
3132     if (erase)
3133     {
3134         dc.SetPen(*wxWHITE_PEN);
3135         dc.SetBrush(*wxWHITE_BRUSH);
3136     }
3137     else
3138     {
3139         dc.SetPen(*wxBLACK_PEN);
3140         dc.SetBrush(*wxBLACK_BRUSH);
3141     }
3142
3143     // Draw neck
3144     dc.DrawLine((long) root.x, (long) root.y, (long) neck.x, (long) neck.y);
3145
3146     if (count > 1)
3147     {
3148         // Draw shoulder-to-shoulder line
3149         dc.DrawLine((long) shoulder1.x, (long) shoulder1.y, (long) shoulder2.x, (long) shoulder2.y);
3150     }
3151     // Draw all the little branches
3152     int i;
3153     for (i = 0; i < count; i++)
3154     {
3155         wxRealPoint pt, stemPt;
3156         GetBranchingAttachmentPoint(attachment, i, pt, stemPt);
3157         dc.DrawLine((long) stemPt.x, (long) stemPt.y, (long) pt.x, (long) pt.y);
3158
3159         if ((GetBranchStyle() & BRANCHING_ATTACHMENT_BLOB) && (count > 1))
3160         {
3161             long blobSize=6;
3162 //            dc.DrawEllipse((long) (stemPt.x + 0.5 - (blobSize/2.0)), (long) (stemPt.y + 0.5 - (blobSize/2.0)), blobSize, blobSize);
3163             dc.DrawEllipse((long) (stemPt.x - (blobSize/2.0)), (long) (stemPt.y - (blobSize/2.0)), blobSize, blobSize);
3164         }
3165     }
3166 }
3167
3168 // Draw or erase the branches (not the actual arcs though)
3169 void wxShape::OnDrawBranches(wxDC& dc, bool erase)
3170 {
3171     if (m_attachmentMode != ATTACHMENT_MODE_BRANCHING)
3172         return;
3173
3174     int count = GetNumberOfAttachments();
3175     int i;
3176     for (i = 0; i < count; i++)
3177         OnDrawBranches(dc, i, erase);
3178 }
3179
3180 // Only get the attachment position at the _edge_ of the shape, ignoring
3181 // branching mode. This is used e.g. to indicate the edge of interest, not the point
3182 // on the attachment branch.
3183 bool wxShape::GetAttachmentPositionEdge(int attachment, double *x, double *y,
3184                                      int nth, int no_arcs, wxLineShape *line)
3185 {
3186     int oldMode = m_attachmentMode;
3187
3188     // Calculate as if to edge, not branch
3189     if (m_attachmentMode == ATTACHMENT_MODE_BRANCHING)
3190         m_attachmentMode = ATTACHMENT_MODE_EDGE;
3191     bool success = GetAttachmentPosition(attachment, x, y, nth, no_arcs, line);
3192     m_attachmentMode = oldMode;
3193
3194     return success;
3195 }
3196
3197 // Rotate the standard attachment point from physical (0 is always North)
3198 // to logical (0 -> 1 if rotated by 90 degrees)
3199 int wxShape::PhysicalToLogicalAttachment(int physicalAttachment) const
3200 {
3201     const double pi = 3.1415926535897932384626433832795 ;
3202     int i;
3203     if (oglRoughlyEqual(GetRotation(), 0.0))
3204     {
3205         i = physicalAttachment;
3206     }
3207     else if (oglRoughlyEqual(GetRotation(), (pi/2.0)))
3208     {
3209         i = physicalAttachment - 1;
3210     }
3211     else if (oglRoughlyEqual(GetRotation(), pi))
3212     {
3213         i = physicalAttachment - 2;
3214     }
3215     else if (oglRoughlyEqual(GetRotation(), (3.0*pi/2.0)))
3216     {
3217         i = physicalAttachment - 3;
3218     }
3219     else
3220         // Can't handle -- assume the same.
3221         return physicalAttachment;
3222
3223     if (i < 0)
3224       i += 4;
3225
3226     return i;
3227 }
3228
3229 // Rotate the standard attachment point from logical
3230 // to physical (0 is always North)
3231 int wxShape::LogicalToPhysicalAttachment(int logicalAttachment) const
3232 {
3233     const double pi = 3.1415926535897932384626433832795 ;
3234     int i;
3235     if (oglRoughlyEqual(GetRotation(), 0.0))
3236     {
3237         i = logicalAttachment;
3238     }
3239     else if (oglRoughlyEqual(GetRotation(), (pi/2.0)))
3240     {
3241         i = logicalAttachment + 1;
3242     }
3243     else if (oglRoughlyEqual(GetRotation(), pi))
3244     {
3245         i = logicalAttachment + 2;
3246     }
3247     else if (oglRoughlyEqual(GetRotation(), (3.0*pi/2.0)))
3248     {
3249         i = logicalAttachment + 3;
3250     }
3251     else
3252         // Can't handle -- assume the same.
3253         return logicalAttachment;
3254
3255     if (i > 3)
3256       i -= 4;
3257
3258     return i;
3259 }
3260
3261 void wxShape::Rotate(double WXUNUSED(x), double WXUNUSED(y), double theta)
3262 {
3263     const double pi = 3.1415926535897932384626433832795 ;
3264     m_rotation = theta;
3265     if (m_rotation < 0.0)
3266     {
3267         m_rotation += 2*pi;
3268     }
3269     else if (m_rotation > 2*pi)
3270     {
3271         m_rotation -= 2*pi;
3272     }
3273 }
3274