libretro/scummvm
1
0
Fork 0
mirror of https://github.com/libretro/scummvm.git synced 2024-12-11 19:54:03 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

DIRECTOR: LINGO: XOBJ: Implement QTVRGet/SetVisible and remove stubs

Browse Source
This commit is contained in:
Krish 2024-07-07 01:17:53 +05:30 committed by Eugene Sandulenko
parent b61450c8b2
commit 2a095e6c87
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
engines/director/lingo/xtras/qtvrxtra.cpp
View File

@ -202,7 +202,7 @@ static MethodProto xlibMethods[] = {
{ "QTVRGetUpdateMode", QtvrxtraXtra::m_QTVRGetUpdateMode, 0, 0, 500 },
{ "QTVRSetUpdateMode", QtvrxtraXtra::m_QTVRSetUpdateMode, 1, 1, 500 },
{ "QTVRGetVisible", QtvrxtraXtra::m_QTVRGetVisible, 0, 0, 500 },
{ "QTVRSetVisible", QtvrxtraXtra::m_QTVRSetVisible, 1, 0, 500 },
{ "QTVRSetVisible", QtvrxtraXtra::m_QTVRSetVisible, 1, 1, 500 },
{ "QTVRGetWarpMode", QtvrxtraXtra::m_QTVRGetWarpMode, 0, 0, 500 },
{ "QTVRSetWarpMode", QtvrxtraXtra::m_QTVRSetWarpMode, 1, 0, 500 },
{ "QTVRCollapseToHotSpotRgn", QtvrxtraXtra::m_QTVRCollapseToHotSpotRgn, 0, 0, 500 },
@ -562,8 +562,24 @@ void QtvrxtraXtra::m_QTVRSetUpdateMode(int nargs) {
me->_updateMode = g_lingo->pop().asString();
}
XOBJSTUB(QtvrxtraXtra::m_QTVRGetVisible, 0)
XOBJSTUB(QtvrxtraXtra::m_QTVRSetVisible, 0)
void QtvrxtraXtra::m_QTVRGetVisible(int nargs) {
g_lingo->printArgs("QtvrxtraXtra::m_QTVRGetVisible", nargs);
ARGNUMCHECK(0);
QtvrxtraXtraObject *me = (QtvrxtraXtraObject *)g_lingo->_state->me.u.obj;
g_lingo->push((int)me->_visible);
}
void QtvrxtraXtra::m_QTVRSetVisible(int nargs) {
g_lingo->printArgs("QtvrxtraXtra::m_QTVRSetVisible", nargs);
ARGNUMCHECK(1);
QtvrxtraXtraObject *me = (QtvrxtraXtraObject *)g_lingo->_state->me.u.obj;
me->_visible = (bool)g_lingo->pop().asInt();
}
XOBJSTUB(QtvrxtraXtra::m_QTVRGetWarpMode, 0)
XOBJSTUB(QtvrxtraXtra::m_QTVRSetWarpMode, 0)
XOBJSTUB(QtvrxtraXtra::m_QTVRCollapseToHotSpotRgn, 0)