… | |
… | |
2131 | $self->emit (changed => $self->{state}); |
2131 | $self->emit (changed => $self->{state}); |
2132 | } |
2132 | } |
2133 | |
2133 | |
2134 | ############################################################################# |
2134 | ############################################################################# |
2135 | |
2135 | |
|
|
2136 | package CFClient::UI::Tooltip; |
|
|
2137 | |
|
|
2138 | our @ISA = CFClient::UI::Bin::; |
|
|
2139 | |
|
|
2140 | use CFClient::OpenGL; |
|
|
2141 | |
|
|
2142 | sub new { |
|
|
2143 | my $class = shift; |
|
|
2144 | |
|
|
2145 | $class->SUPER::new ( |
|
|
2146 | @_, |
|
|
2147 | can_events => 0, |
|
|
2148 | ) |
|
|
2149 | } |
|
|
2150 | |
|
|
2151 | sub set_text { |
|
|
2152 | my ($self, $text) = @_; |
|
|
2153 | |
|
|
2154 | $self->{label} ||= new CFClient::UI::Label fontsize => 0.8; |
|
|
2155 | $self->{label}->set_text ($text); |
|
|
2156 | $self->add ($self->{label}); |
|
|
2157 | } |
|
|
2158 | |
|
|
2159 | sub size_request { |
|
|
2160 | my ($self) = @_; |
|
|
2161 | |
|
|
2162 | my ($w, $h) = @{$self->child}{qw(req_w req_h)}; |
|
|
2163 | |
|
|
2164 | $w = List::Util::min $::WIDTH * 0.2, $w; |
|
|
2165 | |
|
|
2166 | ($w, $h) |
|
|
2167 | } |
|
|
2168 | |
|
|
2169 | ############################################################################# |
|
|
2170 | |
2136 | package CFClient::UI::Root; |
2171 | package CFClient::UI::Root; |
2137 | |
2172 | |
2138 | our @ISA = CFClient::UI::Container::; |
2173 | our @ISA = CFClient::UI::Container::; |
2139 | |
2174 | |
2140 | use CFClient::OpenGL; |
2175 | use CFClient::OpenGL; |
… | |
… | |
2215 | ############################################################################# |
2250 | ############################################################################# |
2216 | |
2251 | |
2217 | package CFClient::UI; |
2252 | package CFClient::UI; |
2218 | |
2253 | |
2219 | $ROOT = new CFClient::UI::Root; |
2254 | $ROOT = new CFClient::UI::Root; |
2220 | $TOOLTIP = new CFClient::UI::Label fontsize => 0.8, can_events => 0; |
2255 | $TOOLTIP = new CFClient::UI::Tooltip; |
2221 | |
2256 | |
2222 | 1 |
2257 | 1 |
2223 | |
2258 | |