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.482 by root, Sat Aug 13 23:18:19 2011 UTC vs.
Revision 1.483 by root, Wed Jan 4 11:23:23 2012 UTC

3287 indent => 0, 3287 indent => 0,
3288 #font => default_font 3288 #font => default_font
3289 @_, 3289 @_,
3290 3290
3291 layout => (new DC::Layout), 3291 layout => (new DC::Layout),
3292 par => [],
3293 max_par => 0, 3292 max_par => 0,
3294 height => 0, 3293 height => 0,
3295 children => [ 3294 children => [
3296 (new DC::UI::Empty expand => 1), 3295 (new DC::UI::Empty expand => 1),
3297 (new DC::UI::Slider vertical => 1), 3296 (new DC::UI::Slider vertical => 1),
3298 ], 3297 ],
3299 ); 3298 );
3300 3299
3301 $self->{children}[1]->connect (changed => sub { $self->update }); 3300 $self->{children}[1]->connect (changed => sub { $self->update });
3301
3302 $self->add_paragraph (@{ delete $self->{par} }) if @{ $self->{par} };
3302 3303
3303 $self 3304 $self
3304} 3305}
3305 3306
3306sub set_fontsize { 3307sub set_fontsize {
4402 $ROOT->on_refresh (reorder => sub { 4403 $ROOT->on_refresh (reorder => sub {
4403 $self->reorder; 4404 $self->reorder;
4404 }); 4405 });
4405} 4406}
4406 4407
4408sub clr_group {
4409 my ($self, $group) = @_;
4410
4411 if (delete $self->{item}{$group}) {
4412 $ROOT->on_refresh (reorder => sub {
4413 $self->reorder;
4414 });
4415 }
4416}
4417
4407sub reconfigure { 4418sub reconfigure {
4408 my ($self) = @_; 4419 my ($self) = @_;
4409 4420
4410 delete $_->{label} 4421 delete $_->{label}
4411 for values %{ $self->{item} || {} }; 4422 for values %{ $self->{item} || {} };

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines