# $Header: /home/cvsroot/tcldb/ucodb/Tlib/getFont,v 1.1.1.1 1996/10/12 01:08:25 de Exp $
# tcl procs saved on Sun Sep 03 16:18:49 PDT 1995

proc getFont {w name} {
  


  case $name in {
  {banner} {
	set desired "-*-helvetica-bold-o-*-*-20-*-*-*-*-*-*-*"
	set fallback "-*-helvetica-bold-o-*-*-18-*-*-*-*-*-*-*"
  }
  {banneri} {
	set desired "-*-helvetica-bold-o-*-*-17-*-*-*-*-*-*-*"
	set fallback "-*-helvetica-bold-o-*-*-18-*-*-*-*-*-*-*"
  }
  {mediumcou} {
	set desired "-*-courier-*-r-*-*-14-*-*-*-*-*-*-*"
        set fallback "-*-courier-*-r-*-*-12-*-*-*-*-*-*-*"
  }
  {mediumcoui} {
	set desired "-*-courier-*-o-*-*-14-*-*-*-*-*-*-*"
        set fallback "-*-courier-*-o-*-*-12-*-*-*-*-*-*-*"
  }
  {mediumhelb} {
	set desired "-*-helvetica-bold-r-*-*-14-*-*-*-*-*-*-*"
	set fallback "-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"
  }
  {mediumhel} {
        set desired "-*-helvetica-medium-r-*-*-14-*-*-*-*-*-*-*"
        set fallback "-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"
  }
  {messagehel} {
	set desired "-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"
  }
  {messageheli} {
	set desired "-*-helvetica-medium-o-*-*-12-*-*-*-*-*-*-*"
  }
  {mediumtim} {
	set desired "-*-times-medium-r-normal-*-*-180*" 
  	set fallback "-*-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*"
  }
  {courier} {
	set desired "-*-courier-*-r-*-*-12-*-*-*-*-*-*-*"
	set fallback "-*-courier-*-r-*-*-10-*-*-*-*-*-*-*"
  }
  {helvetica} {
	set desired "-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"
  }
  {smallcou} {
	set desired "-*-courier-*-r-*-*-9-*-*-*-*-*-*-*"
        set fallback "-*-courier-*-r-*-*-10-*-*-*-*-*-*-*"
  }
  {smallhel} {
	set desired "-*-helvetica-medium-r-*-*-9-*-*-*-*-*-*-*"
	set fallback "-*-helvetica-medium-r-*-*-10-*-*-*-*-*-*-*"
  }
  {smallhelb} {
	set desired "-*-helvetica-bold-r-*-*-9-*-*-*-*-*-*-*"
	set fallback "-*-helvetica-bold-r-*-*-10-*-*-*-*-*-*-*"
  }
  {secure} {
	set desired "-misc-secure-*-*-*-*-16-160-*-*-*-*-*-*"
	set fallback "-*-symbol-*-r-*--18-*-*-*-*-*-*-*"
  }
  {default} {
	set desired "-*-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*"
  }
  }

   set err [catch {message $w.notawindow -font $desired -text "NOT"}]
   if {$err} {
	echo "Could not find font $desired\nusing $fallback"
	set ret $fallback	
   } else {
	set ret $desired
   }

   catch {destroy $w.notawindow}
   return $ret
}

