aboutsummaryrefslogtreecommitdiff
path: root/exists.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'exists.tcl')
-rw-r--r--exists.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/exists.tcl b/exists.tcl
index 4b92811..3e337c5 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -1,5 +1,5 @@
-package require Tclpd 0.2.3
-package require TclpdLib 0.19
+package require Tclpd 0.3.0
+package require TclpdLib 0.20
proc exists::make_symbol {argslist} {
set output [pd::strip_selectors $argslist]
@@ -42,7 +42,7 @@ proc exists::0_bang {self} {
if {[file pathtype $filename] eq "absolute"} {
pd::outlet $self 0 float [file exists $filename]
} else {
- set dir [[canvas_getdir $current_canvas] cget -s_name]
+ set dir [canvas_getdir $current_canvas]
pd::outlet $self 0 float [file exists [file join $dir $filename]]
}
}