set_draggable Subroutine

private subroutine set_draggable(self, draggable)

Whether the mouse may grab the handle (default true).

Type Bound

DragHandle

Arguments

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

true: the mouse may grab it

Calls

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

Source Code

    subroutine set_draggable(self, draggable)
        class(DragHandle), intent(inout) :: self
        logical, intent(in) :: draggable                    !! true: the mouse may grab it
        self%draggable_ = draggable
        if (.not. draggable .and. self%hovered_) call self%set_hovered(.false.)
    end subroutine set_draggable