diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-01-18 20:24:37 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-01-18 20:24:37 (GMT) |
| commit | fad7f6008c4c496ef14f140de7bc01e3b541e22b (patch) | |
| tree | a3bde2860853812d89463fc8135832e24a0ab89b /ds9/library/hvsup.tcl | |
| parent | 27ae53c00f75a1a2fc1b80db483c13da0d121286 (diff) | |
| download | blt-fad7f6008c4c496ef14f140de7bc01e3b541e22b.zip blt-fad7f6008c4c496ef14f140de7bc01e3b541e22b.tar.gz blt-fad7f6008c4c496ef14f140de7bc01e3b541e22b.tar.bz2 | |
clean up ds9.tcl
Diffstat (limited to 'ds9/library/hvsup.tcl')
| -rw-r--r-- | ds9/library/hvsup.tcl | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/ds9/library/hvsup.tcl b/ds9/library/hvsup.tcl index b97282d..85a0b3b 100644 --- a/ds9/library/hvsup.tcl +++ b/ds9/library/hvsup.tcl @@ -1793,16 +1793,7 @@ proc HVImageURL {varname url width height} { {} - file { if {[file exists $r(path)]} { - # can't use -file for zvfs - # catch {image create photo -file $r(path)} img - set ch [open $r(path) r] - fconfigure $ch -translation binary -encoding binary - set dd [read $ch] - close $ch - unset ch - - catch {image create photo -data "$dd"} img - unset dd + catch {image create photo -file $r(path)} img } } ftp { |