if {![info exists env(ProjectImage)]} {set env(ProjectImage) "space.gif"}
if {![info exists env(ProjectName)]} {set env(ProjectName) "MIDAS Web Services"}
if {![info exists env(TextColor)]} {set env(TextColor) black}
if {![info exists env(BGColor)]} {set env(BGColor) SkyBlue}

set html ""

append html "<style> body {color:$env(TextColor); background:$env(BGColor)} </style>\n"
append html "<style> .sliderInput {height:20; width:40; font-family : Arial, Helvetica, sans-serif; font-size : 12px;} </style>\n"

proc XXunknown args {
  set html "<script>alert(\"unknown command $args\\n\\nThis can be caused if the Httpd server is restarted\\n\\nReturn to the project home page and restart from there\");</script>"
}


set html