scroll Subroutine

private subroutine scroll(self, dy)

The scroll wheel: dy > 0 away from the user.

Type Bound

WindowProxy

Arguments

Type IntentOptional Attributes Name
class(WindowProxy), intent(inout) :: self
real(kind=wp), intent(in) :: dy

wheel steps (> 0: away from the user; fractions for a trackpad's small steps: Qt's angleDelta / 120)

Calls

proc~~scroll~~CallsGraph proc~scroll WindowProxy%scroll interface~vkf_viewer_scroll vkf_viewer_scroll proc~scroll->interface~vkf_viewer_scroll

Source Code

    subroutine scroll(self, dy)
        class(WindowProxy), intent(inout) :: self
        real(wp), intent(in) :: dy                          !! wheel steps (> 0: away from the user; fractions
                                                            !! for a trackpad's small steps: Qt's angleDelta / 120)
        if (.not. c_associated(self%viewer_)) return
        if (vkf_viewer_scroll(self%viewer_, real(dy, c_float)) /= 0) write(*, '(a)') 'vkframes: scroll event failed'
    end subroutine scroll