view release on metacpan or  search on metacpan

demo/perlqt.t  view on Meta::CPAN

43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
          fd => Qt::xfd(),
          timeout => .2,  # for balloon help, etc.
          cb => sub {
              $app->processEvents(3000);  #read
              $app->flushX();             #write
          });
 
my $w = MyMainWindow->new;
 
my $mb = $w->menuBar;
my $file = Qt::PopupMenu->new;
$file->insertItem("Open...", $w, 'open_file()');
$file->insertItem("Quit", $w, 'quit()');
$mb->insertItem("File", $file);
 
my $at = int rand 1000;
my $label = Qt::Label->new("$at", $w);
$w->setCentralWidget($label);
 
Event->timer(hard => 1, interval => .2, cb => sub {
                 --$at;