diff options
-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 {} |