Changeset 5728 for branches/1.4
- Timestamp:
- Jun 22, 2015, 11:57:35 AM (9 years ago)
- Location:
- branches/1.4
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/molvisviewer.tcl
r5362 r5728 26 26 Rappture::resources::register \ 27 27 molvis_server Rappture::MolvisViewer::SetServerList 28 }29 30 set debug 031 proc debug { args } {32 global debug33 if { $debug } {34 puts stderr "[info level -1]: $args"35 }36 28 } 37 29 … … 159 151 itcl::body Rappture::MolvisViewer::constructor {servers args} { 160 152 set _serverType "pymol" 153 154 #DebugOn 161 155 162 156 # Register events to the dispatcher. Base class expects !rebuild … … 468 462 } 469 463 set _dobj2raise($dataobj) $params(-raise) 470 debug"setting parameters for $dataobj"464 DebugTrace "setting parameters for $dataobj" 471 465 472 466 if { [isconnected] } { … … 726 720 727 721 itcl::body Rappture::MolvisViewer::SendCmd { cmd } { 728 debug"cmd: ($cmd)"722 DebugTrace "cmd: ($cmd)" 729 723 730 724 if { $_state(server) != $_state(client) } { … … 758 752 } 759 753 set data [ReceiveBytes $size] 760 # debug"success: reading $size bytes from proxy"754 #DebugTrace "success: reading $size bytes from proxy" 761 755 if { [string match "print*" $cacheid] } { 762 756 # $frame is the token that we sent to the proxy. … … 765 759 } else { 766 760 set _imagecache($tag) $data 767 # debug"CACHED: $tag,$cacheid"761 #DebugTrace "CACHED: $tag,$cacheid" 768 762 $_image(plot) configure -data $data 769 763 set _image(id) $tag … … 872 866 # ---------------------------------------------------------------------- 873 867 itcl::body Rappture::MolvisViewer::Rebuild {} { 874 debug"Enter"868 DebugTrace "Enter" 875 869 set changed 0 876 870 … … 1119 1113 SendCmd "pan $_view(xpan) $_view(ypan)" 1120 1114 SendCmd "zoom $_view(zoom)" 1121 debug"rotate $_view(mx) $_view(my) $_view(mz)"1115 DebugTrace "rotate $_view(mx) $_view(my) $_view(mz)" 1122 1116 1123 1117 SendCmd "raw -defer {zoom complete=1}" … … 1151 1145 blt::busy release $itk_component(hull) 1152 1146 1153 debug"Exit"1147 DebugTrace "Exit" 1154 1148 } 1155 1149 … … 1430 1424 #SendCmd "rotate $mx $my $mz" 1431 1425 EventuallyRotate $mx $my $mz 1432 debug"rotate $_view(mx) $_view(my) $_view(mz)"1426 DebugTrace "rotate $_view(mx) $_view(my) $_view(mz)" 1433 1427 } 1434 1428 set _mevent(x) $x … … 1527 1521 EventuallyRotate $a $b $c 1528 1522 #SendCmd "rotate $a $b $c" 1529 debug"x,y: $x $y: rotate $_view(vx) $_view(vy) $_view(vz)"1523 DebugTrace "x,y: $x $y: rotate $_view(vx) $_view(vy) $_view(vz)" 1530 1524 set _click(x) $x 1531 1525 set _click(y) $y … … 1692 1686 DoResize 1693 1687 SendCmd "rotate $_view(mx) $_view(my) $_view(mz)" 1694 debug"rotate $_view(mx) $_view(my) $_view(mz)"1688 DebugTrace "rotate $_view(mx) $_view(my) $_view(mz)" 1695 1689 SendCmd "pan $_view(xpan) $_view(ypan)" 1696 1690 SendCmd "zoom $_view(zoom)" -
branches/1.4/gui/scripts/visviewer.tcl
r5660 r5728 43 43 #private variable _idleTimeout 0; # No timeout 44 44 45 protected variable _debug 0 45 46 protected variable _serverType "???";# Type of server. 46 47 protected variable _sid "" ; # socket connection to server … … 84 85 protected method ColorsToColormap { colors } 85 86 protected method Connect { servers } 87 protected method DebugOff {} { 88 set _debug 0 89 } 90 protected method DebugOn {} { 91 set _debug 1 92 } 93 protected method DebugTrace { args } { 94 if { $_debug } { 95 puts stderr "[info level -1]: $args" 96 } 97 } 86 98 protected method DisableWaitDialog {} 87 99 protected method Disconnect {}
Note: See TracChangeset
for help on using the changeset viewer.