add expand_vars proc to expand vars like /Users/hans, , etc within the file names

svn path=/trunk/externals/tclfile/; revision=15802

1 files changed, 4 insertions, 4 deletions

diff --git a/mkdir.tcl b/mkdir.tcl
index a0e8350..8a65a99 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -13,12 +13,12 @@ proc mkdir::constructor {self args} {
 
 # HOT inlet --------------------------------------------------------------------
 proc mkdir::0_symbol {self args} {
-    variable ${self}::filename [pd::arg 0 symbol]
+    variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]]
     mkdir::0_bang $self
 }
 
 proc mkdir::0_anything {self args} {
-    variable ${self}::filename [tclfile::make_symbol $args]
+    variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]]
     mkdir::0_bang $self
 }
 
@@ -35,11 +35,11 @@ proc mkdir::0_bang {self} {
 
 # COLD inlet -------------------------------------------------------------------
 proc mkdir::1_symbol {self args} {
-    variable ${self}::filename [pd::arg 0 symbol]
+    variable ${self}::filename [tclfile::expand_vars [pd::arg 0 symbol]]
 }
 
 proc mkdir::1_anything {self args} {
-    variable ${self}::filename [tclfile::make_symbol $args]
+    variable ${self}::filename [tclfile::expand_vars [tclfile::make_symbol $args]]
 }
 
 pd::class mkdir