proc MkAboutDialog1 {} {
    set w .about

    if [winfo exists $w] {
	return
    }
    toplevel $w
    wm title $w "About"
    frame $w.top -relief raised -border 1
    frame $w.top1 -relief sunken -border 1
    message $w.top1.msg1 -font -*-times-bold-r-normal-*-25-*-*-*-*-*-*-* \
	-anchor n -padx 40 -width 370\
	-text {
TIX 3.6}
    message $w.top1.msg2 -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-* \
	-anchor n -padx 40 -width 370\
	-text {
Author: Ioi Kim Lam (ioi@graphics.cis.upenn.edu)
}
    tixDlgBtns $w.btns
    $w.btns add close -text "Close"   -width 8

    pack $w.top1.msg1 -expand yes -fill both -padx 10
    pack $w.top1.msg2 -expand yes -fill both -padx 10
    pack $w.top1 -in $w.top -expand yes -fill both -padx 30 -pady 10
    pack $w.top -expand yes -fill both 
    pack $w.btns -fill x

    $w.btns button close config -command "destroy $w"
}
