- Timestamp:
- Mar 8, 2015, 3:16:27 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowvisviewer.tcl
r5098 r5099 193 193 $_dispatcher register !play 194 194 $_dispatcher dispatch $this !play "[itcl::code $this flow next]; list" 195 195 196 196 # Draw legend event 197 197 $_dispatcher register !goto … … 234 234 $this-qy $_view(-qy) 235 235 $this-qz $_view(-qz) 236 $this-zoom $_view(-zoom) 236 $this-zoom $_view(-zoom) 237 237 $this-xpan $_view(-xpan) 238 238 $this-ypan $_view(-ypan) … … 364 364 0,0 $itk_component(3dview) -fill both -reqwidth $w \ 365 365 1,0 $itk_component(legend) -fill x 366 blt::table configure $itk_component(plotarea) r1 -resize none 366 blt::table configure $itk_component(plotarea) r1 -resize none 367 367 # Create flow controls... 368 368 … … 1110 1110 # Called automatically whenever something changes that affects the data 1111 1111 # in the widget. Clears any existing data and rebuilds the widget to 1112 # display new data. 1112 # display new data. 1113 1113 # 1114 1114 itcl::body Rappture::FlowvisViewer::Rebuild {} { … … 1123 1123 # Turn on buffering of commands to the server. We don't want to 1124 1124 # be preempted by a server disconnect/reconnect (which automatically 1125 # generates a new call to Rebuild). 1125 # generates a new call to Rebuild). 1126 1126 StartBufferingCommands 1127 1127 … … 2667 2667 append cmd " -corner1 {$info(corner1)} " 2668 2668 append cmd " -corner2 {$info(corner2)}\n" 2669 } 2669 } 2670 2670 append cmd "$tag data follows $nbytes $extents\n" 2671 2671 return $cmd … … 2857 2857 # We wait here for either 2858 2858 # 1) the png to be delivered or 2859 # 2) timeout or 2859 # 2) timeout or 2860 2860 # 3) user cancels the operation. 2861 2861 tkwait variable $var … … 2909 2909 grab set $inner 2910 2910 focus $inner.cancel 2911 2911 2912 2912 flow duration 2913 2913 flow speed … … 2921 2921 set start [clock seconds] 2922 2922 SendCmd "flow video $token -width $w -height $h -numframes $nframes " 2923 2923 2924 2924 $popup activate $widget below 2925 2925 update idletasks … … 2927 2927 # We wait here until 2928 2928 # 1. the movie is delivered or 2929 # 2. we've timed out or 2929 # 2. we've timed out or 2930 2930 # 3. the user has canceled the operation.b 2931 2931 tkwait variable $var
Note: See TracChangeset
for help on using the changeset viewer.