TimesliderNamgraphView.tcl
上传用户:rrhhcc
上传日期:2015-12-11
资源大小:54129k
文件大小:1k
源码类别:

通讯编程

开发平台:

Visual C++

  1. #Copyright (C) 1998 by USC/ISI
  2. # All rights reserved.
  3. #
  4. # Redistribution and use in source and binary forms are permitted
  5. # provided that the above copyright notice and this paragraph are
  6. # duplicated in all such forms and that any documentation, advertising
  7. # materials, and other materials related to such distribution and use
  8. # acknowledge that the software was developed by the University of
  9. # Southern California, Information Sciences Institute.  The name of the
  10. # University may not be used to endorse or promote products derived from
  11. # this software without specific prior written permission.
  12. #
  13. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  14. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  15. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  16. #
  17. Class TimesliderNamgraphView -superclass TimesliderView
  18. TimesliderNamgraphView instproc setattachedView {viewid} {
  19. $self instvar _attachedviewid
  20. set _attachedviewid $viewid
  21. }
  22. TimesliderNamgraphView instproc update {timeset} {
  23. $self next $timeset
  24.         set time [lindex $timeset 0]
  25. set type [lindex $timeset 1]    
  26. if {[string compare $type "max"] == 0} {
  27.     $self instvar _attachedviewid
  28.     set s [$_attachedviewid set current_win_]
  29.     $_attachedviewid set maxx_ $time
  30.     $_attachedviewid view_callback $s
  31. }
  32. }