# $Header: /home/cvsroot/tcldb/wisql/Tlib/PGuseDB,v 1.2 1998/02/16 04:40:44 de Exp ${DB}useDB,v 1.1.1.1 1996/10/12 02:26:25 de Exp $
# tcl procs saved on Tue Sep 05 09:33:19 PDT 1995

proc PGuseDB dbname {

  global dbpipe1 DB
  global server
  global base
  global MsgW

#	Close existing PG connection and open a fresh one

	pgClose 1
	set retcode [catch {set dbpipe1 [pg_connect $dbname -host $server]} error]
	puts stderr "retcode from pgconnect was $retcode"
  	puts stderr "dbpipe1 is $dbpipe1"

  	.m.title.cb configure -state normal
  	.m.title.cb delete 0 end
  	.m.title.cb insert 0 "$dbname"
  	.m.title.cb configure -state disabled
  	set base $dbname
  	setMsg $MsgW "$server: database changed to $dbname"

}

