- Timestamp:
- Jun 22, 2015, 2:36:39 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/molvisviewer.tcl
r5361 r5726 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)"
Note: See TracChangeset
for help on using the changeset viewer.