#!/usr/local/bin/tcl
#
set xlocaldir /usr/local/bin/X11
set uname [id user]
set date [exec date]
set trailer "Printed by $uname at $date"
echo "Enter title for window dump"
gets stdin header

#
set err [catch {system "$xlocaldir/xwd -frame | $xlocaldir/xpr -header \"$header\" -trailer \"$trailer\" -scale 3 | lpr"}]
#
if {$err} {
	echo "Sorry, unable to print that snapshot for some reason"
} else {
	echo "Snapshot is being printed now..."
}
#
