ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/DC/UI.pm
(Generate patch)

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.279 by root, Mon Jun 5 00:17:47 2006 UTC vs.
Revision 1.285 by root, Mon Jun 5 03:07:01 2006 UTC

… …
3use utf8; 3use utf8;
4use strict; 4use strict;
5 5
6use Scalar::Util (); 6use Scalar::Util ();
7use List::Util (); 7use List::Util ();
8use Event;
8 9
9use CFClient; 10use CFClient;
10use CFClient::Texture; 11use CFClient::Texture;
11 12
12our ($FOCUS, $HOVER, $GRAB); # various widgets 13our ($FOCUS, $HOVER, $GRAB); # various widgets
… …
15our $ROOT; 16our $ROOT;
16our $TOOLTIP; 17our $TOOLTIP;
17our $BUTTON_STATE; 18our $BUTTON_STATE;
18 19
19our %WIDGET; # all widgets, weak-referenced 20our %WIDGET; # all widgets, weak-referenced
21
22our $TOOLTIP_WATCHER = Event->idle (min => 1/60, cb => sub {
23 if (!$GRAB) {
24 for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
25 if (length $widget->{tooltip}) {
26 if ($TOOLTIP->{owner} != $widget) {
27 $TOOLTIP->hide;
28
29 $TOOLTIP->{owner} = $widget;
30
31 return if $ENV{CFPLUS_DEBUG} & 8;
32
33 my $tip = $widget->{tooltip};
34
35 $tip = $tip->($widget) if CODE:: eq ref $tip;
36
37 $TOOLTIP->set_tooltip_from ($widget);
38 $TOOLTIP->show;
39 }
40
41 return;
42 }
43 }
44 }
45
46 $TOOLTIP->hide;
47 delete $TOOLTIP->{owner};
48});
20 49
21sub get_layout { 50sub get_layout {
22 my $layout; 51 my $layout;
23 52
24 for (grep { $_->{name} } values %WIDGET) { 53 for (grep { $_->{name} } values %WIDGET) {
… …
39 my ($layout) = @_; 68 my ($layout) = @_;
40 69
41 $LAYOUT = $layout; 70 $LAYOUT = $layout;
42} 71}
43 72
44sub check_tooltip {
45 return if $ENV{CFPLUS_DEBUG} & 8;
46
47 if (!$GRAB) {
48 for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
49 if (length $widget->{tooltip}) {
50 if ($TOOLTIP->{owner} != $widget) {
51 $TOOLTIP->hide;
52
53 $TOOLTIP->{owner} = $widget;
54
55 my $tip = $widget->{tooltip};
56
57 $tip = $tip->($widget) if CODE:: eq ref $tip;
58
59 $TOOLTIP->set_tooltip_from ($widget);
60 $TOOLTIP->show;
61 }
62
63 return;
64 }
65 }
66 }
67
68 $TOOLTIP->hide;
69 delete $TOOLTIP->{owner};
70}
71
72# class methods for events 73# class methods for events
73sub feed_sdl_key_down_event { 74sub feed_sdl_key_down_event {
74 $FOCUS->emit (key_down => $_[0]) 75 $FOCUS->emit (key_down => $_[0])
75 if $FOCUS; 76 if $FOCUS;
76} 77}
… …
88 my $widget = $ROOT->find_widget ($x, $y); 89 my $widget = $ROOT->find_widget ($x, $y);
89 90
90 $GRAB = $widget; 91 $GRAB = $widget;
91 $GRAB->update if $GRAB; 92 $GRAB->update if $GRAB;
92 93
93 check_tooltip; 94 $TOOLTIP_WATCHER->cb->();
94 } 95 }
95 96
96 $BUTTON_STATE |= 1 << ($ev->{button} - 1); 97 $BUTTON_STATE |= 1 << ($ev->{button} - 1);
97 98
98 $GRAB->emit (button_down => $ev, $GRAB->coord2local ($x, $y)) 99 $GRAB->emit (button_down => $ev, $GRAB->coord2local ($x, $y))
… …
113 if (!$BUTTON_STATE) { 114 if (!$BUTTON_STATE) {
114 my $grab = $GRAB; undef $GRAB; 115 my $grab = $GRAB; undef $GRAB;
115 $grab->update if $grab; 116 $grab->update if $grab;
116 $GRAB->update if $GRAB; 117 $GRAB->update if $GRAB;
117 118
118 check_tooltip; 119 $TOOLTIP_WATCHER->cb->();
119 } 120 }
120} 121}
121 122
122sub feed_sdl_motion_event { 123sub feed_sdl_motion_event {
123 my ($ev) = @_; 124 my ($ev) = @_;
… …
129 my $hover = $HOVER; $HOVER = $widget; 130 my $hover = $HOVER; $HOVER = $widget;
130 131
131 $hover->update if $hover && $hover->{can_hover}; 132 $hover->update if $hover && $hover->{can_hover};
132 $HOVER->update if $HOVER && $HOVER->{can_hover}; 133 $HOVER->update if $HOVER && $HOVER->{can_hover};
133 134
134 check_tooltip; 135 $TOOLTIP_WATCHER->start;
135 } 136 }
136 137
137 $HOVER->emit (mouse_motion => $ev, $HOVER->coord2local ($x, $y)) 138 $HOVER->emit (mouse_motion => $ev, $HOVER->coord2local ($x, $y))
138 if $HOVER; 139 if $HOVER;
139} 140}
… …
277 delete $self->{visible}; 278 delete $self->{visible};
278 279
279 undef $GRAB if $GRAB == $self; 280 undef $GRAB if $GRAB == $self;
280 undef $HOVER if $HOVER == $self; 281 undef $HOVER if $HOVER == $self;
281 282
282 CFClient::UI::check_tooltip 283 $CFClient::UI::TOOLTIP_WATCHER->cb->()
283 if $TOOLTIP->{owner} == $self; 284 if $TOOLTIP->{owner} == $self;
284 285
285 $self->focus_out; 286 $self->focus_out;
286 287
287 $self->emit (visibility_change => 0); 288 $self->emit (visibility_change => 0);
… …
381} 382}
382 383
383sub set_max_size { 384sub set_max_size {
384 my ($self, $w, $h) = @_; 385 my ($self, $w, $h) = @_;
385 386
386 delete $self->{max_w}; $self->{max_w} = $w if $w; 387 $self->{max_w} = int $w if defined $w;
387 delete $self->{max_h}; $self->{max_h} = $h if $h; 388 $self->{max_h} = int $h if defined $h;
389
390 $self->realloc;
388} 391}
389 392
390sub set_tooltip { 393sub set_tooltip {
391 my ($self, $tooltip) = @_; 394 my ($self, $tooltip) = @_;
392 395
… …
397 400
398 $self->{tooltip} = $tooltip; 401 $self->{tooltip} = $tooltip;
399 402
400 if ($CFClient::UI::TOOLTIP->{owner} == $self) { 403 if ($CFClient::UI::TOOLTIP->{owner} == $self) {
401 delete $CFClient::UI::TOOLTIP->{owner}; 404 delete $CFClient::UI::TOOLTIP->{owner};
402 CFClient::UI::check_tooltip; 405 $CFClient::UI::TOOLTIP_WATCHER->cb->();
403 } 406 }
404} 407}
405 408
406# translate global coordinates to local coordinate system 409# translate global coordinates to local coordinate system
407sub coord2local { 410sub coord2local {
… …
1536 1539
1537 delete $self->{texture}; 1540 delete $self->{texture};
1538 $self->SUPER::update; 1541 $self->SUPER::update;
1539} 1542}
1540 1543
1544sub realloc {
1545 my ($self) = @_;
1546
1547 delete $self->{ox};
1548 $self->SUPER::realloc;
1549}
1550
1541sub set_text { 1551sub set_text {
1542 my ($self, $text) = @_; 1552 my ($self, $text) = @_;
1543 1553
1544 return if $self->{text} eq "T$text"; 1554 return if $self->{text} eq "T$text";
1545 $self->{text} = "T$text"; 1555 $self->{text} = "T$text";
1546 1556
1547 $self->{layout} = new CFClient::Layout if $self->{layout}->is_rgba; 1557 $self->{layout} = new CFClient::Layout if $self->{layout}->is_rgba;
1548 $self->{layout}->set_text ($text); 1558 $self->{layout}->set_text ($text);
1559 delete $self->{req_h};
1549 1560
1550 $self->realloc; 1561 $self->realloc;
1551 $self->update; 1562 $self->update;
1552} 1563}
1553 1564
… …
1559 1570
1560 my $rgba = $markup =~ /span.*(?:foreground|background)/; 1571 my $rgba = $markup =~ /span.*(?:foreground|background)/;
1561 1572
1562 $self->{layout} = new CFClient::Layout $rgba if $self->{layout}->is_rgba != $rgba; 1573 $self->{layout} = new CFClient::Layout $rgba if $self->{layout}->is_rgba != $rgba;
1563 $self->{layout}->set_markup ($markup); 1574 $self->{layout}->set_markup ($markup);
1575 delete $self->{req_h};
1564 1576
1565 $self->realloc; 1577 $self->realloc;
1566 $self->update; 1578 $self->update;
1567} 1579}
1568 1580
1569sub size_request { 1581sub size_request {
1570 my ($self) = @_; 1582 my ($self) = @_;
1571 1583
1584 if (exists $self->{req_h}) {
1585 @$self{qw(req_w req_h)}
1586 } else {
1572 $self->{layout}->set_font ($self->{font}) if $self->{font}; 1587 $self->{layout}->set_font ($self->{font}) if $self->{font};
1573 $self->{layout}->set_width ($self->{max_w} || -1); 1588 $self->{layout}->set_width ($self->{max_w} || -1);
1574 $self->{layout}->set_ellipsise ($self->{ellipsise}); 1589 $self->{layout}->set_ellipsise ($self->{ellipsise});
1575 $self->{layout}->set_single_paragraph_mode ($self->{ellipsise}); 1590 $self->{layout}->set_single_paragraph_mode ($self->{ellipsise});
1576 $self->{layout}->set_height ($self->{fontsize} * $::FONTSIZE); 1591 $self->{layout}->set_height ($self->{fontsize} * $::FONTSIZE);
1577 1592
1578 my ($w, $h) = $self->{layout}->size; 1593 my ($w, $h) = $self->{layout}->size;
1579 1594
1580 if (exists $self->{template}) { 1595 if (exists $self->{template}) {
1581 $self->{template}->set_font ($self->{font}) if $self->{font}; 1596 $self->{template}->set_font ($self->{font}) if $self->{font};
1582 $self->{template}->set_height ($self->{fontsize} * $::FONTSIZE); 1597 $self->{template}->set_height ($self->{fontsize} * $::FONTSIZE);
1583 1598
1584 my ($w2, $h2) = $self->{template}->size; 1599 my ($w2, $h2) = $self->{template}->size;
1585 1600
1586 $w = List::Util::max $w, $w2; 1601 $w = List::Util::max $w, $w2;
1587 $h = List::Util::max $h, $h2; 1602 $h = List::Util::max $h, $h2;
1588 } 1603 }
1589 1604
1590 ($w, $h) 1605 ($w, $h)
1606 }
1591} 1607}
1592 1608
1593sub size_allocate { 1609sub size_allocate {
1594 my ($self, $w, $h) = @_; 1610 my ($self, $w, $h) = @_;
1595 1611
… …
1680 $self->{last_activity} = $::NOW; 1696 $self->{last_activity} = $::NOW;
1681 $self->{text} = $text; 1697 $self->{text} = $text;
1682 1698
1683 $text =~ s/./*/g if $self->{hidden}; 1699 $text =~ s/./*/g if $self->{hidden};
1684 $self->{layout}->set_text ("$text "); 1700 $self->{layout}->set_text ("$text ");
1701 delete $self->{req_h};
1685 1702
1686 $self->_emit (changed => $self->{text}); 1703 $self->_emit (changed => $self->{text});
1704
1705 $self->realloc;
1687 $self->update; 1706 $self->update;
1688} 1707}
1689 1708
1690sub set_text { 1709sub set_text {
1691 my ($self, $text) = @_; 1710 my ($self, $text) = @_;
1692 1711
1693 $self->{cursor} = length $text; 1712 $self->{cursor} = length $text;
1694 $self->_set_text ($text); 1713 $self->_set_text ($text);
1695
1696 $self->realloc;
1697} 1714}
1698 1715
1699sub get_text { 1716sub get_text {
1700 $_[0]{text} 1717 $_[0]{text}
1701} 1718}
… …
3067our @ISA = CFClient::UI::VBox::; 3084our @ISA = CFClient::UI::VBox::;
3068 3085
3069sub new { 3086sub new {
3070 my $class = shift; 3087 my $class = shift;
3071 3088
3072 $class->SUPER::new ( 3089 my $self = $class->SUPER::new (
3073 fontsize => 0.8, 3090 fontsize => 0.8,
3074 @_, 3091 @_,
3075 ) 3092 );
3093
3094 Scalar::Util::weaken (my $this = $self);
3095
3096 $self->{timer} = Event->timer (after => 1, interval => 1, cb => sub { $this->reorder });
3097
3098 $self
3076} 3099}
3077 3100
3078sub reorder { 3101sub reorder {
3079 my ($self) = @_; 3102 my ($self) = @_;
3080 my $NOW = time; 3103 my $NOW = Time::HiRes::time;
3104
3105 # freeze display when hovering over any label
3106 return if $CFClient::UI::TOOLTIP->{owner}
3107 && grep $CFClient::UI::TOOLTIP->{owner} == $_->{label},
3108 values %{ $self->{item} };
3081 3109
3082 while (my ($k, $v) = each %{ $self->{item} }) { 3110 while (my ($k, $v) = each %{ $self->{item} }) {
3083 delete $self->{item}{$k} if $v->{timeout} < $NOW; 3111 delete $self->{item}{$k} if $v->{timeout} < $NOW;
3084 } 3112 }
3085 3113
… …
3088 my @items = sort { 3116 my @items = sort {
3089 $a->{pri} <=> $b->{pri} 3117 $a->{pri} <=> $b->{pri}
3090 or $b->{id} <=> $a->{id} 3118 or $b->{id} <=> $a->{id}
3091 } values %{ $self->{item} }; 3119 } values %{ $self->{item} };
3092 3120
3121 $self->{timer}->interval (1);
3122
3093 my $count = 10 + 1; 3123 my $count = 10 + 1;
3094 for my $item (@items) { 3124 for my $item (@items) {
3095 last unless --$count; 3125 last unless --$count;
3096 3126
3097 push @widgets, $item->{label} ||= do { 3127 my $label = $item->{label} ||= do {
3098 # TODO: doesn't handle markup well (read as: at all) 3128 # TODO: doesn't handle markup well (read as: at all)
3099 my $short = $item->{count} > 1 3129 my $short = $item->{count} > 1
3100 ? "<b>$item->{count} ×</b> $item->{text}" 3130 ? "<b>$item->{count} ×</b> $item->{text}"
3101 : $item->{text}; 3131 : $item->{text};
3102 3132
… …
3110 tooltip => $item->{tooltip}, 3140 tooltip => $item->{tooltip},
3111 tooltip_font => $::FONT_PROP, 3141 tooltip_font => $::FONT_PROP,
3112 tooltip_width => 0.67, 3142 tooltip_width => 0.67,
3113 fontsize => $item->{fontsize} || $self->{fontsize}, 3143 fontsize => $item->{fontsize} || $self->{fontsize},
3114 max_w => $::WIDTH * 0.44, 3144 max_w => $::WIDTH * 0.44,
3115 fg => $item->{fg}, 3145 fg => [@{ $item->{fg} }],
3116 can_events => 1, 3146 can_events => 1,
3117 can_hover => 1 3147 can_hover => 1
3118 }; 3148 };
3149
3150 if ((my $diff = $item->{timeout} - $NOW) < 2) {
3151 $label->{fg}[3] = ($item->{fg}[3] || 1) * $diff / 2;
3152 $label->update;
3153 $label->set_max_size (undef, $label->{req_h} * $diff)
3154 if $diff < 1;
3155 $self->{timer}->interval (1/30);
3156 } else {
3157 $label->{fg}[3] = $item->{fg}[3] || 1;
3158 }
3159
3160 push @widgets, $label;
3119 } 3161 }
3120 3162
3121 $self->clear; 3163 $self->clear;
3122 $self->SUPER::add (reverse @widgets); 3164 $self->SUPER::add (reverse @widgets);
3123} 3165}
… …
3128 $text =~ s/^\s+//; 3170 $text =~ s/^\s+//;
3129 $text =~ s/\s+$//; 3171 $text =~ s/\s+$//;
3130 3172
3131 return unless $text; 3173 return unless $text;
3132 3174
3133 my $timeout = time + ((delete $arg{timeout}) || 60); 3175 my $timeout = (int time) + ((delete $arg{timeout}) || 60);
3134 3176
3135 my $group = exists $arg{group} ? $arg{group} : ++$self->{id}; 3177 my $group = exists $arg{group} ? $arg{group} : ++$self->{id};
3136 3178
3137 if (my $item = $self->{item}{$group}) { 3179 if (my $item = $self->{item}{$group}) {
3138 if ($item->{text} eq $text) { 3180 if ($item->{text} eq $text) {
… …
3168 3210
3169 $self->reorder; 3211 $self->reorder;
3170 $self->SUPER::reconfigure; 3212 $self->SUPER::reconfigure;
3171} 3213}
3172 3214
3215sub DESTROY {
3216 my ($self) = @_;
3217
3218 $self->{timer}->cancel;
3219
3220 $self->SUPER::DESTROY;
3221}
3222
3173############################################################################# 3223#############################################################################
3174 3224
3175package CFClient::UI::Inventory; 3225package CFClient::UI::Inventory;
3176 3226
3177our @ISA = CFClient::UI::ScrolledWindow::; 3227our @ISA = CFClient::UI::ScrolledWindow::;
… …
3469 3519
3470package CFClient::UI::Root; 3520package CFClient::UI::Root;
3471 3521
3472our @ISA = CFClient::UI::Container::; 3522our @ISA = CFClient::UI::Container::;
3473 3523
3524use List::Util qw(min max);
3525
3474use CFClient::OpenGL; 3526use CFClient::OpenGL;
3475 3527
3476sub new { 3528sub new {
3477 my $class = shift; 3529 my $class = shift;
3478 3530
… …
3612 3664
3613 delete $queue{$widget+0}; 3665 delete $queue{$widget+0};
3614 3666
3615 my ($w, $h) = $widget->size_request; 3667 my ($w, $h) = $widget->size_request;
3616 3668
3617 $w = List::Util::max $widget->{min_w}, $w + $widget->{padding_x} * 2; 3669 $w = max $widget->{min_w}, $w + $widget->{padding_x} * 2;
3618 $h = List::Util::max $widget->{min_h}, $h + $widget->{padding_y} * 2; 3670 $h = max $widget->{min_h}, $h + $widget->{padding_y} * 2;
3671
3672 $w = min $widget->{max_w}, $w if exists $widget->{max_w};
3673 $h = min $widget->{max_h}, $h if exists $widget->{max_h};
3619 3674
3620 $w = $widget->{force_w} if exists $widget->{force_w}; 3675 $w = $widget->{force_w} if exists $widget->{force_w};
3621 $h = $widget->{force_h} if exists $widget->{force_h}; 3676 $h = $widget->{force_h} if exists $widget->{force_h};
3622 3677
3623 if ($widget->{req_w} != $w || $widget->{req_h} != $h 3678 if ($widget->{req_w} != $w || $widget->{req_h} != $h

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines