default_key Subroutine

private subroutine default_key(self, key, modifiers)

The built-in keys (OpenFrames'): v the next view, V the previous one, the space bar resets the view; not with control, alt or meta held.

Arguments

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

a character code or KEY_; MOD_ bits
integer, intent(in) :: modifiers

a character code or KEY_; MOD_ bits

Calls

proc~~default_key~~CallsGraph proc~default_key default_key proc~current_view WindowProxy%current_view proc~default_key->proc~current_view proc~next_view WindowProxy%next_view proc~default_key->proc~next_view proc~previous_view WindowProxy%previous_view proc~default_key->proc~previous_view proc~reset_view View%reset_view proc~default_key->proc~reset_view proc~select_view WindowProxy%select_view proc~next_view->proc~select_view proc~previous_view->proc~select_view

Called by

proc~~default_key~~CalledByGraph proc~default_key default_key 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 default_key(self, key, modifiers)
        class(WindowProxy), intent(inout), target :: self
        integer, intent(in) :: key, modifiers               !! a character code or KEY_*; MOD_* bits
        type(View), pointer :: v
        if (iand(modifiers, MOD_CONTROL + MOD_ALT + MOD_META) /= 0) return
        if (key == iachar('v')) then
            call self%next_view()
        else if (key == iachar('V')) then
            call self%previous_view()
        else if (key == KEY_SPACE) then
            v => self%current_view()
            call v%reset_view()
        end if
    end subroutine default_key