| … | |
… | |
| 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 | |
