Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re^2: TK: adding notebook tabs dynamically

by pg (Canon)
on Oct 11, 2004 at 03:11 UTC ( [id://398092]=note: print w/replies, xml ) Need Help??


in reply to Re: TK: adding notebook tabs dynamically
in thread TK: adding notebook tabs dynamically

No, it has nothing to do with the size of the main window. In the following code, I made the window wide enough, but still those newly added tabs does not show up.

However, when you click on any existing tab, those new tabs pop up. This is about how and when the window get redraw.

use strict; use Tk; use Tk::NoteBook; my $id = 0; my $top = MainWindow->new(-title => 'client'); $top->geometry("500x100+0+0"); my $nb = $top->NoteBook()->pack(); $top->Button(-text => "Click", -command => \&add_tab)->pack(); add_tab() for 1 .. 3; MainLoop(); sub add_tab() { $nb->add(++$id, -label => $id); }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://398092]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (7)
As of 2024-04-19 09:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found