#!/usr/bin/wish

catch {source ~/.wishrc}

package require Pqa

set scriptname [info script]
while {![catch {set scripttmp [file readlink $scriptname]}]} {
    set scriptname $scripttmp
}
set tk_CBrowse_lib	[file dirname $scriptname]

if {![info exists tk_CBrowse_passwd]} {
    set tk_CBrowse_passwd	0
}

source $tk_CBrowse_lib/cb_menu.tcl
source $tk_CBrowse_lib/cb_butt.tcl
source $tk_CBrowse_lib/cb_class.tcl
source $tk_CBrowse_lib/cb_field.tcl

    frame	.all -borderwidth 0 -relief flat

    set mf [cb_menu_setup .all]
    pack $mf -side top -fill x

    set bf [cb_buttons_setup .all]
    pack $bf -side top -fill x

    frame	.all.c_and_f -borderwidth 0 -relief flat
    set ff [cb_field_setup .all.c_and_f]
    pack $ff -side right -fill both -expand true
    set cf [cb_class_setup .all.c_and_f]
    pack $cf -side left -fill both -expand true
    pack .all.c_and_f -side left -fill both -expand true

    pack .all -fill both -expand true

    wm maxsize . 1000 700
    wm title . "Postgres Class-browser"

