From e44bedfea2d863bfe36af5dda9f84a1e70aef6de Mon Sep 17 00:00:00 2001
From: Qingping Hou <dave2008713@gmail.com>
Date: Fri, 15 Mar 2013 20:30:42 -0400
Subject: [PATCH] listen swipe gesture in touchmenu

---
 frontend/ui/widget/touchmenu.lua | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/frontend/ui/widget/touchmenu.lua b/frontend/ui/widget/touchmenu.lua
index 8ae924c15..7d6607ac3 100644
--- a/frontend/ui/widget/touchmenu.lua
+++ b/frontend/ui/widget/touchmenu.lua
@@ -193,6 +193,12 @@ function TouchMenu:init()
 			}
 		}
 	}
+	self.ges_events.Swipe = {
+		GestureRange:new{
+			ges = "swipe",
+			range = self.dimen,
+		}
+	}
 
 	local icons = {}
 	for _,v in ipairs(self.tab_item_table) do
@@ -323,6 +329,30 @@ function TouchMenu:closeMenu()
 	self.close_callback()
 end
 
+function TouchMenu:onNextPage()
+	if self.page < self.page_num then
+		self.page = self.page + 1
+		self:updateItems()
+	end
+	return true
+end
+
+function TouchMenu:onPrevPage()
+	if self.page > 1 then
+		self.page = self.page - 1
+		self:updateItems()
+	end
+	return true
+end
+
+function TouchMenu:onSwipe(arg, ges_ev)
+	if ges_ev.direction == "left" then
+		self:onNextPage()
+	elseif ges_ev.direction == "right" then
+		self:onPrevPage()
+	end
+end
+
 function TouchMenu:onMenuSelect(item)
 	if item.sub_item_table == nil then
 		if item.callback then