# $Header: /home/cvsroot/tcldb/ucodb/Tlib/startMsg,v 1.1.1.1 1996/10/12 01:08:26 de Exp $

proc startMsg msg_text {

#	Try the forms version.
	set err [catch {.msg configure -text "$msg_text"}]
	if {$err} {
#		No? try the wisql version
		set err [catch {.m.msg configure -text "$msg_text"}]
		if {$err} {
			echo "$msg_text"
		}
	}
	update
}

