| … | |
… | |
| 28 | sort { $a->{z} <=> $b->{z} } |
28 | sort { $a->{z} <=> $b->{z} } |
| 29 | grep { $_ != $_[0] } |
29 | grep { $_ != $_[0] } |
| 30 | @ACTIVE_WIDGETS; |
30 | @ACTIVE_WIDGETS; |
| 31 | } |
31 | } |
| 32 | |
32 | |
|
|
33 | sub size_request { |
|
|
34 | die "size_request is abtract"; |
|
|
35 | } |
|
|
36 | |
| 33 | sub focus_in { |
37 | sub focus_in { |
| 34 | my ($widget) = @_; |
38 | my ($widget) = @_; |
| 35 | $FOCUS = $widget; |
39 | $FOCUS = $widget; |
| 36 | } |
40 | } |
| 37 | |
41 | |
| … | |
… | |
| 88 | my $self = $class->SUPER::new (x => $x, y => $y, z => $z); |
92 | my $self = $class->SUPER::new (x => $x, y => $y, z => $z); |
| 89 | |
93 | |
| 90 | $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text; |
94 | $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text; |
| 91 | |
95 | |
| 92 | $self |
96 | $self |
|
|
97 | } |
|
|
98 | |
|
|
99 | sub size_request { |
|
|
100 | my ($self) = @_; |
|
|
101 | |
|
|
102 | ( |
|
|
103 | $self->{texture}{width}, |
|
|
104 | $self->{texture}{height}, |
|
|
105 | ) |
| 93 | } |
106 | } |
| 94 | |
107 | |
| 95 | sub _draw { |
108 | sub _draw { |
| 96 | my ($self) = @_; |
109 | my ($self) = @_; |
| 97 | |
110 | |
