Open Mash Cross Reference
mash/tcl/degas/degasserver/rtcp-listener.tcl

   import RTCPListener
   Class DegasRTCPListener -superclass RTCPListener
   DegasRTCPListener instproc init {aglp net} {
           $self set aglp_ $aglp
           $self set net_ $net
           $self next
           $self set_network $net
   }
   
  
  DegasRTCPListener instproc recv_sr { src latency } {
          $self instvar aglp_ 
          $aglp_ set_latency $src $latency
  }
  
  
  DegasRTCPListener instproc destroy { } {
          $self instvar net_
          delete $net_
          $self next
  }