diff options
author | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-02 19:16:06 +0000 |
---|---|---|
committer | mescalinum <mescalinum@users.sourceforge.net> | 2009-09-02 19:16:06 +0000 |
commit | a1ced8f4ec6edcd66b03dd8584e037d701ca95e6 (patch) | |
tree | 1e4d3f7e19e41f722b29e7b2db52f0698daf8efd /pdlib.tcl | |
parent | bf7fa9e9d5cf903cf95e9d99a364d93cb3b754d8 (diff) |
add support for save function (savefn)
svn path=/trunk/externals/tclpd/; revision=12190
Diffstat (limited to 'pdlib.tcl')
-rw-r--r-- | pdlib.tcl | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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} { |