ich habe ein ernsthaftes problem mit Tk::NoteBook. eigentlich läuft das ganze in einer umfangreicheren anwendung, aber ich habe es mal mit einem kleinen beispiel reproduziert:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
use Tk;
use Tk::NoteBook;
my $mw = MainWindow->new();
$mw->geometry("600x600+50+50");
$mw->resizable(0, 0);
$mw->Button(-command => \&menu_file_new, -text => "Neue Seite")->pack();
# NoteBook erstellen:
my $notebook = $mw->NoteBook()->place(-x => 5, -y => 150, -width => 590, -height => 445);
my $pagecounter = 0;
MainLoop();
sub menu_file_new {
# Create new Notebook:
my $nr = ++$pagecounter;
my $nbpage = $notebook->add("nb$nr", -label => "Test $nr");
$nbpage->Label(-text => "test it $nr")->pack();
}
wenn ich das programm jetzt starte (@This is perl, v5.8.3 built for MSWin32-x86-multi-thread (with 8 registered patches, see perl -V for more detail)) startet ein tk-fenster mit einem button und einem leeren notebook. wenn man auf den button klickt wird eine neue notebook seite erstellt (die titel sind durchnummeriert). sobald man aber auf eine registerkarte oben drauf klickt verschwindet die auswahl der registerkarten und man sieht auf einmal (das vorher noch nicht sichtbare) label der entsprechenden seite.
habe ich da was falsch verstanden oder ist das ein bug?
Jemand zu Hause?![[twitter]](/battie/theme/default/icons/twitter.gif){kind=icon}
![[default_avatar]](/battie/theme/default/default_avatar.gif){kind=avatar}
Schrift
Tipp zum Debugging
Blog
Einstellungen![[feed]](/battie/theme/default/icons/feed.png){kind=icon}
![[Powered by Battie]](/battie/img/powered.png)
