| … | |
… | |
| 9 | use CFClient; |
9 | use CFClient; |
| 10 | use CFClient::Texture; |
10 | use CFClient::Texture; |
| 11 | |
11 | |
| 12 | our ($FOCUS, $HOVER, $GRAB); # various widgets |
12 | our ($FOCUS, $HOVER, $GRAB); # various widgets |
| 13 | |
13 | |
|
|
14 | our $LAYOUT; |
| 14 | our $ROOT; |
15 | our $ROOT; |
| 15 | our $TOOLTIP; |
16 | our $TOOLTIP; |
| 16 | our $BUTTON_STATE; |
17 | our $BUTTON_STATE; |
| 17 | |
18 | |
| 18 | our %WIDGET; # all widgets, weak-referenced |
19 | our %WIDGET; # all widgets, weak-referenced |
|
|
20 | |
|
|
21 | sub get_layout { |
|
|
22 | for (grep { $_->{name} } values %WIDGET) { |
|
|
23 | $LAYOUT->{$_->{name}} = { |
|
|
24 | x => $_->{x} / $::WIDTH, |
|
|
25 | y => $_->{y} / $::HEIGHT, |
|
|
26 | w => $_->{w} / $::WIDTH, |
|
|
27 | h => $_->{h} / $::HEIGHT |
|
|
28 | }; |
|
|
29 | } |
|
|
30 | |
|
|
31 | return $LAYOUT; |
|
|
32 | } |
|
|
33 | |
|
|
34 | sub set_layout { |
|
|
35 | my ($layout) = @_; |
|
|
36 | $LAYOUT = $layout; |
|
|
37 | } |
| 19 | |
38 | |
| 20 | sub check_tooltip { |
39 | sub check_tooltip { |
| 21 | if (!$GRAB) { |
40 | if (!$GRAB) { |
| 22 | for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) { |
41 | for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) { |
| 23 | if (length $widget->{tooltip}) { |
42 | if (length $widget->{tooltip}) { |
| … | |
… | |
| 193 | $self->connect ($1 => delete $self->{$_}); |
212 | $self->connect ($1 => delete $self->{$_}); |
| 194 | } |
213 | } |
| 195 | } |
214 | } |
| 196 | |
215 | |
| 197 | Scalar::Util::weaken ($CFClient::UI::WIDGET{$self+0} = $self); |
216 | Scalar::Util::weaken ($CFClient::UI::WIDGET{$self+0} = $self); |
|
|
217 | |
|
|
218 | if (my $layout = $CFClient::UI::LAYOUT->{$self->{name}}) { |
|
|
219 | $self->{user_x} = $layout->{x} * $::WIDTH; |
|
|
220 | $self->{user_y} = $layout->{y} * $::HEIGHT; |
|
|
221 | $self->{user_w} = ($layout->{w} != 0 ? $layout->{w} : 1) * $::WIDTH; |
|
|
222 | $self->{user_h} = ($layout->{h} != 0 ? $layout->{h} : 1) * $::HEIGHT; |
|
|
223 | } |
| 198 | |
224 | |
| 199 | $self |
225 | $self |
| 200 | } |
226 | } |
| 201 | |
227 | |
| 202 | sub destroy { |
228 | sub destroy { |
