# -*- tcl -*-

proc TEItools_PI_frontpage { args } {
    global TEItools_frontpage_file
    set TEItools_frontpage_file $args
}

rename startTitlePage {}
rename endTitlePage {}
rename beforeTitle {}
rename afterTitle {}

proc startTitlePage {} {
    global TEItools_frontpage_file TEItools_frontpage_value silence

    if { [info exists TEItools_frontpage_value] } {
	set TEItools_frontpage_file $TEItools_frontpage_value
    }
    
    if { ![info exists TEItools_frontpage_file] } {
	Error "frontpage style used, but no title page file defined.
Use `-style frontpage,frontpage=<file>'."
	return
    }
    
    return "

\\begin{picture}(0,0)(0,0)
\\put(-93,-745){[insertGraphicFile $TEItools_frontpage_file]}
\\end{picture}
\\thispagestyle{empty}\\clearpage
"
}

proc endTitlePage {} {
    return
}

proc beforeTitle {} {
    global silence
    set silence 1
}

proc afterTitle {} {
    global silence
    set silence 0
}
