sub mapa_onBusyStateChanged(map,blnBusy)
		dim fra
		if blnBusy then
			on error resume next
			fra = top.frames("FrameUtils")
			on error goto 0
			if not isempty(fra) then
				if top.FrameUtils.tabActivo = "Imprimir" then
					top.FrameUtils.FrameImprimir.MapaOcupado
				end if
			end if
			Mensaje "..."
		else
			on error resume next
			fra = top.frames("FrameUtils")
			on error goto 0
			if not isempty(fra) then
				if top.FrameUtils.tabActivo = "Imprimir" then
					top.FrameUtils.FrameImprimir.MapaListo
				end if
			end if
			Mensaje ""
		end if
	end sub
	sub mapa_onViewChanged(map)
		dim Point
		dim Lat
		dim Lon

		call Capas_VistaCambiada ()
		LaEscalaHaCambiado
		EscalaAnterior = map.getScale()

	end sub
	sub mapa_onViewChanging(map)
		call Capas_VistaCambiando ()
	end sub
	sub mapa_onMapLoaded(map)
		call Mapa_ObtenerEstructura()
	end sub
	sub mapa_onDigitizedPoint (map, point)
		if not top.FrameUtils is nothing then
			if top.FrameUtils.tabActivo = "Buscar" then
				top.FrameUtils.FrameBuscar.PuntoCapturado point
			elseif top.FrameUtils.tabActivo = "Imprimir" then
				top.FrameUtils.FrameImprimir.CentrarImpresionEnPunto point.y, point.x
			end if
		end if
	end sub

	sub mapa_onDigitizedRectangle (map, AnchorPt, EndPt)
		if not top.FrameUtils is nothing then
			if top.FrameUtils.tabActivo = "Imprimir" then
				top.FrameUtils.FrameImprimir.CentrarImpresionEnRectangulo AnchorPt, EndPt
			end if
		end if
	end sub

	sub mapa_onViewedDistanceEx(map, TotalDistance, Distances, points, Units, UseMCS)
		select case top.document.TareaMedir
			case "Superficie"
				top.ObtenerSuperficie map, points, UseMCS
			case "Distancia"
				top.DibujarDistancia map, points, UseMCS
		end select
	end sub

	sub mapa_onDoubleClickObject(obj)
		EnlazarFS obj
	end sub