aboutsummaryrefslogtreecommitdiff
path: root/exists.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'exists.tcl')
-rw-r--r--exists.tcl6
1 files changed, 2 insertions, 4 deletions
diff --git a/exists.tcl b/exists.tcl
index 53a4918..4b92811 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -25,14 +25,13 @@ proc exists::constructor {self args} {
pd::add_outlet $self list
}
+# HOT inlet --------------------------------------------------------------------
proc exists::0_symbol {self args} {
- # HOT inlet
variable ${self}::filename [pd::arg 0 symbol]
exists::0_bang $self
}
proc exists::0_anything {self args} {
- # HOT inlet
variable ${self}::filename [make_symbol $args]
exists::0_bang $self
}
@@ -48,13 +47,12 @@ proc exists::0_bang {self} {
}
}
+# COLD inlet -------------------------------------------------------------------
proc exists::1_symbol {self args} {
- # COLD inlet
variable ${self}::filename [pd::arg 0 symbol]
}
proc exists::1_anything {self args} {
- # COLD inlet
variable ${self}::filename [make_symbol $args]
}