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.406 by root, Sat Jul 21 23:17:35 2007 UTC vs.
Revision 1.410 by root, Sun Jul 22 16:37:19 2007 UTC

… …
2027 $self->{oy} = int ($self->{valign} < 0 ? $self->{padding_y} 2027 $self->{oy} = int ($self->{valign} < 0 ? $self->{padding_y}
2028 : $self->{valign} > 0 ? $self->{h} - $size->[1] - $self->{padding_y} 2028 : $self->{valign} > 0 ? $self->{h} - $size->[1] - $self->{padding_y}
2029 : ($self->{h} - $size->[1]) * 0.5); 2029 : ($self->{h} - $size->[1]) * 0.5);
2030 }; 2030 };
2031 2031
2032# unless ($self->{list}) {
2033# $self->{list} = CFPlus::OpenGL::glGenList;
2034# CFPlus::OpenGL::glNewList $self->{list};
2035# $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style});
2036# CFPlus::OpenGL::glEndList;
2037# }
2038#
2039# CFPlus::OpenGL::glCallList $self->{list};
2040
2032 $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style}); 2041 $self->{layout}->render ($self->{ox}, $self->{oy}, $self->{style});
2033} 2042}
2043
2044#sub destroy {
2045# my ($self) = @_;
2046#
2047# CFPlus::OpenGL::glDeleteList delete $self->{list} if $self->{list};
2048#
2049# $self->SUPER::destroy;
2050#}
2034 2051
2035############################################################################# 2052#############################################################################
2036 2053
2037package CFPlus::UI::EntryBase; 2054package CFPlus::UI::EntryBase;
2038 2055
… …
2823 2840
2824 $self->SUPER::invoke_button_down ($ev, $x, $y); 2841 $self->SUPER::invoke_button_down ($ev, $x, $y);
2825 2842
2826 $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x]; 2843 $self->{click} = [$self->{range}[0], $self->{vertical} ? $y : $x];
2827 2844
2828 $self->invoke_mouse_motion ($ev, $x, $y) 2845 $self->invoke_mouse_motion ($ev, $x, $y);
2846
2847 1
2829} 2848}
2830 2849
2831sub invoke_mouse_motion { 2850sub invoke_mouse_motion {
2832 my ($self, $ev, $x, $y) = @_; 2851 my ($self, $ev, $x, $y) = @_;
2833 2852
… …
2853 2872
2854 my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2; 2873 my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2;
2855 2874
2856 $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart); 2875 $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart);
2857 2876
2858 ! ! $delta 2877 1
2859} 2878}
2860 2879
2861sub update { 2880sub update {
2862 my ($self) = @_; 2881 my ($self) = @_;
2863 2882
… …
3748sub add { 3767sub add {
3749 my ($self, $title, $widget, $tooltip) = @_; 3768 my ($self, $title, $widget, $tooltip) = @_;
3750 3769
3751 CFPlus::weaken $self; 3770 CFPlus::weaken $self;
3752 3771
3753 $self->{buttonbar}->add (new CFPlus::UI::Button 3772 unless (ref $title) {
3773 $title = new CFPlus::UI::Button
3754 markup => $title, 3774 markup => $title,
3755 tooltip => $tooltip, 3775 tooltip => $tooltip,
3776 ;
3777 }
3778
3756 on_activate => sub { $self->set_current_page ($widget) }, 3779 $title->connect (activate => sub { $self->set_current_page ($widget) });
3757 ); 3780 $self->{buttonbar}->add ($title);
3758 3781
3759 $self->{multiplexer}->add ($widget); 3782 $self->{multiplexer}->add ($widget);
3760} 3783}
3761 3784
3762sub get_current_page { 3785sub get_current_page {

Diff Legend

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