/////////////////////////////////////////////////////////////////////////////
-// Name: mod_links.cpp
+// Name: m_links.cpp
// Purpose: wxHtml module for links & anchors
// Author: Vaclav Slavik
// RCS-ID: $Id$
#include "wx/wxprec.h"
#include "wx/defs.h"
-#if wxUSE_HTML
+#if wxUSE_HTML && wxUSE_STREAMS
-#ifdef __BORDLANDC__
+#ifdef __BORLANDC__
#pragma hdrstop
#endif
#ifndef WXPRECOMP
-#include "wx/wx.h"
#endif
-
#include "wx/html/forcelnk.h"
#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( wxT("NAME") ))
+ {
+ m_WParser->GetContainer()->InsertCell(new wxHtmlAnchorCell(tag.GetParam( wxT("NAME") )));
}
- if (tag.HasParam("HREF")) {
- wxString oldlnk = m_WParser -> GetLink();
- wxColour oldclr = m_WParser -> GetActualColor();
- int oldund = m_WParser -> GetFontUnderlined();
-
- 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( wxT("HREF") ))
+ {
+ wxHtmlLinkInfo oldlnk = m_WParser->GetLink();
+ wxColour oldclr = m_WParser->GetActualColor();
+ int oldund = m_WParser->GetFontUnderlined();
+ wxString name(tag.GetParam( wxT("HREF") )), target;
+
+ if (tag.HasParam( wxT("TARGET") )) target = tag.GetParam( wxT("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;
}