… | |
… | |
1061 | $self->{vp}->set_offset ($self->{hpos}, $self->{vpos}); |
1061 | $self->{vp}->set_offset ($self->{hpos}, $self->{vpos}); |
1062 | }, |
1062 | }, |
1063 | ; |
1063 | ; |
1064 | |
1064 | |
1065 | $self = $class->SUPER::new ( |
1065 | $self = $class->SUPER::new ( |
1066 | vp => (new CFPlus::UI::ViewPort expand => 1), |
1066 | scroll_x => 0, |
|
|
1067 | scroll_y => 1, |
1067 | can_events => 1, |
1068 | can_events => 1, |
1068 | hslider => $hslider, |
1069 | hslider => $hslider, |
1069 | vslider => $vslider, |
1070 | vslider => $vslider, |
1070 | col_expand => [1, 0], |
1071 | col_expand => [1, 0], |
1071 | row_expand => [1, 0], |
1072 | row_expand => [1, 0], |
1072 | %arg, |
1073 | %arg, |
1073 | ); |
1074 | ); |
1074 | |
1075 | |
|
|
1076 | $self->{vp} = new CFPlus::UI::ViewPort |
|
|
1077 | expand => 1, |
|
|
1078 | scroll_x => $self->{scroll_x}, |
|
|
1079 | scroll_y => $self->{scroll_y}, |
|
|
1080 | ; |
|
|
1081 | |
1075 | $self->SUPER::add (0, 0, $self->{vp}); |
1082 | $self->SUPER::add (0, 0, $self->{vp}); |
1076 | $self->SUPER::add (1, 0, $self->{vslider}); |
1083 | $self->SUPER::add (1, 0, $self->{vslider}) if $self->{scroll_y}; |
1077 | $self->SUPER::add (0, 1, $self->{hslider}); |
1084 | $self->SUPER::add (0, 1, $self->{hslider}) if $self->{scroll_x}; |
1078 | |
1085 | |
1079 | $self->add ($child) if $child; |
1086 | $self->add ($child) if $child; |
1080 | |
1087 | |
1081 | $self |
1088 | $self |
1082 | } |
1089 | } |