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