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