un clic droit évènementiel

dim r,ouiclic,nonclic
label quitter,deplace,taille,rotation,copie,ctxt,montrcach,supprimer,souris

scene3d 1:left 1,200:color 1,20,20,20

main_menu 10
sub_menu 11:parent 11,10:caption 11,"Fichier"
sub_menu 14:parent 14,10:caption 14,"Commandes"
sub_menu 22:parent 22,11:caption 22,"Quitter"        :on_click 22,quitter

sub_menu 42:parent 42,14:caption 42,"Position"      :on_click 42,deplace
sub_menu 43:parent 43,14:caption 43,"Taille"        :on_click 43,taille
sub_menu 44:parent 44,14:caption 44,"Rotation"      :on_click 44,rotation
sub_menu 47:parent 47,14:caption 47,"Dupliquer objet":on_click 47,copie
sub_menu 50:parent 50,14:caption 50,"Changer texte 3d_Text"  :on_click 50,ctxt
sub_menu 51:parent 51,14:caption 51,"Cacher/Montrer" :on_click 51,montrcach
sub_menu 52:parent 52,14:caption 52,"Supprimer"      :on_click 52,supprimer

timer 149:timer_interval 149,1:timer_off 149:on_timer 149,souris
list 150:hide 150:width 150,160:height 150,90
item_add 150,"Position objet":item_add 150,"Taille objet"
item_add 150,"Rotation objet":item_add 150,"Dupliquer objet"
item_add 150,"Supprimer objet":item_add 150,"      FERMER"

timer_on 149
end

souris:
timer_off 149
ouiclic=mouse_right_down(1):nonclic=mouse_right_up(1)
if (ouiclic=1 and nonclic=0)
  left 150,mouse_x_right_down(1):top 150,abs(90-mouse_y_right_down(1)):show 150
end_if
if clicked(150)=1
  r=item_index(150)
  item_insert 150,item_index(150),item_index$(150):item_delete 150,r+1
  hide 150
end_if
  if r=1 then gosub deplace
  if r=2 then gosub taille
  if r=3 then gosub rotation
  if r=4 then gosub copie
  if r=5 then gosub supprimer
  if r=6 then r=0
r=0
timer_on 149
return

deplace:
cls:print "déplacement objet":return
taille:
cls:print "taille objet":return
rotation:
cls:print "rotation objet":return
copie:
cls:print "dupliquer objet":return
ctxt:
cls:print "changer 3d_text":return
montrcach:
cls:print "montrer objet":print "cacher objet":return
supprimer:
cls:print "supprimer objet":return
quitter:
timer_off_all
terminate