1#!/usr/bin/perl -w 2# -*- cperl -*- 3 4# 5# Author: Slaven Rezic 6# 7 8use strict; 9use Test::More; 10 11use Tk; 12use Tk::NoteBook; 13 14my $mw = eval { tkinit }; 15plan skip_all => "Cannot create MainWindow: $@" if !$mw; 16 17plan 'no_plan'; 18my $nb = $mw->NoteBook->pack(-fill => 'both', -expand => 1); 19isa_ok $nb, 'Tk::NoteBook'; 20 21{ 22 my $page = $nb->add('page1', -label => 'page(1)'); 23 isa_ok $page, 'Tk::Frame'; 24 25 my @pages = $nb->pages; 26 is_deeply \@pages, ['page1']; 27 28 my $page_widget = $nb->page_widget('page1'); 29 is $page_widget, $page; 30 31 is $nb->FindMenu('x'), undef; 32} 33 34{ 35 my $page = $nb->add('page2', -label => 'page(2)', -underline => 4); 36 is $nb->FindMenu('x'), undef; 37} 38 39{ 40 my $page = $nb->add('page3', -label => 'page(3)', -underline => 0); 41 is $nb->FindMenu('p'), $nb; 42} 43 44# MainLoop; 45 46__END__ 47