Skip to content
Snippets Groups Projects
Commit e22eedc4 authored by Ivica Bukvic's avatar Ivica Bukvic
Browse files

*fixed properly parsing of a current path that has a space in it

*fixed how window shortcuts (ctrl+w and ctrl+q) behave in the view list menu for arrays
parent 5892bac0
No related branches found
No related tags found
No related merge requests found
...@@ -1321,7 +1321,7 @@ proc open_file {filename} { ...@@ -1321,7 +1321,7 @@ proc open_file {filename} {
if {[regexp -nocase -- "\.(pd|pat|mxt)$" $basename]} { if {[regexp -nocase -- "\.(pd|pat|mxt)$" $basename]} {
pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" pd "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;"
set pd_opendir $directory set pd_opendir $directory
::pd_guiprefs::update_recentfiles $filename 1 ::pd_guiprefs::update_recentfiles "$filename" 1
} }
} }
...@@ -3818,8 +3818,8 @@ proc pdtk_array_listview_new {id arrayName page} { ...@@ -3818,8 +3818,8 @@ proc pdtk_array_listview_new {id arrayName page} {
toplevel $windowName -class [winfo class .] toplevel $windowName -class [winfo class .]
wm geometry $windowName 220x400 wm geometry $windowName 220x400
wm minsize $windowName 220 400 wm minsize $windowName 220 400
#pdtk_standardkeybindings $windowName # pdtk_standardkeybindings $windowName
bind $windowName <Control-w> {destroy %W} bind $windowName <Control-w> [list destroy $windowName]
bind $windowName <Control-q> {menu_quit} bind $windowName <Control-q> {menu_quit}
match_linux_wm [list $windowName configure] match_linux_wm [list $windowName configure]
wm protocol $windowName WM_DELETE_WINDOW \ wm protocol $windowName WM_DELETE_WINDOW \
...@@ -4964,7 +4964,7 @@ proc pdtk_canvas_saveas {name initfile initdir} { ...@@ -4964,7 +4964,7 @@ proc pdtk_canvas_saveas {name initfile initdir} {
# pd [concat $name savetofile $basename $directory \;] # pd [concat $name savetofile $basename $directory \;]
set untitled_directory $directory set untitled_directory $directory
# add to recentfiles # add to recentfiles
::pd_guiprefs::update_recentfiles $filename 1 ::pd_guiprefs::update_recentfiles "$filename" 1
} }
# zooming (a subset of dofont) # zooming (a subset of dofont)
......
...@@ -172,7 +172,7 @@ static void openit(const char *dirname, const char *filename) ...@@ -172,7 +172,7 @@ static void openit(const char *dirname, const char *filename)
{ {
close (fd); close (fd);
glob_evalfile(0, gensym(nameptr), gensym(dirbuf)); glob_evalfile(0, gensym(nameptr), gensym(dirbuf));
sys_vgui("pdtk_set_current_dir %s\n", filename); sys_vgui("pdtk_set_current_dir {%s}\n", filename);
char actualpath[PATH_MAX]; char actualpath[PATH_MAX];
char *path_ptr = NULL; char *path_ptr = NULL;
path_ptr = realpath(filename, actualpath); path_ptr = realpath(filename, actualpath);
...@@ -181,7 +181,7 @@ static void openit(const char *dirname, const char *filename) ...@@ -181,7 +181,7 @@ static void openit(const char *dirname, const char *filename)
// strstr(filename, dirname), actualpath, path_ptr); // strstr(filename, dirname), actualpath, path_ptr);
if (path_ptr != NULL) if (path_ptr != NULL)
{ {
sys_vgui("::pd_guiprefs::update_recentfiles %s 1\n", actualpath); sys_vgui("::pd_guiprefs::update_recentfiles \"%s\" 1\n", actualpath);
} }
} }
else else
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment