# $Header: /home/cvsroot/tcldb/wisql/Tlib/SYBuseDB,v 1.2 1998/02/16 04:40:48 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 SYBuseDB dbname {

  global dbpipe1 DB
  global server
  global base
  global MsgW

  catch {sybuse $dbpipe1 $dbname}
  set dbname [sybuse $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"

}

