From 6c476966de617b405b9204ff8e5de04fded79f1a Mon Sep 17 00:00:00 2001 From: mescalinum Date: Thu, 10 Nov 2011 21:18:47 +0000 Subject: fix tclpd.lib usage svn path=/trunk/externals/tclfile/; revision=15716 --- exists.tcl | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'exists.tcl') diff --git a/exists.tcl b/exists.tcl index c927ac6..a74aa84 100644 --- a/exists.tcl +++ b/exists.tcl @@ -11,25 +11,18 @@ proc+ exists::constructor {self args} { proc+ exists::0_symbol {self args} { # HOT inlet - set @filename [lindex {*}$args 1] - exists::0_bang $self -} - -proc+ exists::0_anything {self args} { - # HOT inlet - set @filename [lindex {*}$args 1] - pd::post "anything: $@filename" + set @filename [pd::arg 0 symbol] exists::0_bang $self } proc+ exists::0_bang {self} { if {$@filename == {}} return - pd::outlet $self 0 [list float [file exists $@filename]] + pd::outlet $self 0 float [file exists $@filename] } proc+ exists::1_anything {self args} { # COLD inlet - set @filename [lindex {*}$args 1] + set @filename [pd::arg 0 symbol] } pd::class exists -- cgit v1.2.1