diff --git a/tcl/pd-gui.tcl b/tcl/pd-gui.tcl index 12a29e1..ca005ed 100755 --- a/tcl/pd-gui.tcl +++ b/tcl/pd-gui.tcl @@ -114,6 +114,13 @@ set port 0 # canvas font, received from pd in pdtk_pd_startup, set in s_main.c set font_family "courier" set font_weight "normal" + +# pdwindow geometry +# to get what we used to have: +# set geometry "=500x400+20+50" +# it is safe to set it to "" +set geometry "" + # sizes of chars for each of the Pd fixed font sizes: # fontsize width(pixels) height(pixels) set font_fixed_metrics { @@ -490,6 +497,7 @@ proc parse_args {argc argv} { opt_parser::init { {-stderr set {::stderr}} {-verbose set {::verbose}} + {-geometry lappend {- ::geometry}} {-open lappend {- ::filestoopen_list}} } set unflagged_files [opt_parser::get_options $argv] @@ -508,7 +516,7 @@ proc parse_args {argc argv} { foreach filename $unflagged_files { lappend ::filestoopen_list $filename } - } + } } proc open_filestoopen {} { diff --git a/tcl/pdwindow.tcl b/tcl/pdwindow.tcl index 77d0cf7..4b6e0f3 100644 --- a/tcl/pdwindow.tcl +++ b/tcl/pdwindow.tcl @@ -254,7 +254,8 @@ proc ::pdwindow::create_window {} { } else { wm minsize .pdwindow 400 51 } - wm geometry .pdwindow =500x400+20+50 + #puts $::geometry + wm geometry .pdwindow $::geometry .pdwindow configure -menu .menubar frame .pdwindow.header -borderwidth 1 -relief flat -background lightgray