diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2017-10-16 17:12:44 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2017-10-16 17:12:44 (GMT) |
commit | 17ffb1ea63599ca87e335d4fa71f0c58b14e6b2b (patch) | |
tree | 9b63d1b264a61fbfa186e8abd535dd209d9ba612 /ds9/library/layout.tcl | |
parent | c1e61b7f7a934ceaeb0f98c0104664d1749a86a3 (diff) | |
download | blt-17ffb1ea63599ca87e335d4fa71f0c58b14e6b2b.zip blt-17ffb1ea63599ca87e335d4fa71f0c58b14e6b2b.tar.gz blt-17ffb1ea63599ca87e335d4fa71f0c58b14e6b2b.tar.bz2 |
Prefs: add prefs for default display size
Diffstat (limited to 'ds9/library/layout.tcl')
-rw-r--r-- | ds9/library/layout.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/ds9/library/layout.tcl b/ds9/library/layout.tcl index d6689c3..99408f1 100644 --- a/ds9/library/layout.tcl +++ b/ds9/library/layout.tcl @@ -7,6 +7,7 @@ package provide DS9 1.0 proc CanvasDef {} { global canvas global icanvas + global pcanvas global ds9 # also adjust info.tcl LayoutInfoPanelHorz @@ -36,6 +37,11 @@ proc CanvasDef {} { aqua {set canvas(gap,bottom) 14} win32 {set canvas(gap,bottom) 0} } + + set pcanvas(horz,width) $icanvas(horz,width) + set pcanvas(horz,height) $icanvas(horz,height) + set pcanvas(vert,width) $icanvas(vert,width) + set pcanvas(vert,height) $icanvas(vert,height) } proc BlinkDef {} { |