Posted to tcl by kap at Sun Aug 09 18:25:50 GMT 2015view raw
- namespace eval foo {
- proc foo {foo} {
- return $foo
- }
- oo::class create bar {
- variable Bar
- constructor {bar} {
- my bar $bar
- # Is there any way to have [my bar] evaluated with
- # Each call of the forward method foo?
- oo::objdefine [self] forward foo foo::foo my bar
- }
- method bar {{bar {}}} {
- if {$bar ne {}} {
- set Bar $bar
- }
- return $Bar
- }
- }
- }
- foo::bar create a HELLO
- # Fails due to the args "my" and "bar" being sent to [foo::foo]
- a foo