1 files changed, 0 insertions, 27 deletions
diff --git a/ds9/library/scale.tcl b/ds9/library/scale.tcl
index 4ad2b65..ba0fdb6 100644
--- a/ds9/library/scale.tcl
+++ b/ds9/library/scale.tcl
@@ -833,15 +833,6 @@ proc ProcessScaleCmd {varname iname} {
     incr i [expr $scale::yycnt-1]
 }
 
-proc ScaleCmdSet {which value {cmd {}}} {
-    global scale
-
-    set scale($which) $value
-    if {$cmd != {}} {
-	eval $cmd
-    }
-}
-
 proc ProcessSendScaleCmd {proc id param {sock {}} {fn {}}} {
     global current
     global scale
@@ -874,15 +865,6 @@ proc ProcessMinMaxCmd {varname iname} {
     incr i [expr $minmax::yycnt-1]
 }
 
-proc MinmaxCmdSet {which value {cmd {}}} {
-    global minmax
-
-    set minmax($which) $value
-    if {$cmd != {}} {
-	eval $cmd
-    }
-}
-
 proc ProcessSendMinMaxCmd {proc id param {sock {}} {fn {}}} {
     global minmax
 
@@ -906,15 +888,6 @@ proc ProcessZScaleCmd {varname iname} {
     incr i [expr $zscale::yycnt-1]
 }
 
-proc ZscaleCmdSet {which value {cmd {}}} {
-    global zscale
-
-    set zscale($which) $value
-    if {$cmd != {}} {
-	eval $cmd
-    }
-}
-
 proc ProcessSendZScaleCmd {proc id param {sock {}} {fn {}}} {
     global zscale