#	relation.tcl -- relation Tcl Command for QeTcl package
#*************************
proc relation {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c relationClass RelationClass $args
   return $c
}

proc relationClass::CreateClassRec {} {
   global relationClass
   # OPTIONS
   set relationClass(rootOptions)   {}
   set relationClass(options)       {}
   # DEFAULT VALUES
   # METHODS
   set relationClass(methods)       {parent child fk_index list_of_foreign_keys}
}

proc relationClass::ConstructCommand {c} {
   upvar #0 $c data
   # initialization stuff
}

#*************************
proc relationClass::parent {c args} {
   upvar  #0 $c data
   return [$data(source)::rel_parent $c]
}
#*************************
proc relationClass::child {c args} {
   upvar  #0 $c data
   return [$data(source)::rel_child $c]
}
proc relationClass::fk_index {c args} {
   upvar  #0 $c data
   return [$data(source)::rel_fk_index $c]
}
proc relationClass::list_of_foreign_keys {c args} {
   upvar  #0 $c data
   return [$data(source)::list_of_foreign_keys $c]
}

