Re: Tk::NoteBook tabs in a Tk::Dialog question


Problems? Is your data what you think it is?
	PerlMonks

Re: Tk::NoteBook tabs in a Tk::Dialog question

by buckaduck (Chaplain)

on Apr 23, 2002 at 20:27 UTC ( [id://161426]=note: print w/replies, xml )

Need Help??

in reply to Tk::NoteBook tabs in a Tk::Dialog question

I think that your code:

my $d  = $dd->Frame()->pack();  
my $n = $d->NoteBook()->pack( -expand => 0, -fill => 'x' );
[download]

should probably be something more like (untested):

my $d  = $dd->add(Tk::Frame);
$d->pack;  
my $n = $d->add(Tk::NoteBook);
$n->pack( -expand => 0, -fill => 'x' );
[download]

The Tk widgets are not method names, you have to pass the widget names to the add() method. Also, I believe that you should assign the widget to a variable first and then pack() it.

buckaduck

Comment on Re: Tk::NoteBook tabs in a Tk::Dialog question Select or Download Code

Replies are listed 'Best First'.

Re^2: Tk::NoteBook tabs in a Tk::Dialog question
by HeatSeekerCannibal (Beadle) on Nov 10, 2006 at 22:28 UTC

symptom

use Tk;
use Tk::NoteBook;
my $mw = MainWindow->new(-width => 40, -height => 50);

$mw->title("Ventana Principal");
$mw->Label(-text => "Uso de pack")->pack;

$FrameFon = $mw->Frame(-relief => 'raised')->pack(-side => 'bottom', f
+ill => 'x', -expand => 1);

$Libreta = $FrameFon->NoteBook();
$Libreta->pack(-side => 'top');

$Libreta->add("Pagina1", -label =>"Configuracion");
$Libreta->add("Pagina2", -label => "Logs");

MainLoop;
[download]

Heatseeker Cannibal

[reply]
[d/l]

In Section Seekers of Perl Wisdom