packages/patches/normalize_pd_guidir-0.40.3.patch

   1 Index: u_main.tk
   2 ===================================================================
   3 RCS file: /cvsroot/pure-data/pd/src/u_main.tk,v
   4 retrieving revision 1.25
   5 diff -u -w -r1.25 u_main.tk
   6 --- u_main.tk   9 Oct 2006 04:36:12 -0000       1.25
   7 +++ u_main.tk   15 Aug 2007 18:57:49 -0000
   8 @@ -36,7 +36,7 @@
   9      global pd_tearoff
  10      set pd_gui2 [string range $argv0 0 [expr [string last \\ $argv0 ] - 1]]
  11      regsub -all \\\\ $pd_gui2 / pd_gui3
  12 -    set pd_guidir $pd_gui3/..
  13 +    set pd_guidir [file normalize $pd_gui3/..]
  14      load $pd_guidir/bin/pdtcl.dll
  15      set pd_tearoff 1
  16  }
  17 @@ -53,7 +53,7 @@
  18      global pd_guidir
  19      global pd_tearoff
  20      set pd_gui2 [string range $argv0 0 [expr [string last / $argv0 ] - 1]]
  21 -    set pd_guidir $pd_gui2/..
  22 +    set pd_guidir [file normalize $pd_gui2/..]
  23      load $pd_guidir/bin/libPdTcl.dylib
  24      set pd_tearoff 0
  25      global pd_macready