No registered users in community xowiki
in last 10 minutes
in last 10 minutes
[Xotcl] problem with filter & destroy
From: Kristoffer Lawson <setok_at_fishpool.com>
Date: Wed, 28 Feb 2001 03:39:31 +0200 (EET)
(version: 0.83)
Class Foo
Foo instproc destroy {args} {
puts "destroy args: $args"
next
}
Foo instproc method {args} {
puts "method args: $args"
next
}
Foo instproc filterProc {args} {
puts "filter args: $args"
next
}
Foo filter filterProc
[~] ob method suk
filter args: suk
method arg: suk
[~] ob destroy blah
filter args: blah
destroy args:
Without the filter the arguments to destroy are sent as normal. So the
filter is having some effect on how destroy is handled. Also, I've
received the following error when playing around with this situation:
invalid command name "self"
while executing "self"
invoked from within "puts stderr "[self]: Error in instproc destroy
$::errorCode $::errorInfo""
invoked from within
"ob destroy data"
- ---------- = = ---------//--+
| / Kristoffer Lawson | www.fishpool.fi|.com
+-> | setok_at_fishpool.com | - - --+------
|-- Fishpool Creations Ltd - / |
+-------- = - - - = --------- /~setok/
Date: Wed, 28 Feb 2001 03:39:31 +0200 (EET)
(version: 0.83)
Class Foo
Foo instproc destroy {args} {
puts "destroy args: $args"
next
}
Foo instproc method {args} {
puts "method args: $args"
next
}
Foo instproc filterProc {args} {
puts "filter args: $args"
next
}
Foo filter filterProc
[~] ob method suk
filter args: suk
method arg: suk
[~] ob destroy blah
filter args: blah
destroy args:
Without the filter the arguments to destroy are sent as normal. So the
filter is having some effect on how destroy is handled. Also, I've
received the following error when playing around with this situation:
invalid command name "self"
while executing "self"
invoked from within "puts stderr "[self]: Error in instproc destroy
$::errorCode $::errorInfo""
invoked from within
"ob destroy data"
- ---------- = = ---------//--+
| / Kristoffer Lawson | www.fishpool.fi|.com
+-> | setok_at_fishpool.com | - - --+------
|-- Fishpool Creations Ltd - / |
+-------- = - - - = --------- /~setok/