Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
cduce
cduce
Commits
7fc18147
Commit
7fc18147
authored
Oct 05, 2007
by
Pietro Abate
Browse files
[r2006-04-27 14:43:40 by afrisch] Empty log message
Original author: afrisch Date: 2006-04-27 14:43:40+00:00
parent
696a55c3
Changes
1
Hide whitespace changes
Inline
Side-by-side
web/site.cd
View file @
7fc18147
...
...
@@ -176,7 +176,7 @@ let box (x : H.Flow) : H.Block =
style=
"border: solid 2px black; background: #ffffff"
width=
"100%"
>
[
<tr>
[
<td>
x] ]
let style = "
let style
: Latin1
= "
a:link:hover, a:visited:hover {
text-decoration: none;
background: #FFFFD0;
...
...
@@ -477,14 +477,14 @@ match page with
<
td
valign
=
"
top
"
align
=
"
left
"
style
=
"
width:100%
"
>
[
<
table
width
=
"
100%
"
>
[
<
tr
>
[
<
td
valign
=
"
top
"
align
=
"
left
"
style
=
(
"
border: 2px solid black; background: #ffffff;
text-align:center; color: #aa0000; font: bold 200% helvetica
"
:
Latin1
)
>
style
=
"
border: 2px solid black; background: #ffffff;
text-align:center; color: #aa0000; font: bold 200% helvetica
"
>
(
text
banner
)
]
<
tr
>
[
<
td
valign
=
"
top
"
align
=
"
left
"
style
=
(
"
border: 1px solid black; background: #fccead
"
:
Latin1
)
>
[
style
=
"
border: 1px solid black; background: #fccead
"
>
[
(
*
altbg
c8ccd1
*
)
<
table
width
=
"
100%
"
cellpadding
=
"
0
"
cellspacing
=
"
17
"
>
(
map
main
with
x
->
<
tr
>
[
<
td
>
[
x
]
])
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment