From 1870952e54f2b489717fb99051f6ddabf1e64425 Mon Sep 17 00:00:00 2001 From: mescalinum Date: Thu, 10 Nov 2011 21:32:44 +0000 Subject: use pd::post instead of puts. namespace eval is not needed (done internally by tclpd before load). don't use return in global scope. svn path=/trunk/externals/tclfile/; revision=15717 --- mkdir.tcl | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/mkdir.tcl b/mkdir.tcl index 9201a28..90b1641 100644 --- a/mkdir.tcl +++ b/mkdir.tcl @@ -1,11 +1,7 @@ package require Tclpd 0.2.3 package require TclpdLib 0.19 -puts stderr "Loading mkdir.tcl" - -if {[namespace exists mkdir]} {return} -namespace eval mkdir { -} +pd::post "Loading mkdir.tcl" proc+ mkdir::constructor {self args} { # add outlet @@ -14,22 +10,22 @@ proc+ mkdir::constructor {self args} { # HOT inlet proc+ mkdir::0_list {self args} { - puts stderr "tclfile/mkdir: list" + pd::post "tclfile/mkdir: list" #pd::outlet $self 0 list $@curlist } # HOT inlet proc+ mkdir::0_symbol {self args} { - puts stderr "tclfile/mkdir: symbol" + pd::post "tclfile/mkdir: symbol" # pd::outlet $self 0 list $@curlist } proc+ mkdir::0_bang {self} { - puts stderr "tclfile/mkdir: bang" + pd::post "tclfile/mkdir: bang" # pd::outlet $self 0 list $@curlist } -puts stderr "pd::class mkdir" +pd::post "pd::class mkdir" pd::class mkdir -puts stderr "Finished reading mkdir.tcl" +pd::post "Finished reading mkdir.tcl" -- cgit v1.2.1