From 6d3a518ce3393a2c00b4795d13d7c420ce8b441d Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 14 Nov 2011 05:43:13 +0000
Subject: move shared function to a Tcl package, now that tclpd supports a
 local package

svn path=/trunk/externals/tclfile/; revision=15742
---
 delete.tcl | 20 +++++++++++++++-----
 1 file changed, 15 insertions(+), 5 deletions(-)

(limited to 'delete.tcl')

diff --git a/delete.tcl b/delete.tcl
index aeeaa25..5ab7289 100644
--- a/delete.tcl
+++ b/delete.tcl
@@ -1,24 +1,30 @@
 package require Tclpd 0.3.0
 package require TclpdLib 0.20
+package require tclfile
 
 proc delete::constructor {self args} {
     if {![namespace exists $self]} {
         namespace eval $self {}
     }
-    # set to blank so the var always delete
-    variable ${self}::filename {}
     variable ${self}::current_canvas [canvas_getcurrent]
+    # set to blank so the var always exists
+    variable ${self}::filename {}
 
     # add second inlet (first created by default)
     pd::add_inlet $self list
 }
 
+# HOT inlet --------------------------------------------------------------------
 proc delete::0_symbol {self args} {
-    # HOT inlet
     variable ${self}::filename [pd::arg 0 symbol]
     delete::0_bang $self
 }
 
+proc delete::0_anything {self args} {
+    variable ${self}::filename [tclfile::make_symbol $args]
+    delete::0_bang $self
+}
+
 proc delete::0_bang {self} {
     variable ${self}::current_canvas
     variable ${self}::filename
@@ -30,9 +36,13 @@ proc delete::0_bang {self} {
     }
 }
 
-proc+ delete::1_symbol {self args} {
-    # COLD inlet
+# COLD inlet -------------------------------------------------------------------
+proc delete::1_symbol {self args} {
     variable ${self}::filename [pd::arg 0 symbol]
 }
 
+proc delete::1_anything {self args} {
+    variable ${self}::filename [tclfile::make_symbol $args]
+}
+
 pd::class delete
-- 
cgit v1.2.1