Posted to tcl by dgp at Wed Jul 06 15:45:25 GMT 2011view raw

  1.  
  2. package require Itcl 3.4
  3. eval {
  4. itcl::class test_chain_a {
  5. constructor {args} {
  6. eval chain $args
  7. } {}
  8. }
  9. itcl::class test_chain_c {
  10. inherit test_chain_a
  11. constructor {args} {
  12. eval chain $args
  13. } {
  14. global ::test_chain_status
  15. }
  16. }
  17. itcl::class test_chain_d {
  18. inherit test_chain_c
  19. }
  20. }
  21. test_chain_d #auto 1 2 3
  22. test_chain_c #auto 4 5 6
  23.