summaryrefslogtreecommitdiffstats
path: root/ds9/library/3d.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'ds9/library/3d.tcl')
-rw-r--r--ds9/library/3d.tcl25
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