Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1871
Modified Files: Tag: desiredata desire.tk Log Message: hide/show dot files and directories for tk_getOpenFile, only works for tcltk8.5..
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.66 retrieving revision 1.1.2.600.2.67 diff -C2 -d -r1.1.2.600.2.66 -r1.1.2.600.2.67 *** desire.tk 12 Dec 2006 20:26:57 -0000 1.1.2.600.2.66 --- desire.tk 12 Dec 2006 21:15:28 -0000 1.1.2.600.2.67 *************** *** 58,62 **** return "" } ! #-----------------------------------------------------------------------------------# # some list processing functions and some math too --- 58,62 ---- return "" } ! #-----------------------------------------------------------------------------------# # some list processing functions and some math too *************** *** 899,902 **** --- 899,908 ---- }
+ + #only works with tcltk 8.5 + catch {tk_getOpenFile -load-once} + set ::tk::dialog::file::showHiddenBtn 1 + set ::tk::dialog::file::showHiddenVar 0 + def Client open_file {} { global pd_opendir patch_filetypes