diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-04-13 03:04:21 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2010-04-13 03:04:21 +0000 |
| commit | fc9e5ec9fad19fc5a8e179aebbe55241130559e3 (patch) | |
| tree | 3a407ad13c41ddde8f88f1070eccf56bc65a9dcd | |
| parent | 98f38818fc67b5ed2b59e9bf38b9cb5246df66e2 (diff) | |
fixed bug where the path got messed up with relative paths, bug#2959373
svn path=/trunk/externals/pddp/; revision=13431
| -rw-r--r-- | pddplink.tcl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/pddplink.tcl b/pddplink.tcl index 8ae2b33..f50cd18 100644 --- a/pddplink.tcl +++ b/pddplink.tcl @@ -5,6 +5,9 @@ proc pddplink_open {filename dir} { } elseif {[file pathtype $filename] eq "absolute"} { menu_openhtml $filename } elseif {[file exists [file join $dir $filename]]} { + set fullpath [file normalize [file join $dir $filename]] + set dir [file dirname $fullpath] + set filename [file tail $fullpath] menu_doc_open $dir $filename } else { bell ;# beep on error to provide instant feedback |