current_view Function

private function current_view(self) result(v)

The view shown (the default view of the scene's root if none were added).

Type Bound

WindowProxy

Arguments

Type IntentOptional Attributes Name
class(WindowProxy), intent(in), target :: self

Return Value type(View), pointer


Called by

proc~~current_view~~CalledByGraph proc~current_view WindowProxy%current_view proc~default_key default_key proc~default_key->proc~current_view proc~place_camera place_camera proc~place_camera->proc~current_view proc~set_camera WindowProxy%set_camera proc~set_camera->proc~current_view proc~track_view track_view proc~track_view->proc~current_view proc~dispatch_event dispatch_event proc~dispatch_event->proc~default_key proc~frame WindowProxy%frame proc~frame->proc~place_camera proc~frame->proc~track_view proc~dispatch_events dispatch_events proc~frame->proc~dispatch_events proc~dispatch_events->proc~dispatch_event proc~resize WindowProxy%resize proc~resize->proc~frame proc~run WindowProxy%run proc~run->proc~frame

Source Code

    function current_view(self) result(v)
        class(WindowProxy), intent(in), target :: self
        type(View), pointer :: v
        if (self%current >= 1 .and. self%current <= self%n_views) then
            v => self%views(self%current)%p
        else
            v => self%default_view
        end if
    end function current_view