From b94d4903a9b902ea6fbf41f1067a1798e765fed1 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 1 Jul 2004 11:08:58 +0000
Subject: [haddock @ 2004-07-01 11:08:57 by simonmar] Update to the +/-
 buttons: use a resized image rather than a <button>. Still seeing some
 strange effects in Konqueror, so might need to use a fixed-size image
 instead.

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

(limited to 'src')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 81235fec..a52e831b 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -43,6 +43,8 @@ cssFile, jsFile, iconFile :: String
 cssFile  = "haddock.css"
 jsFile   = "haddock.js"
 iconFile = "haskell_icon.gif"
+plusFile = "plus.jpg"
+minusFile = "minus.jpg"
 
 -- -----------------------------------------------------------------------------
 -- Generating HTML documentation
@@ -95,7 +97,7 @@ copyHtmlBits odir libdir maybe_css = do
   
   css_contents <- readFile css_file
   writeFile css_destination css_contents
-  mapM_ copyFile [ iconFile, jsFile ]
+  mapM_ copyFile [ iconFile, plusFile, minusFile, jsFile ]
 
 
 contentsHtmlFile, indexHtmlFile :: String
@@ -1119,8 +1121,7 @@ escapeStr = flip escapeString unreserved
 --
 collapsebutton :: String -> Html
 collapsebutton id = 
-  button ! [ theclass "coll", onclick ("toggle(this,'" ++ id ++ "')") ] << 
-    toHtml "+"
+  image ! [ src plusFile, theclass "coll", onclick ("toggle(this,'" ++ id ++ "')") ]
 
 collapsed :: String -> Html -> Html
 collapsed id html =
-- 
cgit v1.2.3