[Gambas-user] Right-click menu

[M. Cs.]

O.K I found the answer in examples

' Gambas class file
PUBLIC save AS Action

PUBLIC SUB gV_Menu()
DIM almenu, almenu1 AS Menu
almenu = NEW Menu(FMain)
almenu1 = NEW Menu(almenu)
almenu1.Text = "Delete selected"
almenu.Hide
almenu.popup()
almenu1.Action = "save"
END


PUBLIC SUB Action_Activate(key AS String) AS Boolean
SELECT CASE key
CASE "save"
 'do what you want to do
END SELECT
END

This works! Thanks!