Changeset 2470 for trunk/gui/apps/vtkviewer-test

Timestamp:

Sep 4, 2011, 2:33:59 PM (13 years ago)

Author:

ldelgass

Message:

Add a menu item to send a VTK file as the streamlines drawing type for testing

File:

• trunk/gui/apps/vtkviewer-test (modified) (4 diffs)

trunk/gui/apps/vtkviewer-test

@@ -78 +78 @@
     } {
         set _data [lindex $args 0]
+        set _type [lindex $args 1]
     }
 
@@ -96 +97 @@
     }
     public method type {args} {
-        return ""
+        return $_type
     }
 
     private variable _data ""
+    private variable _type ""
 }
 
@@ -118 +120 @@
             close $fid
           }] == 0} {
-        set obj [visData #auto $info]
+        set obj [visData #auto $info ""]
+        $widgets(vtkviewer) add $obj
+    }
+}
+
+# ----------------------------------------------------------------------
+# USAGE: send_streamlines_file
+#
+# Prompts the user for a text file, and then sends the text within
+# that file along to the rendering widget.
+# ----------------------------------------------------------------------
+proc send_streamlines_file {} {
+    global widgets
+
+    set file [tk_getOpenFile -title "Open VTK File as Streamlines"]
+    if {"" != $file && [catch {
+            set fid [open $file r]
+            fconfigure $fid -translation binary
+            set info [read $fid]
+            close $fid
+          }] == 0} {
+        set obj [visData #auto $info "streamlines"]
         $widgets(vtkviewer) add $obj
     }
@@ -319 +342 @@
 menu .mbar.file
 .mbar.file add command -label "Send VTK File..." -underline 0 -command send_file
+.mbar.file add command -label "Send VTK File as Streamlines..." -underline 0 -command send_streamlines_file
 .mbar.file add command -label "Load script..." -underline 0 -command load_script
 .mbar.file add command -label "Reset" -underline 0 -command reset