From: Georgios Petasis on
Hi all,

Not an important problem, but I observe the following when an error occurs:

can't read "reader": no such variable
while executing
"string length $reader"
(class "::ELEP::ViewerBase::AnnotationSpecificationSelector"
destructor line 2)

The definition is:

oo::class create ELEP::ViewerBase::AnnotationSpecificationSelector {
variable reader \
dialog_window \
language \
annotation \
attribute \
alternative \
groups \
values

constructor {} {
set reader {}
};# constructor
destructor {
if {[string length $reader]} {catch {$reader destroy}}
};# destructor
}

These are widgets, and if an error is cause in another widget, objects
are destroyed through Tk events. But since an object exists to call the
destructor, this means that the constructor has ran, isn't it so?

George