From d7f6809cabbface09dc1b016591774b729413f00 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Fri, 13 Aug 2010 22:17:48 +0000
Subject: move frames button to js

---
 src/Haddock/Backends/Xhtml.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Haddock/Backends/Xhtml.hs')

diff --git a/src/Haddock/Backends/Xhtml.hs b/src/Haddock/Backends/Xhtml.hs
index 8618d16f..b1942561 100644
--- a/src/Haddock/Backends/Xhtml.hs
+++ b/src/Haddock/Backends/Xhtml.hs
@@ -115,7 +115,7 @@ headHtml docTitle miniPage themes =
         -- a <![CDATA[ section. Will break if the miniPage name could
         -- have "]]>" in it!
       << primHtml (
-          "//<![CDATA[\nwindow.onload = function () {resetStyle();"
+          "//<![CDATA[\nwindow.onload = function () {addFramesButton();resetStyle();"
           ++ setSynopsis ++ "};\n//]]>\n")
     ]
   where
@@ -172,9 +172,8 @@ bodyHtml doctitle iface themes
         wikiButton maybe_wiki_url (ifaceMod `fmap` iface),
         contentsButton maybe_contents_url,
         indexButton maybe_index_url,
-        styleMenu themes,
-        Just (anchor ! [ href "#", onclick "reframe();"] << "Frames")])
-            ! [theclass "links"],
+        styleMenu themes])
+            ! [theclass "links", identifier "page-menu"],
       nonEmpty sectionName << doctitle
       ],
     divContent << pageContent,
-- 
cgit v1.2.3