# <border color=foo>  zeichnet einen Rahmen
#
<define-tag border endtag=required>
<preserve color width>
<set-var %attributes>
<if <not <get-var color>>
  <set-var color="000000">
>
<if <not <get-var width>>
  <set-var width="100%">
>

<table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var color>><td>
<table width=100% border=0 cellpadding=0 cellspacing=1><tr bgcolor=#<bgcolor>><td>
<ifont>

%body

</ifont>
</td></tr></table>
</td></tr></table>

<restore color width>
</define-tag>

# <line> Zeichnet eine Linie
#
<define-tag line whitespace=delete>
<preserve color align width height>
<set-var %attributes>

<if <not <get-var align>>
  <set-var align=center>>
<if <not <get-var color>>
  <set-var color=000000>>
<if <not <get-var width>>
  <set-var width=100%>>
<if <not <get-var height>>
  <set-var height=1>>

<div align=<get-var align>>
<table width=<get-var width> border=0 cellpadding=0 cellspacing=0 bgcolor=<get-var color>>
<tr><td align=<get-var align>>
<img src=<root_prefix>gifs/imgdot-1x1-transp.gif width=1 height=<get-var height> alt="------------------------------">
</td></tr>
</table>
</div>

<restore color align width height>
</define-tag>

# Draws a 80% line in the menu color for submenu.inc
<define-tag submenuhr>
<p><line width=80% color="<menucolor>" height=1 align=center><p>
</define-tag>

# Draws a 100% line in the menu color for normal pages
<define-tag colorhr whitespace=delete>
<preserve width>
<set-var %attributes>

<if <not <get-var width>>
  <set-var width=100%>>

<line width=<get-var width> color="<menucolor>" height=1 align=center>
<restore width>
</define-tag>

# Draw a colored box
#
# bcolor=border color (default black)
# bgcolor=background color (default <bgcolor>)
#
<define-tag colorbox endtag=required>
<preserve bgcolor bcolor width>
<set-var %attributes>

<if <not <get-var bcolor>>
  <set-var bcolor=000000>>
<if <not <get-var bgcolor>>
  <set-var bgcolor=<bgcolor>>>
<if <not <get-var width>>
  <set-var width=100%>>

<center>
# <border>
<table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bcolor>><td>
<table width=100% border=0 cellpadding=0 cellspacing=1><tr bgcolor=#ffffff><td>
<ifont>
# <border>

<table width=100% border=0 bgcolor="#<get-var bgcolor>" cellpadding=5 cellspacing=0>
<tr><th align=center><ifont>

%body

</ifont></th></tr>
</table>

# </border>
</ifont>
</td></tr></table>
</td></tr></table>
# </border>

</center>
<restore bgcolor bcolor width>
</define-tag>

# Draws a coloured box with a title, see <root_prefix>Infodrom/web.html
#
<define-tag titlebox endtag=required>
<preserve width title titlebgcolor titlecolor titlebar titlealign titlepadding bordercolor bgcolor>
<set-var %attributes>

<if <not <get-var width>>
  <set-var width="100%">
>
<if <not <get-var titlebgcolor>>
  <set-var titlebgcolor="<menucolor>">
>
<if <not <get-var titlecolor>>
  <set-var titlecolor="<white>">
>
<if <not <get-var bordercolor>>
  <set-var bordercolor="<black>">
>
<if <not <get-var bgcolor>>
  <set-var bgcolor="<bgcolor>">
>
<if <not <get-var titlealign>>
  <set-var titlealign="center">
>
<if <not <get-var titlepadding>>
  <set-var titlepadding="5">
>

<ifeq <get-var titlebar> "small" "<div align="<get-var titlealign>">
<table border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var titlebgcolor>><td align=center>
<img src=<root_prefix>gifs/imgdot-1x1-transp.gif height=0 width=<get-var titlepadding> alt="">
<ifont><font color="#<get-var titlecolor>"><b><get-var title></b></font></ifont>
<img src=<root_prefix>gifs/imgdot-1x1-transp.gif height=0 width=<get-var titlepadding> alt="">
</td></tr></table></div>">

#<table width=100% border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bordercolor>><td>
<table width=<get-var width> border=0 cellpadding=0 cellspacing=0><tr bgcolor=#<get-var bordercolor>><td>
<table width=100% border=0 cellpadding=0 cellspacing=1>
<ifneq <get-var titlebar> "small" "<tr bgcolor=#<get-var titlebgcolor>><td align=center>
<ifont><font color="#<get-var titlecolor>"><b><get-var title></b></font></ifont>
</td></tr>">

<tr bgcolor=#<get-var bgcolor>><td>
<ifont>

%body

</ifont>
</td></tr></table>
</td></tr></table>

<restore width title titlebgcolor titlecolor titlebar titlealign titlepadding bordercolor bgcolor>
</define-tag>

<define-tag author endtag=required whitespace=delete>
<div align=right><font size=-1><em>
%body
</em></font></div>
</define-tag>

<define-tag colorbg endtag=required>
<preserve bgcolor>
<set-var %attributes>
<table width=100% cellpadding=2 cellspacing=0 border=0 bgcolor=<get-var bgcolor>>
<tr><td><ifont>
%body
</ifont></td></tr></table>
<restore bgcolor>
</define-tag>