diff options
| author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 19:00:16 +0000 |
|---|---|---|
| committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2011-11-14 19:00:16 +0000 |
| commit | 1481422a6b603a7c6ab043704fff539aa0039cf1 (patch) | |
| tree | 29d1e5bfe0037fd74012a06f4b1e9bd1b8026e1b | |
| parent | 44d457f6e8e4427774bd6316c05818c62169359b (diff) | |
namespace is now created by tclpd, so remove here
svn path=/trunk/externals/tclfile/; revision=15747
| -rw-r--r-- | delete.tcl | 3 | ||||
| -rw-r--r-- | executable.tcl | 3 | ||||
| -rw-r--r-- | exists.tcl | 3 | ||||
| -rw-r--r-- | isdirectory.tcl | 3 | ||||
| -rw-r--r-- | isfile.tcl | 3 | ||||
| -rw-r--r-- | mkdir.tcl | 3 | ||||
| -rw-r--r-- | owned.tcl | 3 | ||||
| -rw-r--r-- | readable.tcl | 3 | ||||
| -rw-r--r-- | writable.tcl | 3 |
9 files changed, 0 insertions, 27 deletions
@@ -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 {} @@ -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 {} @@ -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 {} @@ -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 {} @@ -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 {} |