*** /home/fellowsd/lib/tk8.0/msgbox.tcl	Fri Aug 22 15:38:39 1997
--- msgbox.tcl	Wed Oct 29 10:00:55 1997
***************
*** 11,16 ****
--- 11,19 ----
  # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  #
  
+ if {[lsearch -exact [font names] tkMessageBoxFont] == -1} {
+     font create tkMessageBoxFont -family times -size 18
+ }
  
  # tkMessageBox --
  #
***************
*** 161,169 ****
  
      option add *Dialog.msg.wrapLength 3i widgetDefault
      label $w.msg -justify left -text $data(-message)
!     catch {$w.msg configure -font \
! 		-Adobe-Times-Medium-R-Normal--*-180-*-*-*-*-*-*
!     }
      pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
      if {$data(-icon) != ""} {
  	label $w.bitmap -bitmap $data(-icon)
--- 164,170 ----
  
      option add *Dialog.msg.wrapLength 3i widgetDefault
      label $w.msg -justify left -text $data(-message)
!     catch {$w.msg configure -font tkMessageBoxFont}
      pack $w.msg -in $w.top -side right -expand 1 -fill both -padx 3m -pady 3m
      if {$data(-icon) != ""} {
  	label $w.bitmap -bitmap $data(-icon)