in reply to How do I put Widgets/Information onto TK::NoteBook pages

The problem is that you are creating page objects in line 58, but are not using them to configure the page. Try something along the lines of (pulled from working code): 
my $n = $globals_main->NoteBook(-ipadx => 6,
                                -ipady => 6);

my $basic_p = $n->add("basic",
                          -label => "Basic",
                          -underline => 0);

$basic_p->LabEntry(-label => "number of samples to load for inference"
+,
                      -labelPack => [-side => "left", -anchor => "w"],
                      -width => 10,
                      -textvariable => \$load_samples
                     )->pack(-side => "top", -anchor => "nw");

[download]

-Mark

Replies are listed 'Best First'.
Re: Re: How do I put Widgets/Information onto TK::NoteBook pages
by Anonymous Monk on May 03, 2004 at 17:47 UTC
    I could use your suggestion if I were not dynamically generating the names. I confirm the names that I generated using lines 64-68. So the application knows that the page Host exists and it knows that pages 0-# of interfaces on my system exist and they are numerically named 0-# of interfaces. So when I request $nb->$page_num, the $page_num translates directly to a named page. So if I am reading all the examples correctly, I can not dynamically allocate pages and put data on them?
[reply]
      First: use strict! There are questionable lines in your code. You have the @int array containing the page widgets, why not use this one instead of the wrong code in the lines 80 and 84?
[reply]
        Does any Monk here understand the concept of DYNAMIC variables and the need to generate them? And the need to be able to address them on the fly as I loop through the original information from the ipconfig command? Apprarently not. Thanks for your time, but not for your so called wisdom.
[reply]

In Section Seekers of Perl Wisdom