tcltk-perl

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

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

I get this error:

[falbe@ca4ad iPaq]$ tautotran.pl
Tcl error 'bad option "Font": must be cget or configure at /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/Tcl.pm line 417.
' while invoking scalar result call:
        ". Font -family Helvetica -size -24" at /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/Tcl.pm line 418
        Tcl::call('Tcl::Tk=SCALAR(0x804cde0)',.,'Font','-family','Helvetica','-size',-24) called at /usr/lib/perl5/site_perl/5.8.3/Tcl/Tk.pm line 2034
        Tcl::Tk::Widget::__ANON__('Tcl::Tk::Widget::MainWindow=SCALAR(0x80ea90c)','-family','Helvetica','-size',-24) called at /usr/lib/perl5/site_perl/5.8.3/Tcl/Tk.pm line 2040
        Tcl::Tk::Widget::AUTOLOAD called at /usr/lib/perl5/site_perl/5.8.3/Tcl/Tk.pm line 2338
        Tcl::Tk::Widget::MainWindow::AUTOLOAD('Tcl::Tk::Widget::MainWindow=SCALAR(0x80ea90c)','-family','Helvetica','-size',-24) called at ./tautotran.pl line 51

from 

   $largefont = $MW->Font(-family => 'Helvetica', -size => -24);

Any ideas?

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

[Jeff H. <je...@Ac...>]

> [falbe@ca4ad iPaq]$ tautotran.pl
> Tcl error 'bad option "Font": must be cget or configure at 
> /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/Tcl.p
> m line 417. ' while invoking scalar result call:
>         ". Font -family Helvetica -size -24" at 

> from 
>    $largefont = $MW->Font(-family => 'Helvetica', -size => -24);

Was this legal in Perl/Tk?  It's a pretty odd corruption of
the original Tk stuff.  You should just do:

$font = Tcl::Tk::font('create', -family => "Helvetica", -size => -24);

or less preferred but works:

$font = $mw->font("create", -family => "Helvetica", -size => -24);
$font = $mw->fontCreate(-family => "Helvetica", -size => -24);

at some point we will have to establish a formal guide to how
you translate from Tcl/Tk style code to Perl/Tcl::Tk style code.
We will want to support Perl/Tk, but really with a compat layer,
as some of the decisions made there in syntax are odd and/or
limiting.

  Jeff Hobbs, The Tcl Guy
  http://www.ActiveState.com/, a division of Sophos

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

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

On Thu, Aug 26, 2004 at 01:21:18PM -0700, Jeff Hobbs wrote:
> > [falbe@ca4ad iPaq]$ tautotran.pl
> > Tcl error 'bad option "Font": must be cget or configure at 
> > /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi/Tcl.p
> > m line 417. ' while invoking scalar result call:
> >         ". Font -family Helvetica -size -24" at 
> 
> > from 
> >    $largefont = $MW->Font(-family => 'Helvetica', -size => -24);
> 
> Was this legal in Perl/Tk?  It's a pretty odd corruption of
> the original Tk stuff.  You should just do:
> 
> $font = Tcl::Tk::font('create', -family => "Helvetica", -size => -24);

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.

> 
> or less preferred but works:
> 
> $font = $mw->font("create", -family => "Helvetica", -size => -24);

This works!

> $font = $mw->fontCreate(-family => "Helvetica", -size => -24);

Moving on I get errors on this type statement

   $PREVIOUS_FORM->lower;

Where $PREVIOUS_FORM is a Frame created as so:

my $newfrm = $Canvases{programs}->Frame(-height => 245);
$newfrm->place(-x => 0,
               -y => 0,
               -relwidth => 1,                                                                 -relheight => 1);