next_view Subroutine

private subroutine next_view(self, duration)

Show the next view (wrapping around); duration as select_view's.

Type Bound

WindowProxy

Arguments

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

s, as select_view's

Calls

proc~~next_view~~CallsGraph proc~next_view WindowProxy%next_view proc~select_view WindowProxy%select_view proc~next_view->proc~select_view

Called by

proc~~next_view~~CalledByGraph proc~next_view WindowProxy%next_view proc~default_key default_key proc~default_key->proc~next_view proc~dispatch_event dispatch_event proc~dispatch_event->proc~default_key proc~dispatch_events dispatch_events proc~dispatch_events->proc~dispatch_event proc~frame WindowProxy%frame proc~frame->proc~dispatch_events proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame

Source Code

    subroutine next_view(self, duration)
        class(WindowProxy), intent(inout) :: self
        real(wp), intent(in), optional :: duration          !! s, as select_view's
        if (self%n_views > 0) call self%select_view(modulo(self%current, self%n_views) + 1, duration)
    end subroutine next_view