[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.

2 files changed, 4 insertions, 4 deletions

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.