Prefs: add prefs for default display size

1 files changed, 22 insertions, 1 deletions

diff --git a/ds9/library/prefsdialog.tcl b/ds9/library/prefsdialog.tcl
index 4d221c0..75061ac 100644
--- a/ds9/library/prefsdialog.tcl
+++ b/ds9/library/prefsdialog.tcl
@@ -313,5 +313,26 @@ proc PrefsDialogStartup {} {
     grid $f.xpa -padx 2 -pady 2 -sticky w
     grid $f.samp -padx 2 -pady 2 -sticky w
 
-    pack $f -side top -fill both -expand true -anchor nw
+    set f [ttk::labelframe $w.startup.horz -text \
+	   [msgcat::mc {Horizontal Display Size}]]
+    ttk::label $f.twidth -text [msgcat::mc {Width}]
+    ttk::entry $f.width -textvariable pcanvas(horz,width) -width 8
+    ttk::label $f.theight -text [msgcat::mc {Height}]
+    ttk::entry $f.height -textvariable pcanvas(horz,height) -width 8
+
+    grid $f.twidth $f.width -padx 2 -pady 2 -sticky w
+    grid $f.theight $f.height -padx 2 -pady 2 -sticky w
+
+    set f [ttk::labelframe $w.startup.vert -text \
+	   [msgcat::mc {Vertical Display Size}]]
+    ttk::label $f.twidth -text [msgcat::mc {Width}]
+    ttk::entry $f.width -textvariable pcanvas(vert,width) -width 8
+    ttk::label $f.theight -text [msgcat::mc {Height}]
+    ttk::entry $f.height -textvariable pcanvas(vert,height) -width 8
+
+    grid $f.twidth $f.width -padx 2 -pady 2 -sticky w
+    grid $f.theight $f.height -padx 2 -pady 2 -sticky w
+
+    pack $w.startup.params $w.startup.horz $w.startup.vert \
+	-side top -fill both -expand true
 }