From a1ced8f4ec6edcd66b03dd8584e037d701ca95e6 Mon Sep 17 00:00:00 2001
From: mescalinum <mescalinum@users.sourceforge.net>
Date: Wed, 2 Sep 2009 19:16:06 +0000
Subject: add support for save function (savefn)

svn path=/trunk/externals/tclpd/; revision=12190
---
 pdlib.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'pdlib.tcl')

diff --git a/pdlib.tcl b/pdlib.tcl
index 2d15d89..4c3a63e 100644
--- a/pdlib.tcl
+++ b/pdlib.tcl
@@ -77,11 +77,12 @@ namespace eval ::pd {
     }
 
     proc read_class_definition {classname def} {
-        # strip comments:
-        set def2 [regsub -all -line {#.*$} $def {}]
         set patchable_flag 1
         set noinlet_flag 0
-        foreach {id arg} $def2 {
+
+        proc ::${classname}_object_save {self args} {return ""}
+
+        foreach {id arg} $def {
             switch -- $id {
                 patchable {
                     if {$arg != 0 && $arg != 1} {
-- 
cgit v1.2.1