set_hovered Subroutine

private subroutine set_hovered(self, hovered)

The handle is under the cursor (set by the window), or not.

Type Bound

DragHandle

Arguments

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

true: under the cursor

Calls

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

Called by

proc~~set_hovered~~CalledByGraph proc~set_hovered DragHandle%set_hovered proc~forget_handles forget_handles proc~forget_handles->proc~set_hovered proc~hover_handle hover_handle proc~hover_handle->proc~set_hovered proc~set_draggable DragHandle%set_draggable proc~set_draggable->proc~set_hovered proc~close WindowProxy%close proc~close->proc~forget_handles proc~dispatch_event dispatch_event proc~dispatch_event->proc~hover_handle proc~release_handle release_handle proc~dispatch_event->proc~release_handle proc~release_handle->proc~hover_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 set_hovered(self, hovered)
        class(DragHandle), intent(inout) :: self
        logical, intent(in) :: hovered                      !! true: under the cursor
        if (hovered .eqv. self%hovered_) return
        self%hovered_ = hovered
        call self%show_state()
    end subroutine set_hovered