From 646577e301f0b639de5c63af177e9ee7a0d5352f Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 12 Nov 2011 23:49:29 +0000
Subject: better inlet labelling

svn path=/trunk/externals/tclfile/; revision=15731
---
 exists.tcl | 6 ++----
 1 file 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]
 }
 
-- 
cgit v1.2.1