From b4791d3cd1cc6bfe759cef5635f54c38a3b58396 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 11 Nov 2011 23:33:31 +0000
Subject: ported to 'variable ' technique and use proc instead of proc+

svn path=/trunk/externals/tclfile/; revision=15726
---
 mkdir.tcl | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

(limited to 'mkdir.tcl')

diff --git a/mkdir.tcl b/mkdir.tcl
index c8c1666..26338d4 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -1,33 +1,38 @@
 package require Tclpd 0.2.3
 package require TclpdLib 0.19
 
-proc+ mkdir::constructor {self args} {
+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 {}
+    set filename {}
 
     # add second inlet (first created by default)
     pd::add_inlet $self list
 }
 
-proc+ mkdir::0_symbol {self args} {
+proc mkdir::0_symbol {self args} {
     # HOT inlet
-    set @filename [pd::arg 0 symbol]
+    variable ${self}::filename [pd::arg 0 symbol]
     mkdir::0_bang $self
 }
 
-proc+ mkdir::0_bang {self} {
-    if {[file pathtype $@filename] eq "absolute"} {
-        file mkdir $@filename
+proc mkdir::0_bang {self} {
+    variable ${self}::filename
+    if {[file pathtype $filename] eq "absolute"} {
+        file mkdir $filename
     } else {
-        set dir [[canvas_getdir $@current_canvas] cget -s_name]
-        file mkdir [file join $dir $@filename]
+        set dir [[canvas_getdir $current_canvas] cget -s_name]
+        file mkdir [file join $dir $filename]
     }
 }
 
 proc+ mkdir::1_symbol {self args} {
     # COLD inlet
-    set @filename [pd::arg 0 symbol]
+    variable ${self}::filename [pd::arg 0 symbol]
 }
 
 pd::class mkdir
-- 
cgit v1.2.1