include $current_canvas in the 'variable ${self}::' technique so it works

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

1 files changed, 3 insertions, 3 deletions

diff --git a/mkdir.tcl b/mkdir.tcl
index 26338d4..71e09aa 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -5,10 +5,9 @@ proc mkdir::constructor {self args} {
     if {![namespace exists $self]} {
         namespace eval $self {}
     }
-    variable ${self}::filename
-    set @current_canvas [canvas_getcurrent]
     # set to blank so the var always mkdir
-    set filename {}
+    variable ${self}::filename {}
+    variable ${self}::current_canvas [canvas_getcurrent]
 
     # add second inlet (first created by default)
     pd::add_inlet $self list
@@ -21,6 +20,7 @@ proc mkdir::0_symbol {self args} {
 }
 
 proc mkdir::0_bang {self} {
+    variable ${self}::current_canvas
     variable ${self}::filename
     if {[file pathtype $filename] eq "absolute"} {
         file mkdir $filename