summaryrefslogtreecommitdiffstats
path: root/PerlQt/examples/buttongroups/buttongroups.pl
blob: 632ad434945e7138121bfb874d8909f575d4dc1e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl -w
use strict;
use TQt;
use ButtonsGroups;

my $a = TQt::Application(\@ARGV);

my $buttonsgroups = ButtonsGroups;
$buttonsgroups->resize(500, 250);
$buttonsgroups->setCaption("PerlTQt Example - Buttongroups");
$a->setMainWidget($buttonsgroups);
$buttonsgroups->show;
exit $a->exec;