#!/bin/sh
# This comment extends to the next line for tcl \
exec dbwish -f $0 $*



global Version 
set Version "\$Revision: 1.2 $ \$Date: 1997/06/03 18:02:47 $"
regsub -all \\$ $Version "" Version
regsub "Date: " $Version "" Version
regsub "Revision: " $Version "" Version
set Date "\$Date: 1997/06/03 18:02:47 $"
regsub -all \\$ $Date "" Date
regsub "Date: " $Date "" Date

set Program dbdesign
set Pf dbdesign

set auto_path [linsert $auto_path 0 $env(DSAP)/data/tcl/library/$Program]
set auto_path [linsert $auto_path 0 $env(DSAP)/data/tcl/library]

set Maxcol 25
set Attribute_clauses {type size format range units null description} 
set Relation_clauses {fields primary alternate foreign defines description}

pfgetarr Label %${Pf}#Name
pfgetarr Schema_string %${Pf}#Schema_string

wm withdraw . 

old_tk

set Changes 0
 
toplevel .schema
wm title .schema $Program:Schema
add_schema .schema

toplevel .attribute
wm title .attribute $Program:Attribute
add_attribute .attribute

toplevel .relation
wm title .relation $Program:Relation
add_relation .relation

FileBox .load_schema \
    -cwd $env(DSAP)/data/schemas2 \
    -title "$Program: Load schema" \
    -open Load \
    -persistent 1

FileBox .save_schema \
    -title "$Program: Save Schema" \
    -open Save \
    -persistent 1



# $Id: dbdesign.sh,v 1.2 1997/06/03 18:02:47 danq Exp $ 
