… | |
… | |
1102 | $self->add ($child) if $child; |
1102 | $self->add ($child) if $child; |
1103 | |
1103 | |
1104 | $self |
1104 | $self |
1105 | } |
1105 | } |
1106 | |
1106 | |
1107 | #TODO# update range on size_allocate depending on child? |
|
|
1108 | |
|
|
1109 | sub add { |
1107 | sub add { |
1110 | my ($self, $widget) = @_; |
1108 | my ($self, $widget) = @_; |
1111 | |
1109 | |
1112 | $self->{vp}->add ($self->{child} = $widget); |
1110 | $self->{vp}->add ($self->{child} = $widget); |
1113 | } |
1111 | } |
… | |
… | |
1134 | if ($visible != $self->{vslider_visible}) { |
1132 | if ($visible != $self->{vslider_visible}) { |
1135 | $self->{vslider_visible} = $visible; |
1133 | $self->{vslider_visible} = $visible; |
1136 | $visible ? $self->SUPER::add ($self->{vslider}) |
1134 | $visible ? $self->SUPER::add ($self->{vslider}) |
1137 | : $self->SUPER::remove ($self->{vslider}); |
1135 | : $self->SUPER::remove ($self->{vslider}); |
1138 | } |
1136 | } |
1139 | } |
|
|
1140 | |
|
|
1141 | sub update { |
|
|
1142 | my ($self) = @_; |
|
|
1143 | |
|
|
1144 | $self->update_slider; |
|
|
1145 | $self->SUPER::update; |
|
|
1146 | } |
1137 | } |
1147 | |
1138 | |
1148 | sub invoke_mouse_wheel { |
1139 | sub invoke_mouse_wheel { |
1149 | my ($self, $ev) = @_; |
1140 | my ($self, $ev) = @_; |
1150 | |
1141 | |