1#!/usr/local/bin/perl -w
2use Tk::Stats 'Start';
3use strict;
4use Tk;
5use Tk::Stats 'useTk';
6use Tk::Button;
7use Tk::Stats 'useButton';
8
9Tk::Stats::stats('start');
10my $mw = MainWindow->new;
11Tk::Stats::stats('Mw');
12withdraw $mw;
13Tk::Stats::stats('withdraw');
14$mw->bind('<Map>', \&Tk::Stats::stats );
15Tk::Stats::stats('bind');
16$mw->Button(-text => 'Quit', -command => [destroy => $mw])->pack;
17Tk::Stats::stats('Button');
18$mw->idletasks;
19Tk::Stats::stats('idletasks');
20deiconify $mw;
21Tk::Stats::stats('deconify');
22$mw->update;
23Tk::Stats::stats('update');
24
25