… | |
… | |
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 | |