[tcltk-perl] which is the best way to provide hook(s) in Tcl::Tk module

[Konovalov, V. <vko...@sp...>]

Salut!

In my Perl applications that use Tcl::Tk I usually do a hack which allows me
to use Tcl/Tk that is distributed with application and is placed somewhere
nearby.

Those 2 hacks are:

1. it is already in CPAN 

    if (defined $::tcl_library) {
	# hack to redefine search path for TCL installation
	$i->SetVar('tcl_library',$::tcl_library);
	print STDERR "tcl_library=$::tcl_library.\n";
    }
....


2. it is only in my appliations and not in CPAN modules
    $i->SUPER::Init();
    if (defined $::tcl_init) {
        $::tcl_init->($i);
	# hack
    }
    $i->need_tk('Tk');


2nd hack allows me to have packed distribution.

My way of doing this thing is not perfect, and I would like to discuss which
aproach should be included into CPAN distribution of bridge module.

I dare to remember that we discussed a necessity to provide such a way, so
to provide for people easier manupulation.
That said, it could be reasonable to discuss a question in details,
otherwise I am in danger to take imperfect decision.

Best regards,
Vadim.