Posted to tcl by schelte at Fri Sep 13 13:56:40 GMT 2013view raw

  1. oo::class create foo {
  2. constructor {} {
  3. my unknown flubble
  4. }
  5.  
  6. method flubble {args} {
  7. puts [info level 0]
  8. }
  9. }
  10.  
  11. foo new
  12.  
  13. # Gives: unknown method "flubble": must be <cloned>, destroy, eval, flubble, unknown, variable or varname