diff options
Diffstat (limited to 'writable.tcl')
-rw-r--r-- | writable.tcl | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/writable.tcl b/writable.tcl new file mode 100644 index 0000000..e300f28 --- /dev/null +++ b/writable.tcl @@ -0,0 +1,51 @@ +package require Tclpd 0.3.0 +package require TclpdLib 0.20 +package require tclfile + +proc writable::constructor {self args} { + if {![namespace exists $self]} { + namespace eval $self {} + } + variable ${self}::current_canvas [canvas_getcurrent] + # set to blank so the var always exists + variable ${self}::filename {} + + # add second inlet (first created by default) + pd::add_inlet $self list + + # add outlet + pd::add_outlet $self list +} + +# HOT inlet -------------------------------------------------------------------- +proc writable::0_symbol {self args} { + variable ${self}::filename [pd::arg 0 symbol] + writable::0_bang $self +} + +proc writable::0_anything {self args} { + variable ${self}::filename [tclfile::make_symbol $args] + writable::0_bang $self +} + +proc writable::0_bang {self} { + variable ${self}::current_canvas + variable ${self}::filename + if {[file pathtype $filename] eq "absolute"} { + pd::outlet $self 0 float [file writable $filename] + } else { + set dir [canvas_getdir $current_canvas] + pd::outlet $self 0 float [file writable [file join $dir $filename]] + } +} + +# COLD inlet ------------------------------------------------------------------- +proc writable::1_symbol {self args} { + variable ${self}::filename [pd::arg 0 symbol] +} + +proc writable::1_anything {self args} { + variable ${self}::filename [tclfile::make_symbol $args] +} + +pd::class writable |