Get layer-relative index of the item below the mouse cursor

Checks if there is a visual item below the mouse cursor and if there is, it returns the index of the visual item's position in the corresponding variable dimension of its layer.

Usage

l_currentindex(widget)

Arguments

widget

widget path as a string or as an object handle

Value

index of the visual item's position in the corresponding variable dimension of its layer

Details

For more details see l_help("learn_R_bind.html#item-bindings")

See also

l_bind_item, l_currenttags

Examples

if(interactive()){

p <- l_plot(iris[,1:2], color=iris$Species)

printEntered <- function(W) {
    cat(paste('Entered point ', l_currentindex(W), '\n'))
}

printLeave <- function(W) {
    cat(paste('Left point ', l_currentindex(W), '\n'))
}

l_bind_item(p, tags='model&&point', event='<Enter>',
            callback=function(W) {printEntered(W)})

l_bind_item(p, tags='model&&point', event='<Leave>',
            callback=function(W) {printLeave(W)})

}