From 9af7bda60aa9a321cd0f595692b58c6d1e15d9ea Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 11 Nov 2011 23:42:08 +0000
Subject: include $current_canvas in the 'variable ${self}::' technique so it
 works

svn path=/trunk/externals/tclfile/; revision=15727
---
 mkdir.tcl | 6 +++---
 1 file 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
-- 
cgit v1.2.1