diff options
Diffstat (limited to 'ds9/library/3d.tcl')
-rw-r--r-- | ds9/library/3d.tcl | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/ds9/library/3d.tcl b/ds9/library/3d.tcl index 2a9aa0b..df5fd8e 100644 --- a/ds9/library/3d.tcl +++ b/ds9/library/3d.tcl @@ -105,11 +105,6 @@ proc 3DDialog {} { slider $f.azslider -180 180 [msgcat::mc {Azimuth}] threed(az) \ [list 3DViewMotion] - bind $f.elslider.slider <ButtonPress-1> {3DViewButton} - bind $f.elslider.slider <ButtonRelease-1> {3DViewRelease} - bind $f.azslider.slider <ButtonPress-1> {3DViewButton} - bind $f.azslider.slider <ButtonRelease-1> {3DViewRelease} - grid $f.azslider -padx 2 -pady 2 -sticky ew grid $f.elslider -padx 2 -pady 2 -sticky ew grid columnconfigure $f 0 -weight 1 @@ -235,16 +230,6 @@ proc 3DViewPoint {} { } } -proc 3DViewButton {} { - global threed - global current - - if {$current(frame) != {}} { - $current(frame) 3d view $threed(az) $threed(el) - Lock3DCurrent - } -} - proc 3DViewMotion {} { global threed global current @@ -255,16 +240,6 @@ proc 3DViewMotion {} { } } -proc 3DViewRelease {} { - global threed - global current - - if {$current(frame) != {}} { - $current(frame) 3d view $threed(az) $threed(el) - Lock3DCurrent - } -} - proc 3DScale {} { global threed global current |