adapt ReaderPanning to new touch event system

frontend/ui/reader/readerpanning.lua

@@ -1,12 +1,4 @@
 ReaderPanning = InputContainer:new{
-	key_events = {
-		-- these will all generate the same event, just with different arguments
-		MoveUp = { {"Up"}, doc = "move visible area up", event = "Panning", args = {0, -1} },
-		MoveDown = { {"Down"}, doc = "move visible area down", event = "Panning", args = {0,  1} },
-		MoveLeft = { {"Left"}, doc = "move visible area left", event = "Panning", args = {-1, 0} },
-		MoveRight = { {"Right"}, doc = "move visible area right", event = "Panning", args = {1,  0} },
-	},
-
 	-- defaults
 	panning_steps = {
 		normal = 50,
@@ -16,6 +8,27 @@ ReaderPanning = InputContainer:new{
 	},
 }
 
+function ReaderPanning:init()
+	if Device:isTouchDevice() then
+	else
+		self.key_events = {
+			-- these will all generate the same event, just with different arguments
+			MoveUp = {
+				{ "Up" }, doc = "move visible area up",
+				event = "Panning", args = {0, -1} },
+			MoveDown = {
+				{ "Down" }, doc = "move visible area down",
+				event = "Panning", args = {0,  1} },
+			MoveLeft = {
+				{ "Left" }, doc = "move visible area left",
+				event = "Panning", args = {-1, 0} },
+			MoveRight = {
+				{ "Right" }, doc = "move visible area right",
+				event = "Panning", args = {1,  0} },
+		}
+	end
+end
+
 function ReaderPanning:onSetDimensions(dimensions)
 	self.dimen = dimensions
 end