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.158 by root, Mon Apr 24 02:41:48 2006 UTC vs.
Revision 1.160 by root, Mon Apr 24 03:33:51 2006 UTC

14our $BUTTON_STATE; 14our $BUTTON_STATE;
15 15
16sub check_tooltip { 16sub check_tooltip {
17 if (!$GRAB) { 17 if (!$GRAB) {
18 for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) { 18 for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) {
19 if (exists $widget->{tooltip}) { 19 if (length $widget->{tooltip}) {
20 20
21 if ($TOOLTIP->{owner} != $widget) { 21 if ($TOOLTIP->{owner} != $widget) {
22 $TOOLTIP->{owner} = $widget; 22 $TOOLTIP->{owner} = $widget;
23 23
24 my $tip = $widget->{tooltip}; 24 my $tip = $widget->{tooltip};
140 $self->connect ($1 => delete $self->{$_}); 140 $self->connect ($1 => delete $self->{$_});
141 } 141 }
142 } 142 }
143 143
144 $self 144 $self
145}
146
147sub destroy {
148 my ($self) = @_;
149
150 $self->hide;
151 %$self = ();
145} 152}
146 153
147sub show { 154sub show {
148 my ($self) = @_; 155 my ($self) = @_;
149 156
2185} 2192}
2186 2193
2187sub size_request { 2194sub size_request {
2188 my ($self) = @_; 2195 my ($self) = @_;
2189 2196
2190 $self->child->set_max_size ($::WIDTH * 0.2); 2197 $self->child->set_max_size ($::WIDTH * 0.3);
2191 2198
2192 my ($w, $h) = @{$self->child}{qw(req_w req_h)}; 2199 my ($w, $h) = @{$self->child}{qw(req_w req_h)};
2193 2200
2194 ($w + 4, $h + 4) 2201 ($w + 4, $h + 4)
2195} 2202}

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines