From 1481422a6b603a7c6ab043704fff539aa0039cf1 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Mon, 14 Nov 2011 19:00:16 +0000
Subject: namespace  is now created by tclpd, so remove here

svn path=/trunk/externals/tclfile/; revision=15747
---
 delete.tcl      | 3 ---
 executable.tcl  | 3 ---
 exists.tcl      | 3 ---
 isdirectory.tcl | 3 ---
 isfile.tcl      | 3 ---
 mkdir.tcl       | 3 ---
 owned.tcl       | 3 ---
 readable.tcl    | 3 ---
 writable.tcl    | 3 ---
 9 files changed, 27 deletions(-)

diff --git a/delete.tcl b/delete.tcl
index 5ab7289..0037e0d 100644
--- a/delete.tcl
+++ b/delete.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc delete::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 {}
diff --git a/executable.tcl b/executable.tcl
index f196cdc..1445ca7 100644
--- a/executable.tcl
+++ b/executable.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc executable::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 {}
diff --git a/exists.tcl b/exists.tcl
index 017da58..6533e49 100644
--- a/exists.tcl
+++ b/exists.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc exists::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 {}
diff --git a/isdirectory.tcl b/isdirectory.tcl
index 6cdc175..196597d 100644
--- a/isdirectory.tcl
+++ b/isdirectory.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc isdirectory::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 {}
diff --git a/isfile.tcl b/isfile.tcl
index ad58ec1..07c290a 100644
--- a/isfile.tcl
+++ b/isfile.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc isfile::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 {}
diff --git a/mkdir.tcl b/mkdir.tcl
index 2ff47eb..a0e8350 100644
--- a/mkdir.tcl
+++ b/mkdir.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc mkdir::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 {}
diff --git a/owned.tcl b/owned.tcl
index 7255709..0a5f9b0 100644
--- a/owned.tcl
+++ b/owned.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc owned::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 {}
diff --git a/readable.tcl b/readable.tcl
index d83b420..6b98449 100644
--- a/readable.tcl
+++ b/readable.tcl
@@ -3,9 +3,6 @@ package require TclpdLib 0.20
 package require tclfile
 
 proc readable::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 {}
diff --git a/writable.tcl b/writable.tcl
index e300f28..647ea26 100644
--- a/writable.tcl
+++ b/writable.tcl
@@ -3,9 +3,6 @@ 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 {}
-- 
cgit v1.2.1