Changeset 464 for trunk/gui/scripts/deviceViewer1D.tcl
- Timestamp:
- Jun 6, 2006, 10:33:16 AM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/deviceViewer1D.tcl
r437 r464 33 33 34 34 public method controls {option args} 35 public method download {option }35 public method download {option args} 36 36 37 37 protected method _loadDevice {} … … 106 106 107 107 bind $itk_component(graph) <Configure> " 108 after cancel [itcl::code $this _fixAxes]109 after 100 [itcl::code $this _fixAxes]108 [list after cancel [list catch [itcl::code $this _align]]] 109 [list after 100 [list catch [itcl::code $this _align]]] 110 110 " 111 111 … … 170 170 # ---------------------------------------------------------------------- 171 171 # USAGE: download coming 172 # USAGE: download controls <downloadCommand> 172 173 # USAGE: download now 173 174 # … … 177 178 # "string" is the data itself. 178 179 # ---------------------------------------------------------------------- 179 itcl::body Rappture::DeviceViewer1D::download {option } {180 itcl::body Rappture::DeviceViewer1D::download {option args} { 180 181 switch $option { 181 182 coming { 182 183 # nothing to do 183 184 } 185 controls { 186 # no controls for this download yet 187 return "" 188 } 184 189 now { 185 190 return "" ;# not implemented yet! 186 191 } 187 192 default { 188 error "bad option \"$option\": should be coming, now"193 error "bad option \"$option\": should be coming, controls, now" 189 194 } 190 195 } … … 460 465 461 466 # let the widget settle, then fix the axes to "nice" values 462 after cancel [ itcl::code $this _fixAxes]463 after 100 [ itcl::code $this _fixAxes]467 after cancel [list catch [itcl::code $this _fixAxes]] 468 after 100 [list catch [itcl::code $this _fixAxes]] 464 469 } 465 470 … … 489 494 set graph $itk_component(graph) 490 495 if {![winfo ismapped $graph]} { 491 after cancel [ itcl::code $this _fixAxes]492 after 100 [ itcl::code $this _fixAxes]496 after cancel [list catch [itcl::code $this _fixAxes]] 497 after 100 [list catch [itcl::code $this _fixAxes]] 493 498 return 494 499 }
Note: See TracChangeset
for help on using the changeset viewer.