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