Sub poSel

    Dim x, y As Float
    Dim i, i_found, i_row_id, nMid as Integer
    Dim s_table as Alias
    nMid = Frontwindow()
    If WindowInfo(nMID, WIN_INFO_TYPE) <> WIN_MAPPER Then
        Note "The map window must be open"
        Exit Sub
    End If

    x = CommandInfo(CMD_INFO_X)
    y = CommandInfo(CMD_INFO_Y)

    i_found = SearchPoint(nMid, x, y)

    if i_found = 0 then
        Close Table Selection
        Exit Sub
    End If

For i = 1 to i_found
    s_table = SearchInfo(i, SEARCH_INFO_TABLE)
    i_row_id = SearchInfo(i, SEARCH_INFO_ROW)
Next

Select * from s_table where "rowid = " & i_row_id into Selection


Call EditGul

End Sub