hmm.. I just tried this with Gustaf's 1.3.3 version and it works for me... Give this a try and see if this works for you: http://media.wu-wien.ac.at/download/xotcl-1.3.3.tar.gz It's pre-release build that I've been testing for several weeks now that has some bug fixes in it. -- bryan

-----Original Message----- From: xotcl-bounces@alice.wu-wien.ac.at [mailto:xotcl-bounces@alice.wu-wien.ac.at]On Behalf Of MichaelL@frogware.com Sent: Monday, November 15, 2004 10:33 AM To: xotcl@alice.wu-wien.ac.at Subject: [Xotcl] Filters on classes

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?

---

Xotcl mailing list Xotcl@alice.wu-wien.ac.at http://alice.wu-wien.ac.at/mailman/listinfo/xotcl