[PD-cvs] pd/src u_main.tk,1.1.1.4.2.7.4.64,1.1.1.4.2.7.4.65

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8443

Modified Files:
      Tag: impd_0_37
	u_main.tk 
Log Message:
file open path fix (request from Mike)


Index: u_main.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
retrieving revision 1.1.1.4.2.7.4.64
retrieving revision 1.1.1.4.2.7.4.65
diff -C2 -d -r1.1.1.4.2.7.4.64 -r1.1.1.4.2.7.4.65
*** u_main.tk	7 May 2004 05:55:48 -0000	1.1.1.4.2.7.4.64
--- u_main.tk	8 May 2004 04:06:09 -0000	1.1.1.4.2.7.4.65
***************
*** 250,253 ****
--- 250,254 ----
  
  proc open_file {filename} {
+     global pd_opendir
      set directory [string range $filename 0 [expr [string last / $filename] - 1]]
      set pd_opendir $directory