Re: [tcltk-perl] Re: Re[2]: Fwd: Re: Tcl and Tcl::Tk

[Paul F. <fa...@ca...>]

Adding sub lower to Tcl::Tk worked.  Thanks.

Now I am having problems with statements like this

if (! Exists($Frames{"ListDealers"})) {

$Frames{"ListDealers"} is a Frame

> > Moving on I get errors on this type statement
> > 
> >    $PREVIOUS_FORM->lower;
> > 
> > Where $PREVIOUS_FORM is a Frame created as so:
> 
> I'll add "lower" method to Tcl::Tk widgets and will perlform release to CPAN
> at this weekend (at least I very hope so), so this method will be there at
> next CPAN release.
> 
> Until that you could do once of following ways:
> 
>  - do 
>   $interp->lower($PREVIOUS_FORM); # where $interp is your Tcl::Tk
> interpreter
> 
>  - otherwise do
>   $PREVIOUS_FORM->interp->lower($PREVIOUS_FORM); # in case you do not have
> interpreter object handy
> 
>  - or do another way:
>  edit Tcl/Tk.pm file and add subroutine 
> 
> sub lower {
>     my $self = shift;
>     $self->interp->call("lower",$self,@_);
>     $self;
> }
> 
> just after subroutine place (copy-paste and edit) :
> sub place {
>     my $self = shift;
>     $self->interp->call("place",$self,@_);
>     $self;
> }
> 
> Somewhere at line 820, and your code will be working for
> $PREVIOUS_FORM->lower;
> 
> 
> In case you'll do third way, please tell us your additions, we'll include
> many of them to next release.
> 
> Best regards,
> Vadim.