select_view Subroutine

private subroutine select_view(self, i, duration)

Show view i (1 to num_views), flying there over duration s (default: the view transition, set_view_transition; 0: a cut).

Type Bound

WindowProxy

Arguments

Type IntentOptional Attributes Name
class(WindowProxy), intent(inout) :: self
integer, intent(in) :: i

1 to num_views
real(kind=wp), intent(in), optional :: duration

s (default: the view transition; 0: a cut)

Called by

proc~~select_view~~CalledByGraph proc~select_view WindowProxy%select_view proc~next_view WindowProxy%next_view proc~next_view->proc~select_view proc~previous_view WindowProxy%previous_view proc~previous_view->proc~select_view proc~default_key default_key proc~default_key->proc~next_view proc~default_key->proc~previous_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 select_view(self, i, duration)
        class(WindowProxy), intent(inout) :: self
        integer, intent(in) :: i                            !! 1 to num_views
        real(wp), intent(in), optional :: duration          !! s (default: the view transition; 0: a cut)
        if (i < 1 .or. i > self%n_views .or. i == self%current) return
        self%current = i
        if (present(duration)) self%switch_duration = max(0.0_wp, duration)
    end subroutine select_view