remove_hud_text Subroutine

    subroutine remove_hud_text(self, h)
        class(WindowProxy), intent(inout) :: self
        type(HUDText), intent(in), target :: h              !! the text to stop showing
        integer(c_int) :: status
        integer :: k
        do k = 1, self%n_huds
            if (.not. associated(self%huds(k)%p, h)) cycle
            if (c_associated(self%huds(k)%node)) then
                status = vkf_viewer_hud_remove(self%viewer_, self%huds(k)%node)    ! (not shown yet: -1)
                call vkf_node_delete(self%huds(k)%node)
            end if
            self%huds(k:self%n_huds-1) = self%huds(k+1:self%n_huds)
            self%n_huds = self%n_huds - 1
            return
        end do
    end subroutine remove_hud_text