diff --git a/src/gui/lua/lua_cc_text.cpp b/src/gui/lua/lua_cc_text.cpp index e680a46b7..5f87e409e 100644 --- a/src/gui/lua/lua_cc_text.cpp +++ b/src/gui/lua/lua_cc_text.cpp @@ -215,15 +215,19 @@ int CLuaInstCCText::CCTextScroll(lua_State *L) std::string tmp = "true"; tableLookup(L, "dir", tmp); bool scrollDown = (tmp == "down" || tmp == "1"); + lua_Integer pages = 1; + tableLookup(L, "pages", pages); //get the textbox instance from lua object and use CTexBbox scroll methods CTextBox* ctb = m->ct->getCTextBoxObject(); if (ctb) { + if (pages == -1) + pages = ctb->getPages(); ctb->enableBackgroundPaint(true); if (scrollDown) - ctb->scrollPageDown(1); + ctb->scrollPageDown(pages); else - ctb->scrollPageUp(1); + ctb->scrollPageUp(pages); ctb->enableBackgroundPaint(false); } return 0; diff --git a/src/gui/lua/luainstance.h b/src/gui/lua/luainstance.h index 2d21eb0c6..98fe6ea40 100644 --- a/src/gui/lua/luainstance.h +++ b/src/gui/lua/luainstance.h @@ -31,7 +31,7 @@ extern "C" { #include "luainstance_helpers.h" #define LUA_API_VERSION_MAJOR 1 -#define LUA_API_VERSION_MINOR 29 +#define LUA_API_VERSION_MINOR 30 /* inspired by Steve Kemp http://www.steve.org.uk/ */ class CLuaInstance