Open Mash Cross Reference
mash/tcl/degas/degasclient/ui.tcl

   import VicUI
   
   # The reason for implementing all this is to add a tiny binding to

   # UserWindow that trap mouse click.

   
   Class VicUI/Degas -superclass {VicUI}
   
   VicUI/Degas public init {path local_chan glob_chan agent vpipe cmd spec controller} {
           $self instvar controller_
          $self instvar fps_log_
  
          set fps_log_ ""
          set controller_  $controller
          $self next $path $local_chan $glob_chan $agent $vpipe $cmd $spec
  }
  
  VicUI/Degas public layout_gui {w} {
          $self instvar asm_ 
          $self instvar controlMenu_ 
          $self instvar videoAgent_ vpipe_ vframe_ exitCmd_ localChannel_
          
          set vframe_ [new VisualFrame $w.top]
  
          $self instvar controller_
          set asm_ [new ActiveSourceManager/Degas\
                  $self $w.top $videoAgent_ vertical $localChannel_ $controller_]
          $vframe_ attach_observer $asm_
          foreach i { 1 2 3 4 } {
                  bind . <Key-$i> "$asm_ redecorate $i"
          }
      
          pack $w.top -expand 1 -fill both
  
      set controlMenu_ [new ControlMenu $self $videoAgent_ $vpipe_ $vframe_ $asm_ [new UISrcListWindow $w $videoAgent_]]
  
      #XXX a bit dangerous to have this in the GUI

          bind . <t> "$controlMenu_ build_window ; $controlMenu_ invoke_transmit"
  
          # Create a label that display current server.

          global current_gateway
          set current_gateway "none"
          label $w.top.gateway -textvariable current_gateway
          pack $w.top.gateway -fill x -side bottom
          
          $self build_menubar $w.top.bar $controlMenu_ [new VicHelpWindow .help] "$exitCmd_"
          pack $w.top.bar -fill x -side bottom
  
          $asm_ init_grid $w.top.f
          pack $w.top.f -expand 1 -fill both -side top
  }
  
  VicUI/Degas instproc open_log { name } {
      $self instvar fps_log_ fps_bps_list_
      set fps_log_ [open $name "w"]
      set fps_bps_list_ ""
  }
  
  VicUI/Degas instproc log_rate { src } {
      $self instvar fps_log_ fps_bps_list_
      if {$fps_log_ != ""} {
          global fpshat bpshat
          set fps_bps_list_ "$fps_bps_list_$fpshat($src)\t$bpshat($src)\n"
      }
  }
  
  VicUI/Degas instproc close_log { } {
      $self instvar fps_log_ fps_bps_list_
      if {$fps_log_ != ""} {
          puts $fps_log_ $fps_bps_list_
          close $fps_log_
      }
  }
  
  Class ActiveSourceManager/Degas -superclass {ActiveSourceManager} 
  
  ActiveSourceManager/Degas public init {ui top agent orientation local_channel
  controller} {
          $self instvar controller_
          set controller_ $controller
          $self next $ui $top $agent $orientation $local_channel
  }
  ActiveSourceManager/Degas public really_activate src {
          $self instvar grid_ curcol_ currow_ ui_ list_direction_ localChannel_
          $self instvar controller_
  
          set as [new ActiveSource/Degas $self $ui_ $grid_.$src $src\
              $localChannel_ $controller_]
  
          grid $grid_.$src -row $currow_ -column $curcol_ -sticky we
  
          if { $list_direction_ == "vertical" } { 
                  grid columnconfigure $grid_ $curcol_ -weight 1
          } else {
                  grid rowconfigure $grid_ $currow_ -weight 1
          }
  
          $ui_ update_decoder $src
          $self bump
  
         Switcher rebuild_switch_list_menu
 }
 
 Class ActiveSource/Degas -superclass {ActiveSource} 
 
 ActiveSource/Degas public init {asm ui grid src local_channel controller} {
         $self instvar controller_
         set controller_ $controller
         $self next $asm $ui $grid $src $local_channel
 }
 
 ActiveSource/Degas public create_user_window {} {
         $self instvar asm_ localChannel_ controller_
         new UserWindow/Degas $asm_ $self [$self yesno useCues] $localChannel_\
             $controller_
 }
 
 ActiveSource/Degas instproc update { } {
     $self next
     $self instvar ui_ src_
     $ui_ log_rate $src_
 }
 
 
 Class UserWindow/Degas -superclass {UserWindow}
 
 UserWindow/Degas public init {asm as usecues local_channel controller} {
         $self instvar controller_
         set controller_ $controller
         $self next $asm $as $usecues $local_channel
 }
 
 UserWindow/Degas public create-window {w as useCB {showMenus 1}} {
         $self instvar path_
 
         $self next $w $as $useCB
         set cmd "$self mouse_click_callback %x %y"
         bind $path_.frame.video <Double-ButtonPress-1> $cmd 
 }
 
 UserWindow/Degas public mouse_click_callback {x y} {
     $self instvar controller_
     $self instvar vw_
 #   this maps absolute coordinates to relative coordinates (0..1)

         $controller_ mouse_click_callback \
         [expr double($x)/[[$vw_ set window_] width]] \
         [expr double($y)/[[$vw_ set window_] height]]
 }