Posted to tcl by aspect at Mon Nov 09 05:35:42 GMT 2015view raw

  1. oo::class create meta {
  2. superclass ::oo::class
  3. self class meta
  4. }
  5.  
  6.  
  7. puts "meta create: [info object call meta create]"
  8. # meta create: {method create ::oo::class {core method: "create"}}
  9.  
  10. meta create foo {
  11. puts lalalala
  12. }
  13. # lalalala
  14.  
  15. puts "foo create: [info object call foo create]"
  16. # foo create: {method create ::oo::class {core method: "create"}}
  17.  
  18. foo create bar {
  19. puts lololo
  20. error error
  21. }
  22. # ??!!?? nothing ??!!??
  23.  
  24. puts "done"
  25. # done
  26.