diff options
| author | simonmar <unknown> | 2004-07-01 11:08:58 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2004-07-01 11:08:58 +0000 |
| commit | b94d4903a9b902ea6fbf41f1067a1798e765fed1 (patch) | |
| tree | 2ec15a9d73ba96bfc0e21b197bc5f51cd14d7117 /src | |
| parent | 599743499a4bb632f3d8b1dbb6b274f7529bc77a (diff) | |
[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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/HaddockHtml.hs | 7 |
1 files changed, 4 insertions, 3 deletions
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 = |