/////////////////////////////////////////////////////////////////////////////
-// Name: mod_links.cpp
+// Name: m_links.cpp
// Purpose: wxHtml module for links & anchors
// Author: Vaclav Slavik
// RCS-ID: $Id$
#pragma implementation
#endif
-#include <wx/wxprec.h>
+#include "wx/wxprec.h"
-#if wxUSE_HTML
+#include "wx/defs.h"
+#if wxUSE_HTML && wxUSE_STREAMS
#ifdef __BORDLANDC__
#pragma hdrstop
#endif
#ifndef WXPRECOMP
-#include <wx/wx.h>
+#include "wx/wx.h"
#endif
#include "wx/html/m_templ.h"
-FORCE_LINK_ME(mod_links)
+FORCE_LINK_ME(m_links)
class wxHtmlAnchorCell : public wxHtmlCell
TAG_HANDLER_PROC(tag)
{
- if (tag.HasParam("NAME")) {
- m_WParser -> GetContainer() -> InsertCell(new wxHtmlAnchorCell(tag.GetParam("NAME")));
+ if (tag.HasParam("NAME"))
+ {
+ m_WParser->GetContainer()->InsertCell(new wxHtmlAnchorCell(tag.GetParam("NAME")));
}
- if (tag.HasParam("HREF")) {
- wxString oldlnk = m_WParser -> GetLink();
- wxColour oldclr = m_WParser -> GetActualColor();
- int oldund = m_WParser -> GetFontUnderlined();
+ if (tag.HasParam("HREF"))
+ {
+ wxHtmlLinkInfo oldlnk = m_WParser->GetLink();
+ wxColour oldclr = m_WParser->GetActualColor();
+ int oldund = m_WParser->GetFontUnderlined();
+ wxString name(tag.GetParam("HREF")), target;
- m_WParser -> SetActualColor(m_WParser -> GetLinkColor());
- m_WParser -> GetContainer() -> InsertCell(new wxHtmlColourCell(m_WParser -> GetLinkColor()));
- m_WParser -> SetFontUnderlined(TRUE);
- m_WParser -> GetContainer() -> InsertCell(new wxHtmlFontCell(m_WParser -> CreateCurrentFont()));
- m_WParser -> SetLink(tag.GetParam("HREF"));
+ if (tag.HasParam("TARGET")) target = tag.GetParam("TARGET");
+ m_WParser->SetActualColor(m_WParser->GetLinkColor());
+ m_WParser->GetContainer()->InsertCell(new wxHtmlColourCell(m_WParser->GetLinkColor()));
+ m_WParser->SetFontUnderlined(TRUE);
+ m_WParser->GetContainer()->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
+ m_WParser->SetLink(wxHtmlLinkInfo(name, target));
ParseInner(tag);
- m_WParser -> SetLink(oldlnk);
- m_WParser -> SetFontUnderlined(oldund);
- m_WParser -> GetContainer() -> InsertCell(new wxHtmlFontCell(m_WParser -> CreateCurrentFont()));
- m_WParser -> SetActualColor(oldclr);
- m_WParser -> GetContainer() -> InsertCell(new wxHtmlColourCell(oldclr));
+ m_WParser->SetLink(oldlnk);
+ m_WParser->SetFontUnderlined(oldund);
+ m_WParser->GetContainer()->InsertCell(new wxHtmlFontCell(m_WParser->CreateCurrentFont()));
+ m_WParser->SetActualColor(oldclr);
+ m_WParser->GetContainer()->InsertCell(new wxHtmlColourCell(oldclr));
return TRUE;
}