Changeset 2405 for trunk/gui

Timestamp:

Aug 23, 2011, 10:37:59 AM (13 years ago)

Author:

ldelgass

Message:

Remove redundant send/receive echo (already handled in visviewer.tcl)

Location:

trunk/gui/scripts

Files:

• vtkcontourviewer.tcl (modified) (3 diffs)
• vtkviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkcontourviewer.tcl

@@ -15 +15 @@
 package require BLT
 package require Img
-                                        
+
 option add *VtkContourViewer.width 4i widgetDefault
 option add *VtkContourViewer*cursor crosshair widgetDefault
@@ -673 +673 @@
         append _outbuf $string "\n"
     } else {
-        foreach line [split $string \n] {
-            SendEcho >>line $line
-        }
         SendBytes "$string\n"
     }
@@ -695 +692 @@
     array set info $args
     set bytes [ReceiveBytes $info(-bytes)]
-    ReceiveEcho <<line "<read $info(-bytes) bytes"
     if { $info(-type) == "image" } {
         $_image(plot) configure -data $bytes

trunk/gui/scripts/vtkviewer.tcl

@@ -692 +692 @@
         append _outbuf $string "\n"
     } else {
-        foreach line [split $string \n] {
-            SendEcho >>line $line
-        }
         SendBytes "$string\n"
     }
@@ -714 +711 @@
     array set info $args
     set bytes [ReceiveBytes $info(-bytes)]
-    ReceiveEcho <<line "<read $info(-bytes) bytes"
     if { $info(-type) == "image" } {
         if 0 {
@@ -1236 +1232 @@
             set arr [vtkCharArray $tag-xvtkCharArray]
             $arr SetArray $data [string length $data] 1
-            set reader [vtkPolyDataReader $tag-xvtkPolyDataReader]
+            set reader [vtkDataSetReader $tag-xvtkDataSetReader]
             $reader SetInputArray $arr
             $reader ReadFromInputStringOn
-            set mapper [vtkPolyDataMapper $tag-xvtkPolyDataMapper]
-            $mapper SetInput [$reader GetOutput]
-            set actor [vtkActor $tag-xvthActor]
-            $actor SetMapper $mapper
-            set _limits($tag) [$actor GetBounds]
-            rename $actor ""
+            set _limits($tag) [[$reader GetOutput] GetBounds]
             rename $reader ""
             rename $arr ""
-            rename $mapper ""
         }
         foreach { xMin xMax yMin yMax zMin zMax} $_limits($tag) break