diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-29 04:51:36 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-29 04:51:36 +0000 |
commit | 615e4289ec90871791cea6edc70ce6a9d4be4f3c (patch) | |
tree | 2f6d64080264dd6a45f0ed9b1afdf5d51d0a8201 /writable.tcl | |
parent | 96779403b0e93503fb2e0b16ab3a31af09f2e59c (diff) |
add expand_vars proc to expand vars like /Users/hans, , etc within the file names
svn path=/trunk/externals/tclfile/; revision=15802
Diffstat (limited to 'writable.tcl')
-rw-r--r-- | writable.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/writable.tcl b/writable.tcl index 647ea26..983098d 100644 --- a/writable.tcl +++ b/writable.tcl @@ -16,12 +16,12 @@ proc writable::constructor {self args} { # HOT inlet -------------------------------------------------------------------- proc writable::0_symbol {self args} { - variable ${self}::filename [pd::arg 0 symbol] + variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]] writable::0_bang $self } proc writable::0_anything {self args} { - variable ${self}::filename [tclfile::make_symbol $args] + variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]] writable::0_bang $self } @@ -38,11 +38,11 @@ proc writable::0_bang {self} { # COLD inlet ------------------------------------------------------------------- proc writable::1_symbol {self args} { - variable ${self}::filename [pd::arg 0 symbol] + variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]] } proc writable::1_anything {self args} { - variable ${self}::filename [tclfile::make_symbol $args] + variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]] } pd::class writable |