Apple-2gs-SW/rlint
1
0
Fork 0
mirror of https://github.com/ksherlock/rlint.git synced 2025-08-07 23:25:09 +00:00
Code Issues Projects Releases Wiki Activity

NewWindow2 checks for null title/color/control lists.

Browse Source
This commit is contained in:
Kelvin Sherlock
2018-07-27 08:42:53 -04:00
parent aac93fc859
commit dc658f8533
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
control.c
View File

@@ -173,16 +173,18 @@ void check_rWindParam1(Handle h) {
unsigned desc = ptr->p1InDesc;
ref = (Ref)ptr->p1Title;
if (desc & 0x0200) check(rPString, ref);
if (ref && (desc & 0x0200)) check(rPString, ref);
ref = (Ref)ptr->p1ColorTable;
if (desc & 0x0800) check(rWindColor, ref);
if (ref && (desc & 0x0800)) check(rWindColor, ref);
ref = (Ref)ptr->p1ControlList;
switch(desc & 0xff) {
case singleResource: check(rControlTemplate, ref); break;
case resourceToResource: check(rControlList, ref); break;
default: break; /* warn about invalid value ? */
if (ref) {
switch(desc & 0xff) {
case singleResource: check(rControlTemplate, ref); break;
case resourceToResource: check(rControlList, ref); break;
default: break; /* warn about invalid value ? */
}
}
}