proc dbMsgs {} {

        set w .dbM
        toplevel $w -class Dialog
        wm title $w "DB Server Messages"
        wm iconname $w "DBMSGS"

        frame $w.f1 
	frame $w.b1 

	text $w.f1.t -yscroll "$w.f1.tv set" -wrap word -border 2 -relief sunken
#	scrollbar $w.f1.th -orient horizontal -relief sunken \
#		-command "$w.f1.t xview"
	scrollbar $w.f1.tv -orient vertical -relief sunken \
		-command "$w.f1.t yview"
	
	button $w.b1.bye -text "Quit" -command "set Plot 0; destroy $w"

#	pack $w.f1.th -side bottom -expand true -fill x
	pack $w.f1.tv -side right -expand true -fill y
	pack $w.f1.t -side top -expand true -fill both

	pack $w.b1.bye -side right

	pack $w.f1 -side top
	pack $w.b1 -side top
	
}

