diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-10 21:45:44 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2011-11-10 21:45:44 +0000 |
commit | 70a037898aa44a933c0e5c199b7ac97a392eb0f9 (patch) | |
tree | 17daba62de77111dc81948d38f4846fc9b6b9f6f | |
parent | b55d6563278e410683156d11f94b7da5d2d56b45 (diff) |
handle the null (initial) object state correctly, using [info exists ...]
svn path=/trunk/externals/tclfile/; revision=15719
-rw-r--r-- | exists.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -16,7 +16,7 @@ proc+ exists::0_symbol {self args} { } proc+ exists::0_bang {self} { - if {$@filename == {}} return + if {![info exists @filename]} return pd::outlet $self 0 float [file exists $@filename] } |