Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

classe code pour les noms de paramètres décrits 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4615 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Maxence Guesdon 2002-04-09 09:34:02 +00:00
parent 4242782103
commit 4198332e83
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ocamldoc/odoc_html.ml
View File

@ -1023,12 +1023,11 @@ class html =
(List.map
(fun p ->
"<tr>\n"^
"<td align=\"center\" valign=\"top\" width=\"15%\">\n"^
"<code>"^
"<td align=\"center\" valign=\"top\" width=\"15%\" class=\"code\">\n"^
(match Parameter.complete_name p with
"" -> "?"
| s -> s
)^"</code></td>\n"^
)^"</td>\n"^
"<td align=\"center\" valign=\"top\">:</td>\n"^
"<td>"^(self#html_of_type_expr m_name (Parameter.typ p))^"<br>\n"^
(self#html_of_parameter_description p)^"\n"^
@ -1052,7 +1051,7 @@ class html =
l
in
let f p =
"<div class=\"info\"><code>"^(Parameter.complete_name p)^"</code> : "^
"<div class=\"info\"><code class=\"code\">"^(Parameter.complete_name p)^"</code> : "^
(self#html_of_parameter_description p)^"</div>\n"
in
match l2 with