proc newSheet {} {
	
	global curRow Sheet

	set curRow 1

        set err [catch {winfo children .wisql_s}]
	if {!$err} {return}

        set sw .wisql_s
        toplevel $sw
        mkSheet $sw
        wm title $sw "WISQL Sheet"
	set Sheet 1

	doSql 1

}
