1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
package ShapeItem;
use strict;
use warnings;
use blib;
use QtCore4;
use QtGui4;
use QtCore4::isa qw( Qt::Object );
# [0]
sub myPath() {
return this->{myPath};
}
sub myPosition() {
return this->{myPosition};
}
sub myColor() {
return this->{myColor};
}
sub myToolTip() {
return this->{myToolTip};
}
# [0]
sub NEW {
shift->SUPER::NEW();
}
# [0]
sub path() {
return this->myPath;
}
# [0]
# [1]
sub position() {
return this->myPosition;
}
# [1]
# [2]
sub color() {
return this->myColor;
}
# [2]
# [3]
sub toolTip() {
return this->myToolTip;
}
# [3]
# [4]
sub setPath {
this->{myPath} = shift;
}
# [4]
# [5]
sub setToolTip {
this->{myToolTip} = shift;
}
# [5]
# [6]
sub setPosition {
this->{myPosition} = shift;
}
# [6]
# [7]
sub setColor {
this->{myColor} = shift;
}
# [7]
1;
|
