diff options
Diffstat (limited to 'ds9/library/prefs.tcl')
-rw-r--r-- | ds9/library/prefs.tcl | 1004 |
1 files changed, 1004 insertions, 0 deletions
diff --git a/ds9/library/prefs.tcl b/ds9/library/prefs.tcl new file mode 100644 index 0000000..d894965 --- /dev/null +++ b/ds9/library/prefs.tcl @@ -0,0 +1,1004 @@ +# Copyright (C) 1999-2016 +# Smithsonian Astrophysical Observatory, Cambridge, MA, USA +# For conditions of distribution and use, see copyright notice in "copyright" + +package provide DS9 1.0 + +proc PrefsDef {} { + global prefs + global iprefs + global ds9 + + set iprefs(top) .pf + set iprefs(mb) .pfmb + set iprefs(tabs) {} + + set prefs(ext) {.prf} + set prefs(version) [lindex $ds9(version) 0] + set prefs(dir) [file join [GetEnvHome] ".$ds9(app)"] + set prefs(fn) [file join $prefs(dir) "$ds9(app).$prefs(version)$prefs(ext)"] +} + +proc LoadPrefs {} { + global ds9 + global prefs + + if {[file exist $prefs(dir)] && [file isdirectory $prefs(dir)]} { + # new style + # look for current version + switch -- [SourceInitFile $prefs(fn)] { + 1 { + # success + FixPrefs $prefs(version) + } + 0 { + # found and failed to execute + } + -1 { + # look for prev version + set major [lindex [split $prefs(version) {.}] 0] + set minor [lindex [split $prefs(version) {.}] 1] + if {$minor>0} { + set minor [expr $minor-1] + } else { + set major [expr $minor-1] + set minor 9 + } + set fn [file join $prefs(dir) "$ds9(app).${major}.${minor}$prefs(ext)"] + if {[SourceInitFile $fn] == 1} { + FixPrefs $prefs(version) + } + } + } + } else { + # ok, try old style + if {[SourceInitFileDir $prefs(ext)]} { + # ok, this is a major kludge to fix a major booboo. + # Beta versions generated prefs with version set to + # something like '7.4b7'. We need to remove the 'b7' part. + set ll [string first {b} $prefs(version)] + if {$ll != -1} { + set ll [expr $ll -1] + set prefs(version) [string range $prefs(version) 0 $ll] + } + FixPrefs $prefs(version) + } + } +} + +proc CheckPrefs {} { + global ds9 + global prefs + + set rr [string compare $prefs(version) [lindex $ds9(version) 0]] + switch $rr { + -1 { + if {[tk_messageBox -type yesno -icon question -message [msgcat::mc {DS9 has detected an older preferences file, do you wish to update?}]] == {yes}} { + SavePrefs + } + } + 0 {} + 1 { + tk_messageBox -type ok -icon warning -message [msgcat::mc {DS9 has detected a newer version of a preferences file.}] + } + } +} + +proc ClearPrefs {} { + global ds9 + global prefs + + if {[file exist $prefs(dir)] && [file isdirectory $prefs(dir)]} { + # clear new style + if {[file exist $prefs(fn)]} { + catch {file delete -force $prefs(fn)} + } + } else { + # make sure old prefs files are removed + foreach pp {{.} {}} { + set fn $pp$ds9(app)$prefs(ext) + foreach dir [list {.} [GetEnvHome]] { + set ff [file join $dir $fn] + if {[file exist $ff]} { + catch {file delete -force $ff} + return + } + } + } + } +} + +proc SavePrefs {} { + global tcl_platform + global ds9 + global prefs + + ClearPrefs + + # new style prefs file + # mkdir if needed + catch {file mkdir $prefs(dir)} + if {![file exist $prefs(dir)] || ![file isdirectory $prefs(dir)]} { + # something is wrong, just bail + Error [msgcat::mc {An error has occurred while saving}] + return + } + + # open prefs file + if {[catch {set ch [open $prefs(fn) w]}]} { + Error [msgcat::mc {An error has occurred while saving}] + return + } + + switch $tcl_platform(platform) { + unix {file attributes $prefs(fn) -permissions "rw-r--r--"} + windows {} + } + + puts $ch "global ds9" + puts $ch "global prefs" + puts $ch "set prefs(version) [lindex $ds9(version) 0]" + + # check for wrong prefs + puts $ch "\# this is a check for to ensure a match between the" + puts $ch "\# current ds9 version matches the prefs version" + puts $ch "if {\[string compare \$prefs(version) \[lindex \$ds9(version)\ 0\]] == 1} {" + puts $ch " return" + puts $ch "}" + + # Basic + + global pds9 + puts $ch "global pds9" + puts $ch "array set pds9 \{ [array get pds9] \}" + + global current + global pcurrent + puts $ch "global current" + puts $ch "global pcurrent" + puts $ch "array set pcurrent \{ [array get pcurrent] \}" + puts $ch {array set current [array get pcurrent]} + + global view + global pview + puts $ch "global view" + puts $ch "global pview" + puts $ch "array set pview \{ [array get pview] \}" + puts $ch {array set view [array get pview]} + + global phttp + puts $ch "global phttp" + puts $ch "array set phttp \{ [array get phttp] \}" + + global pbuttons + puts $ch "global pbuttons" + puts $ch "array set pbuttons \{ [array get pbuttons] \}" + + global ppanner + puts $ch "global ppanner" + puts $ch "array set ppanner \{ [array get ppanner] \}" + + global pmagnifier + puts $ch "global pmagnifier" + puts $ch "array set pmagnifier \{ [array get pmagnifier] \}" + + # File + + global ps + global pps + puts $ch "global ps" + puts $ch "global pps" + puts $ch "array set pps \{ [array get pps] \}" + puts $ch {array set ps [array get pps]} + + global pr + global ppr + puts $ch "global pr" + puts $ch "global ppr" + puts $ch "array set ppr \{ [array get ppr] \}" + puts $ch {array set pr [array get ppr]} + + # Frame + + global blink + global pblink + puts $ch "global blink" + puts $ch "global pblink" + puts $ch "array set pblink \{ [array get pblink] \}" + puts $ch {array set blink [array get pblink]} + + global tile + global ptile + puts $ch "global tile" + puts $ch "global ptile" + puts $ch "array set ptile \{ [array get ptile] \}" + puts $ch {array set tile [array get ptile]} + + global threed + global pthreed + puts $ch "global threed" + puts $ch "global pthreed" + puts $ch "array set pthreed \{ [array get pthreed] \}" + puts $ch {array set threed [array get pthreed]} + + # Bin + + global bin + global pbin + puts $ch "global bin" + puts $ch "global pbin" + puts $ch "array set pbin \{ [array get pbin] \}" + puts $ch {array set bin [array get pbin]} + + # Zoom + + global panzoom + global ppanzoom + puts $ch "global panzoom" + puts $ch "global ppanzoom" + puts $ch "array set ppanzoom \{ [array get ppanzoom] \}" + puts $ch {array set panzoom [array get ppanzoom]} + + # Scale + + global scale + global pscale + puts $ch "global scale" + puts $ch "global pscale" + puts $ch "array set pscale \{ [array get pscale] \}" + puts $ch {array set scale [array get pscale]} + + global minmax + global pminmax + puts $ch "global minmax" + puts $ch "global pminmax" + puts $ch "array set pminmax \{ [array get pminmax] \}" + puts $ch {array set minmax [array get pminmax]} + + global zscale + global pzscale + puts $ch "global zscale" + puts $ch "global pzscale" + puts $ch "array set pzscale \{ [array get pzscale] \}" + puts $ch {array set zscale [array get pzscale]} + + # Region + + global marker + global pmarker + puts $ch "global marker" + puts $ch "global pmarker" + puts $ch "array set pmarker \{ [array get pmarker] \}" + puts $ch {array set marker [array get pmarker]} + + # WCS + + global wcs + global pwcs + puts $ch "global wcs" + puts $ch "global pwcs" + puts $ch "array set pwcs \{ [array get pwcs] \}" + puts $ch {array set wcs [array get pwcs]} + + # Analysis + + global ime + global pime + puts $ch "global pime" + puts $ch "array set pime \{ [array get pime] \}" + puts $ch {array set ime [array get pime]} + + global pgraph + puts $ch "global pgraph" + puts $ch "array set pgraph \{ [array get pgraph] \}" + + global pcoord + puts $ch "global pcoord" + puts $ch "array set pcoord \{ [array get pcoord] \}" + + global pexamine + puts $ch "global pexamine" + puts $ch "array set pexamine \{ [array get pexamine] \}" + + global pixel + global ppixel + puts $ch "global pixel" + puts $ch "global ppixel" + puts $ch "array set ppixel \{ [array get ppixel] \}" + puts $ch {array set pixel [array get ppixel]} + + global mask + global pmask + puts $ch "global mask" + puts $ch "global pmask" + puts $ch "array set pmask \{ [array get pmask] \}" + puts $ch {array set mask [array get pmask]} + + global contour + global pcontour + puts $ch "global contour" + puts $ch "global pcontour" + puts $ch "array set pcontour \{ [array get pcontour] \}" + puts $ch {array set contour [array get pcontour]} + + global grid + global pgrid + puts $ch "global grid" + puts $ch "global pgrid" + puts $ch "array set pgrid \{ [array get pgrid] \}" + puts $ch {array set grid [array get pgrid]} + + global block + global pblock + puts $ch "global block" + puts $ch "global pblock" + puts $ch "array set pblock \{ [array get pblock] \}" + puts $ch {array set block [array get pblock]} + + global smooth + global psmooth + puts $ch "global smooth" + puts $ch "global psmooth" + puts $ch "array set psmooth \{ [array get psmooth] \}" + puts $ch {array set smooth [array get psmooth]} + + global pnres + puts $ch "global pnres" + puts $ch "array set pnres \{ [array get pnres] \}" + + global pcat + puts $ch "global pcat" + puts $ch "array set pcat \{ [array get pcat] \}" + + global pvo + puts $ch "global pvo" + puts $ch "array set pvo \{ [array get pvo] \}" + + global pap + puts $ch "global pap" + puts $ch "array set pap \{ [array get pap] \}" + + global panalysis + puts $ch "global panalysis" + puts $ch "array set panalysis \{ [array get panalysis] \}" + + # Other + + puts $ch "" + puts $ch "\# Colorbar prefs" + global colorbar + global pcolorbar + puts $ch "global colorbar" + puts $ch "global pcolorbar" + puts $ch "array set pcolorbar \{ [array get pcolorbar] \}" + puts $ch {array set colorbar [array get pcolorbar]} + + # and close + close $ch +} + +# Backward Compatibility +proc FixVar {varname ovarname} { + global aa bb + set aa $varname + set bb $ovarname + + uplevel #0 { + if {[info exists $bb]} { + set $aa [expr $$bb] + unset $bb + } + } +} + +proc FixVarRm {ovarname} { + global aa + set aa $ovarname + + uplevel #0 { + if {[info exists $aa]} { + unset $aa + } + } +} + +proc FixFontVar {weightname slantname stylename} { + global aa bb cc + set aa $weightname + set bb $slantname + set cc $stylename + + uplevel #0 { + if {[info exists $cc]} { + switch [expr $$cc] { + normal { + set $aa normal + set $bb roman + } + bold { + set $aa bold + set $bb roman + } + italic { + set $aa normal + set $bb italic + } + } + unset $cc + } + } +} + +# we only support 6.x and higher +proc FixPrefs {version} { + set major [lindex [split $version {.}] 0] + if {$major == {5}} { + set version 5.x + } + + switch $version { + 5.x { + FixPrefs5.xto6.0 + FixPrefs6.0to6.1 + FixPrefs6.1to6.2 + FixPrefs6.2to7.0 + FixPrefs7.0to7.1 + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 6.0 { + FixPrefs6.0to6.1 + FixPrefs6.1to6.2 + FixPrefs6.2to7.0 + FixPrefs7.0to7.1 + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 6.1 - + 6.1.1 - + 6.1.2 { + FixPrefs6.1to6.2 + FixPrefs6.2to7.0 + FixPrefs7.0to7.1 + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 6.2 { + FixPrefs6.2to7.0 + FixPrefs7.0to7.1 + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 7.0 { + FixPrefs7.0to7.1 + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 7.1 { + FixPrefs7.1to7.2 + FixPrefs7.2to7.3 + } + 7.2 { + FixPrefs7.2to7.3 + } + 7.3 - + 7.3.1 - + 7.3.2 { + } + 7.4 { + } + 7.5 { + FixPrefs7.4to7.5 + } + } +} + +proc FixPrefs7.4to7.5 {} { + FixVarRm pds9(threads) +} + +proc FixPrefs7.2to7.3 {} { + global current + if {$current(mode) == {pointer}} { + set current(mode) region + } + + FixVar pbuttons(edit,region) pbuttons(edit,pointer) + FixVar pbuttons(frame,match,cube,image) pbuttons(frame,match,cube) + FixVar pbuttons(frame,lock,cube,image) pbuttons(frame,lock,cube) + + FixVar pap(axis,x,grid) pap(graph,x,grid) + FixVar pap(axis,x,log) pap(graph,x,log) + FixVar pap(axis,x,flip) pap(graph,x,flip) + FixVar pap(axis,y,grid) pap(graph,y,grid) + FixVar pap(axis,y,log) pap(graph,y,log) + FixVar pap(axis,y,flip) pap(graph,y,flip) + + FixVar pap(graph,title,family) pap(titleFont) + FixVar pap(graph,title,size) pap(titleSize) + FixVar pap(graph,title,weight) pap(titleWeight) + FixVar pap(graph,title,slant) pap(titleSlant) + + FixVar pap(axis,title,family) pap(textlabFont) + FixVar pap(axis,title,size) pap(textlabSize) + FixVar pap(axis,title,weight) pap(textlabWeight) + FixVar pap(axis,title,slant) pap(textlabSlant) + + FixVar pap(axis,font,family) pap(numlabFont) + FixVar pap(axis,font,size) pap(numlabSize) + FixVar pap(axis,font,weight) pap(numlabWeight) + FixVar pap(axis,font,slant) pap(numlabSlant) + + FixVar pap(show) pap(linear) + FixVar pap(shape,color) pap(discrete,color) + FixVar pap(shape,fill) pap(discrete,fill) + FixVar pap(width) pap(linear,width) + FixVar pap(color) pap(linear,color) + + if {[info exists pap(linear,dash)]} { + set pap(linear,dash) [FromYesNo $pap(linear,dash)] + } + FixVar pap(dash) pap(linear,dash) + + if {[info exists pap(discrete)]} { + if {$pap(discrete)} { + FixVar pap(shape,symbol) pap(discrete,symbol) + } else { + FixVarRm pap(discrete,symbol) + } + } + + FixVarRm pap(bar) + FixVarRm pap(bar,color) + + FixVarRm pap(discrete) + FixVarRm pap(linear,dash) + + FixVarRm pap(quadratic) + FixVarRm pap(quadratic,width) + FixVarRm pap(quadratic,color) + FixVarRm pap(quadratic,dash) + + FixVarRm pap(step) + FixVarRm pap(step,color) + FixVarRm pap(step,dash) + FixVarRm pap(step,width) +} + +proc FixPrefs7.1to7.2 {} { + FixVar pbuttons(file,xpa,info) pbuttons(file,xpa) + FixVar pcurrent(align) pwcs(align) +} + +proc FixPrefs7.0to7.1 {} { + global pap + if {[info exists pap(grid)]} { + set pap(grid,x) $pap(grid) + set pap(grid,y) $pap(grid) + switch $pap(grid,log) { + linearlinear { + set pap(grid,xlog) 0 + set pap(grid,ylog) 0 + } + linearlog { + set pap(grid,xlog) 0 + set pap(grid,ylog) 1 + } + loglinear { + set pap(grid,xlog) 1 + set pap(grid,ylog) 0 + } + loglog { + set pap(grid,xlog) 1 + set pap(grid,ylog) 1 + } + } + unset pap(grid) + unset pap(grid,log) + } +} + +proc FixPrefs6.2to7.0 {} { + global ps + global pps + switch $pps(scale) { + scaled - + fixed { + set ps(scale) 100 + set pps(scale) 100 + } + } + + global colorbar + global pcolorbar + set colorbar(map) [string tolower $colorbar(map)] + set pcolorbar(map) [string tolower $pcolorbar(map)] + + FixVar pbuttons(frame,match,frame,wcs) pbuttons(frame,matchframe,wcs) + FixVar pbuttons(frame,match,frame,image) pbuttons(frame,matchframe,image) + FixVar pbuttons(frame,match,frame,physical) pbuttons(frame,matchframe,physical) + FixVar pbuttons(frame,match,frame,amplifier) pbuttons(frame,matchframe,amplifier) + FixVar pbuttons(frame,match,frame,detector) pbuttons(frame,matchframe,detector) + + FixVar pbuttons(bin,match) pbuttons(frame,matchbin) + FixVar pbuttons(scale,match) pbuttons(frame,matchscale) + FixVar pbuttons(color,match) pbuttons(frame,matchcolor) + + FixVar ppanner(compass) ppanner(compass,image) + FixVarRm ppanner(compass,wcs,system) + FixVarRm ppanner(compass,wcs,sky) + + global pmarker + FixVarRm pmarker(dialog,system) + FixVarRm pmarker(dialog,sky) + FixVarRm pmarker(dialog,skyformat) + FixVarRm pmarker(dialog,dist,system) + FixVarRm pmarker(dialog,dist,format) + + # mousewheel MacOSX Lion + global tcl_platform + global ppanzoom + global pbin + switch -- $tcl_platform(os) { + Darwin { + switch [lindex [split $tcl_platform(osVersion) {.}] 0] { + 11 { + set ppanzoom(wheel,factor) 1.01 + set pbin(wheel,factor) 1.01 + } + } + } + } + + global pcoord + FixVarRm pcoord(sky) + FixVarRm pcoord(skyformat) +} + +proc FixPrefs6.1to6.2 {} { + FixVar pbuttons(frame,matchframe,wcs) pbuttons(frame,matchframe) + + global pds9 + switch -- $pds9(font) { + helvetica - + courier - + times {} + default {set pds9(font) helvetica} + } + switch -- $pds9(font,size) { + 10 {set pds9(font,size) 9} + } + FixVar pmarker(centroid,auto) pmarker(autocentroid) + FixVarRm marker(autocentroid) + + FixFontVar pds9(font,weight) pds9(font,slant) pds9(font,style) + FixFontVar pmarker(font,weight) pmarker(font,slant) pmarker(font,style) + FixFontVar pcolorbar(font,weight) pcolorbar(font,slant) \ + pcolorbar(font,style) +} + +proc FixPrefs6.0to6.1 {} { + # ds9 + FixVar pds9(automarker) ds9(automarker) + FixVar pds9(xpa) ds9(xpa) + FixVar pds9(samp) ds9(samp,auto) + FixVar pds9(confirm) ds9(confirm) + FixVar pds9(bg) ds9(bg,color) + FixVar pds9(nan) ds9(nan,color) + FixVar pds9(dialog) ds9(dialog) + FixVar pds9(language) ds9(language) + FixVar pds9(language,name) ds9(language,name) + FixVar pds9(language,dir) ds9(language,dir) + FixVar pds9(font) ds9(font) + FixVar pds9(font,size) ds9(font,size) + FixVar pds9(font,style) ds9(font,style) + FixVar pcurrent(display) ds9(display,user) + FixVar pcurrent(mode) pds9(mode) + + # note: versions 5.3 to 6.0 have array set ds9 [array get pds9] + # which will set following ds9(var), so delete + FixVarRm ds9(samp) + FixVarRm ds9(backup) + FixVarRm ds9(nan) + # which will overwrite the following ds9(var), so reset + global ds9 + set ds9(bg) white + + # analysis + FixVar panalysis(user) ds9(analysis,user) + FixVar panalysis(user2) ds9(analysis,user2) + FixVar panalysis(user3) ds9(analysis,user3) + FixVar panalysis(user4) ds9(analysis,user4) + global analysis + catch {unset analysis} + + # magnifier + FixVar pmagnifier(region) magnifier(region) + FixVar pmagnifier(zoom) magnifier(zoom) + FixVar pmagnifier(cursor) magnifier(cursor) + global magnifier + catch {unset magnifier} + + # panner + FixVar ppanner(compass,image) panner(compass,image) + FixVar ppanner(compass,wcs) panner(compass,wcs) + FixVar ppanner(compass,wcs,system) panner(compass,wcs,system) + FixVar ppanner(compass,wcs,sky) panner(compass,wcs,sky) + global panner + catch {unset panner} + + # examine + FixVar pexamine(mode) examine(mode) + FixVar pexamine(zoom) examine(zoom) + global examine + catch {unset examine} + + # vo + FixVar pvo(server) vo(server) + FixVar pvo(hv) vo(hv) + FixVar pvo(method) vo(method) + FixVar pvo(delay) vo(delay) + global vo + catch {unset vo} + + # http + FixVar phttp(proxy) http(proxy) + FixVar phttp(proxy,host) http(proxy,host) + FixVar phttp(proxy,port) http(proxy,port) + FixVar phttp(auth) http(auth) + FixVar phttp(auth,user) http(auth,user) + FixVar phttp(auth,passwd) http(auth,passwd) + global http + catch {unset http} + + # nres + FixVar pnres(server) nres(server) + + # graph + FixVar pgraph(horz,grid) graph(horz,grid) + FixVar pgraph(horz,log) graph(horz,log) + FixVar pgraph(vert,grid) graph(vert,grid) + FixVar pgraph(vert,log) graph(vert,log) + global graph + catch {unset graph} + + # cat + FixVar pcat(server) cat(server) + FixVar pcat(sym,shape) cat(sym,shape) + FixVar pcat(sym,color) cat(sym,color) + FixVar pcat(vot) cat(vot) + + # contour + FixVarRm pcontour(color,msg) + + # coords + global coord + catch {unset coord} + + # scale + FixVarRm pscale(min) + FixVarRm pscale(max) + FixVarRm pscale(xaxis) + FixVarRm pscale(yaxis) + + # marker + FixVarRm pmarker(maxdialog) + FixVarRm pmarker(load) + FixVarRm pmarker(paste,system) + FixVarRm pmarker(paste,sky) + FixVarRm pmarker(system) + FixVarRm pmarker(sky) + FixVarRm pmarker(skyformat) + FixVarRm pmarker(strip) + + FixVarRm marker(dialog,system) + FixVarRm marker(dialog,sky) + FixVarRm marker(dialog,skyformat) + FixVarRm marker(dialog,dist,system) + FixVarRm marker(dialog,dist,format) + + FixVarRm marker(circle,radius) + FixVarRm marker(annulus,inner) + FixVarRm marker(annulus,outer) + FixVarRm marker(annulus,annuli) + FixVarRm marker(panda,inner) + FixVarRm marker(panda,outer) + FixVarRm marker(panda,annuli) + FixVarRm marker(panda,ang1) + FixVarRm marker(panda,ang2) + FixVarRm marker(panda,angnum) + FixVarRm marker(ellipse,radius1) + FixVarRm marker(ellipse,radius2) + FixVarRm marker(ellipseannulus,radius1) + FixVarRm marker(ellipseannulus,radius2) + FixVarRm marker(ellipseannulus,radius3) + FixVarRm marker(ellipseannulus,annuli) + FixVarRm marker(epanda,radius1) + FixVarRm marker(epanda,radius2) + FixVarRm marker(epanda,radius3) + FixVarRm marker(epanda,annuli) + FixVarRm marker(epanda,ang1) + FixVarRm marker(epanda,ang2) + FixVarRm marker(epanda,angnum) + FixVarRm marker(box,radius1) + FixVarRm marker(box,radius2) + FixVarRm marker(boxannulus,radius1) + FixVarRm marker(boxannulus,radius2) + FixVarRm marker(boxannulus,radius3) + FixVarRm marker(boxannulus,annuli) + FixVarRm marker(bpanda,radius1) + FixVarRm marker(bpanda,radius2) + FixVarRm marker(bpanda,radius3) + FixVarRm marker(bpanda,annuli) + FixVarRm marker(bpanda,ang1) + FixVarRm marker(bpanda,ang2) + FixVarRm marker(bpanda,angnum) + FixVarRm marker(polygon,width) + FixVarRm marker(polygon,height) + FixVarRm marker(projection,thick) + FixVarRm marker(compass,radius) + FixVarRm marker(point,size) +} + +proc FixPrefs5.xto6.0 {} { + FixVar pap(grid) prefs(ap,grid) + FixVar pap(grid,log) prefs(ap,grid,log) + + FixVar pap(discrete) prefs(ap,discrete) + FixVar pap(discrete,symbol) prefs(ap,discrete,symbol) + FixVar pap(discrete,color) prefs(ap,discrete,color) + + FixVar pap(linear) prefs(ap,linear) + FixVar pap(linear,width) prefs(ap,linear,width) + FixVar pap(linear,color) prefs(ap,linear,color) + FixVar pap(linear,dash) prefs(ap,linear,dash) + + FixVar pap(step) prefs(ap,step) + FixVar pap(step,width) prefs(ap,step,width) + FixVar pap(step,color) prefs(ap,step,color) + FixVar pap(step,dash) prefs(ap,step,dash) + + FixVar pap(quadratic) prefs(ap,quadratic) + FixVar pap(quadratic,width) prefs(ap,quadratic,width) + FixVar pap(quadratic,color) prefs(ap,quadratic,color) + FixVar pap(quadratic,dash) prefs(ap,quadratic,dash) + + FixVar pap(error,color) prefs(ap,error,color) + FixVar pap(error,width) prefs(ap,error,width) + FixVar pap(error,style) prefs(ap,error,style) + + FixVar pap(titleFont) prefs(ap,titleFont) + FixVar pap(titleSize) prefs(ap,titleSize) + FixVar pap(titleStyle) prefs(ap,titleStyle) + + FixVar pap(textlabFont) prefs(ap,textlabFont) + FixVar pap(textlabSize) prefs(ap,textlabSize) + FixVar pap(textlabStyle) prefs(ap,textlabStyle) + + FixVar pap(numlabFont) prefs(ap,numlabFont) + FixVar pap(numlabSize) prefs(ap,numlabSize) + FixVar pap(numlabStyle) prefs(ap,numlabStyle) + + FixVar pcurrent(zoom) prefs(zoom) + FixVar pcurrent(orient) prefs(orient) + FixVar pcurrent(rotate) prefs(rotate) + + FixVar panalysis(log) prefs(analysis,log) + FixVar pds9(mode) prefs(ds9,mode) + FixVar pblink(interval) prefs(blink,interval) + FixVar ptile(mode) prefs(tile,mode) + + FixVar pcolorbar(map) prefs(colorbar,map) + FixVar pcolorbar(invert) prefs(colorbar,invert) + + FixVar pmarker(shape) prefs(marker,shape) + FixVar pmarker(color) prefs(marker,color) + FixVar pmarker(width) prefs(marker,width) + FixVar pmarker(fixed) prefs(marker,fixed) + FixVar pmarker(edit) prefs(marker,edit) + FixVar pmarker(move) prefs(marker,move) + FixVar pmarker(rotate) prefs(marker,rotate) + FixVar pmarker(delete) prefs(marker,delete) + FixVar pmarker(include) prefs(marker,include) + FixVar pmarker(source) prefs(marker,source) + FixVar pmarker(font) prefs(marker,font) + FixVar pmarker(font,size) prefs(marker,font,size) + FixVar pmarker(font,style) prefs(marker,font,style) + FixVar pmarker(format) prefs(marker,format) + FixVar pmarker(strip) prefs(marker,strip) + FixVar pmarker(system) prefs(marker,system) + FixVar pmarker(sky) prefs(marker,sky) + FixVar pmarker(skyformat) prefs(marker,skyformat) + FixVarRm prefs(marker,wcs) + FixVarRm marker(wcs) + FixVarRm marker(polygon,width) + FixVarRm marker(polygon,height) + + FixVar pmarker(dialog,system) marker(dialog,system) + FixVar pmarker(dialog,sky) marker(dialog,sky) + FixVar pmarker(dialog,skyformat) marker(dialog,skyformat) + FixVar pmarker(dialog,dist,system) marker(dialog,dist,system) + FixVar pmarker(dialog,dist,format) marker(dialog,dist,format) + + FixVar pmarker(circle,radius) marker(circle,radius) + FixVar pmarker(annulus,inner) marker(annulus,inner) + FixVar pmarker(annulus,outer) marker(annulus,outer) + FixVar pmarker(annulus,annuli) marker(annulus,annuli) + FixVar pmarker(panda,inner) marker(panda,inner) + FixVar pmarker(panda,outer) marker(panda,outer) + FixVar pmarker(panda,annuli) marker(panda,annuli) + FixVar pmarker(panda,ang1) marker(panda,ang1) + FixVar pmarker(panda,ang2) marker(panda,ang2) + FixVar pmarker(panda,angnum) marker(panda,angnum) + FixVar pmarker(ellipse,radius1) marker(ellipse,radius1) + FixVar pmarker(ellipse,radius2) marker(ellipse,radius2) + FixVar pmarker(ellipseannulus,radius1) marker(ellipseannulus,radius1) + FixVar pmarker(ellipseannulus,radius2) marker(ellipseannulus,radius2) + FixVar pmarker(ellipseannulus,radius3) marker(ellipseannulus,radius3) + FixVar pmarker(ellipseannulus,annuli) marker(ellipseannulus,annuli) + FixVar pmarker(epanda,radius1) marker(epanda,radius1) + FixVar pmarker(epanda,radius2) marker(epanda,radius2) + FixVar pmarker(epanda,radius3) marker(epanda,radius3) + FixVar pmarker(epanda,annuli) marker(epanda,annuli) + FixVar pmarker(epanda,ang1) marker(epanda,ang1) + FixVar pmarker(epanda,ang2) marker(epanda,ang2) + FixVar pmarker(epanda,angnum) marker(epanda,angnum) + FixVar pmarker(box,radius1) marker(box,radius1) + FixVar pmarker(box,radius2) marker(box,radius2) + FixVar pmarker(boxannulus,radius1) marker(boxannulus,radius1) + FixVar pmarker(boxannulus,radius2) marker(boxannulus,radius2) + FixVar pmarker(boxannulus,radius3) marker(boxannulus,radius3) + FixVar pmarker(boxannulus,annuli) marker(boxannulus,annuli) + FixVar pmarker(bpanda,radius1) marker(bpanda,radius1) + FixVar pmarker(bpanda,radius2) marker(bpanda,radius2) + FixVar pmarker(bpanda,radius3) marker(bpanda,radius3) + FixVar pmarker(bpanda,annuli) marker(bpanda,annuli) + FixVar pmarker(bpanda,ang1) marker(bpanda,ang1) + FixVar pmarker(bpanda,ang2) marker(bpanda,ang2) + FixVar pmarker(bpanda,angnum) marker(bpanda,angnum) + FixVar pmarker(projection,thick) marker(projection,thick) + FixVar pmarker(point,size) marker(point,size) + + # buttons + global buttons + global pbuttons + if {[info exists buttons(file,about)]} { + foreach nn [array names buttons] { + set aa [split $nn ,] + if {[lindex $aa 1] != {}} { + switch [lindex $aa 0] { + file - + edit - + view - + frame - + bin - + zoom - + scale - + color - + region - + wcs - + help { + set pbuttons($nn) $buttons($nn) + unset buttons($nn) + } + } + } + } + + FixVar pbuttons(scale,995) buttons(scale,99.5) + FixVar pbuttons(scale,925) buttons(scale,92.5) + FixVar pbuttons(zoom,i32) buttons(zoom,1/32) + FixVar pbuttons(zoom,i16) buttons(zoom,1/16) + FixVar pbuttons(zoom,i8) buttons(zoom,1/8) + FixVar pbuttons(zoom,i4) buttons(zoom,1/4) + FixVar pbuttons(zoom,i2) buttons(zoom,1/2) + + FixVarRm pbuttons(scale,92.5) + FixVarRm pbuttons(scale,99.5) + FixVarRm pbuttons(zoom,1/32) + FixVarRm pbuttons(zoom,1/16) + FixVarRm pbuttons(zoom,1/8) + FixVarRm pbuttons(zoom,1/4) + FixVarRm pbuttons(zoom,1/2) + } +} |