[Xotcl] Filters on classes

From: <MichaelL_at_frogware.com>
Date: Mon, 15 Nov 2004 10:32:47 -0500

I'm using XOTcl 1.3.1.

This code:

        Object instproc someFilter {args} {
            puts "self class = [self class]"
            puts "self called class = [self calledclass]"
            puts "self = [self]"
            puts "self calledproc = [self calledproc]"
            puts "args = $args"
            puts ""
            next
        }

        Class TestA -parameter {{x 0}}
        TestA filter someFilter

        TestA a
        a x
        a x 10

produces this output:

        self class = ::xotcl::Object
        self called class =
        self = ::TestA
        self calledproc = a
        args =

        self class = ::xotcl::Object
        self called class = ::xotcl::Class
        self = ::TestA
        self calledproc = unknown
        args = a

        self class = ::xotcl::Object
        self called class = ::xotcl::Class
        self = ::TestA
        self calledproc = create
        args = a

        self class = ::xotcl::Object
        self called class = ::xotcl::Class
        self = ::TestA
        self calledproc = alloc
        args = a

        invalid command name "a"

Note that filtering on "TestA a" seems to prevent the creation of an obj
named "a". Any ideas?