27/9/23 - Se agregó codigo para generar geocercas.

- Solo la parte visual, todavia no guarda nada.

Pusher.b4a

@@ -177,6 +177,10 @@ Sub Globals
 	Private rutaSeleccionada As String = ""
 	Private p_contenedor1 As Panel
 	Private cb_puntosIntermedios As CheckBox
+	Private p_addGeofence As Panel
+	Private et_gc_nombre As EditText
+	Private b_gc_cancelar As Button
+	Private b_gc_ok As Button
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean) 'ignore
@@ -524,6 +528,13 @@ Sub MapFragment1_Ready
 '	Subs.mueveCamaraMapa(MapFragment1, latmarker, longmarker)
 End Sub
 
+Sub MapFragment2_LongClick(Point As LatLng)
+	Log("LONG: " & Point)
+	p_addGeofence.BringToFront
+	p_addGeofence.Left = (Activity.Width / 2) - (p_addGeofence.Width / 2)
+	p_addGeofence.Visible = True
+End Sub
+
 Sub InfoWindowAdapter1_GetInfoContents(Marker1 As Marker) As View
 	'	the default InfoContent will be used if this event Sub is not defined or if it returns Null
 '	Log("InfoWindowAdapter1_GetInfoContents")
@@ -769,4 +780,15 @@ End Sub
 
 Private Sub s_rutas_ItemClick (Position As Int, Value As Object)
 	rutaSeleccionada = Value
+End Sub
+
+Private Sub p_addGeofence_Click
+End Sub
+
+Private Sub b_gc_ok_Click
+	p_addGeofence.Visible = False
+End Sub
+
+Private Sub b_gc_cancelar_Click
+	p_addGeofence.Visible = False
 End Sub