Changeset 807
- Timestamp:
- Oct 2, 2007, 1:43:47 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/apps/nanovis-test
r805 r807 97 97 if {"" != $file && [catch { 98 98 set fid [open $file r] 99 fconfigure $fid -translation binary 99 100 set info [read $fid] 100 101 close $fid 101 102 }] == 0} { 102 if {[regexp {(#[^\n]*\n)*object [0-9]+ class} $info]} { 103 set obj [DxData #auto $info] 104 $widgets(nanovis) add $obj 105 } else { 106 set fid [open $file r] 107 fconfigure $fid -translation binary 108 set info [Rappture::encoding::encode -as zb64 [read $fid]] 109 close $fid 110 set send_cmd "volume data follows [string length $info]\n$info" 111 namespace eval Rappture::NanovisViewer [list $widgets(nanovis) _send_text $send_cmd] 112 } 103 set obj [DxData #auto $info] 104 $widgets(nanovis) add $obj 113 105 } 114 106 }
Note: See TracChangeset
for help on using the changeset viewer.