From 04f4ee31b223e938bc3965e7e5dcdcac7323d931 Mon Sep 17 00:00:00 2001
From: cheveguerra <cheveguerra@gmail.com>
Date: Wed, 27 Sep 2023 16:24:27 -0600
Subject: [PATCH] =?UTF-8?q?27/9/23=20-=20Se=20agreg=C3=B3=20codigo=20para?=
 =?UTF-8?q?=20generar=20geocercas.=20-=20Solo=20la=20parte=20visual,=20tod?=
 =?UTF-8?q?avia=20no=20guarda=20nada.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Files/layout.bal | Bin 17537 -> 20010 bytes
 Pusher.b4a       |  22 ++++++++++++++++++++++
 2 files changed, 22 insertions(+)

diff --git a/Files/layout.bal b/Files/layout.bal
index 583078fde62c0732a5aeba270fcf411bf60f67e4..c148cb0446ff8ba3ef91d823be1bc7348cb7ad69 100644
GIT binary patch
delta 1315
zcmb`G-%k@k5XX0cB2-FyEg;~j#X_N2ezu?>70{|NQG+4z#YA$nD?v_LuV;KD5@TYF
zF*q7uj8Pu}mERhpe~HFNAN>b>(C;2tmo~n6$@lKFGkbG0H?w!{^Tp@f<6?|8l{4nX
z^TdMZuI>R$PE4gHQpRjbn1;3Ik0CR&x=_Y_RagsK?wHNon6v~v<t^U5Fq+b4PusW5
z41MH3H5n;8VWiV%Mdq47Fxo76$vfzB=`*bqzB0%MIZQuFLvsySHA3}}<oyck3LgO1
zLUqtVg%2qlRJcju!wQEKZf0yQAGAergcWWDw?Pr89XbL<p$>&R!Cg={)T3~(!ZC&8
zc^+r1FTY@{U*V$)A5(Y$JO~|!h7?YKoj*kVt{MJe{k1FU?kj3YLDyt6MyD(>WmrM<
zEG4Xz5g|{xJ~wU~wlJr2cG5C#PntqDrZWvTu;_HW=Xbo)A_JwTa}v|?4GCV@#B7l%
zYl&R$@2;ZhtH5ig&J>TLoXXLZ$l8WgIFPdLi_T~U(;{dZ`C8V$dmqH<+del{1bPD;
z+hp|eU%1eH#$BYf>U@zd`9t(DPzk!ydRl){vOSPo7A>cef5lCXDW4~;HbTCr!I$V&
zOCycM{PZH)>|KIWj!Bg)x^j_L>w|ommSg7vH89BO=JLEb!8T|(*+%nqP1SE;!nauE
zTio7JSB*|1CqsNi(qql<*Q58g(}Y`IWve?L&DVHgw})2h8u;2yPW|3B>{j#965*<K
z*oGllKJkGQ0ePsL)W!f#YGc$BYNP8z|39^jd}<r`SYc|Lu<c6i=08&VlyK8vyq<3%
zTrFk0!~8uxiuZZ93W9#=4%5|kKYfn1Q=+Fv&v!wd?d>iAoR)@ZbSOe*vKpQE4bge<
A7ytkO

delta 348
zcmZ2Ahq1Afk(ZT$fng?)-~!T?6M0)Uu4Q4Ie2`If@>j;+lNp&8FltO*#5|o*V6qpB
za=jQ(kvI@b0x^s&1!M~Yu?P@LBe7+W*s@4$IV83`5?cX@t%$@{La>z>lz|)-AXWup
zH6T_8VhteHgs~@!vC5}v19>_?tPjL6wgD2`5Q%Ms#5P7^n*iCSKx_uY=16P{ARFx6
e$@^Hd8CPxAVsqiz+#=X*GFje_lbr=93j_d2DIahE

diff --git a/Pusher.b4a b/Pusher.b4a
index a241d73..34141c3 100644
--- a/Pusher.b4a
+++ b/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
\ No newline at end of file