The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

AWIN / PerlQt-1.04 / tutorial / t13 / t13 

            

              
1
2
3
4
5
6
7
8
9

              
#!/usr/bin/perl -w
use Qt;
use GameBoard;
$gb = new GameBoard;
$gb->setGeometry(100, 100, 500, 355);
$qApp->setMainWidget($gb);
$gb->show();
exit $qApp->exec();