PerlTQt/lib/TQt/enumerations.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

package TQt::enumerations;
#
# Proposed usage:
#
# package MyWidget;
#
# use TQt::enumerations MyInfo => {
#     Foo => 1,
#     Bar => 10,
#     Baz => 64
# };
#
# use TQt::enumerations MyInfo => [qw(Foo Bar Baz)];
#
1;