Tcl Source Code

Artifact e9b6920c0c3ae15afc1553256858cff93fdb019b:

Attachment "tcloo_bad_next.tcl" to ticket [2006641fff] added by wiede 2008-10-06 00:07:30.

---

#!/usr/bin/env tclsh8.6

package require TclOO 0.4

::oo::class create cl1 {
  constructor {args} {
    puts stderr "cl1::constructor"
    next
  }
}

::oo::class create cl2 {
  superclass cl1

  constructor {args} {
    next
    puts stderr "cl2::constructor"
  }
}

::oo::class create cl3 {
  constructor {args} {
    puts stderr "cl3::constructor"
  }
}


::oo::class create cl4 {
  superclass cl2 cl3

  constructor {args} {
    next
    next
    puts stderr "cl4::constructor"
  }
}

puts stderr "creating obj1"
cl4 create obj1
puts stderr "creating obj2"
cl2 create obj2