From 615e4289ec90871791cea6edc70ce6a9d4be4f3c Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 29 Nov 2011 04:51:36 +0000 Subject: add expand_vars proc to expand vars like /Users/hans, , etc within the file names svn path=/trunk/externals/tclfile/; revision=15802 --- owned.tcl | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'owned.tcl') diff --git a/owned.tcl b/owned.tcl index 0a5f9b0..32c76ce 100644 --- a/owned.tcl +++ b/owned.tcl @@ -16,12 +16,12 @@ proc owned::constructor {self args} { # HOT inlet -------------------------------------------------------------------- proc owned::0_symbol {self args} { - variable ${self}::filename [pd::arg 0 symbol] + variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]] owned::0_bang $self } proc owned::0_anything {self args} { - variable ${self}::filename [tclfile::make_symbol $args] + variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]] owned::0_bang $self } @@ -38,11 +38,11 @@ proc owned::0_bang {self} { # COLD inlet ------------------------------------------------------------------- proc owned::1_symbol {self args} { - variable ${self}::filename [pd::arg 0 symbol] + variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]] } proc owned::1_anything {self args} { - variable ${self}::filename [tclfile::make_symbol $args] + variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]] } pd::class owned -- cgit v1.2.1