Posted to tcl by hypnotoad at Fri Apr 05 17:28:07 GMT 2019view pretty

oo::class create Bar {}

oo::objdefine Bar method new_value name {
  # Build your template as the variable $body
 
  oo::objdefine [self] method $name args $body

}