proc initspecialfonts {} {
    ::font::new "headline" "headline" "-family Times -size -26"
}

call_init ::initspecialfonts