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

proc setTable tab {

	global table server DB Qtable
  global MsgW

#	puts stderr "setTable about to set array shows"

	clearEZEshow

#	puts stderr "setTable:  arg was $tab"

        .m.title.ct configure -state normal
        .m.title.ct delete 0 end
        .m.title.ct insert 0 $tab
        .m.title.ct configure -state disabled
	set table $tab

#	puts stderr "About to call getEZcols E"
	${DB}getEZcols E

#       setMsg $MsgW "$server: selected table $tab"

        set Qtable $table
        if {$DB == "PG"} {
                set Qtable [lindex [split $table .] end]
        }

#	generic showCount uses generic queryDB and nextRec
#	showCount

}

