Maybe this Tk Documentation will be useful for you.

      
--------------------------------
SV* sv_bless(SV* sv, HV* stash);