[r2003-07-06 10:26:38 by cvscast] Beppe: small changes in cellpadding and cellspacing

Original author: cvscast
Date: 2003-07-06 10:26:38+00:00

web/site.cd

@@ -261,7 +261,7 @@ match page with
  let left = match navig with [] -> [ [<boxes-toc>[]] ] | n -> n in
  let left = 
    <td valign="top" align="left">[
-     <table cellpadding="13" cellspacing="2" 
+     <table cellpadding="0" cellspacing="15" 
             width="200"
             style="font-size:80%; border: 1px dashed black;
                    background: #ffcd72">
@@ -318,7 +318,7 @@ text-align:center; color: #aa0000; font: bold 200% helvetica" >
     <tr>[
       <td valign="top" align="left"
           style="border: 1px solid black; background: #fccead">[
-       <table width="100%" cellpadding="15">
+       <table width="100%" cellpadding="0" cellspacing="17">
          (map main with x -> <tr>[ <td>[x] ])
       ] ]
   ] ] in