In Perl (5.10.0) met TKX patch 8.5.4 probeer ik een toplvel window te maken die een notebook widget bevat.
Probleem is dat ik de tabs niet te zien krijg.
Weet iemand waarin mijn fout zit?
Probleem is dat ik de tabs niet te zien krijg.
Perl:
1
2
3
4
5
6
7
8
9
10
11
12
13
| use Tkx; my $mw = Tkx::widget->new("."); $mw->g_wm_title("Notebook test"); $nb = $mw->new_ttk__notebook; $tab1F = $nb->new_ttk__frame; $tab2F = $nb->new_ttk__frame; $nb->add($tab1F, -state => "normal", -text => "tab 1"); $nb->add($tab2F, -state => "normal", -text => "tab 2"); Tkx::MainLoop(); |
Weet iemand waarin mijn fout zit?
Diablo III: <GOT> Pteer#2475 --- POE: Dwergux