diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-09 16:41:04 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-10-09 16:41:04 +0000 |
commit | e1fc51c3a1d944193032d8bb1d95741d090b6d3b (patch) | |
tree | 7a2121c73a5acb69a080e73ad8e3b50cc3670616 /pd/tcl/pd-gui.tcl | |
parent | 21c068f1916330e90f814bed461fe0821d1665ec (diff) |
checked in pd-0.43-1test4.src.tar.gz
svn path=/trunk/; revision=15558
Diffstat (limited to 'pd/tcl/pd-gui.tcl')
-rw-r--r-- | pd/tcl/pd-gui.tcl | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/pd/tcl/pd-gui.tcl b/pd/tcl/pd-gui.tcl index 39b260f5..d2fbdba8 100644 --- a/pd/tcl/pd-gui.tcl +++ b/pd/tcl/pd-gui.tcl @@ -46,10 +46,15 @@ package require pdtk_canvas package require pdtk_text # TODO eliminate this kludge: package require wheredoesthisgo +package require pd_guiprefs #------------------------------------------------------------------------------# # import functions into the global namespace +# gui preferences +namespace import ::pd_guiprefs::init +namespace import ::pd_guiprefs::update_recentfiles +namespace import ::pd_guiprefs::write_recentfiles # make global since they are used throughout namespace import ::pd_menucommands::* @@ -167,9 +172,9 @@ set dsp 0 set meters 0 # the toplevel window that currently is on top and has focus set focused_window . -# store that last 10 files that were opened +# store that last 5 files that were opened set recentfiles_list {} -set total_recentfiles 10 +set total_recentfiles 5 # keep track of the location of popup menu for PatchWindows, in canvas coords set popup_xcanvas 0 set popup_ycanvas 0 @@ -492,6 +497,7 @@ proc pdtk_pd_startup {major minor bugfix test if {$::tcl_version >= 8.5} {find_default_font} set_base_font $sys_font $sys_fontweight fit_font_into_metrics + ::pd_guiprefs::init pdsend "pd init [enquote_path [pwd]] $oldtclversion $::font_measured_metrics" ::pd_bindings::class_bindings ::pd_bindings::global_bindings |