http://www.perlmonks.org?node_id=1026119
jerre_111 has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks

Once again I humbly come upon your gates of wisdom

I had some questions concirning the notebook widget from Tk

I am making a simple progam, just 1 window, 2 pages and on page 1 I have one button.

Now i have disabled page 2 from start, but I want to enbale it and go to there if the button is clicked on page 1. So when you click the button, page 2 enables en you automaticly go there

This is the code that I am using right now :

use Tk; use Tk::NoteBook; ######### Making the main Window ########## $mw = MainWindow->new; $mw->geometry("700x600"); $mw->title("tabbed window"); # Create the notebook and fill the whole window $nb = $mw->NoteBook( )->pack(-expand => 1, -fill => 'both'); ####### Create page 1 ########## $p1 = $nb->add('page1', -label => 'Page 1'); $p1->Button(-text => 'go to page 2 ')->pack( ); ####### Create page 2 ########## $nb->add('page2', -label => 'Page 2', -state=>'disabled'); MainLoop;

Hope somebody can help me..

Thanks in advance