… | |
… | |
1080 | expand => 1, |
1080 | expand => 1, |
1081 | scroll_x => $self->{scroll_x}, |
1081 | scroll_x => $self->{scroll_x}, |
1082 | scroll_y => $self->{scroll_y}, |
1082 | scroll_y => $self->{scroll_y}, |
1083 | on_changed => sub { |
1083 | on_changed => sub { |
1084 | my ($vp, $x, $y) = @_; |
1084 | my ($vp, $x, $y) = @_; |
|
|
1085 | |
1085 | $vp->{parent}{hslider}->set_value ($x); |
1086 | $vp->{parent}{hslider}->set_value ($x); |
1086 | $vp->{parent}{vslider}->set_value ($y); |
1087 | $vp->{parent}{vslider}->set_value ($y); |
1087 | |
1088 | |
1088 | 0 |
1089 | 0 |
1089 | }, |
1090 | }, |