proc initspecialfonts {} {
    ::font::new "big" "big" "-family Helvetica -size -24 -weight bold -slant italic"
}

call_init ::initspecialfonts