diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 02:16:07 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 02:16:07 +0000 |
commit | 40359cc18bdb10a89c22f22bd51791f760e094d0 (patch) | |
tree | e471a96d9b40a74379edd06a70a8b93cddbf4e25 | |
parent | 646577e301f0b639de5c63af177e9ee7a0d5352f (diff) |
updated for typemaps fixes in tclpd 0.3.0
svn path=/trunk/externals/tclfile/; revision=15740
-rw-r--r-- | delete.tcl | 6 | ||||
-rw-r--r-- | exists.tcl | 6 | ||||
-rw-r--r-- | mkdir.tcl | 6 |
3 files changed, 9 insertions, 9 deletions
@@ -1,5 +1,5 @@ -package require Tclpd 0.2.3 -package require TclpdLib 0.19 +package require Tclpd 0.3.0 +package require TclpdLib 0.20 proc delete::constructor {self args} { if {![namespace exists $self]} { @@ -25,7 +25,7 @@ proc delete::0_bang {self} { if {[file pathtype $filename] eq "absolute"} { file delete -- $filename } else { - set dir [[canvas_getdir $current_canvas] cget -s_name] + set dir [canvas_getdir $current_canvas] file delete -- [file join $dir $filename] } } @@ -1,5 +1,5 @@ -package require Tclpd 0.2.3 -package require TclpdLib 0.19 +package require Tclpd 0.3.0 +package require TclpdLib 0.20 proc exists::make_symbol {argslist} { set output [pd::strip_selectors $argslist] @@ -42,7 +42,7 @@ proc exists::0_bang {self} { if {[file pathtype $filename] eq "absolute"} { pd::outlet $self 0 float [file exists $filename] } else { - set dir [[canvas_getdir $current_canvas] cget -s_name] + set dir [canvas_getdir $current_canvas] pd::outlet $self 0 float [file exists [file join $dir $filename]] } } @@ -1,5 +1,5 @@ -package require Tclpd 0.2.3 -package require TclpdLib 0.19 +package require Tclpd 0.3.0 +package require TclpdLib 0.20 proc mkdir::constructor {self args} { if {![namespace exists $self]} { @@ -25,7 +25,7 @@ proc mkdir::0_bang {self} { if {[file pathtype $filename] eq "absolute"} { file mkdir $filename } else { - set dir [[canvas_getdir $current_canvas] cget -s_name] + set dir [canvas_getdir $current_canvas] file mkdir [file join $dir $filename] } } |