View · Search · Index
No registered users in community xowiki
in last 10 minutes

RE: [Xotcl] Filters on classes

From: Schofield, Bryan \(GE Transportation\) <"Schofield,>
Date: Mon, 15 Nov 2004 10:54:52 -0500

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
>