From ac1cf212d1c2804c6cf598ea5bfcbe5e38616a24 Mon Sep 17 00:00:00 2001
From: Qingping Hou <dave2008713@gmail.com>
Date: Mon, 7 Jan 2013 06:53:35 -0500
Subject: [PATCH] add setViewMode to CreDocument

---
 frontend/document/credocument.lua | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/frontend/document/credocument.lua b/frontend/document/credocument.lua
index aa8e59060..f034b7f97 100644
--- a/frontend/document/credocument.lua
+++ b/frontend/document/credocument.lua
@@ -170,6 +170,16 @@ function CreDocument:setFontSize(new_font_size)
 	end
 end
 
+function CreDocument:setViewMode(new_mode)
+	if new_mode then
+		if new_mode == "scroll" then
+			self._document:setViewMode(self.SCROLL_VIEW_MODE)
+		else
+			self._document:setViewMode(self.PAGE_VIEW_MODE)
+		end
+	end
+end
+
 function CreDocument:zoomFont(delta)
 	self._document:zoomFont(delta)
 end