full working implementation using canvas_getdir, and some help on tclpd style from mescalinum

svn path=/trunk/externals/tclfile/; revision=15720

1 files changed, 10 insertions, 2 deletions

diff --git a/exists.tcl b/exists.tcl
index 3ae3c58..eb8f650 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -2,6 +2,10 @@ package require Tclpd 0.2.3
 package require TclpdLib 0.19
 
 proc+ exists::constructor {self args} {
+    set @current_canvas [canvas_getcurrent]
+    # set to blank so the var always exists
+    set @filename {}
+
     # add second inlet (first created by default)
     pd::add_inlet $self list
 
@@ -16,8 +20,12 @@ proc+ exists::0_symbol {self args} {
 }
 
 proc+ exists::0_bang {self} {
-    if {![info exists @filename]} return
-    pd::outlet $self 0 float [file exists $@filename]
+    if {[file pathtype $@filename] eq "absolute"} {
+        pd::outlet $self 0 float [file exists $@filename]
+    } else {
+        set dir [[canvas_getdir $@current_canvas] cget -s_name]
+        pd::outlet $self 0 float [file exists [file join $dir $@filename]]
+    }
 }
 
 proc+ exists::1_symbol {self args} {