DIRECTOR: LINGO: Implement the purgePriority. We're not going to use it, though

This commit is contained in:
Eugene Sandulenko 2020-07-20 15:34:04 +02:00
parent 540fdb1de6
commit 86d249ffed
3 changed files with 4 additions and 2 deletions

View File

@ -38,6 +38,7 @@ CastMember::CastMember(Cast* cast, uint16 castId) {
_widget = nullptr;
_hilite = false;
_autoHilite = false;
_purgePriority = 3;
_modified = true;
}

View File

@ -77,6 +77,7 @@ public:
bool _modified;
bool _hilite;
bool _autoHilite;
int _purgePriority;
Graphics::MacWidget *_widget;

View File

@ -1501,7 +1501,7 @@ Datum Lingo::getTheCast(Datum &id1, int field) {
warning("STUB: Lingo::getTheCast(): Unprocessed getting field \"%s\" of cast %d", field2str(field), id);
break;
case kThePurgePriority:
warning("STUB: Lingo::getTheCast(): Unprocessed getting field \"%s\" of cast %d", field2str(field), id);
d.u.i = member->_purgePriority;
break;
case kTheScriptText:
if (castInfo)
@ -1696,7 +1696,7 @@ void Lingo::setTheCast(Datum &id1, int field, Datum &d) {
warning("STUB: Lingo::setTheCast(): Unprocessed setting field \"%s\" of cast %d", field2str(field), id);
break;
case kThePurgePriority:
warning("STUB: Lingo::setTheCast(): Unprocessed setting field \"%s\" of cast %d", field2str(field), id);
member->_purgePriority = CLIP<int>(d.asInt(), 0, 3);
break;
case kTheScriptText:
if (!castInfo) {