Initial commit
This commit is contained in:
216
engines/director/lingo/xtras/m/mui.cpp
Normal file
216
engines/director/lingo/xtras/m/mui.cpp
Normal file
@@ -0,0 +1,216 @@
|
||||
/* ScummVM - Graphic Adventure Engine
|
||||
*
|
||||
* ScummVM is the legal property of its developers, whose names
|
||||
* are too numerous to list here. Please refer to the COPYRIGHT
|
||||
* file distributed with this source distribution.
|
||||
*
|
||||
* This program is free software: you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation, either version 3 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
*
|
||||
*/
|
||||
|
||||
#include "common/system.h"
|
||||
|
||||
#include "director/director.h"
|
||||
#include "director/lingo/lingo.h"
|
||||
#include "director/lingo/lingo-object.h"
|
||||
#include "director/lingo/lingo-utils.h"
|
||||
#include "director/lingo/xtras/m/mui.h"
|
||||
|
||||
/**************************************************
|
||||
*
|
||||
* USED IN:
|
||||
* I Spy Spooky Mansion
|
||||
*
|
||||
**************************************************/
|
||||
|
||||
/*
|
||||
-- xtra Mui
|
||||
-- methods are Initialize, Run, WindowOperation, ItemUpdate --
|
||||
----------------------------------------------------------------------
|
||||
-- Data types (prop lists required formats)
|
||||
-- #widgetTypes -- call GetWidgetList on object for complete list
|
||||
-- #checkBox , #radioButton, #editText, #editTextLarge, #labelNormal, etc
|
||||
-- #attributeTypes -- varies depending on the type of widget, contains 0 or more of the following
|
||||
-- #textSize : [#large, #tiny, #normal(default)]
|
||||
-- #textStyle : [#bold, #italic, #underline, #plain (default), #inverse (v2)
|
||||
-- #textAlign : [#left, #right, #center (defaults to system language standard)
|
||||
-- #popupStyle : [#tiny, #cramped, #normal (default)
|
||||
-- #valueList : ['one', #two, 3, 4.0] (list of mmvalues, all coerced to strings)
|
||||
-- #valueRange : [#min:0.0, #max:1000.0, #increment:1.0, #jump:10.0, #acceleration:0.5]
|
||||
-- #sliderStyle : [#ticks, #value]
|
||||
-- #layoutStyle : [#lockPosition, #lockSize, #minimize, #centerH, #right, #left, #centerV, #top, #bottom ]
|
||||
-- according to the following breakdown of supported widgets and appropriate attributes
|
||||
-- #widgetTypes | vs | UT | Attributes to use, UT = Uses Title
|
||||
-- #none, | 1.0 | No | <layoutStyle>
|
||||
-- #dividerV, | 1.0 | No | <layoutStyle>
|
||||
-- #dividerH, | 1.0 | No | <layoutStyle>
|
||||
-- #bitmap, | 1.0 | No | <layoutStyle>
|
||||
-- #checkBox, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
-- #radioButton, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
-- #popupList, | 1.0 | No | <popupStyle><valueList><layoutStyle>
|
||||
-- #editText, | 1.0 | No | <textSize><justification><textStyle><layoutStyle>
|
||||
-- #windowBegin, | 1.0 | No |
|
||||
-- #windowEnd, | 1.0 | No |
|
||||
-- #groupHBegin, | 1.0 | No |
|
||||
-- #groupHEnd, | 1.0 | No |
|
||||
-- #groupVBegin, | 1.0 | No |
|
||||
-- #groupVEnd, | 1.0 | No |
|
||||
-- #label, | 1.0 | No | <textSize><justification><textStyle><layoutStyle>
|
||||
-- #IntegerSliderH, | 1.0 | No | <sliderStyle><valueRange><layoutStyle>
|
||||
-- #floatSliderH, | 1.0 | No | <sliderStyle><valueRange><layoutStyle>
|
||||
-- #defaultPushButton, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
-- #cancelPushButton, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
-- #pushButton, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
-- #toggleButton, | 1.0 | Yes| <textSize><layoutStyle>
|
||||
--
|
||||
-- alertList =
|
||||
-- [ #buttons : <#Ok/#OkCancel/#AbortRetryIgnore/#YesNoCancel/#YesNo/#RetryCancel>,
|
||||
-- #default : 1, -- button number to default, 0 for no default
|
||||
-- #title : 'Unsaved File Alert',
|
||||
-- #message : 'Save before quitting?',
|
||||
-- #icon : <#stop/#note/#caution/#question/#error>,
|
||||
-- #movable : <TRUE/FALSE>]
|
||||
-- itemPropList =
|
||||
-- [ #value : <1 or 1.1 or 'string'>,
|
||||
-- #type : <#widgetType>,
|
||||
-- #attributes : #attributeTypes,
|
||||
-- #title : <'title'>, -- title to display for item, '' for no title
|
||||
-- #tip : <'tooltip'>, -- tip for item, '' for no tip
|
||||
-- #locH : <10>, -- in pixels from upper left, 0 to accept default
|
||||
-- #locV : <10> -- in pixels from upper left, 0 to accept default
|
||||
-- #width : <16>, -- in pixels, 0 if don't care
|
||||
-- #height : <16>, -- in pixels, 0 if don't care
|
||||
-- #enabled : <TRUE or FALSE> -- whether or not the item is enabled ]
|
||||
-- #windowItemList = [ itemPropList, itemPropList, ...]
|
||||
-- #windowPropList =
|
||||
-- [ #type : <#alert/#normal/#palette>,
|
||||
-- #name : 'windowName', -- name of window, '' for no name
|
||||
-- #callback : 'nothing', -- callback interface
|
||||
-- #mode : <#data/#dialogUnit/#pixel>, -- autolayout or your specifications
|
||||
-- #XPosition : <16>, -- left of window, from left of dialog, -1 = Center
|
||||
-- #YPosition : <16>; -- top of window, from top of dialog, -1 = Center
|
||||
-- #width : <200>; -- pixel width of window, 0 if don't care/automatic
|
||||
-- #height : <200>, -- pixel height of window, 0 if don't care/automatic
|
||||
-- #modal : <TRUE or FALSE>, -- whether or not dialog is modal
|
||||
-- #toolTips : <TRUE or FALSE>, -- whether or not to INITIALLY use tooltips
|
||||
-- #closeBox : <TRUE or FALSE>, -- whether or not dialog has close box
|
||||
-- #canZoom : <TRUE or FALSE>; -- whether or not window zooms
|
||||
-- initPropList = [ #windowPropList : [], #windowItemList : [] ]
|
||||
-- When an event occurs in dialog, the callback is called with 3 params, 1st a callback event symbol,
|
||||
-- callbackEvents = #itemChanged/#itemClicked/#windowOpening/#windowClosed/#windowZoomed/#windowResized
|
||||
-- #itemEnteringFocus/#itemLosingFocus
|
||||
-- second, event specific information. (e.g.item events will return item position in #windowItemList), and
|
||||
-- third, the new item proplist for the item that was effected.
|
||||
----------------------------------------------------------------------
|
||||
New object me -- call this first to access object methods
|
||||
Initialize object me, object initPropList -- call this to setup window items
|
||||
Run object me -- shows window
|
||||
Stop object me, integer stopItem -- stops window, stopitem will be passed to callback if specified
|
||||
WindowOperation object me, symbol operation -- #hide, #show, #center, #zoom, #tipsOn, #tipsOff
|
||||
ItemUpdate object me, integer itemNumber, object itemInputPropList -- update an item
|
||||
GetWindowPropList object me -- returns a property list in the standard format for initing window
|
||||
GetItemPropList object me -- returns a default itemPropList
|
||||
GetWidgetList object me -- returns a linear list of current supported widget symbols
|
||||
Alert object me, object alertList -- display an alert
|
||||
GetUrl object me, string url, boolean movable -- puts up url entry dialog
|
||||
FileOpen object me, string file -- puts up a system standard dialog for opening a file
|
||||
FileSave object me, string file, string prompt -- puts up system dialog for saving a file.
|
||||
*MoaErrorToString integer MoaError -- xtra returns a big neg. int, call and get a string explaining.
|
||||
|
||||
*/
|
||||
|
||||
namespace Director {
|
||||
|
||||
const char *MuiXtra::xlibName = "Mui";
|
||||
const XlibFileDesc MuiXtra::fileNames[] = {
|
||||
{ "mui", nullptr },
|
||||
{ "Mui Dialog", nullptr },
|
||||
{ nullptr, nullptr },
|
||||
};
|
||||
|
||||
static MethodProto xlibMethods[] = {
|
||||
{ "New", MuiXtra::m_New, 0, 0, 500 },
|
||||
{ "Initialize", MuiXtra::m_Initialize, 1, 0, 500 },
|
||||
{ "Run", MuiXtra::m_Run, 0, 0, 500 },
|
||||
{ "Stop", MuiXtra::m_Stop, 1, 0, 500 },
|
||||
{ "WindowOperation", MuiXtra::m_WindowOperation, 1, 0, 500 },
|
||||
{ "ItemUpdate", MuiXtra::m_ItemUpdate, 2, 0, 500 },
|
||||
{ "GetWindowPropList", MuiXtra::m_GetWindowPropList, 0, 0, 500 },
|
||||
{ "GetItemPropList", MuiXtra::m_GetItemPropList, 0, 0, 500 },
|
||||
{ "GetWidgetList", MuiXtra::m_GetWidgetList, 0, 0, 500 },
|
||||
{ "Alert", MuiXtra::m_Alert, 1, 0, 500 },
|
||||
{ "GetUrl", MuiXtra::m_GetUrl, 2, 0, 500 },
|
||||
{ "FileOpen", MuiXtra::m_FileOpen, 1, 0, 500 },
|
||||
{ "FileSave", MuiXtra::m_FileSave, 2, 0, 500 },
|
||||
{ nullptr, nullptr, 0, 0, 0 }
|
||||
};
|
||||
|
||||
static BuiltinProto xlibBuiltins[] = {
|
||||
{ "MoaErrorToString", MuiXtra::m_MoaErrorToString, 1, 1, 500, HBLTIN },
|
||||
{ nullptr, nullptr, 0, 0, 0, VOIDSYM }
|
||||
};
|
||||
|
||||
MuiXtraObject::MuiXtraObject(ObjectType ObjectType) :Object<MuiXtraObject>("Mui") {
|
||||
_objType = ObjectType;
|
||||
}
|
||||
|
||||
bool MuiXtraObject::hasProp(const Common::String &propName) {
|
||||
return (propName == "name");
|
||||
}
|
||||
|
||||
Datum MuiXtraObject::getProp(const Common::String &propName) {
|
||||
if (propName == "name")
|
||||
return Datum(MuiXtra::xlibName);
|
||||
warning("MuiXtra::getProp: unknown property '%s'", propName.c_str());
|
||||
return Datum();
|
||||
}
|
||||
|
||||
void MuiXtra::open(ObjectType type, const Common::Path &path) {
|
||||
MuiXtraObject::initMethods(xlibMethods);
|
||||
MuiXtraObject *xobj = new MuiXtraObject(type);
|
||||
if (type == kXtraObj) {
|
||||
g_lingo->_openXtras.push_back(xlibName);
|
||||
g_lingo->_openXtraObjects.push_back(xobj);
|
||||
}
|
||||
g_lingo->exposeXObject(xlibName, xobj);
|
||||
g_lingo->initBuiltIns(xlibBuiltins);
|
||||
}
|
||||
|
||||
void MuiXtra::close(ObjectType type) {
|
||||
MuiXtraObject::cleanupMethods();
|
||||
g_lingo->_globalvars[xlibName] = Datum();
|
||||
|
||||
}
|
||||
|
||||
void MuiXtra::m_New(int nargs) {
|
||||
g_lingo->printSTUBWithArglist("MuiXtra::m_New", nargs);
|
||||
g_lingo->dropStack(nargs);
|
||||
g_lingo->push(g_lingo->_state->me);
|
||||
}
|
||||
|
||||
XOBJSTUB(MuiXtra::m_Initialize, 0)
|
||||
XOBJSTUB(MuiXtra::m_Run, 0)
|
||||
XOBJSTUB(MuiXtra::m_Stop, 0)
|
||||
XOBJSTUB(MuiXtra::m_WindowOperation, 0)
|
||||
XOBJSTUB(MuiXtra::m_ItemUpdate, 0)
|
||||
XOBJSTUB(MuiXtra::m_GetWindowPropList, 0)
|
||||
XOBJSTUB(MuiXtra::m_GetItemPropList, 0)
|
||||
XOBJSTUB(MuiXtra::m_GetWidgetList, 0)
|
||||
XOBJSTUB(MuiXtra::m_Alert, 0)
|
||||
XOBJSTUB(MuiXtra::m_GetUrl, 0)
|
||||
XOBJSTUB(MuiXtra::m_FileOpen, 0)
|
||||
XOBJSTUB(MuiXtra::m_FileSave, 0)
|
||||
XOBJSTUB(MuiXtra::m_MoaErrorToString, 0)
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user