wp_slide_header

one of the documented procedures in this installation of the ACS
Usage:
wp_slide_header   presentation_id   title   style   text_color   background_color   background_image   link_color   vlink_color   alink_color
What it does:
Generates a header for slides.
Defined in: /web/philip/tcl/wp-defs.tcl

Source code:


    if { $style == "" || $style == -1 } {
	set style "default"
    }

    set out "
<html>
<head>
  <link rel=stylesheet href=\"[wp_style_url]/$style/style.css\" type=\"text/css\">
  <title>$title</title>
</head>
<body"
    if { $background_image != "" } {
	append out " background=\"[wp_style_url]/$style/$background_image\""
    }
    foreach property {
	{ text text_color }
	{ bgcolor background_color }
	{ link link_color }
	{ vlink vlink_color }
	{ alink alink_color }
    } {
	set value [set [lindex $property 1]]
	if { $value != "" } {
	    append out " [lindex $property 0]=[ad_color_to_hex $value]"
	}
    }
    append out ">\n"
    return $out


philg@mit.edu