[PD-cvs] pd/src desire.tk,1.1.2.600.2.66,1.1.2.600.2.67

[chunlee]

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