src/html/m_links.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        m_links.cpp
   3 // Purpose:     wxHtml module for links & anchors
   4 // Author:      Vaclav Slavik
   5 // RCS-ID:      $Id$
   6 // Copyright:   (c) 1999 Vaclav Slavik
   7 // Licence:     wxWindows Licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 #ifdef __GNUG__
  11 #pragma implementation
  12 #endif
  13
  14 #include "wx/wxprec.h"
  15
  16 #include "wx/defs.h"
  17 #if wxUSE_HTML
  18
  19 #ifdef __BORDLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WXPRECOMP
  24 #include "wx/wx.h"
  25 #endif
  26
  27
  28 #include "wx/html/forcelnk.h"
  29 #include "wx/html/m_templ.h"
  30
  31
  32 FORCE_LINK_ME(m_links)
  33
  34
  35 class wxHtmlAnchorCell : public wxHtmlCell
  36 {
  37     private:
  38         wxString m_AnchorName;
  39
  40     public:
  41         wxHtmlAnchorCell(const wxString& name) : wxHtmlCell() {m_AnchorName = name;}
  42         virtual const wxHtmlCell* Find(int condition, const void* param) const
  43         {
  44             if ((condition == wxHTML_COND_ISANCHOR) && (m_AnchorName == (*((const wxString*)param))))
  45                 return this;
  46             else
  47                 return wxHtmlCell::Find(condition, param);
  48         }
  49 };
  50
  51
  52
  53 TAG_HANDLER_BEGIN(A, "A")
  54
  55     TAG_HANDLER_PROC(tag)
  56     {
  57         if (tag.HasParam("NAME")) {
  58             m_WParser -> GetContainer() -> InsertCell(new wxHtmlAnchorCell(tag.GetParam("NAME")));
  59         }
  60
  61         if (tag.HasParam("HREF")) {
  62             wxHtmlLinkInfo oldlnk = m_WParser -> GetLink();
  63             wxColour oldclr = m_WParser -> GetActualColor();
  64             int oldund = m_WParser -> GetFontUnderlined();
  65             wxString name(tag.GetParam("HREF")), target;
  66
  67             if (tag.HasParam("TARGET")) target = tag.GetParam("TARGET");
  68             m_WParser -> SetActualColor(m_WParser -> GetLinkColor());
  69             m_WParser -> GetContainer() -> InsertCell(new wxHtmlColourCell(m_WParser -> GetLinkColor()));
  70             m_WParser -> SetFontUnderlined(TRUE);
  71             m_WParser -> GetContainer() -> InsertCell(new wxHtmlFontCell(m_WParser -> CreateCurrentFont()));
  72             m_WParser -> SetLink(wxHtmlLinkInfo(name, target));
  73
  74             ParseInner(tag);
  75
  76             m_WParser -> SetLink(oldlnk);
  77             m_WParser -> SetFontUnderlined(oldund);
  78             m_WParser -> GetContainer() -> InsertCell(new wxHtmlFontCell(m_WParser -> CreateCurrentFont()));
  79             m_WParser -> SetActualColor(oldclr);
  80             m_WParser -> GetContainer() -> InsertCell(new wxHtmlColourCell(oldclr));
  81
  82             return TRUE;
  83         }
  84         else return FALSE;
  85     }
  86
  87 TAG_HANDLER_END(A)
  88
  89
  90
  91 TAGS_MODULE_BEGIN(Links)
  92
  93     TAGS_MODULE_ADD(A)
  94
  95 TAGS_MODULE_END(Links)
  96
  97
  98 #endif