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;

[download]

Hope somebody can help me..

Thanks in advance

Replies are listed 'Best First'.
Re: Tk::NoteBook focus on other page
by choroba (Cardinal) on Mar 29, 2013 at 10:57 UTC
    Everything you need can be found in the documentation of Tk::NoteBook. Check the following sample: 
    #!/usr/bin/perl
use warnings;
use strict;

use Tk;
use Tk::NoteBook;


######### Making the main Window ##########
my $mw = MainWindow->new(-title => "Tabbed Window");
$mw->geometry("700x600");

# Create the notebook and fill the whole window
my $nb = $mw->NoteBook->pack(-expand => 1,
                             -fill   => 'both',
                            );


####### Create page 1 ##########
my $p1 = $nb->add('page1', -label => 'Page 1');
$p1->Button(-text    => 'Go to page 2',
            -command => sub {
                            $nb->pageconfigure('page2', -state => 'nor
+mal');
                            $nb->raise('page2');
                        },
           )->pack;

####### Create page 2 ##########
my $p2 = $nb->add('page2', -label => 'Page 2',
                           -state=>'disabled');

MainLoop();

    [download]
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
[reply]
[d/l]

      Must have overlooked it in the documentation.

      Anyway, Thanks for your reply man (or women ;-) )!

      Works like a champ.

[reply]

Back to Seekers of Perl Wisdom