Changeset 1081 for trunk/gui

Timestamp:

Jul 31, 2008 9:20:59 AM (16 years ago)

Author:

gah

Message:

fix for perl, ruby bindings; visviewer SendBytes? method sends all data at once

Location:

trunk/gui

Files:

• apps/rappture.env.in (modified) (1 diff)
• scripts/nanovisviewer.tcl (modified) (1 diff)
• scripts/visviewer.tcl (modified) (2 diffs)

trunk/gui/apps/rappture.env.in

@@ -29 +29 @@
 export TCLLIBPATH="$RAPPTURE_INSTALL_DIR/lib/vtk $TCLLIBPATH"
 export TK_LIBRARY=$RAPPTURE_INSTALL_DIR/lib/tk8.4:$RAPPTURE_INSTALL_DIR/lib64/tk8.4:$TK_LIBRARY
-export RUBYLIB=$RAPPTURE_INSTALL_DIR/lib/ruby/ruby_site:$RUBYLIB
+export RUBYLIB=$RAPPTURE_INSTALL_DIR/lib/ruby/ruby_site:$RAPPTURE_INSTALL_DIR/lib64/ruby/ruby_site:$RUBY_LIB
+

trunk/gui/scripts/nanovisviewer.tcl

@@ -758 +758 @@
         append _outbuf $string "\n"
     } else {
-        if {[SendBytes $string]} {
-            foreach line [split $string \n] {
-                SendEcho >>line $line
-            }
-        }
+        foreach line [split $string \n] {
+            SendEcho >>line $line
+        }
+        SendBytes $string
     }
 }

trunk/gui/scripts/visviewer.tcl

@@ -44 +44 @@
     private method _ServerDown {}
     private method _SendHelper {}
+    private method _SendHelper.old {}
 
     protected method SendEcho { channel {data ""} }
@@ -277 +278 @@
 #
 itcl::body Rappture::VisViewer::_SendHelper {} {
+    puts $_sid $_buffer(out)
+    flush $_sid 
+    set _done($this) 1;         # Success
+}
+
+itcl::body Rappture::VisViewer::_SendHelper.old {} {
     set bytesLeft [string length $_buffer(out)]
     if { $bytesLeft > 0} {