diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-10 21:18:47 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-10 21:18:47 +0000 |
commit | 6c476966de617b405b9204ff8e5de04fded79f1a (patch) | |
tree | 4e62aa1540308f30a76adc34e9d68f671eaefe6e /exists.tcl | |
parent | 53b224a8e82d3bdeddf093316145ad2c2c9ca6a9 (diff) |
fix tclpd.lib usage
svn path=/trunk/externals/tclfile/; revision=15716
Diffstat (limited to 'exists.tcl')
-rw-r--r-- | exists.tcl | 13 |
1 files changed, 3 insertions, 10 deletions
@@ -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 |