# $Header: /home/cvsroot/tcldb/wisql/Tlib/getItAll,v 1.3 1998/02/16 04:40:58 de Exp $
# tcl procs saved on Tue Sep 05 09:32:56 PDT 1995

proc getItAll {} {

global server base table Qtable

  global MsgW
        if {($base == "") || ($Qtable == "")} {
#	DO NOTHING
                return
        }

	clearsql
	.m.s.sql insert 0.1 "select * from $Qtable"
  	.m.s.l   configure -text "SQL (LookIt)"
  	set currentFile ""
  	setMsg $MsgW "Quick Look at all records in table $table"
	.m.mb.exec invoke

}

