\' Gambas class file
Public Sub _new()
End
Public Sub Form_Open()
GridView1.PopupMenu = "Menu1EspecialPopup"
End
Public Sub MenuAbrir_Click()
Print "has pulsado abrir"
End
Public Sub MenuGuardar_Click()
Print "has pulsado guardar"
End
Public Sub MenuSalir_Click()
Print "has pulsado Salir"
End
Public Sub Menu1Acerca_Click()
Print "has pulsado Acerca de..."
End
Public Sub Menu1Manual_Click()
Print "has pulsado Manual"
End
\'-------------------------------------
\' popupmenu
\'-------------------------------------
\'
Public Sub Menu1Edito_Click()
Print "Editando..."
End
Public Sub Menu1Borrar_Click()
Print "Borrando...."
End
Public Sub Menu1Buscar_Click()
Print "Buscar...."
End
Public Sub Menu1ActivarAjuste_Click()
Print "Opcion Ajuste..."
End