11/9/23 - Correcciones varias

- El bototn de desactivar el monitor no funcionaba
- Se cambio el timeout por default
- ...

B4A/B4XMainPage.bas

@@ -104,8 +104,10 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Sleep(0)
 	If p_engrane.Visible Then
 		p_engrane.Visible = False
+		Return False
+	Else
+		Return True
 	End If
-	Return False
 End Sub
 
 'Revisa si la aplicación tiene permiso para acceder a las notificaciones.
@@ -137,7 +139,6 @@ Private Sub b_monitorActivo_Click
 		b_monitorActivo.Text = "Monitor Activo"
 		l_status.Text = "Monitor Activo"
 		CallSubDelayed(Monitor, "Timer1_Tick")
-		Starter.monitorActivo = False
 		Starter.monitorActivo = True
 	End If
 End Sub