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.430 by root, Tue Aug 21 02:39:17 2007 UTC vs.
Revision 1.432 by root, Tue Aug 21 23:42:02 2007 UTC

… …
2801 valign => 0, 2801 valign => 0,
2802 align => 0, 2802 align => 0,
2803 can_events => 1, 2803 can_events => 1,
2804 ellipsise => 1, 2804 ellipsise => 1,
2805 %arg, 2805 %arg,
2806 text => "-",
2807 value => -1,
2808 ); 2806 );
2809 2807
2810 $self->set_value ($arg{value}) if exists $arg{value}; 2808 $self->set_value ($arg{value} || -1);
2811 2809
2812 $self 2810 $self
2813} 2811}
2814 2812
2815sub set_value { 2813sub set_value {
2816 my ($self, $value) = @_; 2814 my ($self, $value) = @_;
2817 2815
2818 if ($self->{value} != $value) { 2816 if ($self->{value} != $value) {
2819 $self->{value} = $value; 2817 $self->{value} = $value;
2818
2819 if ($value < 0) {
2820 $self->set_text ("-");
2821 } else {
2820 $self->set_text (sprintf "%d%%", $value * 100); 2822 $self->set_text (sprintf "%d%%", $value * 100);
2823 }
2821 $self->update; 2824 $self->update;
2822 } 2825 }
2823} 2826}
2824 2827
2825sub _draw { 2828sub _draw {
… …
2877} 2880}
2878 2881
2879sub set_value { 2882sub set_value {
2880 my ($self, $lvl, $exp) = @_; 2883 my ($self, $lvl, $exp) = @_;
2881 2884
2882 my $v = 0; 2885 my $v = -1;
2883 2886
2884 if ($::CONN && (my $table = $::CONN->{exp_table})) { 2887 if ($::CONN && (my $table = $::CONN->{exp_table})) {
2885 my $l0 = $table->[$lvl - 1]; 2888 my $l0 = $table->[$lvl - 1];
2886 my $l1 = $table->[$lvl]; 2889 my $l1 = $table->[$lvl];
2887 2890
… …
3930 3933
3931############################################################################# 3934#############################################################################
3932 3935
3933package CFPlus::UI::Notebook; 3936package CFPlus::UI::Notebook;
3934 3937
3938use CFPlus::OpenGL;
3939
3935our @ISA = CFPlus::UI::VBox::; 3940our @ISA = CFPlus::UI::VBox::;
3936 3941
3937sub new { 3942sub new {
3938 my $class = shift; 3943 my $class = shift;
3939 3944
3940 my $self = $class->SUPER::new ( 3945 my $self = $class->SUPER::new (
3941 buttonbar => (new CFPlus::UI::Buttonbar), 3946 buttonbar => (new CFPlus::UI::Buttonbar),
3942 multiplexer => (new CFPlus::UI::Multiplexer expand => 1), 3947 multiplexer => (new CFPlus::UI::Multiplexer expand => 1),
3948 active_outline => [1, 1, 0],
3943 # filter => # will be put between multiplexer and $self 3949 # filter => # will be put between multiplexer and $self
3944 @_, 3950 @_,
3945 ); 3951 );
3946 3952
3947 $self->{filter}->add ($self->{multiplexer}) if $self->{filter}; 3953 $self->{filter}->add ($self->{multiplexer}) if $self->{filter};
… …
4019sub set_current_page { 4025sub set_current_page {
4020 my ($self, $page) = @_; 4026 my ($self, $page) = @_;
4021 4027
4022 $self->{multiplexer}->set_current_page ($page); 4028 $self->{multiplexer}->set_current_page ($page);
4023 $self->emit (page_changed => $self->{multiplexer}{current}); 4029 $self->emit (page_changed => $self->{multiplexer}{current});
4030}
4031
4032sub _draw {
4033 my ($self) = @_;
4034
4035 $self->SUPER::_draw ();
4036
4037 if (my $cur = $self->{multiplexer}{current}) {
4038 if ($cur = $cur->{c_tab_}) {
4039 glTranslate $cur->{x}, $cur->{y};
4040 glLineWidth 3;
4041 glColor @{$self->{active_outline}};
4042 glRect_lineloop 1, 1, $cur->{w} - 2, $cur->{h} - 2;
4043 glLineWidth 1;
4044 }
4045 }
4024} 4046}
4025 4047
4026############################################################################# 4048#############################################################################
4027 4049
4028package CFPlus::UI::Selector; 4050package CFPlus::UI::Selector;

Diff Legend

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