proc Prompt {args} {
#$Header: /home/cvsroot/tcldb/ucodb/Tlib/Prompt,v 1.1 1998/12/09 21:42:44 de Exp $

	global UserResp Mode

	if {[info exists Mode]} {
	if {$Mode == "batch"} {
		Error "You can't use Prompt in a batch exec"
		return
	}
	}

	set msg "[stringFix2 $args out]"

        eval mkDialog .confirm_Chg  \{ -text \"$msg\" \}   \"\{OK\}   \{set UserResp 1\}\"  \"\{Sorry No Can Do\} \{set UserResp 0\}\"

	vwait UserResp
	
	return $UserResp

}

