From 133c8c5c6d45e90ee51ea2bd889367034bcaa845 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Sat, 31 Jul 2004 12:04:38 +0000
Subject: [haddock @ 2004-07-31 12:04:37 by krasimir] make the DHtmlTree in
 contents page more portable. The +/- buttons are replaced with new images
 which looks more beatiful.

---
 src/HaddockHtml.hs | 4 ++--
 src/HaddockUtil.hs | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 3233c408..cd0d452b 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -243,7 +243,7 @@ ppPrologue title (Just doc) =
 ppModuleTree :: String -> [ModuleTree] -> HtmlTable
 ppModuleTree _ ts = 
   tda [theclass "section1"] << toHtml "Modules" </>
-  td <<  table ! [cellpadding 0, cellspacing 2] << htmlTable
+  td << vanillaTable << htmlTable
   where
     genTable htmlTable id []     = (htmlTable,id)
     genTable htmlTable id (x:xs) = genTable (htmlTable </> u) id' xs      
@@ -279,7 +279,7 @@ mkNode ss (Node s leaf pkg ts) id = htmlNode
     genSubTree :: HtmlTable -> Int -> [ModuleTree] -> (Html,Int)
     genSubTree htmlTable id [] = (sub_tree,id)
       where
-        sub_tree = table ! [identifier id_s, thestyle "display:none;", cellpadding 0, cellspacing 0, width "100%"] << htmlTable
+        sub_tree = vanillaTable ! [identifier id_s, thestyle "display:none;"] << htmlTable
     genSubTree htmlTable id (x:xs) = genSubTree (htmlTable </> u) id' xs      
       where
         (u,id') = mkNode (s:ss) x id
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index eca9e743..03796532 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -295,8 +295,8 @@ cssFile, iconFile, jsFile, plusFile,minusFile :: String
 cssFile   = "haddock.css"
 iconFile  = "haskell_icon.gif"
 jsFile    = "haddock.js"
-plusFile  = "plus.jpg"
-minusFile = "minus.jpg"
+plusFile  = "plus.gif"
+minusFile = "minus.gif"
 
 -----------------------------------------------------------------------------
 -- misc.
-- 
cgit v1.2.3