Le portail francophone de la géomatique

Bonjour,

J'avais écrit pour map info 9 (de mémoire) un programme qui permettait, entre autre, de cliquer sur une carte et d'enregistrer les coordonnées de ce clic, malheureusement sous map basic (et info) 10.5 cela ne fonctionne plus (il ne se passe rien) :

create buttonpad "clic" as
toolbutton calling activ_clic id 5
icon 154
cursor 138

end sub

Sub Activ_clic 'procédure qui va activer l'outil pour le clic permettant de récupérer les infos
Run Menu Command 1720
call ToolHandler
End Sub

Sub ToolHandler
set map
CoordSys Earth Projection 8, 104, "m", 57, 0, 0.9996, 500000, 10000000
Center (346954.05,7662694.347)
Zoom 85.46924663 Units "km"
Preserve Zoom Display Zoom
Distance Units "km" Area Units "sq km" XY Units "m"
x_recup = CommandInfo(CMD_INFO_X) 'récupère le X du clic
y_recup = CommandInfo(CMD_INFO_Y) 'récupère le y du clic

Sauriez vous me dire pourquoi ?

Cordialement