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

proc SYBshowObjs {objclass objtype} {

  global dbpipe1 DB
  global sybmsg
  global MsgW

  set objclass [translit A-Z a-z $objclass]

  setMsg $MsgW ""
  set plist ""
  set dbname [sybuse $dbpipe1]
  set sqlcmd "select user_name(uid),name from sysobjects where type= '$objtype' order by name"
  set sqt sysobjects
  set res [doSQL 1]
  if {[lindex $res 0] == "ERROR"} {
                echo "Serious problem here"
                echo "$sqlcmd"
                echo "$res"
                exit 1
  }

  set row [sybNext 1]
  ${DB}chkMsg
  while {[string compare $sybmsg(nextrow) REG_ROW] == 0} {
    set obj "[lindex $row 0].[lindex $row 1]"
    lappend plist $obj
    set row [sybNext 1]
    ${DB}chkMsg
  }

  if {[llength $plist] == 0} {
    setMsg $MsgW "No $objclass in $dbname"
    return
  }
  pickList .$dbname:$objclass $objclass 200x250 $plist ${DB}getObj
}

