Changeset 5130 for branches/1.4/gui/scripts
- Timestamp:
- Mar 14, 2015, 12:46:48 AM (9 years ago)
- Location:
- branches/1.4
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.4
-
branches/1.4/gui/scripts/visviewer.tcl
r5129 r5130 48 48 protected variable _outbuf ; # buffer for outgoing commands 49 49 protected variable _buffering 0 50 protected variable _cmdSeq 0 ; # Command sequence number 50 51 protected variable _dispatcher ""; # dispatcher for !events 51 52 protected variable _hosts "" ; # list of hosts for server … … 322 323 set _buffer(in) "" 323 324 set _outbuf "" 325 set _cmdSeq 0 324 326 } 325 327 … … 402 404 puts -nonewline $_sid $_buffer(out) 403 405 flush $_sid 406 set _buffer(out) "" 404 407 set _done($this) 1; # Success 405 408 } … … 455 458 # before sending anything. 456 459 set _done($this) 1 460 if {$_trace && $_buffer(out) != ""} { 461 puts stderr "ERROR: re-entered SendBytes: buffer=([string range $_buffer(out) 0 70]...)" 462 puts stderr "New cmd $_cmdSeq: [string range $bytes 0 70]..." 463 } 457 464 set _buffer(out) $bytes 458 465 # There's problem when the user is interacting with the GUI at the … … 564 571 if { [string compare -length 3 $line "nv>"] == 0 } { 565 572 ReceiveEcho <<line $line 573 if ($_trace) { 574 puts stderr "<<[string range $line 0 70]" 575 } 566 576 append _buffer(in) [string range $line 3 end] 567 577 append _buffer(in) "\n" … … 826 836 # ---------------------------------------------------------------------- 827 837 itcl::body Rappture::VisViewer::SendDebugCommand {} { 838 incr _cmdSeq 828 839 set cmd [$itk_component(command) get] 829 840 append cmd "\n" 841 if {$_trace} { 842 puts stderr "$_cmdSeq>>[string range $cmd 0 70]" 843 } 830 844 SendBytes $cmd 831 845 $itk_component(command) delete 0 end … … 1193 1207 # 1194 1208 itcl::body Rappture::VisViewer::SendCmd {string} { 1209 incr _cmdSeq 1210 if {$_trace} { 1211 puts stderr "$_cmdSeq>>[string range $string 0 70]" 1212 } 1195 1213 if { $_buffering } { 1196 1214 append _outbuf $string "\n" … … 1210 1228 puts stderr "$_cmdSeq>>data payload" 1211 1229 } 1230 incr _cmdSeq 1231 if {$_trace} { 1232 puts stderr "$_cmdSeq>>[string range $string 0 70]" 1233 } 1212 1234 if { $_buffering } { 1213 1235 append _outbuf $bytes
Note: See TracChangeset
for help on using the changeset viewer.