in reply to Tabs in Perl:TK

Hi Streen,

Check out the Tk::NoteBook module.
An example can be found here.

Hope this helps

Martin.

Replies are listed 'Best First'.
Re^2: Tabs in Perl:TK
by Streen (Sexton) on Oct 27, 2005 at 07:03 UTC
    Strange, I posted an other QUestion on the Board yesterday but it vanished...
    Another Try :-)
    I tried both modules but on each one I have an other problem, if I could solve (or you can help me solve it) I would be happy. First Problem with the DynaTabFrame. I cannot set the height correctly. Here is the code snippet:
    my $BunchNotebook = $BunchInfoFrame->DynaTabFrame ( -font => $GeneralInformationFont, -tabcolor => 'gray', -raisecolor => 'lightgray', -tabside => 'nw', -tabpadx => 3, -tabpady => 3, -tiptime => 600, #-height => 500, #does not work -tipcolor => 'white' )->pack (-side => 'top', -expand => 1, -fill => 'both'); #then add the tabs: $BunchTabs{$Title} = $BunchNotebook -> add (-caption => $Title);
    The problem you can see here, there are more labels in the Tab, but you cannot see them, if you draw the window bigger with thee mouse you can see the rest of the labels. I tried on several places to set the correct height, but with no success.

    So I tried the other Module the Tk:NoteBook, whith this module the height is shown correctly, but there is only one "row" of tabs. I have a dynamic count of tabs there can be only 2 or up to 10, here the window expands, or if I set a maximum width come of the tabs are not shown. And the solution with a scrollbar does not look good. Pictures Is there an option for NoteBook to create more Rows of tabs? (like in the other module?) I did not find such a function.

    I hope you could help me, thanks for replies.