Fix a set of ScrollComponent issues

- Missing touchUp events
- Wrapped PageComponents with directionLock

framer/Components/PageComponent.coffee

@@ -30,8 +30,8 @@ class exports.PageComponent extends ScrollComponent
		@content.draggable.momentum = false
		@content.draggable.bounce = false

		@on(Events.ScrollStart, @_scrollStart)
		@on(Events.ScrollEnd, @_scrollEnd)
		@content.on(Events.DragSessionStart, @_scrollStart)
		@content.on(Events.DragSessionEnd, @_scrollEnd)

		@content.on("change:frame", _.debounce(@_scrollMove, 16))
		@content.on("change:children", @_resetHistory)
@@ -168,16 +168,10 @@ class exports.PageComponent extends ScrollComponent
		xLock = @content.draggable._directionLockEnabledX and (@direction == "right" or @direction == "left")
		yLock = @content.draggable._directionLockEnabledY and (@direction == "down" or @direction == "up")

		if Math.max(Math.abs(velocity.x), Math.abs(velocity.y)) < @velocityThreshold or xLock or yLock or xDisabled or yDisabled
			# print "velocity"
		maximumVelocity = Math.max(Math.abs(velocity.x), Math.abs(velocity.y))

			start = @content.draggable._layerStartPoint
			end = @content.draggable.layer.point

			if start? and end?
				if start.x isnt end.x or start.y isnt end.y
					@snapToPage(@closestPage, true, @animationOptions)
					return
		if maximumVelocity < @velocityThreshold or xLock or yLock or xDisabled or yDisabled
			return @snapToPage(@closestPage, true, @animationOptions)

		# Figure out which direction we are scrolling to and make a sorted list of
		# layers on that side, sorted by absolute distance so we can pick the first.
@@ -187,7 +181,7 @@ class exports.PageComponent extends ScrollComponent
		# that we are already at.
		nextPage ?= @closestPage

		# print Math.max(Math.abs(velocity.x), Math.abs(velocity.y))
		# print @content, maximumVelocity, @velocityThreshold
		# print @direction, nextPage

		@snapToPage(nextPage, true, @animationOptions)

framer/LayerDraggable.coffee

@@ -19,6 +19,11 @@ Events.DragAnimationStart 	 = "draganimationstart"
Events.DragAnimationEnd   	 = "draganimationend"
Events.DirectionLockStart    = "directionlockstart"

# Special cases
Events.DragSessionStart      = "dragsessionstart"
Events.DragSessionMove       = "dragsessionmove"
Events.DragSessionEnd        = "dragsessionend"

# Add deprecated aliases
Events.DragAnimationDidStart = Events.DragAnimationStart
Events.DragAnimationDidEnd = Events.DragAnimationEnd
@@ -101,13 +106,16 @@ class exports.LayerDraggable extends BaseClass

	attach: ->
		@layer.on(Gestures.TapStart, @touchStart)
		@layer.on(Gestures.Pan, @_touchMove)
		@layer.on(Gestures.TapEnd, @_touchEnd)
		# @layer.on(Gestures.Pan, @_touchMove)
		# @layer.on(Gestures.TapEnd, @_touchEnd)



		@layer.on("change:x", @_updateLayerPosition)
		@layer.on("change:y", @_updateLayerPosition)

	remove: ->
		@layer.off(Gestures.PanStart, @touchStart)
		@layer.off(Gestures.TapStart, @touchStart)
		@layer.off(Gestures.Pan, @_touchMove)
		@layer.off(Gestures.PanEnd, @_touchEnd)

@@ -128,6 +136,9 @@ class exports.LayerDraggable extends BaseClass

	_touchStart: (event) =>

		Events.wrap(document).addEventListener(Gestures.Pan, @_touchMove)
		Events.wrap(document).addEventListener(Gestures.TapEnd, @_touchEnd)

		# Only reset isMoving if this was not animating when we were clicking
		# so we can use it to detect a click versus a drag.
		@_isMoving = @isAnimating
@@ -176,6 +187,8 @@ class exports.LayerDraggable extends BaseClass
		@_point = @_correctedLayerStartPoint
		@_ignoreUpdateLayerPosition = false

		@emit(Events.DragSessionStart, event)

	_touchMove: (event) =>

		return unless @enabled
@@ -249,15 +262,21 @@ class exports.LayerDraggable extends BaseClass
			@emit(Events.Move, @layer.point)
			@emit(Events.DragDidMove, event)

		@emit(Events.DragSessionMove, event)

	_touchEnd: (event) =>

		Events.wrap(document).removeEventListener(Gestures.Pan, @_touchMove)
		Events.wrap(document).removeEventListener(Gestures.TapEnd, @_touchEnd)

		event.stopPropagation() if @propagateEvents is false

		# Start the simulation prior to emitting the DragEnd event.
		# This way, if the user calls layer.animate on DragEnd, the simulation will
		# be canceled by the user's animation (if the user animates x and/or y).
		@_startSimulation()

		@emit(Events.DragSessionEnd, event)
		@emit(Events.DragEnd, event) if @_isDragging

		# Set _isDragging after DragEnd is fired, so that calls to calculateVelocity()