blob: 3fdf88482010d99c73d6f6e14c37f2ec4718ff05 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
#!/usr/bin/perl -w
use strict;
use Qt;
use ButtonsGroups;
my $a = Qt::Application(\@ARGV);
my $buttonsgroups = ButtonsGroups;
$buttonsgroups->resize(500, 250);
$buttonsgroups->setCaption("PerlQt Example - Buttongroups");
$a->setMainWidget($buttonsgroups);
$buttonsgroups->show;
exit $a->exec;
|
