#	connection.tcl -- connection Tcl Command for QeTcl package
#*************************
proc connection {c args} {
   upvar #0 $c data
   eval tclInt_CreateCommand $c connectionClass ConnectionClass $args
   return $c
}

proc connectionClass::CreateClassRec {} {
   global connectionClass
   # OPTIONS
   set connectionClass(rootOptions)   {}
   set connectionClass(options)       {}
   # DEFAULT VALUES
   # METHODS
}

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


