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

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

> yes.  From manpage
> 
>       $font = $widget->Font(-option=>value, ...>?)
>        $font = $widget->fontCreate(?fontname??, -option=>value, ...>?)
>            Creates a new font object and returns a reference 
> to it.  fontname
>            specifies the name for the font; if it is omitted, 
> then Tk gener-
>            ates a new name of the form fontx, where x is an 
> integer.  There
>            may be any number of option-value pairs, which 
> provide the desired
>            attributes for the new named font.  See "FONT 
> OPTIONS" below for a
>            list of the possible attributes.

Actually you should better refer to Tcl/Tk manpage rather that perlTk, and
transform its explanations to Tcl::Tk.

The reason is simple: it contains most up-to-date information for Tcl/Tk
and, as long as Tcl::Tk is a bridge module for Tcl/Tk, you should look into
Tcl/Tk for information.


> 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.