Posted to tcl by dgp at Wed Jul 06 15:36:37 GMT 2011view raw
- package require Itcl 3.4
- eval {
- itcl::class test_chain_a {
- constructor {args} {
- eval chain $args
- } {
- global ::test_chain_status
- lappend test_chain_status "a::constructor $args"
- }
- }
- itcl::class test_chain_b {
- constructor {args} {
- eval chain $args
- } {
- global ::test_chain_status
- lappend test_chain_status "b::constructor $args"
- }
- }
- itcl::class test_chain_c {
- inherit test_chain_a test_chain_b
- constructor {args} {
- eval chain $args
- } {
- global ::test_chain_status
- lappend test_chain_status "c::constructor $args"
- }
- }
- itcl::class test_chain_d {
- inherit test_chain_c
- constructor {args} {
- eval chain $args
- } {
- global ::test_chain_status
- lappend test_chain_status "d::constructor $args"
- }
- }
- }
- test_chain_d #auto 1 2 3
- test_chain_c #auto 4 5 6