# $Header: /home/cvsroot/tcldb/wisql/Tlib/putSQL,v 1.5 1998/02/16 04:41:02 de Exp $
# tcl procs saved on Tue Sep 05 09:33:10 PDT 1995

proc putSQL w {

	global DB CmdText
	upvar #0 EZRsqlcmd sqlcmd
  global MsgW

#	first make sure that you make a new SQL command

	mkSQL $w 

#	put the sql command in the main window and inform the user
#	with a message in both places

	$CmdText delete 1.0 end
	$CmdText insert 0.1 $sqlcmd 
	$w.messages configure -text "SQL command transferred. To execute it use the Execute button in the main window."
	catch {setMsg $MsgW "This SQL command was generated by EZrpt."}
	
}

