title: TclOO : Get the name of class where the object was created
body: <p>I have two classes  :</p>
  <pre><code>oo::class create p1 {
      constructor {} {
          # Here I would like to know where the object was created.
          # Inside second class or other
      }
  }
  
  oo::class create p2 {
      constructor {} {
  
      }
  }
  
  oo::define p2 {
      method testSecond {} {
          set obj [p1 new]
      }
  }
  set obj1 [p1 new]
  set obj2 [p2 new]
  
  $obj2 testSecond
  </code></pre>
  <p>I have try :
  <code>puts &quot;Infoname Class= [info object class [self]]&quot;</code> inside <code>p1</code> class constructor. But each time I have <code>Infoname Class= ::p1</code>.</p>