[Xotcl] Filters on classes

[Schofield, Bryan (GE Transportation)]

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 at alice.wu-wien.ac.at
> [mailto:xotcl-bounces at alice.wu-wien.ac.at]On Behalf Of
> MichaelL at frogware.com
> Sent: Monday, November 15, 2004 10:33 AM
> To: xotcl at 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 at alice.wu-wien.ac.at
> http://alice.wu-wien.ac.at/mailman/listinfo/xotcl
>