diff options
| -rw-r--r-- | ds9/library/bin.tcl | 24 | ||||
| -rw-r--r-- | ds9/library/mbin.tcl | 54 |
2 files changed, 39 insertions, 39 deletions
diff --git a/ds9/library/bin.tcl b/ds9/library/bin.tcl index 8c28896..93ab74a 100644 --- a/ds9/library/bin.tcl +++ b/ds9/library/bin.tcl @@ -15,7 +15,7 @@ proc BinDef {} { set bin(lock) 0 set bin(function) sum - set bin(factor) { 1 1 } + set bin(factor) {1 1} set bin(depth) 1 set bin(buffersize) 1024 @@ -246,23 +246,23 @@ proc BinDialog {} { -command BinToFit $mb.bin add separator $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 1" \ - -variable bin(factor) -value { 1 1 } -command ChangeBinFactor + -variable bin(factor) -value {1 1} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 2" \ - -variable bin(factor) -value { 2 2 } -command ChangeBinFactor + -variable bin(factor) -value {2 2} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 4" \ - -variable bin(factor) -value { 4 4 } -command ChangeBinFactor + -variable bin(factor) -value {4 4} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 8" \ - -variable bin(factor) -value { 8 8 } -command ChangeBinFactor + -variable bin(factor) -value {8 8} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 16" \ - -variable bin(factor) -value { 16 16 } -command ChangeBinFactor + -variable bin(factor) -value {16 16} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 32" \ - -variable bin(factor) -value { 32 32 } -command ChangeBinFactor + -variable bin(factor) -value {32 32} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 64" \ - -variable bin(factor) -value { 64 64 } -command ChangeBinFactor + -variable bin(factor) -value {64 64} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 128" \ - -variable bin(factor) -value { 128 128 } -command ChangeBinFactor + -variable bin(factor) -value {128 128} -command ChangeBinFactor $mb.bin add radiobutton -label "[msgcat::mc {Bin}] 256" \ - -variable bin(factor) -value { 256 256 } -command ChangeBinFactor + -variable bin(factor) -value {256 256} -command ChangeBinFactor menu $mb.buffer $mb.buffer add radiobutton -label {128x128} \ @@ -771,10 +771,10 @@ proc ProcessBinCmd {varname iname} { set by [lindex $var [expr $i+1]] # note: the spaces are needed so that the menus are in sync if {$by != {} && [string is double $by]} { - set bin(factor) " $bx $by " + set bin(factor) "$bx $by" incr i } else { - set bin(factor) " $bx $bx " + set bin(factor) "$bx $bx" } ChangeBinFactor } diff --git a/ds9/library/mbin.tcl b/ds9/library/mbin.tcl index a95482f..9ada431 100644 --- a/ds9/library/mbin.tcl +++ b/ds9/library/mbin.tcl @@ -23,23 +23,23 @@ proc BinMainMenu {} { -command BinToFit $ds9(mb).bin add separator $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 1" \ - -variable bin(factor) -value { 1 1 } -command ChangeBinFactor + -variable bin(factor) -value {1 1} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 2" \ - -variable bin(factor) -value { 2 2 } -command ChangeBinFactor + -variable bin(factor) -value {2 2} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 4" \ - -variable bin(factor) -value { 4 4 } -command ChangeBinFactor + -variable bin(factor) -value {4 4} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 8" \ - -variable bin(factor) -value { 8 8 } -command ChangeBinFactor + -variable bin(factor) -value {8 8} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 16" \ - -variable bin(factor) -value { 16 16 } -command ChangeBinFactor + -variable bin(factor) -value {16 16} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 32" \ - -variable bin(factor) -value { 32 32 } -command ChangeBinFactor + -variable bin(factor) -value {32 32} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 64" \ - -variable bin(factor) -value { 64 64 } -command ChangeBinFactor + -variable bin(factor) -value {64 64} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 128" \ - -variable bin(factor) -value { 128 128 } -command ChangeBinFactor + -variable bin(factor) -value {128 128} -command ChangeBinFactor $ds9(mb).bin add radiobutton -label "[msgcat::mc {Bin}] 256" \ - -variable bin(factor) -value { 256 256 } -command ChangeBinFactor + -variable bin(factor) -value {256 256} -command ChangeBinFactor $ds9(mb).bin add separator $ds9(mb).bin add radiobutton -label {128x128} \ -variable bin(buffersize) -value 128 -command ChangeBinBufferSize @@ -76,23 +76,23 @@ proc PrefsDialogBinMenu {w} { -variable pbin(function) -value sum $m add separator $m add radiobutton -label "[msgcat::mc {Bin}] 1" \ - -variable pbin(factor) -value { 1 1 } + -variable pbin(factor) -value {1 1} $m add radiobutton -label "[msgcat::mc {Bin}] 2" \ - -variable pbin(factor) -value { 2 2 } + -variable pbin(factor) -value {2 2} $m add radiobutton -label "[msgcat::mc {Bin}] 4" \ - -variable pbin(factor) -value { 4 4 } + -variable pbin(factor) -value {4 4} $m add radiobutton -label "[msgcat::mc {Bin}] 8" \ - -variable pbin(factor) -value { 8 8 } + -variable pbin(factor) -value {8 8} $m add radiobutton -label "[msgcat::mc {Bin}] 16" \ - -variable pbin(factor) -value { 16 16 } + -variable pbin(factor) -value {16 16} $m add radiobutton -label "[msgcat::mc {Bin}] 32" \ - -variable pbin(factor) -value { 32 32 } + -variable pbin(factor) -value {32 32} $m add radiobutton -label "[msgcat::mc {Bin}] 64" \ - -variable pbin(factor) -value { 64 64 } + -variable pbin(factor) -value {64 64} $m add radiobutton -label "[msgcat::mc {Bin}] 128" \ - -variable pbin(factor) -value { 128 128 } + -variable pbin(factor) -value {128 128} $m add radiobutton -label "[msgcat::mc {Bin}] 256" \ - -variable pbin(factor) -value { 256 256 } + -variable pbin(factor) -value {256 256} $m add separator $m add radiobutton -label {128x128} -variable pbin(buffersize) -value 128 $m add radiobutton -label {256x256} -variable pbin(buffersize) -value 256 @@ -179,31 +179,31 @@ proc CreateButtonsBin {} { RadioButton $ds9(buttons).bin.1 \ "[string tolower [msgcat::mc {Bin}]] 1" \ - bin(factor) { 1 1 } ChangeBinFactor + bin(factor) {1 1} ChangeBinFactor RadioButton $ds9(buttons).bin.2 \ "[string tolower [msgcat::mc {Bin}]] 2" \ - bin(factor) { 2 2 } ChangeBinFactor + bin(factor) {2 2} ChangeBinFactor RadioButton $ds9(buttons).bin.4 \ "[string tolower [msgcat::mc {Bin}]] 4" \ - bin(factor) { 4 4 } ChangeBinFactor + bin(factor) {4 4} ChangeBinFactor RadioButton $ds9(buttons).bin.8 \ "[string tolower [msgcat::mc {Bin}]] 8" \ - bin(factor) { 8 8 } ChangeBinFactor + bin(factor) {8 8} ChangeBinFactor RadioButton $ds9(buttons).bin.16 \ "[string tolower [msgcat::mc {Bin}]] 16" \ - bin(factor) { 16 16 } ChangeBinFactor + bin(factor) {16 16} ChangeBinFactor RadioButton $ds9(buttons).bin.32 \ "[string tolower [msgcat::mc {Bin}]] 32" \ - bin(factor) { 32 32 } ChangeBinFactor + bin(factor) {32 32} ChangeBinFactor RadioButton $ds9(buttons).bin.64 \ "[string tolower [msgcat::mc {Bin}]] 64" \ - bin(factor) { 64 64 } ChangeBinFactor + bin(factor) {64 64} ChangeBinFactor RadioButton $ds9(buttons).bin.128 \ "[string tolower [msgcat::mc {Bin}]] 128" \ - bin(factor) { 128 128 } ChangeBinFactor + bin(factor) {128 128} ChangeBinFactor RadioButton $ds9(buttons).bin.256 \ "[string tolower [msgcat::mc {Bin}]] 256" \ - bin(factor) { 256 256 } ChangeBinFactor + bin(factor) {256 256} ChangeBinFactor RadioButton $ds9(buttons).bin.128x {128x128} \ bin(buffersize) 128 ChangeBinBufferSize |