in reply to Re: Tk::NoteBook tabs in a Tk::Dialog question
in thread Tk::NoteBook tabs in a Tk::Dialog question
Buckaduck....
....i dont know if its worth mentioning it, because his code doesnt have the same error, however it does have the same symptom as mine....
It CAN work like this:
...but mine didnt work because i was writing Notebook instead of NoteBook.... :">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;
Heatseeker Cannibal
|
---|
In Section
Seekers of Perl Wisdom