aboutsummaryrefslogtreecommitdiff
path: root/mkdir.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'mkdir.tcl')
-rw-r--r--mkdir.tcl16
1 files 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"