Changeset 4029 for trunk/gui/apps
- Timestamp:
- Nov 4, 2013, 9:43:15 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/apps/geoviewer-test
r4012 r4029 69 69 70 70 # ---------------------------------------------------------------------- 71 # Fake data object for sending VTK data file...72 # ----------------------------------------------------------------------73 itcl::class visData {74 inherit Rappture::Drawing75 76 constructor {args} {77 Rappture::Drawing::constructor [Rappture::library standard] ""78 } {79 set _data [lindex $args 0]80 set _type [lindex $args 1]81 }82 83 public method components {args} {84 if {[llength $args] == 0} {85 return "one"86 }87 return ""88 }89 public method data {args} {90 return $_data91 }92 public method vtkdata {args} {93 return $_data94 }95 public method values {args} {96 return $_data97 }98 public method hints {args} {99 return ""100 }101 public method type {args} {102 return $_type103 }104 public method shape {args} {105 return "sphere"106 }107 108 private variable _data ""109 private variable _type ""110 }111 112 # ----------------------------------------------------------------------113 71 # USAGE: send_file 114 72 # … … 126 84 close $fid 127 85 }] == 0} { 128 set obj [visData #auto $info "polydata"] 129 $widgets(geoviewer) add $obj 86 set len [string length $info] 87 $widgets(command) insert 0 "map load data follows $len\n$info" 88 send_command 130 89 } 131 90 }
Note: See TracChangeset
for help on using the changeset viewer.