From 40359cc18bdb10a89c22f22bd51791f760e094d0 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 14 Nov 2011 02:16:07 +0000
Subject: updated for typemaps fixes in tclpd 0.3.0

svn path=/trunk/externals/tclfile/; revision=15740
---
 delete.tcl | 6 +++---
 exists.tcl | 6 +++---
 mkdir.tcl  | 6 +++---
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/delete.tcl b/delete.tcl
index 840535f..aeeaa25 100644
--- a/delete.tcl
+++ b/delete.tcl
@@ -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]
     }
 }
diff --git a/exists.tcl b/exists.tcl
index 4b92811..3e337c5 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -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]]
     }
 }
diff --git a/mkdir.tcl b/mkdir.tcl
index 71e09aa..9d2f7b7 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -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]
     }
 }
-- 
cgit v1.2.1