[tcltk-perl] Why is Tcl a subclass of Tck::Tk?

[Gisle A. <gi...@Ac...>]

In Tcl.pm I see this code:

    unless (defined $Tcl::Tk::VERSION) {
        package Tcl::Tk; # define empty package
    }
    use vars qw(@ISA);
    @ISA = qw(DynaLoader Tcl::Tk);

Why is Tcl as subclass of Tck::Tk insted of the other way around?  The
other way seems more logical.

--Gisle