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.152 by root, Sun Apr 23 01:05:03 2006 UTC vs.
Revision 1.154 by root, Sun Apr 23 02:20:57 2006 UTC

2131 $self->emit (changed => $self->{state}); 2131 $self->emit (changed => $self->{state});
2132} 2132}
2133 2133
2134############################################################################# 2134#############################################################################
2135 2135
2136package CFClient::UI::Tooltip;
2137
2138our @ISA = CFClient::UI::Bin::;
2139
2140use CFClient::OpenGL;
2141
2142sub new {
2143 my $class = shift;
2144
2145 $class->SUPER::new (
2146 @_,
2147 can_events => 0,
2148 )
2149}
2150
2151sub set_text {
2152 my ($self, $text) = @_;
2153
2154 $self->{label} ||= new CFClient::UI::Label fontsize => 0.8, fg => [0, 0, 0];
2155 $self->{label}->set_text ($text);
2156 $self->add ($self->{label});
2157}
2158
2159sub 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 $h = List::Util::max $::HEIGHT * 0.2, $h;
2166
2167 ($w + 4, $h + 4)
2168}
2169
2170sub _draw {
2171 my ($self) = @_;
2172
2173 glPushMatrix;
2174 glTranslate 0.375, 0.375;
2175
2176 my ($w, $h) = @$self{qw(w h)};
2177
2178 glColor 1, 0.8, 0.4;
2179 glBegin GL_QUADS;
2180 glVertex 0 , 0;
2181 glVertex 0 , $h;
2182 glVertex $w, $h;
2183 glVertex $w, 0;
2184 glEnd;
2185
2186 glColor 0, 0, 0;
2187 glBegin GL_LINE_LOOP;
2188 glVertex 0 , 0;
2189 glVertex 0 , $h;
2190 glVertex $w, $h;
2191 glVertex $w, 0;
2192 glEnd;
2193
2194 glPopMatrix;
2195
2196 glTranslate 2, 2;
2197 $self->SUPER::_draw;
2198}
2199
2200#############################################################################
2201
2136package CFClient::UI::Root; 2202package CFClient::UI::Root;
2137 2203
2138our @ISA = CFClient::UI::Container::; 2204our @ISA = CFClient::UI::Container::;
2139 2205
2140use CFClient::OpenGL; 2206use CFClient::OpenGL;
2215############################################################################# 2281#############################################################################
2216 2282
2217package CFClient::UI; 2283package CFClient::UI;
2218 2284
2219$ROOT = new CFClient::UI::Root; 2285$ROOT = new CFClient::UI::Root;
2220$TOOLTIP = new CFClient::UI::Label fontsize => 0.8, can_events => 0; 2286$TOOLTIP = new CFClient::UI::Tooltip;
2221 2287
22221 22881
2223 2289

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines