release Subroutine

private subroutine release(self)

Let the handle go.

Type Bound

DragHandle

Arguments

Type IntentOptional Attributes Name
class(DragHandle), intent(inout) :: self

Calls

proc~~release~~CallsGraph proc~release DragHandle%release show_state show_state proc~release->show_state

Called by

proc~~release~~CalledByGraph proc~release DragHandle%release proc~forget_handles forget_handles proc~forget_handles->proc~release proc~release_handle release_handle proc~release_handle->proc~release proc~close WindowProxy%close proc~close->proc~forget_handles proc~dispatch_event dispatch_event proc~dispatch_event->proc~release_handle proc~set_scene WindowProxy%set_scene proc~set_scene->proc~forget_handles 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 release(self)
        class(DragHandle), intent(inout) :: self
        if (.not. self%dragged_) return
        self%dragged_ = .false.
        call self%show_state()
    end subroutine release