set framehtml {
<table width="$width" height="$height" cellpadding=0 cellspacing=0>
  <tr><td>
    <table width=$width height=16 cellpadding=0 cellspacing=0>
      <tr height=16>
        <td width=50 background="$baseurl/mfcul.jpg"></td>
        <td width=[expr $width-100] background="$baseurl/mfet.jpg"></td>
        <td width=50 background="$baseurl/mfcur.jpg"></td>
      </tr>
    </table>
  </td></tr>
  <tr><td>
    <table width=$width cellpadding=0 cellspacing=0>
      <tr>
        <td>
          <table cellpadding=0 cellspacing=0>
            <tr height=25>
              <td width=18 background="$baseurl/mfelt.jpg"></td>
              <td width=14 background="$baseurl/mficul.jpg"></td>
              <td width=[expr $width-72] height=25><div style="font: large Verdana; font-weight: bold;">$title</div></td>
              <td width=14  background="$baseurl/mficur.jpg"></td>
              <td width=26 background="$baseurl/mfert.jpg"></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td>
          <table width=$width cellpadding=0 cellspacing=0>
            <tr>
              <td width=18 background="$baseurl/mfel.jpg"></td>
              <td width=[expr $width-44] height=100%>$content</td>
              <td width=26 background="$baseurl/mfer.jpg"></td>
            </tr>
          </table>
        </td>
      </tr>
      <tr>
        <td>
          <table width=$width cellpadding=0 cellspacing=0>
            <tr height=25>
              <td width=18 background="$baseurl/mfelb.jpg"></td>
              <td width=14 background="$baseurl/mficll.jpg"></td>
              <td width=[expr $width-72]"></td>
              <td width=14 background="$baseurl/mficlr.jpg"></td>
              <td width=26 background="$baseurl/mferb.jpg"></td>
            </tr>
          </table>
        </td>
      </tr>
    </table>
  </td><tr>
  <tr><td>
    <table width=$width height=28 cellpadding=0 cellspacing=0>
      <tr height=28>
        <td width=50 background="$baseurl/mfcll.jpg"></td>
        <td width=[expr $width-100] background="$baseurl/mfeb.jpg"></td>
        <td width=50 background="$baseurl/mfclr.jpg"></td>
      </tr>
    </table>
  </td></tr>
</table>
}

proc makeframe {width height content title} {
  global framehtml conf
  set baseurl $conf(frameurl)
  return [subst $framehtml]
  }